view release on metacpan or search on metacpan
SHA256 6890a32e62684274786618f6082444535af3324d2817ed377b0460ed4c4da48e xt/release/cpan-changes.t
SHA256 7e69ac417090c0dbdfd2f37a7403224c5d6416e45a232f25f80eeb8eea09f638 xt/release/dist-manifest.t
SHA256 584f66734072b246124313df5f17c3ba216a14945dacaf075e5e243ec36739bb xt/release/fixme.t
SHA256 7b602e030e49a84bd288095c6122339f5462fdfc1e3625c89700660d95f415c2 xt/release/kwalitee.t
SHA256 ebc034a620f7d2b140535ddddcb7732e17f858358ab85712a8e7663c911f342f xt/release/trailing-space.t
SHA256 d34f839d8340478663bd6ae59c72760d7e1a2b7a2d4879ad1ec97db1a2271b2f xt/release/unused-vars.t
-----BEGIN PGP SIGNATURE-----
iQGzBAEBAwAdFiEEeIwq7Pfyfxtssr5nHmWrcYGDC6wFAmmfLoMACgkQHmWrcYGD
C6y/Wgv/WvsFkE5O139fvDk+/kaQ6CIBTtHQF0/EYXMZpUaCEolZsoni7jqWtfg2
xd3QIqQOUiu33CqGj79Dk+Y9yUumke+/mecxulONLt/oG4WkhvCgDiX3MalA4xal
view release on metacpan or search on metacpan
SimpleTemplate.pm view on Meta::CPAN
sub compile {
my $s = shift;
my $template = $_[1] ? $_[0] : &load($_[0]);
if (!defined $template) { $s->{_error} .= "Not Found: $_[0]\n"; return 404; }
my $block_begin = $s->{block_begin} || $DEFAULT_BLOCK_BEGIN;
my $block_end = $s->{block_end} || $DEFAULT_BLOCK_END;
print STDERR "-- DELIM: $block_begin $block_end\n" if $s->{debug} > 2;
view release on metacpan or search on metacpan
<Location /STAGE>
# this location is served by normal apache. It's recommended to
# restrict access to this location to registered authors of this
# site, but a restriction isn't necessary
ErrorDocument 403 /stage-redir
ErrorDocument 404 /stage-redir
</Location>
<Location /stage-redir>
# the name of this location must match the ErrorDocument redirects
# above
place define the name of the staging directory, the name of an
internal location that catches the exception when a document is not in
the staging directory, and the regular expression that transforms the
staging URI into the corresponding public URI.
With this setup only ErrorDocument 403 and 404 will be served by
Apache::Stage. If you need coexistence with different ErrorDocument
handlers, you will either have to disable them for /STAGE or integrate
the code of Apache::Stage into an if/else branch based on the path.
=head1 HISTORY
view release on metacpan or search on metacpan
lib/Apache/Template.pm view on Meta::CPAN
This is equivalent to the DEFAULT configuration item. This can be
used to name a template to be used in place of a missing template
specified in a directive such as INCLUDE, PROCESS, INSERT, etc. Note
that if the main template is not found (i.e. that which is mapped from
the URI) then the handler will decline the request, resulting in a 404
- Not Found. The template specified should exist in one of the
directories named by TT2IncludePath.
TT2Default nonsuch
view release on metacpan or search on metacpan
lib/Apache/TestRequest.pm view on Meta::CPAN
die "no result" unless $res;
my $code = $res->code;
if ($code == 200) {
$found_same_interp = $res->header(INTERP_KEY) || '';
}
elsif ($code == 404) {
# try again
}
else {
die sprintf "failed to run the request (url=%s):\n" .
"code=%s, response:\n%s", $url, $code, $res->content;
view release on metacpan or search on metacpan
lib/Apache/UploadMeter.pm view on Meta::CPAN
This is a boolean (0 or 1) value used to help reduce race conditions when a new
upload is initiated. If it is 0 or not defined, the server will cause the request
to block (for up to 15 seconds by default - overridable by setting
$Apache::UploadMeter::TIMEOUT) until the uploading content is detected by the
server and the meter's datastructure is initialized. If it is 1, and the
I<meter_id> is not found on the server, a 404 error will be immediately returned.
=back
=head1 COMPATIBILITY
view release on metacpan or search on metacpan
Wyrd/Input/URLInput.pm view on Meta::CPAN
=head1 DESCRIPTION
Like any Form::Input Wyrd, but uses LWP::UserAgent to check that the URL
entered is a valid one. Will call insert_error on the enclosing Form if
an attempt to contact the URL first using the HEAD method and then the GET
method both return 404 Not Found.
=cut
sub _setup {
my ($self) = @_;
Wyrd/Input/URLInput.pm view on Meta::CPAN
my $ua = LWP::UserAgent->new;
$ua->timeout(60);
my $response = $ua->request(HEAD $value);
my $status = $response->status_line;
$self->_debug("URL HEAD status is $status");
if ($status =~ /404/) {
$response = $ua->request(GET $value);
$status = $response->status_line;
$self->_debug("URL GET status is $status");
}
if ($status =~ /404/) {
#warn("URL error -- Status is $status");
$self->{'_error_messages'} = [@{$self->{'_error_messages'}}, "This URL: $value returned an error: $status. Please fix it before continuing."];
$error = 0;
}
}
view release on metacpan or search on metacpan
SHA1 9245852dd4682f2e22a5fed821db88fe5b665292 MANIFEST
SHA1 be47f6fa58da2b2390a25a50e25e5f2e6817c6c4 META.yml
SHA1 e98b49ee9fca8601526056745ae00aaa55e66992 Makefile.PL
SHA1 3e87115e345204d5b53a99d5d09b5ab3fb222f77 README
SHA1 fe09a032514b7b9e89dfd99313dff09804389e50 eg/mycache.pm
SHA1 0e33e75d5efd9b1eeaa6d9499847404348fa3ad0 eg/printenv.cgi
SHA1 ff6c5f2a506df194cb00cd278ee5b70378b5fe00 eg/startup.pl
SHA1 455ce5ecfb0dc772d0a83cd896b7aeec4c542121 lib/Apache/forks.pm
SHA1 6a216e984e60cc0f9eec91e58bafa37fff757d12 lib/Apache/forks/BerkeleyDB.pm
SHA1 1b53e2179ffbf9002a9c45f3fae63727e64d11a6 lib/Apache/forks/Common.pm
SHA1 a957cb346ccfa7a8f4d302468427de9ee59ff876 t/00_signature.t
view release on metacpan or search on metacpan
lib/Apache/iNcom.pm view on Meta::CPAN
be returned on error. The pages are assumed to be relative to the
I<INCOM_ERROR_ROOT> directory, or if unspecified the I<INCOM_ROOT>.
If a localized version of the page exists, that one will be use. The
page will be executed as a normal Apache::iNcom pages. Error are keyed
either by the HTTP response code (404,403,500, etc) or by an arbitrary
key for application specific error. In order to return an arbitrary
error, you set the pnote I<INCOM_ERROR> in the page before returning
an error.
Example: $req_rec->pnotes( "INCOM_ERROR", "validation_failed" );
view release on metacpan or search on metacpan
lib/Apache2/API.pm view on Meta::CPAN
# Legacy JSON payload like Google, Twitter, Facebook
# Modern REST APIs now uses rfc9457 with a flattened payload.
# When the use_rfc_error object property is true, we use rfc9457 flattened error, this will produce something like:
# {
# error => 'not_found',
# status => 404,
# title => 'Not found!',
# detail => q{The requested URL was not found on this server. If you entered the URL manually please check your spelling and try again.},
# locale => 'en-US',
# type => 'https://api.example.com/problems/not-found',
# }
# otherwise, the legacy approach would be:
# {
# error =>
# {
# code => 404,
# message => q{The requested URL was not found on this server. If you entered the URL manually please check your spelling and try again.},
# },
# locale => 'en-US',
# }
# $self->reply( Apache2::Const::HTTP_OK, { message => "All is well" } );
lib/Apache2/API.pm view on Meta::CPAN
$api->print( @some_data );
$api->push_handlers( $name => $code_reference );
return( $api->reply( Apache2::Const::HTTP_OK => {
message => "All good!",
# arbitrary property
client_id => "efe4bcf3-730c-4cb2-99df-25d4027ec404",
# special property
cleanup => sub
{
# Some code here to be executed after the reply is sent out to the client.
}
view release on metacpan or search on metacpan
lib/Apache2/ASP/ASPHandler.pm view on Meta::CPAN
confess $@;
}# end if()
}
else
{
return $context->response->Status( 404 );
}# end if()
}# end run()
1;# return true:
view release on metacpan or search on metacpan
examples/demo-config/demo_auth_any_database.sql view on Meta::CPAN
-- Dumping data for table `userAACookie`
--
LOCK TABLES `userAACookie` WRITE;
/*!40000 ALTER TABLE `userAACookie` DISABLE KEYS */;
INSERT INTO `userAACookie` VALUES ('0257682d03bee509c98df8eba48abc10','0f867d18bf8c0d4f21af10f3af1981e6','aatest3','basic',1299612418,'2011-02-10 10:09:33','recognized','639ae4fb44d92ff26b2554f1456aaac4'),('5d5acf85adfbbc586bafac708b86f732','7705f3ab...
/*!40000 ALTER TABLE `userAACookie` ENABLE KEYS */;
UNLOCK TABLES;
--
-- Table structure for table `userIdent`
view release on metacpan or search on metacpan
t/mock_libs/Apache2/Const.pm view on Meta::CPAN
sub LOG_INFO {10}
sub LOG_DEBUG {11}
sub AUTHZ_GRANTED {2401}
sub AUTHZ_DENIED {2402}
sub AUTHZ_DENIED_NO_USER {2403}
sub AUTHZ_GENERAL_ERROR {2404}
1;
view release on metacpan or search on metacpan
Auth/RCS/Auth.pm,v view on Meta::CPAN
<input type=hidden name=a value=$uri>
</td>
</tr>
};
d360 44
a404 3
return ( $message, $extra_input );
}
d412 1
a412 1
view release on metacpan or search on metacpan
lib/Apache2/ClickPath/Store.pm view on Meta::CPAN
=item B<400> Bad Request
an invalid key or session identifier was used.
=item B<404> Not Found
the data item identified by the combination of session and key was not found.
If the item had once existed then it was possibly hit by a timeout.
=back
view release on metacpan or search on metacpan
lib/Apache2/CondProxy.pm view on Meta::CPAN
makes the above configuration not do what we imagine it would.
This module works by running the request all the way through in a
subrequest. Before doing so, a filter is installed to trap the
subrequest's response. If the response is I<unsuccessful>,
specifically if it is a C<403> or C<404>, the filter disposes of the
error body, and the request is forwarded to the proxy target. The
proxy URI scheme is matched to the original request URI scheme, so
make sure you have C<SSLProxyEngine on>.
If a proxy response contains a C<Location> header, and its host is the
lib/Apache2/CondProxy.pm view on Meta::CPAN
RemoteFirst on
This will try to serve the resource at C<ProxyTarget> first and
I<then> the local resource in case the remote resource responds with a
404. Note: Under the hood, this still checks the local resource first,
due to a limitation of C<mod_proxy>'s handling of subrequests.
=cut
# XXX this probably doesn't need to be a method handler
lib/Apache2/CondProxy.pm view on Meta::CPAN
# remove Accept-Encoding headers for proxy
my $ae = $r->headers_in->get('Accept-Encoding');
$r->headers_in->unset('Accept-Encoding');
if ($subr->status == 404) {
$r->log->debug('Proxying before subrequest is run');
return _do_proxy($r);
}
$r->log->debug(
lib/Apache2/CondProxy.pm view on Meta::CPAN
$subr->add_input_filter(\&_input_filter_tee);
$subr->add_output_filter(\&_output_filter_hold);
my $rv = $subr->run;
# we only care about 404
my $st = $subr->status;
if (grep { $rv == $_ || $st == $_ } (403, 404)) {
$r->log->debug("Proxying $uri after subrequest is run");
return _do_proxy($r);
}
else {
# override the subrequest status
view release on metacpan or search on metacpan
lib/Apache2/Controller/Refcard.pm view on Meta::CPAN
401 AUTH_REQUIRED Unauthorized
401 HTTP_UNAUTHORIZED Unauthorized
402 HTTP_PAYMENT_REQUIRED Payment Required
403 FORBIDDEN Forbidden
403 HTTP_FORBIDDEN Forbidden
404 HTTP_NOT_FOUND Not Found
404 NOT_FOUND Not Found
405 HTTP_METHOD_NOT_ALLOWED Method Not Allowed
406 HTTP_NOT_ACCEPTABLE Not Acceptable
407 HTTP_PROXY_AUTHENTICATION_REQUIRED Proxy Authentication Required
408 HTTP_REQUEST_TIME_OUT Request Timeout
409 HTTP_CONFLICT Conflict
view release on metacpan or search on metacpan
t/01plain.t view on Meta::CPAN
# Test non-usage of Apache2::Foo::Bar->dispatch_index since
# Apache2::Foo->dispatch_bar does not exist
$uri = '/plain/bar';
my $res = GET $uri;
ok $res->code == 404;
# Test Apache2::Foo::Bar->dispatch_baz
$uri = '/plain/bar/baz';
ok GET_OK $uri;
view release on metacpan or search on metacpan
lib/Apache2/FakeRequest.pm view on Meta::CPAN
sub USE_LOCAL_COPY { 304 }
sub HTTP_NOT_MODIFIED { 304 }
sub BAD_REQUEST { 400 }
sub AUTH_REQUIRED { 401 }
sub FORBIDDEN { 403 }
sub NOT_FOUND { 404 }
sub HTTP_METHOD_NOT_ALLOWED { 405 }
sub HTTP_NOT_ACCEPTABLE { 406 }
sub HTTP_LENGTH_REQUIRED { 411 }
sub HTTP_PRECONDITION_FAILED { 412 }
sub SERVER_ERROR { 500 }
view release on metacpan or search on metacpan
doc/examples/HTTPConfig.pm view on Meta::CPAN
If Apache2::Mogile::Dispatch handles the uri '/socklabs/index.html' and the
director says that it is not infact to be handled by mogile, it will attempt
to content the static servers to request the file. In this case it starts at
the top and works its way through the list using the first one that returns
200 - OK. If none of them return then a 404 - Not Found is returned.
Note that the format for the reproxy is very simple:
<static server x><uri>
view release on metacpan or search on metacpan
t/001mp-handler.t view on Meta::CPAN
ok t_cmp $resp->content, 'POST:', n 'POST200IpCheck Off: content';
t_client_log_error_is_expected;
t_debug "GET $loc;check";
$resp=GET $loc.';check';
ok t_cmp $resp->code, 404, n 'POST200IpCheck On: code 404';
t_client_log_error_is_expected;
t_debug "GET $loc;default";
$resp=GET $loc.';default';
ok t_cmp $resp->code, 404, n 'POST200IpCheck default: code 404';
t_debug "POST $loc";
$resp=POST $loc;
ok t_cmp $resp->code, 302, n 'POST => 302';
ok t_cmp $resp->header('Location'), qr#^(?!\Q$loc\E)#, n 'Location ne '.$loc;
view release on metacpan or search on metacpan
lib/Apache2/PodBrowser.pm view on Meta::CPAN
index page then contains a link to update the cache. So, if a POD file
is added or removed from the system this link is to be clicked to keep
the POD index page up to date.
The cache file itself is a L<MMapDB> object. If this module is not available
you'll probably get a C<404 - NOT FOUND> response the next time the POD index
page is requested if C<CACHE> is set.
The directory containing the cache file must be writable by the C<httpd>.
=head3 CONTENTTYPE
view release on metacpan or search on metacpan
lib/Apache2/Proxy.pm view on Meta::CPAN
304 => 'threeohfour',
307 => 'redirect',
400 => 'bsod',
401 => 'bsod',
403 => 'bsod',
404 => 'bsod',
410 => 'bsod',
500 => 'bsod',
502 => 'bsod',
503 => 'bsod',
504 => 'bsod',
lib/Apache2/Proxy.pm view on Meta::CPAN
sprintf(
"No handler for response code %d, url %s, ua %s",
$response->code, $url, $r->pnotes('ua')
)
);
$sub = $Response{'404'};
}
$r->log->debug(
sprintf(
"$$ Request returned %d response: %s",
view release on metacpan or search on metacpan
.svn/text-base/MANIFEST.svn-base view on Meta::CPAN
t/01-apache-test.t
t/02-js_merge-uri.t
t/03-js_merge-include.t
t/04-css_merge-uri.t
t/05-css_merge-include.t
t/06-404.t
t/07-stats.t
t/08-js_minimize.t
t/09-css_minimize.t
t/10-cache.t
t/114-variable_substitution.t
view release on metacpan or search on metacpan
lib/Apache2/SSI.pm view on Meta::CPAN
$file,
( $r ? ( apache_request => $r ) : () ),
base_file => $self->uri->filename,
debug => $self->debug
) || return( $self->error( "Unable to instantiate an Apache2::SSI::File object: ", Apache2::SSI::File->error ) );
if( $f->code == 404 )
{
# Mimic the Apache error when the file does not exist
$self->error( "unable to lookup information about \"$file\" in parsed file \"", $self->uri, "\"." );
}
return( $f );
lib/Apache2/SSI.pm view on Meta::CPAN
base_uri => $self->uri,
document_uri => $uri,
document_root => ( $r ? $r->document_root : $self->document_root ),
debug => $self->debug
) || return( $self->error( "Unable to instantiate an Apache2::SSI::URI object: ", Apache2::SSI::URI->error ) );
if( $u->code == 404 )
{
# Mimic the Apache error when the file does not exist
$self->error( "unable to get information about uri \"$uri\" in parsed file ", $self->uri );
}
return( $u );
lib/Apache2/SSI.pm view on Meta::CPAN
}
my $finfo = $cgi->finfo;
if( !$finfo->exists )
{
$cgi->code( 404 );
$self->error( "Error including cgi \"$args->{cgi}\". File not found. CGI resolved to \"", $cgi->filename, "\"" );
return( $self->errmsg );
}
elsif( !$finfo->can_exec )
{
view release on metacpan or search on metacpan
t/010states.t view on Meta::CPAN
$data=<<'EOD';
#id xkey xuri xblock xorder xaction
10 k / 0 0 Redirect: 'http://'.join(':', $r->get_server_name, $r->get_server_port).'/redirect1'
11 k /uri 0 0 Redirect: 'http://'.join(':', $r->get_server_name, $r->get_server_port).'/redirect2', 303
12 k /error 0 0 Redirect: die "ERROR"
13 k /404 0 0 Error: 404, 'this appears in the error_log'
EOD
update_db;
my $resp=GET '/';
ok t_cmp $resp->code, 302, n 'Redirect1: code';
t/010states.t view on Meta::CPAN
t_client_log_error_is_expected(2);
$resp=GET '/error';
ok t_cmp $resp->code, 500, n 'Redirect error';
t_client_log_error_is_expected();
$resp=GET '/404';
ok t_cmp $resp->code, 404, n 'Error: 404';
# CLIENTIP convenience variable
$data=<<'EOD';
#id xkey xuri xblock xorder xaction
10 k :PRE: 0 0 Do: $r->notes->{t}=$r->notes->{t}." ".$CLIENTIP
view release on metacpan or search on metacpan
extra/progress.js view on Meta::CPAN
if (this.onload) {
this.onload();
}
} else {
// error
this.status = 404;
this.statusText = 'Not Found';
this.responseText = '';
this.readyState = 4;
if (this.onreadystatechange) {
this.onreadystatechange();
view release on metacpan or search on metacpan
lib/Apertur/SDK/Error/NotFound.pm view on Meta::CPAN
use parent 'Apertur::SDK::Error';
sub new {
my ($class, %args) = @_;
return $class->SUPER::new(
status_code => 404,
code => 'NOT_FOUND',
message => $args{message} // 'Not found',
);
}
lib/Apertur/SDK/Error/NotFound.pm view on Meta::CPAN
__END__
=head1 NAME
Apertur::SDK::Error::NotFound - 404 not found error
=head1 DESCRIPTION
Thrown when the API returns a 404 status code, indicating that the
requested resource does not exist.
=cut
view release on metacpan or search on metacpan
script/_acme-cpanauthors view on Meta::CPAN
#function will also fill the information in the C<logs> result metadata.
#
#Examples:
#
# err(); # => [500, "FUNC failed", undef, {...}];
# err(404); # => [404, "FUNC failed", undef, {...}];
# err(404, "Not found"); # => [404, "Not found", ...]
# err("Not found", 404); # => [404, "Not found", ...]; # order doesn't matter
# err([404, "Prev error"]); # => [500, "FUNC failed", undef,
# # {logs=>[...], prev=>[404, "Prev error"]}]
#
#Will put C<stack_trace> in logs only if C<Carp::Always> module is loaded.
#
#=head2 warn_err(...)
#
view release on metacpan or search on metacpan
lib/App/AcmeCpanlists.pm view on Meta::CPAN
return $res unless $res->[0] == 200;
my $rows = $res->[2];
if (!@$rows) {
return [404, "No such list"];
} elsif ($res->[3]{'func.num_exact_matches'} == 1) {
return [200, "OK", $rows->[0]{_ref}, {'func.type'=>$rows->[0]{type}}];
} elsif (@$rows > 1) {
return [300, "Multiple lists found (".~~@{$rows}."), please specify"];
} else {