golden hour

/usr/share/perl5/vendor_perl/LWP/Protocol

⬆️ Go Up

Upload

File/Folder	Size	Actions
cpan.pm	1.33 KB	Del OK
data.pm	1.2 KB	Del OK
file.pm	3.75 KB	Del OK
ftp.pm	18.69 KB	Del OK
gopher.pm	5.59 KB	Del OK
http.pm	14.76 KB	Del OK
https.pm	6.85 KB	Del OK
loopback.pm	586 B	Del OK
mailto.pm	4.3 KB	Del OK
nntp.pm	4.1 KB	Del OK
nogo.pm	610 B	Del OK

Edit: nogo.pm

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.53'; 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;
Save