add show bp video

[bin.git] / show_bp_video

diff --git a/show_bp_video b/show_bp_video
new file mode 100755 (executable)
index 0000000..974d3c6
--- /dev/null
+++ b/show_bp_video
@@ -0,0 +1,5 @@
+#!/bin/sh
+
+URL=$(GET $1|perl -ne 'if (/embed/ && m/src=\"([^"]+)/) { print $1.qq(\n)}'|xargs GET|perl -ne 'if (/mms/ && m/HREF="([^"]+)/) {print $1.qq(\n); exit}')
+
+exec mplayer $URL
\ No newline at end of file