You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
87 lines
2.9 KiB
87 lines
2.9 KiB
13 years ago
|
--- lib/CPAN/FirstTime.pm.orig 2006-02-06 07:50:13.000000000 -0500
|
||
|
+++ lib/CPAN/FirstTime.pm 2006-02-06 07:50:28.000000000 -0500
|
||
|
@@ -292,7 +292,7 @@ by ENTER.
|
||
|
my(@path) = split /$Config{'path_sep'}/, $ENV{'PATH'};
|
||
|
local $^W = $old_warn;
|
||
|
my $progname;
|
||
|
- for $progname (qw/gzip tar unzip make lynx wget ncftpget ncftp ftp gpg/){
|
||
|
+ for $progname (qw/gzip tar unzip make links lynx wget ncftpget ncftp ftp gpg/){
|
||
|
if ($^O eq 'MacOS') {
|
||
|
$CPAN::Config->{$progname} = 'not_here';
|
||
|
next;
|
||
|
--- lib/CPAN.pm.orig 2006-02-06 07:54:43.000000000 -0500
|
||
|
+++ lib/CPAN.pm 2006-02-06 07:52:59.000000000 -0500
|
||
|
@@ -2604,7 +2604,7 @@ sub hosthard {
|
||
|
|
||
|
$self->debug("localizing funkyftpwise[$url]") if $CPAN::DEBUG;
|
||
|
my($f,$funkyftp);
|
||
|
- for $f ('lynx','ncftpget','ncftp','wget') {
|
||
|
+ for $f ('links','lynx','ncftpget','ncftp','wget') {
|
||
|
next unless exists $CPAN::Config->{$f};
|
||
|
$funkyftp = $CPAN::Config->{$f};
|
||
|
next unless defined $funkyftp;
|
||
|
@@ -2613,7 +2613,7 @@ sub hosthard {
|
||
|
($asl_ungz = $aslocal) =~ s/\.gz//;
|
||
|
$asl_gz = "$asl_ungz.gz";
|
||
|
my($src_switch) = "";
|
||
|
- if ($f eq "lynx"){
|
||
|
+ if (($f eq "lynx")||($f eq "links")){
|
||
|
$src_switch = " -source";
|
||
|
} elsif ($f eq "ncftp"){
|
||
|
$src_switch = " -c";
|
||
|
@@ -2637,10 +2637,14 @@ Trying with "$funkyftp$src_switch" to ge
|
||
|
my($wstatus);
|
||
|
if (($wstatus = system($system)) == 0
|
||
|
&&
|
||
|
- ($f eq "lynx" ?
|
||
|
+ (($f eq "lynx" ?
|
||
|
-s $asl_ungz # lynx returns 0 when it fails somewhere
|
||
|
: 1
|
||
|
- )
|
||
|
+ )||
|
||
|
+ ($f eq "links" ?
|
||
|
+ -s $asl_ungz # links returns 0 when it fails somewhere
|
||
|
+ : 1
|
||
|
+ ))
|
||
|
) {
|
||
|
if (-s $aslocal) {
|
||
|
# Looks good
|
||
|
@@ -2695,7 +2699,7 @@ returned status $estatus (wstat $wstatus
|
||
|
});
|
||
|
}
|
||
|
return if $CPAN::Signal;
|
||
|
- } # lynx,ncftpget,ncftp
|
||
|
+ } # links,lynx,ncftpget,ncftp
|
||
|
} # host
|
||
|
}
|
||
|
|
||
|
@@ -6022,7 +6026,7 @@ stalled.
|
||
|
|
||
|
The CPAN module is designed to automate the make and install of perl
|
||
|
modules and extensions. It includes some primitive searching capabilities and
|
||
|
-knows how to use Net::FTP or LWP (or lynx or an external ftp client)
|
||
|
+knows how to use Net::FTP or LWP (or lynx or links or an external ftp client)
|
||
|
to fetch the raw data from the net.
|
||
|
|
||
|
Modules are fetched from one or more of the mirrored CPAN
|
||
|
@@ -6975,16 +6979,18 @@ or
|
||
|
|
||
|
=back
|
||
|
|
||
|
-=head2 Configuring lynx or ncftp for going through a firewall
|
||
|
+=head2 Configuring links or lynx or ncftp for going through a firewall
|
||
|
|
||
|
If you can go through your firewall with e.g. lynx, presumably with a
|
||
|
command such as
|
||
|
|
||
|
/usr/local/bin/lynx -pscott:tiger
|
||
|
+ /usr/local/bin/links -pscott:tiger
|
||
|
|
||
|
then you would configure CPAN.pm with the command
|
||
|
|
||
|
o conf lynx "/usr/local/bin/lynx -pscott:tiger"
|
||
|
+ o conf links "/usr/local/bin/links -pscott:tiger"
|
||
|
|
||
|
That's all. Similarly for ncftp or ftp, you would configure something
|
||
|
like
|