PATH:
usr
/
local
/
share
/
perl5
/
LWP
/
Protocol
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.47'; 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;
[-] data.pm
[edit]
[-] http.pm
[edit]
[+]
..
[-] https.pm
[edit]
[-] loopback.pm
[edit]
[-] nntp.pm
[edit]
[-] nogo.pm
[edit]
[-] file.pm
[edit]
[-] ftp.pm
[edit]
[-] gopher.pm
[edit]
[-] cpan.pm
[edit]
[-] mailto.pm
[edit]