equal
deleted
inserted
replaced
14 use CGI::Pretty; |
14 use CGI::Pretty; |
15 use IO::File; |
15 use IO::File; |
16 use File::Basename; |
16 use File::Basename; |
17 use Digest::SHA1 qw(sha1_hex); |
17 use Digest::SHA1 qw(sha1_hex); |
18 |
18 |
19 my $DIR = "upload.d"; |
19 my $DIR = "../d"; |
20 my $LINK_DIR = dirname($ENV{SCRIPT_NAME}) . "$DIR"; |
20 my $DIR_URI = "/$DIR"; |
21 |
21 |
22 -d $DIR |
22 -d $DIR |
23 or mkdir $DIR => 0750 |
23 or mkdir $DIR => 0750 |
24 or die "Can't mkdir $DIR: $!\n"; |
24 or die "Can't mkdir $DIR: $!\n"; |
25 |
25 |
55 or die "Can't create $dir/$filename: $!\n"; |
55 or die "Can't create $dir/$filename: $!\n"; |
56 print {$outfh} <$file>; |
56 print {$outfh} <$file>; |
57 } |
57 } |
58 print hr; |
58 print hr; |
59 |
59 |
|
60 #print "<pre>", |
|
61 #(map { "$_: $ENV{$_}\n" } sort keys %ENV), |
|
62 #"</pre>"; |
|
63 |
60 print p <<__; |
64 print p <<__; |
61 Der gültige Download-Link ist die Link-Adresse, die sich hinter |
65 Der gültige Download-Link ist die Link-Adresse, die sich hinter |
62 dem Datei-Namen verbirgt. (Firefox: Rechte Maustaste, Link-Location). |
66 dem Datei-Namen verbirgt. (Firefox: Rechte Maustaste, Link-Location). |
63 __ |
67 __ |
64 |
68 |
78 rmdir $dir or die "Can't rmdir $dir: $!\n"; |
82 rmdir $dir or die "Can't rmdir $dir: $!\n"; |
79 next; |
83 next; |
80 } |
84 } |
81 |
85 |
82 print Tr( |
86 print Tr( |
83 td(a { href => "$LINK_DIR/$dir/$file" }, $file), |
87 td(a { href => "$DIR_URI/$dir/$file" }, $file), |
84 td({ align => "right" }, (stat $_)[7]), |
88 td({ align => "right" }, (stat $_)[7]), |
85 td(scalar localtime +(stat $_)[9]), |
89 td(scalar localtime +(stat $_)[9]), |
86 td(scalar localtime ${expires}), |
90 td(scalar localtime ${expires}), |
87 td(a({ href => "?delete=$dir" }, "remove")) |
91 td(a({ href => "?delete=$dir" }, "remove")) |
88 ); |
92 ); |