#!/usr/bin/perl

use CGI qw/:standard/;
use LWP::Simple qw(!head);
use Data::Dumper;

my $page = get("http://www.thedailyshow.com/tds_files/includes/search/search_results.jhtml");

my @a = split(/\n/, $page);
my %vids;

my($id, $date);
while (scalar(@a)) {
	$_ = shift @a;
	if (/video_image/) {
		$_ = shift @a;
		if (/\/video\/index.jhtml\?videoId=([0-9]+)/) {
			$id = $1;
		}
	}
	if (/onClick=\"cc\.proc/) {
		if (/>(.*)</) {
			push @{$vids{$1}}, $id;
#			warn("$id for $1\n");
		}
	}
}

#print Dumper(%vids);
print header();

@d = sort(keys %vids);

#foreach (0 .. 5) {
#	$x = $id + $_;
#	print "
#	<embed FlashVars='videoId=$x' src='http://www.thedailyshow.com/sitewide/video_player/view/default/swf.jhtml' quality='high' bgcolor='#cccccc' width='332' height='316' name='comedy_central_player' align='middle' allowScriptAccess='always' allownetworking='external' type='application/x-shockwave-flash' pluginspage='http://www.macromedia.com/go/getflashplayer'></embed>$x
#	";
#}