once.pl
changeset 61 81fc1e7ce91b
parent 60 e3d6e4095a2c
child 62 e9add840d228
equal deleted inserted replaced
60:e3d6e4095a2c 61:81fc1e7ce91b
   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