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::loopback; use strict; our $VERSION = '6.34'; require HTTP::Response; use base qw(LWP::Protocol); sub request { my($self, $request, $proxy, $arg, $size, $timeout) = @_; my $response = HTTP::Response->new(200, "OK"); $response->content_type("message/http; msgtype=request"); $response->header("Via", "loopback/1.0 $proxy") if $proxy; $response->header("X-Arg", $arg); $response->header("X-Read-Size", $size); $response->header("X-Timeout", $timeout); return $self->collect_once($arg, $response, $request->as_string); } 1;
Save