#!/usr/bin/perl -w
use File::stat;
@types = ("config", "cgi", "patch", "script", "misc");
$dt = "\n\n\n\n\tPablotron 2000 : Downloads\n\n\n";
$t="";
$m="";
$b="";
$db = "\n\n\n";
open IN, "list" or die "couldn't open list";
open OUT, ">list.shtml" or die "couldn't open list.shtml";
unlink "list_$_.shtml" foreach (@types);
#print OUT "$dt";
while () {
$file = $_; chop $file;
$file =~ s/^(.*?),(.*)$/$1/;
$type = $2;
$sane = $file;
$sane =~ s/\W/_/gi;
if (open DESC, "desc/$file.txt") {
$desc = "";
$desc .= $_ while ();
close DESC;
} else {
$desc = "no description";
}
$sum = `md5sum $file`; chop $sum;
$sum =~ s/$file//g;
#@stats = stat $file;
#$size = $stats[7]/1000 . "k";
$stats = stat $file;
$size = $stats->size/1000 . "k";
$size =~ s/\.(..).k/.$1k/g;
#$mod = -M $file;
#$mod =~ s/\.(.).*$/.$1/;
@mtime = (localtime($stats->mtime))[5,4,3,2,1,0];
$mod = (1900+$mtime[0]) . "-" . &two_digit($mtime[1]+1) .
"-" . &two_digit($mtime[2]) . "-" . &two_digit($mtime[3]) .
":" . &two_digit($mtime[4]) . "-PST";
print OUT "$t\n\n$file\n$m\n\n
![\"$type](\"images/$type.gif\")
\n\n$desc
Download \"$file\"
File Size: $size
Last Updated: $mod
MD5 Checksum: $sum
\n\n$b\n\n
";
if (open OUTTYPE, ">>list_$type.shtml") {
print OUTTYPE "$t\n\n$file\n$m\n\n
\n\n$desc
Download \"$file\"
File Size: $size
Last Updated: $mod
MD5 Checksum: $sum
\n\n$b\n\n
";
close OUTTYPE;
}
$tally{'all'}++;
$tally{$type}++;
}
#print OUT "$db";
close IN;
close OUT;
push @types, "all";
foreach (@types) {
if (open OUT, ">desc/count_$_.txt") {
print OUT "($tally{$_})";
close OUT;
}
}
sub two_digit() {
$num = shift;
return ($num<10)?("0".$num):$num;
}