--- 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;
}