equal
deleted
inserted
replaced
131 |
131 |
132 $expires = time + $days * 86400; |
132 $expires = time + $days * 86400; |
133 $delete = 'l'; # on file[l]ist |
133 $delete = 'l'; # on file[l]ist |
134 if ($days == 0) { |
134 if ($days == 0) { |
135 $delete = 'd'; # on first [d]ownload |
135 $delete = 'd'; # on first [d]ownload |
136 } elsif ($days == -1) { |
136 } |
|
137 elsif ($days == -1) { |
137 $delete = 'm'; # only [m]anually |
138 $delete = 'm'; # only [m]anually |
138 } |
139 } |
139 |
140 |
140 # sanitizing the filename |
141 # sanitizing the filename |
141 (my $filename = $file) =~ tr /\\/\//; |
142 (my $filename = $file) =~ tr /\\/\//; |
192 } |
193 } |
193 |
194 |
194 my $d; |
195 my $d; |
195 if ($delete eq 'l') { |
196 if ($delete eq 'l') { |
196 $d = localtime ${expires}; |
197 $d = localtime ${expires}; |
197 } elsif ($delete eq 'd') { |
198 } |
|
199 elsif ($delete eq 'd') { |
198 $d = 'unmittelbar nach Download'; |
200 $d = 'unmittelbar nach Download'; |
199 } else { |
201 } |
|
202 else { |
200 $d = 'nur manuell'; |
203 $d = 'nur manuell'; |
201 } |
204 } |
202 |
205 |
203 print Tr( |
206 print Tr( |
204 td(a { href => "$DIR_URI/$dir/$file" }, $file), |
207 td(a { href => "$DIR_URI/$dir/$file" }, $file), |
260 möglicherweise automatisiert aufrufen, könnten eine versehentliche |
263 möglicherweise automatisiert aufrufen, könnten eine versehentliche |
261 Löschung der Datei auslösen. Bestätigen Sie deshalb bitte den Download |
264 Löschung der Datei auslösen. Bestätigen Sie deshalb bitte den Download |
262 per Knopfdruck. |
265 per Knopfdruck. |
263 __ |
266 __ |
264 print start_form, |
267 print start_form, |
265 hidden('confirmed', 'yes'), |
268 hidden('confirmed', 'yes'), |
266 submit(-value => 'Bestätigung'), |
269 submit(-value => 'Bestätigung'), |
267 end_form, |
270 end_form, |
268 @footer, |
271 @footer, |
269 end_html; |
272 end_html; |
270 exit 0; |
273 exit 0; |
271 } |
274 } |