diff -r a9b52c555cd1 -r 8742c4b2d5f1 upload.pl --- a/upload.pl Thu Nov 27 14:34:48 2014 +0100 +++ b/upload.pl Fri Nov 20 17:45:10 2015 +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" ), " © 2010,2011 ", a({ -href => "http://www.schlittermann.de/" } => "Heiko Schlittermann"), " © 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,18 @@ print header(-charset => "UTF-8"), start_html(-title => "once"), h1 "Download bestätigen"; - 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 hr, p <<__; + Die Datei, die Sie herunterladen möchten, wird nach Abschluß des + Downloads gelöscht. Virenscanner oder andere Programme, die den Link + möglicherweise automatisiert aufrufen, könnten eine versehentliche + Löschung der Datei auslösen. Bestätigen Sie deshalb 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; }