--- a/upload.pl Thu Oct 02 15:48:44 2014 +0200
+++ b/upload.pl Thu Oct 02 15:57:18 2014 +0200
@@ -165,11 +165,20 @@
next;
}
+ my $d;
+ if ($delete eq 'l') {
+ $d = localtime ${expires};
+ } elsif ($delete eq 'd') {
+ $d = 'unmittelbar nach Download';
+ } else {
+ $d = 'nur manuell';
+ }
+
print Tr(
td(a { href => "$DIR_URI/$dir/$file" }, $file),
td({ align => "right" }, human((stat $_)[7])),
td(scalar localtime +(stat $_)[9]),
- td($delete eq 'l' ? scalar localtime ${expires} : 'nicht verfügbar'),
+ td($d),
td(a({ href => "?delete=$dir" }, "remove"))
);
}
@@ -182,7 +191,7 @@
td(filefield(-name => "upload", -default => "nothing")),
),
Tr(td("Löschen in: "), td(textfield(-name => "expires", -default => 10)),
- td("Tagen (0: beim ersten Download; -1: nur manuell)")),
+ td("Tagen (0: unmittelbar nach Download; -1: nur manuell)")),
Tr(td(), td(submit(-value => "Hochladen")),),
end_table,
end_multipart_form;