#!/usr/bin/perl

require "../scripts/htmlize.pl";

$ver = shift;
$date = `date`;
($linuxver = `uname -r`) =~ s/(\d+\.\d+).*/$1/;

prologue ("xmp $ver download page", "bgcolor=white text=#204060");

print <<EOF;
<h1>xmp-$ver packages</h1>
<b>Release date: $date</b>
<hr noshade>
<p>
<ul>
EOF

while (<>) {
    chomp;

    /^index\.html/ && next;

    ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
     $atime,$mtime,$ctime,$blksize,$blocks) = stat;

    $desc = "";

    /([\w\.]+)-([\w\.]+)\.diff\./ && ($desc = "Patch from $1 to $2");
    /i386.rpm/ && ($desc = "i386 Binary RPM package");
    /\.tar\.[bg]z2?/ && ($desc = "Source package");
    /.*_([^-]+)-([^-]+)-([^-]+).*\.tar.[bg]z2?/ &&
	($desc = "$1 $3 binary package");

    $desc && ($desc .= ", ");
    $desc=~s/linux binary/linux $linuxver ELF binary/;
 
    printf "<li><a href=\"$_\">$_</a> (${desc}%d Kb)\n", $size / 1024;
}

print "</ul><p><hr noshade>\n";
$itemize = 0;

if (open ANN, "../$ver.announce") {
    print "<p>\n";
    while (<ANN>) {
	htmlize ($_);
    }
}

epilogue ();

