From 94c91944bd1d51d7aa514fdd6126c702fa17e2c9 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 13 Jul 2010 02:52:14 +0000
Subject: [PATCH] add show bp video

---
 show_bp_video | 5 +++++
 1 file changed, 5 insertions(+)
 create mode 100755 show_bp_video

diff --git a/show_bp_video b/show_bp_video
new file mode 100755
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
-- 
2.39.2