# HG changeset patch
# User heiko
# Date 1305100360 -7200
# Node ID d2c21ec59758fc1d63efdceb598d50cb7ee99a2d
# Parent  5b2cdc42bc6136ee409eee4f4e5d501fc081d131
do not show the listing header if there is nothing to show

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 "<pre>",
-	#(map { "$_: $ENV{$_}\n" } sort keys %ENV),
-	#"</pre>";
+	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 "<pre>",
+			#(map { "$_: $ENV{$_}\n" } sort keys %ENV),
+			#"</pre>";
+
+			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 =~ /(?<hash>\S+)-(?<expires>\d+)$/ or next;
-        $dir =~ /(\S+)-(\d+)$/ or next;
-        my $hash    = $1;
-        my $expires = $2;
-        if (${expires} <= time) {
-            /(.*)/;
-            unlink $_  or die "Can't unlik $_: $!\n";
-            rmdir $dir or die "Can't rmdir $dir: $!\n";
-            next;
-        }
+				# $dir =~ /(?<hash>\S+)-(?<expires>\d+)$/ or next;
+				$dir =~ /(\S+)-(\d+)$/ or next;
+				my $hash    = $1;
+				my $expires = $2;
+				if (${expires} <= time) {
+					/(.*)/;
+					unlink $_  or die "Can't unlik $_: $!\n";
+					rmdir $dir or die "Can't rmdir $dir: $!\n";
+					next;
+				}
 
-        print Tr(
-            td(a { href => "$DIR_URI/$dir/$file" }, $file),
-            td({ align => "right" }, (stat $_)[7]),
-            td(scalar localtime +(stat $_)[9]),
-            td(scalar localtime ${expires}),
-            td(a({ href => "?delete=$dir" }, "remove"))
-        );
-    }
+				print Tr(
+					td(a { href => "$DIR_URI/$dir/$file" }, $file),
+					td({ align => "right" }, (stat $_)[7]),
+					td(scalar localtime +(stat $_)[9]),
+					td(scalar localtime ${expires}),
+					td(a({ href => "?delete=$dir" }, "remove"))
+				);
+			}
 
-    print end_table, hr;
+			print end_table, hr;
+	}
 
     print start_multipart_form, start_table,
       Tr(td("Dateiname: "),