equal
deleted
inserted
replaced
275 $file{removal}{link} = "?delete=$dir"; |
275 $file{removal}{link} = "?delete=$dir"; |
276 |
276 |
277 push @{ $tt{files} }, \%file; |
277 push @{ $tt{files} }, \%file; |
278 } |
278 } |
279 |
279 |
280 $tt->process('inventory.html', \%tt) or die $tt->error(); |
280 } |
281 return 0; |
281 $tt->process('inventory.html', \%tt) or die $tt->error(); |
282 |
|
283 } |
|
284 |
|
285 print start_multipart_form, start_table, |
|
286 Tr(td("Dateiname: "), |
|
287 td(filefield(-name => "upload", -default => "nothing")), |
|
288 ), |
|
289 Tr( |
|
290 td("Löschen in: "), |
|
291 td(textfield(-name => "expires", -default => 0)), |
|
292 td("Tagen (0: unmittelbar nach Download; -1: nur manuell)") |
|
293 ), |
|
294 Tr(td(), td(submit(-value => "Hochladen")),), |
|
295 end_table, |
|
296 end_multipart_form, |
|
297 @footer, |
|
298 end_html; |
|
299 |
|
300 return 0; |
282 return 0; |
301 } |
283 } |
302 |
284 |
303 sub deletedir { |
285 sub deletedir { |
304 remove_tree |
286 remove_tree |