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