#
#
+#use strict;
+#use warnings; FIXME - Bug 2505
+
use File::Temp;
use File::Copy;
use CGI;
=head1 NAME
-picture-upload.p. - Script for handling uploading of both single and bulk patronimages and importing them into the database.
+picture-upload.pl - Script for handling uploading of both single and bulk patronimages and importing them into the database.
=head1 SYNOPSIS
}
close $tfh;
if ( $filetype eq 'zip' ) {
- unless (system("unzip $tempfile -d $dirname") == 0) {
+ unless (system("unzip", $tempfile, '-d', $dirname) == 0) {
$errors{'UZIPFAIL'} = $uploadfilename;
$template->param( ERRORS => [ \%errors ] );
output_html_with_http_headers $input, $cookie, $template->output; # This error is fatal to the import, so bail out here
}
$debug and warn "Source: $source";
my $size = (stat($source))[7];
- if ($size > 200000) { # This check is necessary even with image resizing to avoid possible security/performance issues...
+ if ($size > 550000) { # This check is necessary even with image resizing to avoid possible security/performance issues...
$filerrors{'OVRSIZ'} = 1;
push my @filerrors, \%filerrors;
push @{ $count{filenames} }, { filerrors => \@filerrors, source => $filename, cardnumber => $cardnumber };
return (%count);
}
-=back
-
=head1 AUTHORS
Original contributor(s) undocumented