#!/usr/bin/perl

sub crack
{
  $a =~ m/date="(.*)"/;
  $as = $1;
  $b =~ m/date="(.*)"/;
  $bs = $1;
  return $bs <=> $as;
}

$/="";
while(<>) {
  push(@list, $_) if /date=/;
}
print qq[<?xml version="1.0"?>
<rss version="2.0">
  <channel>
    <title>qmail</title>
    <link>http://www.qmail.org</link>
    <description>Dan Bernstein's qmail</description>
    <language>en-us</language>
    <image>
      <title>qmail</title>
      <url>http://www.qmail.org/Q.6.01.Logo.small.jpg</url>
      <link>http://www.qmail.org</link>
    </image>
];
@items = sort(crack @list);
splice(@items, 10);
foreach (@items) {
  s/\n/ /g;
  s/<img.*?>//g;
  s/<li.*?>//g;
  s!<a\s+href="(.*?)">(.*?)</a>!$2!g;
  if (m!<a\s+name="(.*?)">(.*?)</a>!) {
    $title = $2;
    $link = "http://qmail.org/top.html#$1";
  } else {
    $title = "Badly formatted, sorry.<!--$_-->";
    $link = "mailto:nelson\@crynwr.com";
  }
  print "
  <item>
    <title>$title</title>
    <link>$link</link>
  </item>
";
}
#    <description>$_</description>
#    <pubDate>rfc822-compatible publication date</pubDate>
print "
  </channel>
</rss>
";