Lines 16-22
use CGI::Cookie; # need to check cookies before
Link Here
|
16 |
# having CGI parse the POST request |
16 |
# having CGI parse the POST request |
17 |
|
17 |
|
18 |
my %cookies = fetch CGI::Cookie; |
18 |
my %cookies = fetch CGI::Cookie; |
19 |
my ($auth_status, $sessionID) = check_cookie_auth($cookies{'CGISESSID'}->value, { editcatalogue => '1' }); |
19 |
my ($auth_status, $sessionID) = check_cookie_auth($cookies{'CGISESSID'}->value, { editcatalogue => 'edit_catalogue' }); |
20 |
if ($auth_status ne "ok") { |
20 |
if ($auth_status ne "ok") { |
21 |
my $reply = CGI->new(""); |
21 |
my $reply = CGI->new(""); |
22 |
print $reply->header(-type => 'text/html'); |
22 |
print $reply->header(-type => 'text/html'); |
23 |
- |
|
|