|
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; |