upload.pl
changeset 46 2130f00e34f7
parent 44 15f109d06ec0
child 49 308c7edbfda5
equal deleted inserted replaced
45:29784b900846 46:2130f00e34f7
   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 }