my $attrcode = $input->path_info || '';
$attrcode =~ s|^/||;
my ( $auth_status, $sessionID ) = check_cookie_auth( $input->cookie('CGISESSID'), { circulate => '*' } );
exit 0 if $auth_status ne "ok";
my $attrcode = $input->path_info || '';
$attrcode =~ s|^/||;
my ( $auth_status, $sessionID ) = check_cookie_auth( $input->cookie('CGISESSID'), { circulate => '*' } );
exit 0 if $auth_status ne "ok";