SILENT KILLERPanel

Current Path: > > usr > share > perl5 > > vendor_perl > > LWP > > Protocol


Operation   : Linux premium131.web-hosting.com 4.18.0-553.44.1.lve.el8.x86_64 #1 SMP Thu Mar 13 14:29:12 UTC 2025 x86_64
Software     : Apache
Server IP    : 162.0.232.56 | Your IP: 216.73.216.111
Domains      : 1034 Domain(s)
Permission   : [ 0755 ]

Files and Folders in: //usr/share/perl5//vendor_perl//LWP//Protocol

NameTypeSizeLast ModifiedActions
cpan.pm File 1361 bytes June 05 2018 18:49:03.
data.pm File 1233 bytes June 05 2018 18:49:03.
file.pm File 3843 bytes June 05 2018 18:49:03.
ftp.pm File 19140 bytes June 05 2018 18:49:03.
gopher.pm File 5728 bytes June 05 2018 18:49:03.
http.pm File 15111 bytes June 05 2018 18:49:03.
loopback.pm File 586 bytes June 05 2018 18:49:03.
mailto.pm File 4406 bytes June 05 2018 18:49:03.
nntp.pm File 4196 bytes June 05 2018 18:49:03.
nogo.pm File 610 bytes June 05 2018 18:49:03.

Reading File: //usr/share/perl5//vendor_perl//LWP//Protocol/loopback.pm

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;

SILENT KILLER Tool