#!/usr/bin/perl

$/ = undef;

foreach my $code (<??>) {
  open IN, "$code/info" or next;
  $_ = <IN>;
  my ($name) = /name_english\s+(.+)/ or die;
  my ($ver)  = /version\s+(.+)/ or die;
  my ($copyright) = /copyright\s+(.+)/ or die;
  my ($url) = /url\s+(.+)/;
  my ($author) = /author:\s+name\s+(.+)/ or die;
  my $file = "aspell-$code-$ver.tar.bz2";
  my $size = -s "rel/$file" or die;
  my $size = int(($size + 1023)/1024);
  my $urlr;
  $urlr = "<a href=\"$url\">Here</a>" if defined $url;
  print ("<tr>",
	 "<td>$name",
	 "<td><a href=\"ftp://ftp.gnu.org/gnu/aspell/$file\">$file",
	 "<td>$size KB",
	 "<td>$author",
	 "<td>$copyright",
	 "<td>$urlr\n"
	);
}
