-use Digest::MD5;
-
-my %cookies = fetch CGI::Cookie;
-my ($auth_status, $sessionID) = check_cookie_auth($cookies{'CGISESSID'}->value, { tools => 1 });
-if ($auth_status ne "ok") {
- $auth_status = 'denied' if $auth_status eq 'failed';
- send_reply($auth_status, "", "");
- exit 0;
-}
-
-my $session = get_session($sessionID);