equal
deleted
inserted
replaced
163 unlink $_ or die "Can't unlik $_: $!\n"; |
163 unlink $_ or die "Can't unlik $_: $!\n"; |
164 rmdir $dir or die "Can't rmdir $dir: $!\n"; |
164 rmdir $dir or die "Can't rmdir $dir: $!\n"; |
165 next; |
165 next; |
166 } |
166 } |
167 |
167 |
|
168 my $d; |
|
169 if ($delete eq 'l') { |
|
170 $d = localtime ${expires}; |
|
171 } elsif ($delete eq 'd') { |
|
172 $d = 'unmittelbar nach Download'; |
|
173 } else { |
|
174 $d = 'nur manuell'; |
|
175 } |
|
176 |
168 print Tr( |
177 print Tr( |
169 td(a { href => "$DIR_URI/$dir/$file" }, $file), |
178 td(a { href => "$DIR_URI/$dir/$file" }, $file), |
170 td({ align => "right" }, human((stat $_)[7])), |
179 td({ align => "right" }, human((stat $_)[7])), |
171 td(scalar localtime +(stat $_)[9]), |
180 td(scalar localtime +(stat $_)[9]), |
172 td($delete eq 'l' ? scalar localtime ${expires} : 'nicht verfügbar'), |
181 td($d), |
173 td(a({ href => "?delete=$dir" }, "remove")) |
182 td(a({ href => "?delete=$dir" }, "remove")) |
174 ); |
183 ); |
175 } |
184 } |
176 |
185 |
177 print end_table, hr; |
186 print end_table, hr; |
180 print start_multipart_form, start_table, |
189 print start_multipart_form, start_table, |
181 Tr(td("Dateiname: "), |
190 Tr(td("Dateiname: "), |
182 td(filefield(-name => "upload", -default => "nothing")), |
191 td(filefield(-name => "upload", -default => "nothing")), |
183 ), |
192 ), |
184 Tr(td("Löschen in: "), td(textfield(-name => "expires", -default => 10)), |
193 Tr(td("Löschen in: "), td(textfield(-name => "expires", -default => 10)), |
185 td("Tagen (0: beim ersten Download; -1: nur manuell)")), |
194 td("Tagen (0: unmittelbar nach Download; -1: nur manuell)")), |
186 Tr(td(), td(submit(-value => "Hochladen")),), |
195 Tr(td(), td(submit(-value => "Hochladen")),), |
187 end_table, |
196 end_table, |
188 end_multipart_form; |
197 end_multipart_form; |
189 |
198 |
190 print hr, |
199 print hr, |