equal
deleted
inserted
replaced
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"); |