[p5sagit/p5-mst-13.2.git] / lib / CPAN / FirstTime.pm

package CPAN::Mirrored::By;

sub new { 
    my($self,@arg) = @_;
    bless [@arg], $self;
}
sub continent { shift->[0] }
sub country { shift->[1] }
sub url { shift->[2] }

package CPAN::FirstTime;

use strict;
use ExtUtils::MakeMaker qw(prompt);
use FileHandle ();
use File::Basename ();
use File::Path ();
use vars qw($VERSION);
$VERSION = substr q$Revision: 1.33 $, 10;

=head1 NAME

CPAN::FirstTime - Utility for CPAN::Config file Initialization

=head1 SYNOPSIS

CPAN::FirstTime::init()

=head1 DESCRIPTION

The init routine asks a few questions and writes a CPAN::Config
file. Nothing special.

=cut


sub init {
    my($configpm) = @_;
    use Config;
    unless ($CPAN::VERSION) {
	require CPAN::Nox;
    }
    eval {require CPAN::Config;};
    $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 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");
    if (-d $cpan_home) {
	print qq{

I see you already have a  directory
    $cpan_home
Shall we use it as the general CPAN build and cache directory?

};
    } else {
	print qq{

First of all, I\'d like to create this directory. Where?

};
    }

    $default = $cpan_home;
    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{

If you want, I can keep the source files after a build in the cpan
home directory. If you choose so then future builds will take the
files from there. If you don\'t want to keep them, answer 0 to the
next question.

};

    $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
with all the intermediate files?

};

    $default = $CPAN::Config->{build_cache} || 10;
    $ans = prompt("Cache size for build directory (in MB)?", $default);
    $CPAN::Config->{build_cache} = $ans;

    # XXX This the time when we refetch the index files (in days)
    $CPAN::Config->{'index_expire'} = 1;

    print qq{

By default, each time the CPAN module is started, cache scanning
is performed to keep the cache size in sync. To prevent from this,
disable the cache scanning with 'never'.

};

    $default = $CPAN::Config->{scan_cache} || 'atstart';
    do {
        $ans = prompt("Perform cache scanning (atstart or never)?", $default);
    } while ($ans ne 'atstart' && $ans ne 'never');
    $CPAN::Config->{scan_cache} = $ans;

    #
    # prerequisites_policy
    # Do we follow PREREQ_PM?
    #
    print qq{

The CPAN module can detect when a module that which you are trying to
build depends on prerequisites. If this happens, it can build the
prerequisites for you automatically ('follow'), ask you for
confirmation ('ask'), or just ignore them ('ignore'). Please set your
policy to one of the three values.

};

    $default = $CPAN::Config->{prerequisites_policy} || 'follow';
    do {
        $ans = prompt("Perform cache scanning (follow, ask or ignore)?", $default);
    } while ($ans ne 'follow' && $ans ne 'ask' && $ans ne 'ignore');
    $CPAN::Config->{prerequisites_policy} = $ans;

    #
    # 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 $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);
    $CPAN::Config->{'pager'} = $ans;
    $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.
    #

    print qq{

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->{makepl_arg} =
	prompt("Parameters for the 'perl Makefile.PL' command?",$default);
    $default = $CPAN::Config->{make_arg} || "";
    $CPAN::Config->{make_arg} = prompt("Parameters for the 'make' command?",$default);

    $default = $CPAN::Config->{make_install_arg} || $CPAN::Config->{make_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("Timeout for inactivity during Makefile.PL?",$default);

    # Proxies

    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);
    }

    #
    # 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);
    #warn "in find_exe exe[$exe] path[@$path]";
    for $dir (@$path) {
	my $abs = MM->catfile($dir,$exe);
	if (($abs = MM->maybe_command($abs))) {
	    return $abs;
	}
    }
}

sub picklist {
    my($items,$prompt,$default,$require_nonempty,$empty_warning)=@_;
    $default ||= '';

    my ($item, $i);
    for $item (@$items) {
	printf "(%d) %s\n", ++$i, $item;
    }

    my @nums;
    while (1) {
	my $num = prompt($prompt,$default);
	@nums = split (' ', $num);
	(warn "invalid items entered, try again\n"), next
	    if grep (/\D/ || $_ < 1 || $_ > $i, @nums);
	if ($require_nonempty) {
	    (warn "$empty_warning\n"), next
		unless @nums;
	}
	last;
    }
    print "\n";
    for (@nums) { $_-- }
    @{$items}[@nums];
}

