ACIL FM

Pilih semua

Nama	Ukuran	Aksi
cpan.pm	1.33 MB	View DL Edit
data.pm	1.2 MB	View DL Edit
file.pm	3.75 MB	View DL Edit
ftp.pm	18.69 MB	View DL Edit
gopher.pm	5.59 MB	View DL Edit
http.pm	14.76 MB	View DL Edit
https.pm	6.85 MB	View DL Edit
loopback.pm	586 B	View DL Edit
mailto.pm	4.3 MB	View DL Edit
nntp.pm	4.1 MB	View DL Edit
nogo.pm	610 B	View DL Edit

Edit file: /usr/share/perl5/vendor_perl/LWP/Protocol/cpan.pm

package LWP::Protocol::cpan;

use strict;

use base qw(LWP::Protocol);

our $VERSION = '6.53';

require URI;
require HTTP::Status;
require HTTP::Response;

our $CPAN;

unless ($CPAN) {
    # Try to find local CPAN mirror via $CPAN::Config
    eval {
	require CPAN::Config;
	if($CPAN::Config) {
	    my $urls = $CPAN::Config->{urllist};
	    if (ref($urls) eq "ARRAY") {
		my $file;
		for (@$urls) {
		    if (/^file:/) {
			$file = $_;
			last;
		    }
		}

if ($file) {
		    $CPAN = $file;
		}
		else {
		    $CPAN = $urls->[0];
		}
	    }
	}
    };

$CPAN ||= "http://cpan.org/";  # last resort
}

# ensure that we don't chop of last part
$CPAN .= "/" unless $CPAN =~ m,/$,;

sub request {
    my($self, $request, $proxy, $arg, $size) = @_;
    # check proxy
    if (defined $proxy)
    {
	return HTTP::Response->new(HTTP::Status::RC_BAD_REQUEST,
				   'You can not proxy with cpan');
    }

# check method
    my $method = $request->method;
    unless ($method eq 'GET' || $method eq 'HEAD') {
	return HTTP::Response->new(HTTP::Status::RC_BAD_REQUEST,
				   'Library does not allow method ' .
				   "$method for 'cpan:' URLs");
    }

my $path = $request->uri->path;
    $path =~ s,^/,,;

my $response = HTTP::Response->new(HTTP::Status::RC_FOUND);
    $response->header("Location" => URI->new_abs($path, $CPAN));
    $response;
}

1;

Batal

Isi Zip:

Create