Lines 30-36
use CGI::Cookie; # need to check cookies before
Link Here
|
30 |
|
30 |
|
31 |
my $input = CGI->new; |
31 |
my $input = CGI->new; |
32 |
my %cookies = CGI::Cookie->fetch; |
32 |
my %cookies = CGI::Cookie->fetch; |
33 |
my ($auth_status, $sessionID) = check_cookie_auth($cookies{'CGISESSID'}->value, { tools => '*' }); |
33 |
my ($auth_status, $session) = check_cookie_auth($cookies{'CGISESSID'}->value, { tools => '*' }); |
34 |
if ($auth_status ne "ok") { |
34 |
if ($auth_status ne "ok") { |
35 |
my $reply = CGI->new(""); |
35 |
my $reply = CGI->new(""); |
36 |
print $reply->header(-type => 'text/html'); |
36 |
print $reply->header(-type => 'text/html'); |
Lines 38-43
if ($auth_status ne "ok") {
Link Here
|
38 |
exit 0; |
38 |
exit 0; |
39 |
} |
39 |
} |
40 |
|
40 |
|
|
|
41 |
my $sessionID = $session->id; |
41 |
my $jobID = $input->param('jobID'); |
42 |
my $jobID = $input->param('jobID'); |
42 |
my $job = C4::BackgroundJob->fetch($sessionID, $jobID); |
43 |
my $job = C4::BackgroundJob->fetch($sessionID, $jobID); |
43 |
my $reported_progress = 0; |
44 |
my $reported_progress = 0; |