view release on metacpan or  search on metacpan

lib/AxKit2/Client.pm  view on Meta::CPAN

                        xml_escape($new_uri) . "\">here</A>.<P>\n");
    }
    elsif ($code == BAD_REQUEST) {
        $self->write("<p>Your browser sent a request that this server could not understand.<br />\n" .
                     xml_escape($extras)."</p>\n");
    }
    elsif ($code == UNAUTHORIZED) {
        $self->write("<p>This server could not verify that you\n" .
                       "are authorized to access the document\n" .
                       "requested.  Either you supplied the wrong\n" .
                       "credentials (e.g., bad password), or your\n" .
                       "browser doesn't understand how to supply\n" .
                       "the credentials required.</p>\n");
    }
    elsif ($code == FORBIDDEN) {
        $self->write("<p>You don't have permission to access " . 
                     xml_escape($self->headers_in->uri) .
                     "\non this server.</p>\n");
    }
    elsif ($code == NOT_FOUND) {
        $self->write("<p>The requested URL " . 
                     xml_escape($self->headers_in->uri) .
                     " was not found on this server.</p>\n");