diff -r 5b2cdc42bc61 -r d2c21ec59758 upload.pl --- a/upload.pl Wed May 11 09:19:59 2011 +0200 +++ b/upload.pl Wed May 11 09:52:40 2011 +0200 @@ -85,42 +85,45 @@ } print hr; - #print "
", - #(map { "$_: $ENV{$_}\n" } sort keys %ENV), - #""; + if (my @files = glob "$DIR/*-*/*") { - print p <<__; - Der gültige Download-Link ist die Link-Adresse, die sich hinter - dem Datei-Namen verbirgt. (Firefox: Rechte Maustaste, Link-Location). + #print "
", + #(map { "$_: $ENV{$_}\n" } sort keys %ENV), + #""; + + print p <<__; + Der gültige Download-Link ist die Link-Adresse, die sich hinter + dem Datei-Namen verbirgt. (Firefox: Rechte Maustaste, Link-Location). __ - print start_table, Tr(th { align => "left" }, [qw/name size date expires/]); + print start_table, Tr(th { align => "left" }, [qw/name size date expires/]); - foreach (map { /(.*)/ } sort { -M $a <=> -M $b } glob "$DIR/*-*/*") { - my ($file, $dir) = fileparse($_); - $dir = basename $dir; + foreach (map { /(.*)/ } sort { -M $a <=> -M $b } glob "$DIR/*-*/*") { + my ($file, $dir) = fileparse($_); + $dir = basename $dir; - # $dir =~ /(?