upload.pl
changeset 16 a4a87929803f
parent 15 38a3e4aa59c0
child 17 dc78008e8c97
equal deleted inserted replaced
15:38a3e4aa59c0 16:a4a87929803f
    24 use strict;
    24 use strict;
    25 use warnings;
    25 use warnings;
    26 use CGI qw(:all *table);
    26 use CGI qw(:all *table);
    27 use CGI::Carp qw(fatalsToBrowser);
    27 use CGI::Carp qw(fatalsToBrowser);
    28 use CGI::Pretty;
    28 use CGI::Pretty;
    29 use IO::File;
       
    30 use File::Basename;
    29 use File::Basename;
    31 use Digest::MD5 qw(md5_hex);
    30 use Digest::MD5 qw(md5_hex);
    32 use OSSP::uuid;
    31 use OSSP::uuid;
    33 
    32 
    34 my $DIR     = "d/{view}";
    33 my $DIR     = "d/{view}";
    87         $filename =~ /(.*)/;
    86         $filename =~ /(.*)/;
    88         $filename = $1;
    87         $filename = $1;
    89 
    88 
    90         my $dir = "$DIR/$uuid-$expires";
    89         my $dir = "$DIR/$uuid-$expires";
    91         mkdir $dir, 0750 or die "Can't mkdir $dir: $!\n";
    90         mkdir $dir, 0750 or die "Can't mkdir $dir: $!\n";
    92         my $outfh = new IO::File ">$dir/$filename"
    91         open(my $outfh, ">" => "$dir/$filename")
    93           or die "Can't create $dir/$filename: $!\n";
    92           or die "Can't create $dir/$filename: $!\n";
    94         print {$outfh} <$file>;
    93         print {$outfh} <$file>;
    95 
    94 
    96         if (my $atfh = new IO::File("|at now + $days days")) {
    95         if (open(my $atfh, "|-" => "at now + $days days")) {
    97             print {$atfh}
    96             print {$atfh}
    98               "rm -f \"$dir/$filename\"\n",
    97               "rm -f \"$dir/$filename\"\n",
    99               "rmdir \"$dir\"\n";
    98               "rmdir \"$dir\"\n";
   100             close $atfh;
    99             close $atfh;
   101             system("cat /tmp/log");
   100             system("cat /tmp/log");