golden hour

/usr/share/perl5/LWP/Protocol

⬆️ Go Up

Upload

File/Folder	Size	Actions
GHTTP.pm	1.72 KB	Del OK
cpan.pm	1.35 KB	Del OK
data.pm	1.22 KB	Del OK
file.pm	3.74 KB	Del OK
ftp.pm	16.42 KB	Del OK
gopher.pm	5.62 KB	Del OK
http.pm	12.53 KB	Del OK
loopback.pm	601 B	Del OK
mailto.pm	4.32 KB	Del OK
nntp.pm	3.78 KB	Del OK
nogo.pm	630 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; use vars qw(@ISA); require HTTP::Response; require HTTP::Status; require LWP::Protocol; @ISA = 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