#!/usr/bin/perl -w

use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;

my $response = $ua->get('http://esi.ctv.ca/datafeed/flv/urlgenjs.aspx?vid='.$ARGV[0]);
my $content = $response->decoded_content;

$content =~ m/(rtmp[^']*)'/;
my $beginurl = $1;

print "Begin URL: $beginurl\n";

my ($host, $file, $query) = $beginurl =~ m|rtmpe://([^/]*)/ondemand/([^?]*)\?(.*)|;

my ($slist, $else) = $file =~ m|(.*/)([^/]*)|;

#$query .= "&slist=/$slist" unless ($query =~ m/slist/);
#$query .= "&aifp=v001" unless ($query =~ m/aifp/);

my $endurl = "rtmp://$host/ondemand?ovpfv=2.1.4&$query";
my $endfile = "mp4:$file";
my $swfurl = "http://watch.thecomedynetwork.ca/Flash/player.swf?themeURL=http://watch.thecomedynetwork.ca/themes/Comedy/player/theme.aspx";

print "rtmpdump -z -r '$endurl' -y '$endfile' -s '$swfurl' -o out.mp4\n";
system "rtmpdump -z -r '$endurl' -y '$endfile' -s '$swfurl' -o out.mp4\n";