get_iplayer debugging tool for quvi's iPlayer support

0001-Generate-URLs-instead-of-rtmpdump-command-lines.patch

From 2518ed3cade2e18bb99adf613fa5ddf68f15e56c Mon Sep 17 00:00:00 2001
From: Bastien Nocera <[email protected]>
Date: Fri, 20 Jul 2012 13:16:56 +0100
Subject: [PATCH] Generate URLs instead of rtmpdump command-lines

To make it easy to compare with the quvi script, using
http://code.google.com/p/google-diff-match-patch/
---
 get_iplayer |   12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

diff --git a/get_iplayer b/get_iplayer
index e0cc349..6c30bf4 100755
--- a/get_iplayer
+++ b/get_iplayer
@@ -8119,14 +8119,7 @@ sub get {
 	if ( $playpath ) {
 		@cmd = (
 			$bin->{flvstreamer},
-			'--port', $port,
-			'--protocol', $protocol,
-			'--playpath', $playpath,
-			'--host', $server,
-			$swfarg, $swfurl,
-			'--tcUrl', $tcurl,
-			'--app', $application,
-			'--pageUrl', $pageurl,
+			"$tcurl/$playpath app=$application playpath=$playpath swfUrl=$swfurl swfVfy=1 tcUrl=$tcurl pageurl=$pageurl",
 			@cmdopts,
 		);
 	# Using just streamurl (i.e. no playpath defined)
@@ -8140,7 +8133,8 @@ sub get {
 		);
 	}
 
-	$return = main::run_cmd( 'normal', @cmd );
+	# $return = main::run_cmd( 'normal', @cmd );
+	print "URL: \"$cmd[1]\"\n";
 
 	# exit behaviour when streaming
 	if ( $opt->{nowrite} && $opt->{stdout} ) {
-- 
1.7.10.2