version 1.56, 2017/11/05 22:47:13
|
version 1.57, 2018/05/02 17:08:40
|
Line 140 sub uploadzip {
|
Line 140 sub uploadzip {
|
unless ($fname) { return 'error: no uploaded file'; } |
unless ($fname) { return 'error: no uploaded file'; } |
# Save the file |
# Save the file |
chomp($env{'form.uploadname'}); |
chomp($env{'form.uploadname'}); |
open(my $fh,'>'.$tempdir.'/'.$fname); |
open(my $fh,'>',"$tempdir/$fname"); |
print $fh $env{'form.uploadname'}; |
print $fh $env{'form.uploadname'}; |
close($fh); |
close($fh); |
} elsif ($context eq 'CSTR') { |
} elsif ($context eq 'CSTR') { |