#!/usr/bin/perl -w

$basedir = "/usr/local/www/download";
@versionlist = ("1.6.0_07", "1.5.0_07-b01", "1.5.0_07-b00", "1.5.0_06-b00");

open(OUTPUT, ">/usr/local/www/data/downloads/checksumlist.html") ||
    die "can't open checksumlist.html";

foreach $version (@versionlist) {
	$directory = $basedir . "/" . $version;
	if (!(chdir($directory))) {
		warn "can't chdir $directory";
	} else {
		opendir(DIR, ".") || die "can't opendir $directory";

		print OUTPUT<<End;
<tr><td><br></td></tr>
<tr><th colspan=4 align=center>$version</th></tr>
<tr>
<th>File</th>
<th>Size</th>
<th>MD5</th>
<th>SHA256</th>
</tr>
End

		@filelist = readdir(DIR);

		foreach $file (@filelist) {
			if ($file =~/bz/) {
				$md5 = `md5 -q $file`;
				chop($md5);
				$sha256 = `sha256 -q $file`;
				chop($sha256);
				$size = `stat -f %z $file`;
				chop($size);
				print OUTPUT<<End;
<tr>
<td>$file</td>
<td><tt>$size</tt></td>
<td><tt>$md5</tt></td>
<td><tt>$sha256</tt></td>
</tr>
End
			}
		}
	}

	closedir DIR;
	print $directory."\n";
}

close(OUTPUT);