Lines 60-69
Koha::Uploader - Facilitate file uploads (temporary and permanent)
Link Here
|
60 |
|
60 |
|
61 |
use constant KOHA_UPLOAD => 'koha_upload'; |
61 |
use constant KOHA_UPLOAD => 'koha_upload'; |
62 |
use constant BYTES_DIGEST => 2048; |
62 |
use constant BYTES_DIGEST => 2048; |
63 |
use constant ERRCODE_1 => 'UPLERR_ALREADY_EXISTS'; |
63 |
use constant ERR_EXISTS => 'UPLERR_ALREADY_EXISTS'; |
64 |
use constant ERRCODE_2 => 'UPLERR_CANNOT_WRITE'; |
64 |
use constant ERR_PERMS => 'UPLERR_CANNOT_WRITE'; |
65 |
use constant ERRCODE_3 => 'UPLERR_NO_ROOT_DIR'; |
65 |
use constant ERR_ROOT => 'UPLERR_NO_ROOT_DIR'; |
66 |
use constant ERRCODE_4 => 'UPLERR_NO_TEMP_DIR'; |
66 |
use constant ERR_TEMP => 'UPLERR_NO_TEMP_DIR'; |
67 |
|
67 |
|
68 |
use Modern::Perl; |
68 |
use Modern::Perl; |
69 |
use CGI; # no utf8 flag, since it may interfere with binary uploads |
69 |
use CGI; # no utf8 flag, since it may interfere with binary uploads |
Lines 224-232
sub _create_file {
Link Here
|
224 |
$self->{files}->{$filename}->{errcode} ) { |
224 |
$self->{files}->{$filename}->{errcode} ) { |
225 |
#skip |
225 |
#skip |
226 |
} elsif( !$self->{temporary} && !$self->{rootdir} ) { |
226 |
} elsif( !$self->{temporary} && !$self->{rootdir} ) { |
227 |
$self->{files}->{$filename}->{errcode} = ERRCODE_3; #no rootdir |
227 |
$self->{files}->{$filename}->{errcode} = ERR_ROOT; #no rootdir |
228 |
} elsif( $self->{temporary} && !$self->{tmpdir} ) { |
228 |
} elsif( $self->{temporary} && !$self->{tmpdir} ) { |
229 |
$self->{files}->{$filename}->{errcode} = ERRCODE_4; #no tempdir |
229 |
$self->{files}->{$filename}->{errcode} = ERR_TEMP; #no tempdir |
230 |
} else { |
230 |
} else { |
231 |
my $dir = $self->_dir; |
231 |
my $dir = $self->_dir; |
232 |
my $hashval = $self->{files}->{$filename}->{hash}; |
232 |
my $hashval = $self->{files}->{$filename}->{hash}; |
Lines 239-245
sub _create_file {
Link Here
|
239 |
hashvalue => $hashval, |
239 |
hashvalue => $hashval, |
240 |
uploadcategorycode => $self->{category}, |
240 |
uploadcategorycode => $self->{category}, |
241 |
})->count ) { |
241 |
})->count ) { |
242 |
$self->{files}->{$filename}->{errcode} = ERRCODE_1; #already exists |
242 |
$self->{files}->{$filename}->{errcode} = ERR_EXISTS; |
243 |
return; |
243 |
return; |
244 |
} |
244 |
} |
245 |
|
245 |
|
Lines 248-254
sub _create_file {
Link Here
|
248 |
$fh->binmode; |
248 |
$fh->binmode; |
249 |
$self->{files}->{$filename}->{fh}= $fh; |
249 |
$self->{files}->{$filename}->{fh}= $fh; |
250 |
} else { |
250 |
} else { |
251 |
$self->{files}->{$filename}->{errcode} = ERRCODE_2; #not writable |
251 |
$self->{files}->{$filename}->{errcode} = ERR_PERMS; |
252 |
} |
252 |
} |
253 |
} |
253 |
} |
254 |
return $fh; |
254 |
return $fh; |