equal
deleted
inserted
replaced
46 $_ = dirname $DIR; |
46 $_ = dirname $DIR; |
47 -d or mkdir $_ => 0750 |
47 -d or mkdir $_ => 0750 |
48 or die "Can't mkdir $_: $!\n"; |
48 or die "Can't mkdir $_: $!\n"; |
49 |
49 |
50 my @footer = (hr, |
50 my @footer = (hr, |
51 div( |
51 div( |
52 { -align => "right" }, |
52 { -align => "right" }, |
53 a( |
53 a( |
54 { -href => "https://ssl.schlittermann.de/hg/anon-upload/file/once/" } => |
54 { |
55 "Scripting" |
55 -href => |
|
56 "https://ssl.schlittermann.de/hg/anon-upload/file/once/" |
|
57 } => "Scripting" |
56 ), |
58 ), |
57 " © 2010,2011 ", |
59 " © 2010,2011 ", |
58 a({ -href => "http://www.schlittermann.de/" } => "Heiko Schlittermann"), |
60 a({ -href => "http://www.schlittermann.de/" } => "Heiko Schlittermann"), |
59 " © 2014 ", |
61 " © 2014 ", |
60 a({ -href => "http://www.schlittermann.de/" } => "Matthias Förste") |
62 a({ -href => "http://www.schlittermann.de/" } => "Matthias Förste") |
61 )); |
63 ) |
|
64 ); |
62 |
65 |
63 MAIN: { |
66 MAIN: { |
64 |
67 |
65 # assuming download request |
68 # assuming download request |
66 if (request_uri =~ m|^\Q$DIR_URI\E/(.+)$|) { |
69 if (request_uri =~ m|^\Q$DIR_URI\E/(.+)$|) { |
218 td(textfield(-name => "expires", -default => 0)), |
221 td(textfield(-name => "expires", -default => 0)), |
219 td("Tagen (0: unmittelbar nach Download; -1: nur manuell)") |
222 td("Tagen (0: unmittelbar nach Download; -1: nur manuell)") |
220 ), |
223 ), |
221 Tr(td(), td(submit(-value => "Hochladen")),), |
224 Tr(td(), td(submit(-value => "Hochladen")),), |
222 end_table, |
225 end_table, |
223 end_multipart_form, |
226 end_multipart_form, |
224 @footer, |
227 @footer, |
225 end_html; |
228 end_html; |
226 } |
229 } |
227 |
230 |
228 sub deletedir(@) { |
231 sub deletedir(@) { |
249 |
252 |
250 sub confirm { |
253 sub confirm { |
251 print header(-charset => "UTF-8"), |
254 print header(-charset => "UTF-8"), |
252 start_html(-title => "once"), |
255 start_html(-title => "once"), |
253 h1 "Download bestätigen"; |
256 h1 "Download bestätigen"; |
254 print hr, |
257 print hr, p <<__; |
255 p <<__; |
|
256 Die Datei die Sie herunterladen möchten wird nach Abschluß des |
258 Die Datei die Sie herunterladen möchten wird nach Abschluß des |
257 Downloads gelöscht. Um zu verhindern, daß Virenscanner oder andere |
259 Downloads gelöscht. Um zu verhindern, daß Virenscanner oder andere |
258 Programme die diesen Link automatisiert aufrufen die Löschung der Datei |
260 Programme die diesen Link automatisiert aufrufen die Löschung der Datei |
259 auslösen bestätigen Sie bitte den Download per Knopfdruck. |
261 auslösen bestätigen Sie bitte den Download per Knopfdruck. |
260 __ |
262 __ |
261 print start_form, hidden('confirmed', 'yes'), submit(-value => 'Bestätigung'), end_form, @footer, end_html; |
263 print start_form, |
|
264 hidden('confirmed', 'yes'), |
|
265 submit(-value => 'Bestätigung'), |
|
266 end_form, |
|
267 @footer, |
|
268 end_html; |
262 exit 0; |
269 exit 0; |
263 } |
270 } |