root/feedmelinks/bin/changelog-to-rss.pl

#!/usr/bin/perl5
use Date::Manip;


chdir( "/usr/home/hirokai/feedmelinks.com/misc" );

$file = "ChangeLog.inc.php";
if (open (IN, "<$file")) {
        $dcdate = &UnixDate(scalar localtime(),"%Y-%m-%dT%T-05:00");

        my $header = '<?xml version="1.0" encoding="iso-8859-1"?>
<rss version="2.0" 
xmlns:dc="http://purl.org/dc/elements/1.1/"
xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
xmlns:admin="http://webns.net/mvcb/"
xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
xmlns:content="http://purl.org/rss/1.0/modules/content/">
<channel>
<title>Feed Me Changes!</title>
<link>http://feedmelinks.com/misc/ChangeLog</link>
<description>New Features and Bugfixes to Feed Me Links</description>
<dc:language>en-us</dc:language>
<dc:creator>jm3@feedmelinks.com</dc:creator>
<dc:rights>Copyleft 2004</dc:rights>
<dc:date>' . $dcdate . '</dc:date>
<admin:errorReportsTo rdf:resource="mailto:jm3@feedmelinks.com"/>
';

        my $footer = "
        </channel>
</rss>
";

        my $startItem = "
<item>
        <title>__TITLE__</title>
        <link>http://feedmelinks.com/misc/ChangeLog#__ANCHOR__</link>
        <description>__DESC__</description>
        <guid isPermaLink=\"true\">http://feedmelinks.com/misc/ChangeLog#__ANCHOR__</guid>
        <content:encoded><![CDATA[
        ";

        my $endItem = "
        ]]></content:encoded>
        <dc:subject>__SUBJECT__</dc:subject>
        <dc:date>__DATE__</dc:date>
</item>
";


# CODE

print $header;
        while ( <IN> ) {
                if( m/name="/ ) {
                        $anchor = $line = $_;

                        # example line: <b><a name="aug_12">Mon Aug 12 13:45:35, 2002</a></b>
                        $anchor =~ s/^.*name="(\w+)".*$/$1/;

                        $line =~ s/^.*name="\w+">//;
                        $line =~ s:</a></b>::;

                        $date = $line;
                        $dcdate = ParseDate($date);
                        $dcdate = &UnixDate($dcdate,"%Y-%m-%dT%T-05:00");

                        $title = "Changes of: $line";
                        chomp ($title);
                        chomp ($anchor);

                        my $si = $startItem;
                        my $ei = $endItem;

                        $si =~ s/__TITLE__/$title/;
                        $si =~ s/__DESC__/$title/;
                        $si =~ s/__ANCHOR__/$anchor/g;
                        $ei =~ s/__SUBJECT__/Bugfixes and New Features/;
                        $ei =~ s/__DATE__/$dcdate/;

                        if( $count != 1 ) {
                                print $ei;
                        }
                        print $si;


                        $lineCount = 0;
                } else {
                if( ! m/^$/ ) {
                        $line = $_;
                        chomp( $line );
                        if( !m/^\s+/ ) {
                                $line = "<br /><li>$line</li>";
                        } else {
                                $line = "&nbsp; &nbsp;$line";
                        }
                        print "$line<br />\n";
                        ++$lineCount;
                        }
                }
                ++$count;
        } 

        my $ei = $endItem;
        $ei =~ s/__SUBJECT__/Bugfixes and New Features/;
        $ei =~ s/__DATE__/$dcdate/;
        print $ei;

        print $footer;
        close (IN);
} else {
        print "open CL FAILED\n";
}