use strict;
use ExtUtils::MakeMaker qw(prompt);
-require File::Path;
+use FileHandle ();
+use File::Basename ();
+use File::Path ();
use vars qw($VERSION);
-$VERSION = substr q$Revision: 1.13 $, 10;
+$VERSION = substr q$Revision: 1.30 $, 10;
=head1 NAME
$CPAN::Config ||= {};
local($/) = "\n";
local($\) = "";
+ local($|) = 1;
my($ans,$default,$local,$cont,$url,$expected_size);
# Files, directories
#
+ print qq[
+
+CPAN is the world-wide archive of perl resources. It consists of about
+100 sites that all replicate the same contents all around the globe.
+Many countries have at least one CPAN site already. The resources
+found on CPAN are easily accessible with the CPAN.pm module. If you
+want to use CPAN.pm, you have to configure it properly.
+
+If you do not want to enter a dialog now, you can answer 'no' to this
+question and I\'ll try to autoconfigure. (Note: you can revisit this
+dialog anytime later by typing 'o conf init' at the cpan prompt.)
+
+];
+
+ my $manual_conf =
+ ExtUtils::MakeMaker::prompt("Are you ready for manual configuration?",
+ "yes");
+ my $fastread;
+ {
+ local $^W;
+ if ($manual_conf =~ /^\s*y/i) {
+ $fastread = 0;
+ *prompt = \&ExtUtils::MakeMaker::prompt;
+ } else {
+ $fastread = 1;
+ *prompt = sub {
+ my($q,$a) = @_;
+ my($ret) = defined $a ? $a : "";
+ printf qq{%s [%s]\n\n}, $q, $ret;
+ $ret;
+ };
+ }
+ }
print qq{
-The CPAN module needs a directory of its own to cache important
-index files and maybe keep a temporary mirror of CPAN files. This may
-be a site-wide directory or a personal directory.
+The following questions are intended to help you with the
+configuration. The CPAN module needs a directory of its own to cache
+important index files and maybe keep a temporary mirror of CPAN files.
+This may be a site-wide directory or a personal directory.
+
};
my $cpan_home = $CPAN::Config->{cpan_home} || MM->catdir($ENV{HOME}, ".cpan");
}
$default = $cpan_home;
- until (-d ($ans = prompt("CPAN build and cache directory?",$default)) && -w _) {
- print "Couldn't find directory $ans
+ while ($ans = prompt("CPAN build and cache directory?",$default)) {
+ File::Path::mkpath($ans); # dies if it can't
+ if (-d $ans && -w _) {
+ last;
+ } else {
+ warn "Couldn't find directory $ans
or directory is not writable. Please retry.\n";
+ }
}
- File::Path::mkpath($ans); # dies if it can't
$CPAN::Config->{cpan_home} = $ans;
print qq{
The CPAN module will need a few external programs to work
properly. Please correct me, if I guess the wrong path for a program.
+Don\'t panic if you do not have some of them, just press ENTER for
+those.
};
- my(@path) = split($Config{path_sep},$ENV{PATH});
- my $prog;
- for $prog (qw/gzip tar unzip make lynx ftp/){
- my $path = $CPAN::Config->{$prog} || find_exe($prog,[@path]) || $prog;
- $ans = prompt("Where is your $prog program?",$path) || $path;
- $CPAN::Config->{$prog} = $ans;
+ my(@path) = split /$Config{'path_sep'}/, $ENV{'PATH'};
+ my $progname;
+ for $progname (qw/gzip tar unzip make lynx ncftpget ncftp ftp/){
+ my $progcall = $progname;
+ # we don't need ncftp if we have ncftpget
+ next if $progname eq "ncftp" && $CPAN::Config->{ncftpget} gt " ";
+ my $path = $CPAN::Config->{$progname}
+ || $Config::Config{$progname}
+ || "";
+ if (MM->file_name_is_absolute($path)) {
+ # testing existence is not good enough, some have these exe
+ # extensions
+
+ # warn "Warning: configured $path does not exist\n" unless -e $path;
+ # $path = "";
+ } else {
+ $path = '';
+ }
+ unless ($path) {
+ # e.g. make -> nmake
+ $progcall = $Config::Config{$progname} if $Config::Config{$progname};
+ }
+
+ $path ||= find_exe($progcall,[@path]);
+ warn "Warning: $progcall not found in PATH\n" unless
+ $path; # not -e $path, because find_exe already checked that
+ $ans = prompt("Where is your $progname program?",$path) || $path;
+ $CPAN::Config->{$progname} = $ans;
}
my $path = $CPAN::Config->{'pager'} ||
$ENV{PAGER} || find_exe("less",[@path]) ||
find_exe("more",[@path]) || "more";
- $ans = prompt("What is your favorite pager program?",$path) || $path;
+ $ans = prompt("What is your favorite pager program?",$path);
$CPAN::Config->{'pager'} = $ans;
- $path = $CPAN::Config->{'shell'} || $ENV{SHELL} || "";
- $ans = prompt("What is your favorite shell?",$path) || $path;
+ $path = $CPAN::Config->{'shell'};
+ if (MM->file_name_is_absolute($path)) {
+ warn "Warning: configured $path does not exist\n" unless -e $path;
+ $path = "";
+ }
+ $path ||= $ENV{SHELL};
+ $path =~ s,\\,/,g if $^O eq 'os2'; # Cosmetic only
+ $ans = prompt("What is your favorite shell?",$path);
+ $CPAN::Config->{'shell'} = $ans;
#
# Arguments to make etc.
\(e.g. PREFIX, INSTALLPRIVLIB, UNINST or the like\) you want to pass to
the calls, please specify them here.
+If you don\'t understand this question, just press ENTER.
+
};
$default = $CPAN::Config->{makepl_arg} || "";
question you\'re expected to answer, you can set a timer that will
kill a 'perl Makefile.PL' process after the specified time in seconds.
-If you set this value to 0, these processes will wait forever.
+If you set this value to 0, these processes will wait forever. This is
+the default and recommended setting.
};
$default = $CPAN::Config->{inactivity_timeout} || 0;
$CPAN::Config->{inactivity_timeout} =
- prompt("Timout for inacivity during Makefile.PL?",$default);
+ prompt("Timeout for inactivity during Makefile.PL?",$default);
-
- #
- # MIRRORED.BY
- #
-
- $local = 'MIRRORED.BY';
- if (@{$CPAN::Config->{urllist}||[]}) {
- print qq{
-I found a list of URLs in CPAN::Config and will use this.
-You can change it later with the 'o conf' command.
-
-}
- } elsif (-f $local) { # if they really have a wrong MIRRORED.BY in
- # the current directory, we can't help
- read_mirrored_by($local);
- } else {
- $CPAN::Config->{urllist} ||= [];
- while (! @{$CPAN::Config->{urllist}}) {
- print qq{
-We need to know the URL of your favorite CPAN site.
-Please enter it here: };
- chop($_ = <>);
- s/\s//g;
- push @{$CPAN::Config->{urllist}}, $_ if $_;
- }
- }
+ # Proxies
print qq{
$CPAN::Config->{$_} = prompt("Your $_?",$default);
}
- # We don't ask that now, it will be noticed in time....
+ #
+ # MIRRORED.BY
+ #
+
+ conf_sites() unless $fastread;
+
+ unless (@{$CPAN::Config->{'wait_list'}||[]}) {
+ print qq{
+
+WAIT support is available as a Plugin. You need the CPAN::WAIT module
+to actually use it. But we need to know your favorite WAIT server. If
+you don\'t know a WAIT server near you, just press ENTER.
+
+};
+ $default = "wait://ls6.informatik.uni-dortmund.de:1404";
+ $ans = prompt("Your favorite WAIT server?\n ",$default);
+ push @{$CPAN::Config->{'wait_list'}}, $ans;
+ }
+
+ # We don't ask that now, it will be noticed in time, won't it?
$CPAN::Config->{'inhibit_startup_message'} = 0;
+ $CPAN::Config->{'getcwd'} = 'cwd';
print "\n\n";
CPAN::Config->commit($configpm);
}
+sub conf_sites {
+ my $m = 'MIRRORED.BY';
+ my $mby = MM->catfile($CPAN::Config->{keep_source_where},$m);
+ File::Path::mkpath(File::Basename::dirname($mby));
+ if (-f $mby && -f $m && -M $m < -M $mby) {
+ require File::Copy;
+ File::Copy::copy($m,$mby) or die "Could not update $mby: $!";
+ }
+ if ( ! -f $mby ){
+ print qq{You have no $mby
+ I\'m trying to fetch one
+};
+ $mby = CPAN::FTP->localize($m,$mby,3);
+ } elsif (-M $mby > 30 ) {
+ print qq{Your $mby is older than 30 days,
+ I\'m trying to fetch one
+};
+ $mby = CPAN::FTP->localize($m,$mby,3);
+ }
+ read_mirrored_by($mby);
+}
+
sub find_exe {
my($exe,$path) = @_;
- my($dir,$MY);
- $MY = {};
- bless $MY, 'MY';
+ my($dir);
+ #warn "in find_exe exe[$exe] path[@$path]";
for $dir (@$path) {
- my $abs = $MY->catfile($dir,$exe);
- if ($MY->maybe_command($abs)) {
+ my $abs = MM->catfile($dir,$exe);
+ if (($abs = MM->maybe_command($abs))) {
return $abs;
}
}
sub read_mirrored_by {
my($local) = @_;
my(%all,$url,$expected_size,$default,$ans,$host,$dst,$country,$continent,@location);
- open FH, $local or die "Couldn't open $local: $!";
- while (<FH>) {
+ my $fh = FileHandle->new;
+ $fh->open($local) or die "Couldn't open $local: $!";
+ while (<$fh>) {
($host) = /^([\w\.\-]+)/ unless defined $host;
next unless defined $host;
next unless /\s+dst_(dst|location)/;
undef $host;
$dst=$continent=$country="";
}
+ $fh->close;
$CPAN::Config->{urllist} ||= [];
if ($expected_size = @{$CPAN::Config->{urllist}}) {
for $url (@{$CPAN::Config->{urllist}}) {
$ans = $other = "";
my(%seen);
+ my $pipe = -t *STDIN ? "| $CPAN::Config->{'pager'}" : ">/dev/null";
while () {
- my $pipe = -t *STDIN ? "| $CPAN::Config->{'pager'}" : ">/dev/null";
my(@valid,$previous_best);
- open FH, $pipe;
+ my $fh = FileHandle->new;
+ $fh->open($pipe);
{
my($cont,$country,$url,$item);
my(@cont) = sort keys %all;
for $cont (@cont) {
- print FH " $cont\n";
+ $fh->print(" $cont\n");
for $country (sort {lc $a cmp lc $b} keys %{$all{$cont}}) {
for $url (sort {lc $a cmp lc $b} keys %{$all{$cont}{$country}}) {
my $t = sprintf(
- " %-18s (%2d) %s\n",
+ " %-16s (%2d) %s\n",
$country,
++$item,
$url
$previous_best ||= $item;
}
push @valid, $all{$cont}{$country}{$url};
- print FH $t;
+ $fh->print($t);
}
}
}
}
- close FH;
- $previous_best ||= 1;
+ $fh->close;
+ $previous_best ||= "";
$default =
- @{$CPAN::Config->{urllist}} >= $expected_size ? "q" : $previous_best;
+ @{$CPAN::Config->{urllist}} >=
+ $expected_size ? "q" : $previous_best;
$ans = prompt(
"\nSelect an$other ftp or file URL or a number (q to finish)",
$default
push @{$CPAN::Config->{urllist}}, $url unless $seen{$url}++;
delete $all{$con}{$cou}{$url};
# print "Was a number [$ans] con[$con] cou[$cou] url[$url]\n";
- } elsif (@{$CPAN::Config->{urllist}} && $ans =~ /^q/i) {
+ } elsif ($ans =~ /^q/i) {
last;
} else {
$ans =~ s|/?$|/|; # has to end with one slash
projects / p5sagit/p5-mst-13.2.git / blobdiff