#! /usr/bin/perl

use LWP::Simple;
use URI::URL;

print <<ENDTOPMATTER;
<?xml version="1.0"?>
<rss version="0.91">
<channel>
<title>Math arXiv</title>
<link>http://xxx.lanl.gov/list/math/new</link>
<description>What's New</description>
<language>en-us</language>
ENDTOPMATTER

my $url = url("http://xxx.lanl.gov/list/math/new");
my $content = get($url);

my $record ="(<A HREF=\"([^\n]*?)\">abs.*?Title:</B> (.*?)<BR />.*?<P>[\n\s]*(.*?)</P>)";
my $keywords = join("|",@ARGV);

my $nokeywords = !@ARGV;

while ($content =~ /$record/gs) {
    my $link=$2;
    my $title=$3;
    chomp (my $abstract=$4);
    $1 =~ m:(<B>Authors.*?)<BR:s ;
    my $authors = $1;
    $authors =~ s (/find) (http://xxx.lanl.gov/find)g;
    $abstract =~ s/($keywords)/<b>\1<\/b>/gs unless $nokeywords;
    if (($nokeywords) || ($abstract =~ /$keywords/)) {
	print <<ENDITEM;
<item>
<title>$title</title>
<link>http://xxx.lanl.gov$link</link>
<description><![CDATA[$authors<BR><BR>$abstract]]></description>
</item>
ENDITEM

    };
};

print <<ENDBOTTOMMATTER;
</channel>
</rss>
ENDBOTTOMMATTER