#!/usr/bin/perl

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

#open(M, 'sort -nr | uniq | head -20 |');

if (param('id')) {
	$id = param('id');	
	for $i (0 .. 7) {
		push @id, $id + $i;
	}
} else {
$main = get("http://www.thedailyshow.com/");

@a = split(/\n/, $main);

while (scalar(@a)) {
	$_ = shift @a;
	if (/<div id="vp_entry_(\d+)"/) {
		push @id, $1;
	}
# <div id="episodeSummary">
# <div class="header"><div class="textHolder_0"><span class="cyan text11"><a href="http://www.thedailyshow.com/video/index.jhtml?videoId=127764&title=double-walk-of-shame" onClick="cc.proc(this.href, 'episodeId=127816'); return false;" >Episode #12138</a></span></div></div>

#	if (/episodeSummary/) {
#		$_ = shift @a;
#		$_ = shift @a;
#		if (/\/video\/index.jhtml\?videoId=([0-9]+)/) {
#			$id = $1;
#			last;
#		}
#	}
}
}

print header;

foreach $id (@id) {
	print "
	<embed FlashVars='videoId=$id' 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>$id
	";
}