my($self,@arg) = @_;
bless [@arg], $self;
}
-sub con { shift->[0] }
-sub cou { shift->[1] }
+sub continent { shift->[0] }
+sub country { shift->[1] }
sub url { shift->[2] }
package CPAN::FirstTime;
use strict;
use ExtUtils::MakeMaker qw(prompt);
-require File::Path;
+use FileHandle ();
+use File::Path ();
use vars qw($VERSION);
-$VERSION = "1.00";
+$VERSION = substr q$Revision: 1.18 $, 10;
=head1 NAME
require CPAN::Nox;
eval {require CPAN::Config;};
$CPAN::Config ||= {};
-
+ local($/) = "\n";
+ local($\) = "";
+
my($ans,$default,$local,$cont,$url,$expected_size);
- print qq{
+ #
+ # Files, directories
+ #
+ 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.
}
$default = $cpan_home;
- $ans = prompt("CPAN build and cache directory?",$default);
- File::Path::mkpath($ans); # dies if it can't
+ 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";
+ }
+ }
$CPAN::Config->{cpan_home} = $ans;
print qq{
$CPAN::Config->{keep_source_where} = MM->catdir($CPAN::Config->{cpan_home},"sources");
$CPAN::Config->{build_dir} = MM->catdir($CPAN::Config->{cpan_home},"build");
+ #
+ # Cache size, Index expire
+ #
+
print qq{
How big should the disk cache be for keeping the build directories
# XXX This the time when we refetch the index files (in days)
$CPAN::Config->{'index_expire'} = 1;
+ #
+ # External programs
+ #
+
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/){
+ for $prog (qw/gzip tar unzip make lynx ncftp ftp/){
my $path = $CPAN::Config->{$prog} || find_exe($prog,[@path]) || $prog;
$ans = prompt("Where is your $prog program?",$path) || $path;
$CPAN::Config->{$prog} = $ans;
find_exe("more",[@path]) || "more";
$ans = prompt("What is your favorite pager program?",$path) || $path;
$CPAN::Config->{'pager'} = $ans;
+ $path = $CPAN::Config->{'shell'} || $ENV{SHELL} || "";
+ $ans = prompt("What is your favorite shell?",$path) || $path;
+ $CPAN::Config->{'shell'} = $ans;
+
+ #
+ # Arguments to make etc.
+ #
+
print qq{
-Every Makefile.PL is run by perl in a seperate process. Likewise we
+Every Makefile.PL is run by perl in a separate process. Likewise we
run \'make\' and \'make install\' in processes. If you have any parameters
\(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} || "";
$CPAN::Config->{make_install_arg} =
prompt("Parameters for the 'make install' command?",$default);
+ #
+ # Alarm period
+ #
+
+ print qq{
+
+Sometimes you may wish to leave the processes run by CPAN alone
+without caring about them. As sometimes the Makefile.PL contains
+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. 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);
+
+
+ #
+ # MIRRORED.BY
+ #
+
$local = 'MIRRORED.BY';
+ $local = MM->catfile($CPAN::Config->{keep_source_where},"MIRRORED.BY") unless -f $local;
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 MIRRORED.BY in the
- # current directory, we can't help
+ } elsif (
+ -s $local
+ &&
+ -M $local < 30
+ ) {
read_mirrored_by($local);
} else {
$CPAN::Config->{urllist} ||= [];
while (! @{$CPAN::Config->{urllist}}) {
- print qq{
+ my($input) = prompt(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 $_;
+Please enter it here:});
+ $input =~ s/\s//g;
+ next unless $input;
+ my($wanted) = "MIRRORED.BY";
+ print qq{
+Testing "$input" ...
+};
+ push @{$CPAN::Config->{urllist}}, $input;
+ CPAN::FTP->localize($wanted,$local,"force");
+ if (-s $local) {
+ print qq{
+"$input" seems to work
+};
+ } else {
+ my $ans = prompt(qq{$input doesn\'t seem to work. Keep it in the list?},"n");
+ last unless $ans =~ /^n/i;
+ pop @{$CPAN::Config->{urllist}};
+ }
}
}
- # We don't ask that now, it will be noticed in time....
+ 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;
+ }
+
+ print qq{
+
+If you\'re accessing the net via proxies, you can specify them in the
+CPAN configuration or via environment variables. The variable in
+the \$CPAN::Config takes precedence.
+
+};
+
+ for (qw/ftp_proxy http_proxy no_proxy/) {
+ $default = $CPAN::Config->{$_} || $ENV{$_};
+ $CPAN::Config->{$_} = prompt("Your $_?",$default);
+ }
+
+ # 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 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(
$previous_best ||= $item;
}
push @valid, $all{$cont}{$country}{$url};
- print FH $t;
+ $fh->print($t);
}
}
}
}
- close FH;
+ $fh->close;
$previous_best ||= 1;
$default =
@{$CPAN::Config->{urllist}} >= $expected_size ? "q" : $previous_best;
my $sel;
if ($ans =~ /^\d/) {
my $this = $valid[$ans-1];
- my($con,$cou,$url) = ($this->con,$this->cou,$this->url);
+ my($con,$cou,$url) = ($this->continent,$this->country,$this->url);
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";
projects / p5sagit/p5-mst-13.2.git / blobdiff