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;

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

    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 

    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");