once.pl
changeset 61 81fc1e7ce91b
parent 60 e3d6e4095a2c
child 62 e9add840d228
--- a/once.pl	Thu Dec 24 00:49:28 2015 +0100
+++ b/once.pl	Thu Dec 24 01:26:00 2015 +0100
@@ -277,26 +277,8 @@
             push @{ $tt{files} }, \%file;
         }
 
-        $tt->process('inventory.html', \%tt) or die $tt->error();
-        return 0;
-
     }
-
-    print start_multipart_form, start_table,
-      Tr(td("Dateiname: "),
-        td(filefield(-name => "upload", -default => "nothing")),
-      ),
-      Tr(
-        td("Löschen in: "),
-        td(textfield(-name => "expires", -default => 0)),
-        td("Tagen (0: unmittelbar nach Download; -1: nur manuell)")
-      ),
-      Tr(td(), td(submit(-value => "Hochladen")),),
-      end_table,
-      end_multipart_form,
-      @footer,
-      end_html;
-
+    $tt->process('inventory.html', \%tt) or die $tt->error();
     return 0;
 }