#!/usr/bin/perl
#
# File: slackcur.pl
# By:   Hai Binh Nguyen <binh _at_ vnoss _dot_ org>
# Date: Sat May 19 09:48:34 GMT+7 2007
# Desc: fetch slackware-current changelog and make an RSS feed
################################################################################

use LWP::Simple;

$URL = "ftp://ftp.slackware.com/pub/slackware/slackware-current/ChangeLog.txt";
$ROOT = "/var/www/vnoss.net/";
#$ROOT = "./";
$FEED_FILE = $ROOT."swcurrent.xml";
$LOG_SPLIT = "+--------------------------+";
$NUM_OF_FEED = 15;

my $log = get $URL or die "Could not get $URL\n";
my @CONTENT = split (/\n/, $log);

my $i = 0;
my $j = 0;
foreach $line (@CONTENT) {
    if ($i == $NUM_OF_FEED) {
        last;
    }
    unless ($line eq $LOG_SPLIT) {
        if ($j == 0) {
            $itemTitle = "Updates on ".substr ($line, 0, 10);
            $itemTitle =~ s/\s+/ /g;
            $itemDate = processDate ($line);
            push (@feedTitle, $itemTitle);
            push (@feedDate, $itemDate);
            $j++;
            next;
        }
        $line =~ s/^(\S+\.tgz):/<p><b>$1<\/b>:/;
        $line =~ s/\s+/ /g;
        chomp ($line);
        $itemContent = $itemContent.$line;
        $j++;
    }
    if ($line eq $LOG_SPLIT) {
        $i++;
        $j = 0;
        push (@feedContent, $itemContent);
        $itemContent = "";
    }
}
createRSS (\@feedTitle, \@feedDate, \@feedContent);

sub createRSS {
    my ($itit, $idat, $icon) = @_;
    my @tit = @$itit;
    my @dat = @$idat;
    my @con = @$icon;
    open (FEED_FILE, ">$FEED_FILE") or die ("Could not open $FEED_FILE");
    print FEED_FILE <<END
<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#">

<channel>
<title>Slackware-current Changelogs</title>
<link>http://www.slackware.com/changelog/current.php?cpu=i386</link>
<description>This is the current development tree for upcoming versions of Slackware. It's usually updated once a day, sometimes more. Things you see here will likely be included in the next stable release.</description>
<dc:language>en-us</dc:language>
<dc:rights>Slackware is a registered trademark of Slackware Linux, Inc.</dc:rights>
<dc:date>$dat[0]</dc:date>
<dc:publisher>VnOSS - Vietnam Opensource Software</dc:publisher>
<dc:creator>b1nhb00ng</dc:creator>

END
;
    for (my $i = 0; $i < $NUM_OF_FEED; $i++) {
        print FEED_FILE <<END
<item>
<title>$tit[$i]</title>
<link>http://www.slackware.com/changelog/current.php?cpu=i386</link>
<description><![CDATA[$con[$i]]]></description>
<guid isPermaLink="false">$dat[$i]</guid>
<dc:creator>b1nhb00ng</dc:creator>
<dc:date>$dat[$i]</dc:date>
</item>

END
;
    }

    print FEED_FILE <<END
</channel>
</rss>
END
;
close (FEED_FILE);
}

sub processDate {
    my $raw = $_[0];
    my (@mo) = ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep" , "Oct", "Nov", "Dec");
    my $i = 0; %mo = map { $_ => ++$i } @mo;
    my ($day, $mo, $d, $t, $tz, $y) = split (" ", $raw);
    $date = sprintf "%s-%02d-%02dT%s-05:00", $y, $mo{$mo}, $d, $t;
    return $date;
}