# HG changeset patch
# User Matthias Förste <foerste@schlittermann.de>
# Date 1417095941 -3600
# Node ID 41f2c1fbc2886f5027d58fee506795fd22c9bb03
# Parent  2aff8b445f6ec59f04d86e0c762faf6627fdeb32
[perltidy], more [cosmetics]

diff -r 2aff8b445f6e -r 41f2c1fbc288 upload.pl
--- a/upload.pl	Thu Nov 27 14:37:52 2014 +0100
+++ b/upload.pl	Thu Nov 27 14:45:41 2014 +0100
@@ -48,17 +48,20 @@
   or die "Can't mkdir $_: $!\n";
 
 my @footer = (hr,
-      div(
+    div(
         { -align => "right" },
         a(
-            { -href => "https://ssl.schlittermann.de/hg/anon-upload/file/once/" } =>
-                          "Scripting"
+            {
+                -href =>
+                  "https://ssl.schlittermann.de/hg/anon-upload/file/once/"
+            } => "Scripting"
         ),
         " &copy; 2010,2011 ",
         a({ -href => "http://www.schlittermann.de/" } => "Heiko Schlittermann"),
         " &copy; 2014 ",
         a({ -href => "http://www.schlittermann.de/" } => "Matthias Förste")
-      ));
+    )
+);
 
 MAIN: {
 
@@ -220,7 +223,7 @@
       ),
       Tr(td(), td(submit(-value => "Hochladen")),),
       end_table,
-      end_multipart_form, 
+      end_multipart_form,
       @footer,
       end_html;
 }
@@ -251,13 +254,17 @@
     print header(-charset => "UTF-8"),
       start_html(-title => "once"),
       h1 "Download bestätigen";
-      print hr,
-      p <<__;
+    print hr, p <<__;
         Die Datei die Sie herunterladen möchten wird nach Abschluß des
         Downloads gelöscht. Um zu verhindern, daß Virenscanner oder andere
         Programme die diesen Link automatisiert aufrufen die Löschung der Datei
         auslösen bestätigen Sie bitte den Download per Knopfdruck.
 __
-    print start_form, hidden('confirmed', 'yes'), submit(-value => 'Bestätigung'), end_form, @footer, end_html;
+    print start_form,
+        hidden('confirmed', 'yes'),
+        submit(-value => 'Bestätigung'),
+        end_form,
+        @footer,
+        end_html;
     exit 0;
 }