#! /usr/bin/perl -w

# httpdlog2rss.cgi
# Emmanuel M. Decarie / http://scriptdigital.com
# May 11 2003
# I'm using 'use lib' because I don't have a system wide access on my account.
# Required: Parse::AccessLogEntry

use CGI ':standard';
use strict;
use lib '/path/to/home/lib/site_perl/5.6.0';
use Parse::AccessLogEntry;

my $logdir = "/path/to/my/apache/log/directory";
# the format of the name of my Apache logs is for example: 20030511.log

my ($d,$m,$y) = (localtime(time))[3,4,5];
$m += 1; $y += 1900;

my $logpath = sprintf "%s/%d%02d%02d%s", $logdir, $y, $m, $d, ".log";

print header ('text/plain');

my @log;
if ( -f $logpath) {
    open (LOG, "< $logpath");
    while (my $line = <LOG>) {
        push (@log, $line);
    }
}

sub cleanxml {
    my $s = shift;
    $s =~ s/&/&amp;/g;
    $s =~ s/</&lt;/g;
    $s =~ s/>/&gt;/g;
    $s =~ s/"/&quot;/g;
    $s =~ s/'/&apos;/g;
    return $s;
}

# put here the name of your site and a description
my $rss =
'<?xml  version="1.0" ?> 
<rss version="2.0"> 
<channel>
<title>Apache Log for blog.scriptdigital.com</title> 
<description>Experimenting with RSS.</description> 
<link>http://blog.scriptdigital.com</link>';

my $parser = Parse::AccessLogEntry::new();

for (@log) {
    my $logline=$parser->parse("$_");
    my ($host, $time, $file, $agent, $refer) = (    $logline->{'host'},
                                                    $logline->{'time'},
                                                    $logline->{'file'},
                                                    $logline->{'agent'},
                                                    $logline->{'refer'} );
    $file = cleanxml ($file);
    $agent = cleanxml ($agent);
    $refer = cleanxml ($refer);
    
    $rss .= 
"<item>
<title>$host</title>
<description>&lt;table cellspacing=4 cellpadding=4 border=1&gt;
&lt;tr&gt;&lt;td&gt;Time&lt;/td&gt;&lt;td&gt;$time&lt;/td&gt;&lt;/tr&gt;
&lt;tr&gt;&lt;td&gt;Referer&lt;/td&gt;&lt;td&gt;$refer&lt;td&gt;&lt;/tr&gt;
&lt;tr&gt;&lt;td&gt;User-Agent&lt;/td&gt;&lt;td&gt;$agent&lt;/td&gt;&lt;/tr&gt;
&lt;/table&gt;
</description>
<category>$file</category>
</item>";
}

$rss .=
'</channel>
</rss>';

print $rss;