usr
/
share
/
perl5
/
vendor_perl
/
LWP
/
Protocol
/
Go to Home Directory
+
Upload
Create File
root@0UT1S:~$
Execute
By Order of Mr.0UT1S
[DIR] ..
N/A
cpan.pm
1.33 KB
Rename
Delete
data.pm
1.20 KB
Rename
Delete
file.pm
3.75 KB
Rename
Delete
ftp.pm
18.69 KB
Rename
Delete
gopher.pm
5.59 KB
Rename
Delete
http.pm
14.76 KB
Rename
Delete
loopback.pm
586 bytes
Rename
Delete
mailto.pm
4.30 KB
Rename
Delete
nntp.pm
4.10 KB
Rename
Delete
nogo.pm
610 bytes
Rename
Delete
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.34'; 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