package LWP::Protocol::nogo;
# If you want to disable access to a particular scheme, use this
# class and then call
# LWP::Protocol::implementor(that_scheme, 'LWP::Protocol::nogo');
# For then on, attempts to access URLs with that scheme will generate
# a 500 error.
use strict;
our $VERSION = '6.45';
require HTTP::Response;
require HTTP::Status;
use base qw(LWP::Protocol);
sub request {
my($self, $request) = @_;
my $scheme = $request->uri->scheme;
return HTTP::Response->new(
HTTP::Status::RC_INTERNAL_SERVER_ERROR,
"Access to \'$scheme\' URIs has been disabled"
);
}
1;
| Name | Type | Size | Permission | Actions |
|---|---|---|---|---|
| cpan.pm | File | 1.33 KB | 0444 |
|
| data.pm | File | 1.2 KB | 0444 |
|
| file.pm | File | 3.75 KB | 0444 |
|
| ftp.pm | File | 18.69 KB | 0444 |
|
| gopher.pm | File | 5.59 KB | 0444 |
|
| http.pm | File | 14.76 KB | 0444 |
|
| loopback.pm | File | 586 B | 0444 |
|
| mailto.pm | File | 4.3 KB | 0444 |
|
| nntp.pm | File | 4.1 KB | 0444 |
|
| nogo.pm | File | 610 B | 0444 |
|