|
Lines 32-38
$attrcode =~ s|^/||;
Link Here
|
| 32 |
my ( $auth_status, $sessionID ) = check_cookie_auth( $input->cookie('CGISESSID'), { circulate => '*' } ); |
32 |
my ( $auth_status, $sessionID ) = check_cookie_auth( $input->cookie('CGISESSID'), { circulate => '*' } ); |
| 33 |
exit 0 if $auth_status ne "ok"; |
33 |
exit 0 if $auth_status ne "ok"; |
| 34 |
|
34 |
|
| 35 |
binmode STDOUT, ":utf8"; |
35 |
binmode STDOUT, ":encoding(UTF-8)"; |
| 36 |
print $input->header( -type => 'text/plain', -charset => 'UTF-8' ); |
36 |
print $input->header( -type => 'text/plain', -charset => 'UTF-8' ); |
| 37 |
|
37 |
|
| 38 |
print STDERR ">> CALLING $0 (attrcode=$attrcode, query=$query)\n" if $debug; |
38 |
print STDERR ">> CALLING $0 (attrcode=$attrcode, query=$query)\n" if $debug; |