#!/usr/bin/perl

use LWP::Simple qw(!head);

$main = get("http://www.thedailyshow.com/");

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

while (scalar(@a)) {
	$_ = shift @a;

	if (/vp_image relative/) {
		$_ = shift @a;
		if (/\/video\/index.jhtml\?videoId=([0-9]+)/) {
			push @videos, $1;
		}
	}
		
	if (/episodeSummary/) {
		$_ = shift @a;
		$_ = shift @a;
		$_ = shift @a;
		$_ = shift @a;
		$_ = shift @a;
		$_ = shift @a;
		$_ = shift @a;
		if (/\>([^>]*)$/) {
			$date = $1;
			my($m, $d, $y) = split(/\s/, $date);
			my %mon = (
				'January' => 1,
				'February' => 2,
				'March' => 3,
				'April' => 4,
				'May' => 5,
				'June' => 6,
				'July' => 7,
				'August' => 8,
				'September' => 9,
				'October' => 10,
				'November' => 11,
				'December' => 12 );

			$date = sprintf("%04d%02d%02d", $y, $mon{$m}, $d);
		}
	}
}

print join("\t", $date, @videos), "\n";