sub read_mirrored_by {
    my($local) = @_;
    my(%all,$url,$expected_size,$default,$ans,$host,$dst,$country,$continent,@location);
    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)/;
	/location\s+=\s+\"([^\"]+)/ and @location = (split /\s*,\s*/, $1) and
	    ($continent, $country) = @location[-1,-2];
	$continent =~ s/\s\(.*//;
	$continent =~ s/\W+$//; # if Jarkko doesn't know latitude/longitude
	/dst_dst\s+=\s+\"([^\"]+)/  and $dst = $1;
	next unless $host && $dst && $continent && $country;
	$all{$continent}{$country}{$dst} = CPAN::Mirrored::By->new($continent,$country,$dst);
	undef $host;
	$dst=$continent=$country="";
    }
    $fh->close;
    $CPAN::Config->{urllist} ||= [];
    my(@previous_urls);
    if (@previous_urls = @{$CPAN::Config->{urllist}}) {
	$CPAN::Config->{urllist} = [];
    }

    print qq{

Now we need to know where your favorite CPAN sites are located. Push
a few sites onto the array (just in case the first on the array won\'t
work). If you are mirroring CPAN to your local workstation, specify a
file: URL.

First, pick a nearby continent and country (you can pick several of
each, separated by spaces, or none if you just want to keep your
existing selections). Then, you will be presented with a list of URLs
of CPAN mirrors in the countries you selected, along with previously
selected URLs. Select some of those URLs, or just keep the old list.
Finally, you will be prompted for any extra URLs -- file:, ftp:, or
http: -- that host a CPAN mirror.

};

    my (@cont, $cont, %cont, @countries, @urls, %seen);
    my $no_previous_warn = 
       "Sorry! since you don't have any existing picks, you must make a\n" .
       "geographic selection.";
    @cont = picklist([sort keys %all],
                     "Select your continent (or several nearby continents)",
                     '',
                     ! @previous_urls,
                     $no_previous_warn);


    foreach $cont (@cont) {
        my @c = sort keys %{$all{$cont}};
        @cont{@c} = map ($cont, 0..$#c);
        @c = map ("$_ ($cont)", @c) if @cont > 1;
        push (@countries, @c);
    }

    if (@countries) {
        @countries = picklist (\@countries,
                               "Select your country (or several nearby countries)",
                               '',
                               ! @previous_urls,
                               $no_previous_warn);
        %seen = map (($_ => 1), @previous_urls);
        # hmmm, should take list of defaults from CPAN::Config->{'urllist'}...
        foreach $country (@countries) {
            (my $bare_country = $country) =~ s/ \(.*\)//;
            my @u = sort keys %{$all{$cont{$bare_country}}{$bare_country}};
            @u = grep (! $seen{$_}, @u);
            @u = map ("$_ ($bare_country)", @u)
               if @countries > 1;
            push (@urls, @u);
        }
    }
    push (@urls, map ("$_ (previous pick)", @previous_urls));
    my $prompt = "Select as many URLs as you like";
    if (@previous_urls) {
       $default = join (' ', ((scalar @urls) - (scalar @previous_urls) + 1) ..
                             (scalar @urls));
       $prompt .= "\n(or just hit RETURN to keep your previous picks)";
    }

    @urls = picklist (\@urls, $prompt, $default);
    foreach (@urls) { s/ \(.*\)//; }
    %seen = map (($_ => 1), @urls);

    do {
        $ans = prompt ("Enter another URL or RETURN to quit:", "");

        if ($ans) {
            $ans =~ s|/?$|/|; # has to end with one slash
            $ans = "file:$ans" unless $ans =~ /:/; # without a scheme is a file:
            if ($ans =~ /^\w+:\/./) {
               push @urls, $ans 
                  unless $seen{$ans};
            }
            else {
                print qq{"$ans" doesn\'t look like an URL at first sight.
I\'ll ignore it for now.  You can add it to $INC{'CPAN/MyConfig.pm'}
later if you\'re sure it\'s right.\n};
            }
        }
    } while $ans;

    push @{$CPAN::Config->{urllist}}, @urls;
    # xxx delete or comment these out when you're happy that it works
    print "New set of picks:\n";
    map { print "  $_\n" } @{$CPAN::Config->{urllist}};
}

1;
Commit	Line	Data
5f05dabc	1	package CPAN::Mirrored::By;
	2
	3	sub new {
	4	my($self,@arg) = @_;
	5	bless [@arg], $self;
	6	}
da199366	7	sub continent { shift->[0] }
da199366	8	sub country { shift->[1] }
5f05dabc	9	sub url { shift->[2] }
	10
	11	package CPAN::FirstTime;
	12
	13	use strict;
	14	use ExtUtils::MakeMaker qw(prompt);
05454584	15	use FileHandle ();
09d9d230	16	use File::Basename ();
05454584	17	use File::Path ();
5f05dabc	18	use vars qw($VERSION);
f610777f	19	$VERSION = substr q$Revision: 1.33 $, 10;
5f05dabc	20
	21	=head1 NAME
	22
	23	CPAN::FirstTime - Utility for CPAN::Config file Initialization
	24
	25	=head1 SYNOPSIS
	26
	27	CPAN::FirstTime::init()
	28
	29	=head1 DESCRIPTION
	30
	31	The init routine asks a few questions and writes a CPAN::Config
	32	file. Nothing special.
	33
	34	=cut
	35
	36
	37	sub init {
	38	my($configpm) = @_;
	39	use Config;
f610777f	40	unless ($CPAN::VERSION) {
	41	require CPAN::Nox;
	42	}
5f05dabc	43	eval {require CPAN::Config;};
5f05dabc	44	$CPAN::Config \|\|= {};
da199366	45	local($/) = "\n";
da199366	46	local($\) = "";
13bc20ff	47	local($\|) = 1;
da199366	48
5f05dabc	49	my($ans,$default,$local,$cont,$url,$expected_size);
f610777f	50
da199366	51	#
	52	# Files, directories
	53	#
	54
2e2b7522	55	print qq[
09d9d230	56
	57	CPAN is the world-wide archive of perl resources. It consists of about
	58	100 sites that all replicate the same contents all around the globe.
	59	Many countries have at least one CPAN site already. The resources
	60	found on CPAN are easily accessible with the CPAN.pm module. If you
	61	want to use CPAN.pm, you have to configure it properly.
	62
	63	If you do not want to enter a dialog now, you can answer 'no' to this
	64	question and I\'ll try to autoconfigure. (Note: you can revisit this
	65	dialog anytime later by typing 'o conf init' at the cpan prompt.)
	66
2e2b7522	67	];
09d9d230	68
	69	my $manual_conf =
	70	ExtUtils::MakeMaker::prompt("Are you ready for manual configuration?",
	71	"yes");
	72	my $fastread;
	73	{
	74	local $^W;
	75	if ($manual_conf =~ /^\s*y/i) {
	76	$fastread = 0;
	77	*prompt = \&ExtUtils::MakeMaker::prompt;
	78	} else {
	79	$fastread = 1;
	80	*prompt = sub {
	81	my($q,$a) = @_;
	82	my($ret) = defined $a ? $a : "";
	83	printf qq{%s [%s]\n\n}, $q, $ret;
	84	$ret;
	85	};
	86	}
	87	}
	88	print qq{
	89
	90	The following questions are intended to help you with the
	91	configuration. The CPAN module needs a directory of its own to cache
	92	important index files and maybe keep a temporary mirror of CPAN files.
	93	This may be a site-wide directory or a personal directory.
	94
5f05dabc	95	};
	96
	97	my $cpan_home = $CPAN::Config->{cpan_home} \|\| MM->catdir($ENV{HOME}, ".cpan");
	98	if (-d $cpan_home) {
	99	print qq{
	100
	101	I see you already have a directory
	102	$cpan_home
	103	Shall we use it as the general CPAN build and cache directory?
	104
	105	};
	106	} else {
	107	print qq{
	108
	109	First of all, I\'d like to create this directory. Where?
	110
	111	};
	112	}
	113
	114	$default = $cpan_home;
05454584	115	while ($ans = prompt("CPAN build and cache directory?",$default)) {
	116	File::Path::mkpath($ans); # dies if it can't
	117	if (-d $ans && -w _) {
	118	last;
	119	} else {
	120	warn "Couldn't find directory $ans
10b2abe6	121	or directory is not writable. Please retry.\n";
05454584	122	}
10b2abe6	123	}
5f05dabc	124	$CPAN::Config->{cpan_home} = $ans;
f610777f	125
5f05dabc	126	print qq{
	127
	128	If you want, I can keep the source files after a build in the cpan
	129	home directory. If you choose so then future builds will take the
	130	files from there. If you don\'t want to keep them, answer 0 to the
	131	next question.
	132
	133	};
	134
	135	$CPAN::Config->{keep_source_where} = MM->catdir($CPAN::Config->{cpan_home},"sources");
	136	$CPAN::Config->{build_dir} = MM->catdir($CPAN::Config->{cpan_home},"build");
	137
da199366	138	#
	139	# Cache size, Index expire
	140	#
	141
5f05dabc	142	print qq{
	143
	144	How big should the disk cache be for keeping the build directories
	145	with all the intermediate files?
	146
	147	};
	148
	149	$default = $CPAN::Config->{build_cache} \|\| 10;
	150	$ans = prompt("Cache size for build directory (in MB)?", $default);
	151	$CPAN::Config->{build_cache} = $ans;
	152
	153	# XXX This the time when we refetch the index files (in days)
	154	$CPAN::Config->{'index_expire'} = 1;
	155
f610777f	156	print qq{
	157
	158	By default, each time the CPAN module is started, cache scanning
	159	is performed to keep the cache size in sync. To prevent from this,
	160	disable the cache scanning with 'never'.
	161
	162	};
	163
	164	$default = $CPAN::Config->{scan_cache} \|\| 'atstart';
	165	do {
	166	$ans = prompt("Perform cache scanning (atstart or never)?", $default);
	167	} while ($ans ne 'atstart' && $ans ne 'never');
	168	$CPAN::Config->{scan_cache} = $ans;
	169
	170	#
	171	# prerequisites_policy
	172	# Do we follow PREREQ_PM?
	173	#
	174	print qq{
	175
	176	The CPAN module can detect when a module that which you are trying to
	177	build depends on prerequisites. If this happens, it can build the
	178	prerequisites for you automatically ('follow'), ask you for
	179	confirmation ('ask'), or just ignore them ('ignore'). Please set your
	180	policy to one of the three values.
	181
	182	};
	183
	184	$default = $CPAN::Config->{prerequisites_policy} \|\| 'follow';
	185	do {
	186	$ans = prompt("Perform cache scanning (follow, ask or ignore)?", $default);
	187	} while ($ans ne 'follow' && $ans ne 'ask' && $ans ne 'ignore');
	188	$CPAN::Config->{prerequisites_policy} = $ans;
	189
da199366	190	#
	191	# External programs
	192	#
	193
5f05dabc	194	print qq{
	195
	196	The CPAN module will need a few external programs to work
	197	properly. Please correct me, if I guess the wrong path for a program.
05454584	198	Don\'t panic if you do not have some of them, just press ENTER for
05454584	199	those.
5f05dabc	200
	201	};
	202
55e314ee	203	my(@path) = split /$Config{'path_sep'}/, $ENV{'PATH'};
09d9d230	204	my $progname;
2e2b7522	205	for $progname (qw/gzip tar unzip make lynx ncftpget ncftp ftp/){
09d9d230	206	my $progcall = $progname;
2e2b7522	207	# we don't need ncftp if we have ncftpget
	208	next if $progname eq "ncftp" && $CPAN::Config->{ncftpget} gt " ";
	209	my $path = $CPAN::Config->{$progname}
	210	\|\| $Config::Config{$progname}
	211	\|\| "";
	212	if (MM->file_name_is_absolute($path)) {
	213	# testing existence is not good enough, some have these exe
	214	# extensions
	215
	216	# warn "Warning: configured $path does not exist\n" unless -e $path;
	217	# $path = "";
	218	} else {
	219	$path = '';
	220	}
	221	unless ($path) {
	222	# e.g. make -> nmake
	223	$progcall = $Config::Config{$progname} if $Config::Config{$progname};
	224	}
09d9d230	225
2e2b7522	226	$path \|\|= find_exe($progcall,[@path]);
	227	warn "Warning: $progcall not found in PATH\n" unless
	228	$path; # not -e $path, because find_exe already checked that
	229	$ans = prompt("Where is your $progname program?",$path) \|\| $path;
	230	$CPAN::Config->{$progname} = $ans;
5f05dabc	231	}
	232	my $path = $CPAN::Config->{'pager'} \|\|
	233	$ENV{PAGER} \|\| find_exe("less",[@path]) \|\|
	234	find_exe("more",[@path]) \|\| "more";
55e314ee	235	$ans = prompt("What is your favorite pager program?",$path);
5f05dabc	236	$CPAN::Config->{'pager'} = $ans;
55e314ee	237	$path = $CPAN::Config->{'shell'};
	238	if (MM->file_name_is_absolute($path)) {
	239	warn "Warning: configured $path does not exist\n" unless -e $path;
	240	$path = "";
	241	}
	242	$path \|\|= $ENV{SHELL};
13bc20ff	243	$path =~ s,\\,/,g if $^O eq 'os2'; # Cosmetic only
55e314ee	244	$ans = prompt("What is your favorite shell?",$path);
05454584	245	$CPAN::Config->{'shell'} = $ans;
da199366	246
	247	#
	248	# Arguments to make etc.
	249	#
	250
5f05dabc	251	print qq{
5f05dabc	252
da199366	253	Every Makefile.PL is run by perl in a separate process. Likewise we
5f05dabc	254	run \'make\' and \'make install\' in processes. If you have any parameters
	255	\(e.g. PREFIX, INSTALLPRIVLIB, UNINST or the like\) you want to pass to
	256	the calls, please specify them here.
	257
05454584	258	If you don\'t understand this question, just press ENTER.
05454584	259
5f05dabc	260	};
	261
	262	$default = $CPAN::Config->{makepl_arg} \|\| "";
	263	$CPAN::Config->{makepl_arg} =
	264	prompt("Parameters for the 'perl Makefile.PL' command?",$default);
	265	$default = $CPAN::Config->{make_arg} \|\| "";
	266	$CPAN::Config->{make_arg} = prompt("Parameters for the 'make' command?",$default);
	267
	268	$default = $CPAN::Config->{make_install_arg} \|\| $CPAN::Config->{make_arg} \|\| "";
	269	$CPAN::Config->{make_install_arg} =
	270	prompt("Parameters for the 'make install' command?",$default);
	271
da199366	272	#
	273	# Alarm period
	274	#
	275
10b2abe6	276	print qq{
	277
	278	Sometimes you may wish to leave the processes run by CPAN alone
	279	without caring about them. As sometimes the Makefile.PL contains
	280	question you\'re expected to answer, you can set a timer that will
	281	kill a 'perl Makefile.PL' process after the specified time in seconds.
	282
e50380aa	283	If you set this value to 0, these processes will wait forever. This is
e50380aa	284	the default and recommended setting.
10b2abe6	285
	286	};
	287
	288	$default = $CPAN::Config->{inactivity_timeout} \|\| 0;
	289	$CPAN::Config->{inactivity_timeout} =
09d9d230	290	prompt("Timeout for inactivity during Makefile.PL?",$default);
10b2abe6	291
09d9d230	292	# Proxies
da199366	293
09d9d230	294	print qq{
10b2abe6	295
09d9d230	296	If you\'re accessing the net via proxies, you can specify them in the
	297	CPAN configuration or via environment variables. The variable in
	298	the \$CPAN::Config takes precedence.
5f05dabc	299
05454584	300	};
09d9d230	301
	302	for (qw/ftp_proxy http_proxy no_proxy/) {
	303	$default = $CPAN::Config->{$_} \|\| $ENV{$_};
	304	$CPAN::Config->{$_} = prompt("Your $_?",$default);
5f05dabc	305	}
5f05dabc	306
09d9d230	307	#
	308	# MIRRORED.BY
	309	#
	310
	311	conf_sites() unless $fastread;
	312
d4fd5c69	313	unless (@{$CPAN::Config->{'wait_list'}\|\|[]}) {
d4fd5c69	314	print qq{
da199366	315
05454584	316	WAIT support is available as a Plugin. You need the CPAN::WAIT module
	317	to actually use it. But we need to know your favorite WAIT server. If
	318	you don\'t know a WAIT server near you, just press ENTER.
	319
	320	};
d4fd5c69	321	$default = "wait://ls6.informatik.uni-dortmund.de:1404";
	322	$ans = prompt("Your favorite WAIT server?\n ",$default);
	323	push @{$CPAN::Config->{'wait_list'}}, $ans;
	324	}
05454584	325
e50380aa	326	# We don't ask that now, it will be noticed in time, won't it?
5f05dabc	327	$CPAN::Config->{'inhibit_startup_message'} = 0;
e50380aa	328	$CPAN::Config->{'getcwd'} = 'cwd';
5f05dabc	329
	330	print "\n\n";
	331	CPAN::Config->commit($configpm);
	332	}
	333
09d9d230	334	sub conf_sites {
	335	my $m = 'MIRRORED.BY';
	336	my $mby = MM->catfile($CPAN::Config->{keep_source_where},$m);
	337	File::Path::mkpath(File::Basename::dirname($mby));
	338	if (-f $mby && -f $m && -M $m < -M $mby) {
	339	require File::Copy;
	340	File::Copy::copy($m,$mby) or die "Could not update $mby: $!";
	341	}
	342	if ( ! -f $mby ){
	343	print qq{You have no $mby
	344	I\'m trying to fetch one
	345	};
	346	$mby = CPAN::FTP->localize($m,$mby,3);
	347	} elsif (-M $mby > 30 ) {
	348	print qq{Your $mby is older than 30 days,
	349	I\'m trying to fetch one
	350	};
	351	$mby = CPAN::FTP->localize($m,$mby,3);
	352	}
	353	read_mirrored_by($mby);
	354	}
	355
5f05dabc	356	sub find_exe {
5f05dabc	357	my($exe,$path) = @_;
55e314ee	358	my($dir);
55e314ee	359	#warn "in find_exe exe[$exe] path[@$path]";
5f05dabc	360	for $dir (@$path) {
55e314ee	361	my $abs = MM->catfile($dir,$exe);
13bc20ff	362	if (($abs = MM->maybe_command($abs))) {
5f05dabc	363	return $abs;
	364	}
	365	}
	366	}
	367
f610777f	368	sub picklist {
	369	my($items,$prompt,$default,$require_nonempty,$empty_warning)=@_;
	370	$default \|\|= '';
	371
	372	my ($item, $i);
	373	for $item (@$items) {
	374	printf "(%d) %s\n", ++$i, $item;
	375	}
	376
	377	my @nums;
	378	while (1) {
	379	my $num = prompt($prompt,$default);
	380	@nums = split (' ', $num);
	381	(warn "invalid items entered, try again\n"), next
	382	if grep (/\D/ \|\| $_ < 1 \|\| $_ > $i, @nums);
	383	if ($require_nonempty) {
	384	(warn "$empty_warning\n"), next
	385	unless @nums;
	386	}
	387	last;
	388	}
	389	print "\n";
	390	for (@nums) { $_-- }
	391	@{$items}[@nums];
	392	}
	393
5f05dabc	394	sub read_mirrored_by {
	395	my($local) = @_;
	396	my(%all,$url,$expected_size,$default,$ans,$host,$dst,$country,$continent,@location);
05454584	397	my $fh = FileHandle->new;
	398	$fh->open($local) or die "Couldn't open $local: $!";
	399	while (<$fh>) {
5f05dabc	400	($host) = /^([\w\.\-]+)/ unless defined $host;
	401	next unless defined $host;
	402	next unless /\s+dst_(dst\|location)/;
	403	/location\s+=\s+\"([^\"]+)/ and @location = (split /\s,\s/, $1) and
	404	($continent, $country) = @location[-1,-2];
	405	$continent =~ s/\s\(.*//;
f610777f	406	$continent =~ s/\W+$//; # if Jarkko doesn't know latitude/longitude
5f05dabc	407	/dst_dst\s+=\s+\"([^\"]+)/ and $dst = $1;
	408	next unless $host && $dst && $continent && $country;
	409	$all{$continent}{$country}{$dst} = CPAN::Mirrored::By->new($continent,$country,$dst);
	410	undef $host;
	411	$dst=$continent=$country="";
	412	}
05454584	413	$fh->close;
5f05dabc	414	$CPAN::Config->{urllist} \|\|= [];
f610777f	415	my(@previous_urls);
f610777f	416	if (@previous_urls = @{$CPAN::Config->{urllist}}) {
5f05dabc	417	$CPAN::Config->{urllist} = [];
5f05dabc	418	}
f610777f	419
5f05dabc	420	print qq{
5f05dabc	421
f610777f	422	Now we need to know where your favorite CPAN sites are located. Push
5f05dabc	423	a few sites onto the array (just in case the first on the array won\'t
	424	work). If you are mirroring CPAN to your local workstation, specify a
	425	file: URL.
	426
f610777f	427	First, pick a nearby continent and country (you can pick several of
	428	each, separated by spaces, or none if you just want to keep your
	429	existing selections). Then, you will be presented with a list of URLs
	430	of CPAN mirrors in the countries you selected, along with previously
	431	selected URLs. Select some of those URLs, or just keep the old list.
	432	Finally, you will be prompted for any extra URLs -- file:, ftp:, or
	433	http: -- that host a CPAN mirror.
5f05dabc	434
	435	};
	436
f610777f	437	my (@cont, $cont, %cont, @countries, @urls, %seen);
	438	my $no_previous_warn =
	439	"Sorry! since you don't have any existing picks, you must make a\n" .
	440	"geographic selection.";
	441	@cont = picklist([sort keys %all],
	442	"Select your continent (or several nearby continents)",
	443	'',
	444	! @previous_urls,
	445	$no_previous_warn);
	446
	447
	448	foreach $cont (@cont) {
	449	my @c = sort keys %{$all{$cont}};
	450	@cont{@c} = map ($cont, 0..$#c);
	451	@c = map ("$_ ($cont)", @c) if @cont > 1;
	452	push (@countries, @c);
5f05dabc	453	}
f610777f	454
	455	if (@countries) {
	456	@countries = picklist (\@countries,
	457	"Select your country (or several nearby countries)",
	458	'',
	459	! @previous_urls,
	460	$no_previous_warn);
	461	%seen = map (($_ => 1), @previous_urls);
	462	# hmmm, should take list of defaults from CPAN::Config->{'urllist'}...
	463	foreach $country (@countries) {
	464	(my $bare_country = $country) =~ s/ \(.*\)//;
	465	my @u = sort keys %{$all{$cont{$bare_country}}{$bare_country}};
	466	@u = grep (! $seen{$_}, @u);
	467	@u = map ("$_ ($bare_country)", @u)
	468	if @countries > 1;
	469	push (@urls, @u);
	470	}
	471	}
	472	push (@urls, map ("$_ (previous pick)", @previous_urls));
	473	my $prompt = "Select as many URLs as you like";
	474	if (@previous_urls) {
	475	$default = join (' ', ((scalar @urls) - (scalar @previous_urls) + 1) ..
	476	(scalar @urls));
	477	$prompt .= "\n(or just hit RETURN to keep your previous picks)";
	478	}
	479
	480	@urls = picklist (\@urls, $prompt, $default);
	481	foreach (@urls) { s/ \(.*\)//; }
	482	%seen = map (($_ => 1), @urls);
	483
	484	do {
	485	$ans = prompt ("Enter another URL or RETURN to quit:", "");
	486
	487	if ($ans) {
	488	$ans =~ s\|/?$\|/\|; # has to end with one slash
	489	$ans = "file:$ans" unless $ans =~ /:/; # without a scheme is a file:
	490	if ($ans =~ /^\w+:\/./) {
	491	push @urls, $ans
	492	unless $seen{$ans};
	493	}
	494	else {
	495	print qq{"$ans" doesn\'t look like an URL at first sight.
	496	I\'ll ignore it for now. You can add it to $INC{'CPAN/MyConfig.pm'}
	497	later if you\'re sure it\'s right.\n};
	498	}
	499	}
	500	} while $ans;
	501
	502	push @{$CPAN::Config->{urllist}}, @urls;
	503	# xxx delete or comment these out when you're happy that it works
	504	print "New set of picks:\n";
	505	map { print " $_\n" } @{$CPAN::Config->{urllist}};
5f05dabc	506	}
	507
	508	1;