AllGeeknightsRss.pl

# usr/bin/perl
# twitter.com/lalanl

use strict;
use LWP::Simple;

my $ua = new LWP::UserAgent;
$ua->agent("Mozilla/5.0 (Windows NT 6.1; Intel Mac OS X 10.6; rv:7.0.1) Gecko/20100101 Firefox/7.0.1 ");

my $n = 1;
my $more = 1;
my $date = localtime(time);
$date = "$date -0600";
print "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n<rss xmlns:atom=\"http://www.w3.org/2005/Atom\" version=\"2.0\">\n<channel><title>Geeknights Archive</title><link>http://frontrowcrew.com/</link><description>All the episodes.</description>
<atom:link href=\"/\" rel=\"self\"></atom:link><language>en</language><lastBuildDate>$date</lastBuildDate>";

while($more eq 1){
    my $url = "http://www.frontrowcrew.com/geeknights?page=$n";
    my $req = new HTTP::Request 'GET' => $url;
    $req->header('Accept' => 'text/html');
    my $response = $ua->request($req);
    my $html = $response->decoded_content;

    my @lines = split(/\n/, $html);
    my @links = grep(/<a.*href=.*>/, @lines);

    $more = 0;
    foreach my $l (@links){
        $l =~ /<a.*href="([\s\S]+?)".*>/;
        my $link = $1;
        $l =~ /<a.*href.*>([\s\S]+?)<\/a>/;
        my $title = $1;

        if(index($link, '/geeknights/') == 0 && index($title, '#') < 0 && index($title, '/geeknights/') < 0){
            print "<item><title>$title</title>";
            $more = 1;
        }
        if(index($link, '.mp3') != -1){
            print "<link>$link</link><enclosure url=\"$link\" length=\"None\" type=\"audio/mpeg\"></enclosure></item>\n";
            $more = 1;
        }
    }
    $n++;
}

print "</channel></rss>";