View | Details | Raw Unified | Return to bug 7775
Collapse All | Expand All

(-)a/tools/upload-file.pl (-6 / +2 lines)
Lines 46-52 if ($auth_status ne "ok") { Link Here
46
    exit 0;
46
    exit 0;
47
}
47
}
48
48
49
my $uploaded_file = C4::UploadedFile->new($sessionID);
49
our $uploaded_file = C4::UploadedFile->new($sessionID);
50
unless (defined $uploaded_file) {
50
unless (defined $uploaded_file) {
51
    # FIXME - failed to create file for some reason
51
    # FIXME - failed to create file for some reason
52
    send_reply('failed', '');
52
    send_reply('failed', '');
Lines 54-61 unless (defined $uploaded_file) { Link Here
54
}
54
}
55
$uploaded_file->max_size($ENV{'CONTENT_LENGTH'}); # may not be the file size, exactly
55
$uploaded_file->max_size($ENV{'CONTENT_LENGTH'}); # may not be the file size, exactly
56
56
57
my $first_chunk = 1;
58
59
my $query;
57
my $query;
60
$query = new CGI \&upload_hook;
58
$query = new CGI \&upload_hook;
61
$uploaded_file->done();
59
$uploaded_file->done();
Lines 68-76 exit 0; Link Here
68
sub upload_hook {
66
sub upload_hook {
69
    my ($file_name, $buffer, $bytes_read, $session) = @_;
67
    my ($file_name, $buffer, $bytes_read, $session) = @_;
70
    $uploaded_file->stash(\$buffer, $bytes_read);
68
    $uploaded_file->stash(\$buffer, $bytes_read);
71
    if ($first_chunk) {
69
    if ( ! $uploaded_file->name && $file_name ) { # save name on first chunk
72
        $uploaded_file->name($file_name);
70
        $uploaded_file->name($file_name);
73
        $first_chunk = 0;
74
    }
71
    }
75
}
72
}
76
73
77
- 

Return to bug 7775