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: loopback.pm

package LWP::Protocol::loopback; use strict; use vars qw(@ISA); require HTTP::Response; require LWP::Protocol; @ISA = 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