[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::Path ();
use vars qw($VERSION);
$VERSION = substr q$Revision: 1.15 $, 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;
    require CPAN::Nox;
    eval {require CPAN::Config;};
    $CPAN::Config ||= {};
    local($/) = "\n";
    local($\) = "";

    my($ans,$default,$local,$cont,$url,$expected_size);
    
    #
    # 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.
};

    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;

    #
    # 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 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 = $CPAN::Config->{'pager'} || 
	$ENV{PAGER} || find_exe("less",[@path]) || 
	    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 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.

};

    $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 (
	     -s $local
	     &&
	     -M $local < 30
	    ) {
	read_mirrored_by($local);
    } else {
	$CPAN::Config->{urllist} ||= [];
	while (! @{$CPAN::Config->{urllist}}) {
	    my($input) = prompt(qq{
We need to know the URL of your favorite CPAN site.
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}};
	    }
	}
    }

    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....
    $CPAN::Config->{'inhibit_startup_message'} = 0;

    print "\n\n";
    CPAN::Config->commit($configpm);
}

sub find_exe {
    my($exe,$path) = @_;
    my($dir,$MY);
    $MY = {};
    bless $MY, 'MY';
    for $dir (@$path) {
	my $abs = $MY->catfile($dir,$exe);
	if ($MY->maybe_command($abs)) {
	    return $abs;
	}
    }
}

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\(.*//;
	/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} ||= [];
    if ($expected_size = @{$CPAN::Config->{urllist}}) {
	for $url (@{$CPAN::Config->{urllist}}) {
	    # sanity check, scheme+colon, not "q" there:
	    next unless $url =~ /^\w+:\/./;
	    $all{"[From previous setup]"}{"found URL"}{$url}=CPAN::Mirrored::By->new('[From previous setup]','found URL',$url);
	}
	$CPAN::Config->{urllist} = [];
    } else {
	$expected_size = 6;
    }
    
    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.

You can enter the number in front of the URL on the next screen, a
file:, ftp: or http: URL, or "q" to finish selecting.

};

    $ans = prompt("Press RETURN to continue");
    my $other;
    $ans = $other = "";
    my(%seen);
    
    while () {
	my $pipe = -t *STDIN ? "| $CPAN::Config->{'pager'}" : ">/dev/null";
	my(@valid,$previous_best);
	my $fh = FileHandle->new;
	$fh->open($pipe);
	{
	    my($cont,$country,$url,$item);
	    my(@cont) = sort keys %all;
	    for $cont (@cont) {
		$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",
					$country,
					++$item,
					$url
				       );
			if ($cont =~ /^\[/) {
			    $previous_best ||= $item;
			}
			push @valid, $all{$cont}{$country}{$url};
			$fh->print($t);
		    }
		}
	    }
	}
	$previous_best ||= 1;
	$default =
	    @{$CPAN::Config->{urllist}} >= $expected_size ? "q" : $previous_best;
	$ans = prompt(
		      "\nSelect an$other ftp or file URL or a number (q to finish)",
		      $default
		     );
	my $sel;
	if ($ans =~ /^\d/) {
	    my $this = $valid[$ans-1];
	    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";
	} elsif (@{$CPAN::Config->{urllist}} && $ans =~ /^q/i) {
	    last;
	} else {
	    $ans =~ s|/?$|/|; # has to end with one slash
	    $ans = "file:$ans" unless $ans =~ /:/; # without a scheme is a file:
	    if ($ans =~ /^\w+:\/./) {
		push @{$CPAN::Config->{urllist}}, $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 lib/CPAN/Config.pm
later and report a bug in my Makefile.PL to me (andreas koenig).
Thanks.\n};
	    }
	}
	$other ||= "other";
    }
}

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 ();
05454584	16	use File::Path ();
5f05dabc	17	use vars qw($VERSION);
05454584	18	$VERSION = substr q$Revision: 1.15 $, 10;
5f05dabc	19
	20	=head1 NAME
	21
	22	CPAN::FirstTime - Utility for CPAN::Config file Initialization
	23
	24	=head1 SYNOPSIS
	25
	26	CPAN::FirstTime::init()
	27
	28	=head1 DESCRIPTION
	29
	30	The init routine asks a few questions and writes a CPAN::Config
	31	file. Nothing special.
	32
	33	=cut
	34
	35
	36	sub init {
	37	my($configpm) = @_;
	38	use Config;
	39	require CPAN::Nox;
	40	eval {require CPAN::Config;};
	41	$CPAN::Config \|\|= {};
da199366	42	local($/) = "\n";
	43	local($\) = "";
	44
5f05dabc	45	my($ans,$default,$local,$cont,$url,$expected_size);
5f05dabc	46
da199366	47	#
	48	# Files, directories
	49	#
	50
5f05dabc	51	print qq{
5f05dabc	52	The CPAN module needs a directory of its own to cache important
	53	index files and maybe keep a temporary mirror of CPAN files. This may
	54	be a site-wide directory or a personal directory.
	55	};
	56
	57	my $cpan_home = $CPAN::Config->{cpan_home} \|\| MM->catdir($ENV{HOME}, ".cpan");
	58	if (-d $cpan_home) {
	59	print qq{
	60
	61	I see you already have a directory
	62	$cpan_home
	63	Shall we use it as the general CPAN build and cache directory?
	64
	65	};
	66	} else {
	67	print qq{
	68
	69	First of all, I\'d like to create this directory. Where?
	70
	71	};
	72	}
	73
	74	$default = $cpan_home;
05454584	75	while ($ans = prompt("CPAN build and cache directory?",$default)) {
	76	File::Path::mkpath($ans); # dies if it can't
	77	if (-d $ans && -w _) {
	78	last;
	79	} else {
	80	warn "Couldn't find directory $ans
10b2abe6	81	or directory is not writable. Please retry.\n";
05454584	82	}
10b2abe6	83	}
5f05dabc	84	$CPAN::Config->{cpan_home} = $ans;
	85
	86	print qq{
	87
	88	If you want, I can keep the source files after a build in the cpan
	89	home directory. If you choose so then future builds will take the
	90	files from there. If you don\'t want to keep them, answer 0 to the
	91	next question.
	92
	93	};
	94
	95	$CPAN::Config->{keep_source_where} = MM->catdir($CPAN::Config->{cpan_home},"sources");
	96	$CPAN::Config->{build_dir} = MM->catdir($CPAN::Config->{cpan_home},"build");
	97
da199366	98	#
	99	# Cache size, Index expire
	100	#
	101
5f05dabc	102	print qq{
	103
	104	How big should the disk cache be for keeping the build directories
	105	with all the intermediate files?
	106
	107	};
	108
	109	$default = $CPAN::Config->{build_cache} \|\| 10;
	110	$ans = prompt("Cache size for build directory (in MB)?", $default);
	111	$CPAN::Config->{build_cache} = $ans;
	112
	113	# XXX This the time when we refetch the index files (in days)
	114	$CPAN::Config->{'index_expire'} = 1;
	115
da199366	116	#
	117	# External programs
	118	#
	119
5f05dabc	120	print qq{
	121
	122	The CPAN module will need a few external programs to work
	123	properly. Please correct me, if I guess the wrong path for a program.
05454584	124	Don\'t panic if you do not have some of them, just press ENTER for
05454584	125	those.
5f05dabc	126
	127	};
	128
	129	my(@path) = split($Config{path_sep},$ENV{PATH});
	130	my $prog;
10b2abe6	131	for $prog (qw/gzip tar unzip make lynx ftp/){
5f05dabc	132	my $path = $CPAN::Config->{$prog} \|\| find_exe($prog,[@path]) \|\| $prog;
	133	$ans = prompt("Where is your $prog program?",$path) \|\| $path;
	134	$CPAN::Config->{$prog} = $ans;
	135	}
	136	my $path = $CPAN::Config->{'pager'} \|\|
	137	$ENV{PAGER} \|\| find_exe("less",[@path]) \|\|
	138	find_exe("more",[@path]) \|\| "more";
	139	$ans = prompt("What is your favorite pager program?",$path) \|\| $path;
	140	$CPAN::Config->{'pager'} = $ans;
da199366	141	$path = $CPAN::Config->{'shell'} \|\| $ENV{SHELL} \|\| "";
da199366	142	$ans = prompt("What is your favorite shell?",$path) \|\| $path;
05454584	143	$CPAN::Config->{'shell'} = $ans;
da199366	144
	145	#
	146	# Arguments to make etc.
	147	#
	148
5f05dabc	149	print qq{
5f05dabc	150
da199366	151	Every Makefile.PL is run by perl in a separate process. Likewise we
5f05dabc	152	run \'make\' and \'make install\' in processes. If you have any parameters
	153	\(e.g. PREFIX, INSTALLPRIVLIB, UNINST or the like\) you want to pass to
	154	the calls, please specify them here.
	155
05454584	156	If you don\'t understand this question, just press ENTER.
05454584	157
5f05dabc	158	};
	159
	160	$default = $CPAN::Config->{makepl_arg} \|\| "";
	161	$CPAN::Config->{makepl_arg} =
	162	prompt("Parameters for the 'perl Makefile.PL' command?",$default);
	163	$default = $CPAN::Config->{make_arg} \|\| "";
	164	$CPAN::Config->{make_arg} = prompt("Parameters for the 'make' command?",$default);
	165
	166	$default = $CPAN::Config->{make_install_arg} \|\| $CPAN::Config->{make_arg} \|\| "";
	167	$CPAN::Config->{make_install_arg} =
	168	prompt("Parameters for the 'make install' command?",$default);
	169
da199366	170	#
	171	# Alarm period
	172	#
	173
10b2abe6	174	print qq{
	175
	176	Sometimes you may wish to leave the processes run by CPAN alone
	177	without caring about them. As sometimes the Makefile.PL contains
	178	question you\'re expected to answer, you can set a timer that will
	179	kill a 'perl Makefile.PL' process after the specified time in seconds.
	180
	181	If you set this value to 0, these processes will wait forever.
	182
	183	};
	184
	185	$default = $CPAN::Config->{inactivity_timeout} \|\| 0;
	186	$CPAN::Config->{inactivity_timeout} =
	187	prompt("Timout for inacivity during Makefile.PL?",$default);
	188
da199366	189
	190	#
	191	# MIRRORED.BY
	192	#
10b2abe6	193
5f05dabc	194	$local = 'MIRRORED.BY';
05454584	195	$local = MM->catfile($CPAN::Config->{keep_source_where},"MIRRORED.BY") unless -f $local;
5f05dabc	196	if (@{$CPAN::Config->{urllist}\|\|[]}) {
	197	print qq{
	198	I found a list of URLs in CPAN::Config and will use this.
	199	You can change it later with the 'o conf' command.
	200
	201	}
05454584	202	} elsif (
	203	-s $local
	204	&&
	205	-M $local < 30
	206	) {
5f05dabc	207	read_mirrored_by($local);
	208	} else {
	209	$CPAN::Config->{urllist} \|\|= [];
	210	while (! @{$CPAN::Config->{urllist}}) {
05454584	211	my($input) = prompt(qq{
5f05dabc	212	We need to know the URL of your favorite CPAN site.
05454584	213	Please enter it here:});
	214	$input =~ s/\s//g;
	215	next unless $input;
	216	my($wanted) = "MIRRORED.BY";
	217	print qq{
	218	Testing "$input" ...
	219	};
	220	push @{$CPAN::Config->{urllist}}, $input;
	221	CPAN::FTP->localize($wanted,$local,"force");
	222	if (-s $local) {
	223	print qq{
	224	"$input" seems to work
	225	};
	226	} else {
	227	my $ans = prompt(qq{$input doesn\'t seem to work. Keep it in the list?},"n");
	228	last unless $ans =~ /^n/i;
	229	pop @{$CPAN::Config->{urllist}};
	230	}
5f05dabc	231	}
	232	}
	233
da199366	234	print qq{
da199366	235
05454584	236	WAIT support is available as a Plugin. You need the CPAN::WAIT module
	237	to actually use it. But we need to know your favorite WAIT server. If
	238	you don\'t know a WAIT server near you, just press ENTER.
	239
	240	};
	241
	242	$default = "wait://ls6.informatik.uni-dortmund.de:1404";
	243	$ans = prompt("Your favorite WAIT server?\n ",$default);
	244	push @{$CPAN::Config->{'wait_list'}}, $ans;
	245
	246	print qq{
	247
da199366	248	If you\'re accessing the net via proxies, you can specify them in the
	249	CPAN configuration or via environment variables. The variable in
	250	the \$CPAN::Config takes precedence.
	251
	252	};
	253
	254	for (qw/ftp_proxy http_proxy no_proxy/) {
	255	$default = $CPAN::Config->{$_} \|\| $ENV{$_};
	256	$CPAN::Config->{$_} = prompt("Your $_?",$default);
	257	}
	258
5f05dabc	259	# We don't ask that now, it will be noticed in time....
	260	$CPAN::Config->{'inhibit_startup_message'} = 0;
	261
	262	print "\n\n";
	263	CPAN::Config->commit($configpm);
	264	}
	265
	266	sub find_exe {
	267	my($exe,$path) = @_;
	268	my($dir,$MY);
	269	$MY = {};
	270	bless $MY, 'MY';
	271	for $dir (@$path) {
	272	my $abs = $MY->catfile($dir,$exe);
	273	if ($MY->maybe_command($abs)) {
	274	return $abs;
	275	}
	276	}
	277	}
	278
	279	sub read_mirrored_by {
	280	my($local) = @_;
	281	my(%all,$url,$expected_size,$default,$ans,$host,$dst,$country,$continent,@location);
05454584	282	my $fh = FileHandle->new;
	283	$fh->open($local) or die "Couldn't open $local: $!";
	284	while (<$fh>) {
5f05dabc	285	($host) = /^([\w\.\-]+)/ unless defined $host;
	286	next unless defined $host;
	287	next unless /\s+dst_(dst\|location)/;
	288	/location\s+=\s+\"([^\"]+)/ and @location = (split /\s,\s/, $1) and
	289	($continent, $country) = @location[-1,-2];
	290	$continent =~ s/\s\(.*//;
	291	/dst_dst\s+=\s+\"([^\"]+)/ and $dst = $1;
	292	next unless $host && $dst && $continent && $country;
	293	$all{$continent}{$country}{$dst} = CPAN::Mirrored::By->new($continent,$country,$dst);
	294	undef $host;
	295	$dst=$continent=$country="";
	296	}
05454584	297	$fh->close;
5f05dabc	298	$CPAN::Config->{urllist} \|\|= [];
	299	if ($expected_size = @{$CPAN::Config->{urllist}}) {
	300	for $url (@{$CPAN::Config->{urllist}}) {
	301	# sanity check, scheme+colon, not "q" there:
	302	next unless $url =~ /^\w+:\/./;
	303	$all{"[From previous setup]"}{"found URL"}{$url}=CPAN::Mirrored::By->new('[From previous setup]','found URL',$url);
	304	}
	305	$CPAN::Config->{urllist} = [];
	306	} else {
	307	$expected_size = 6;
	308	}
	309
	310	print qq{
	311
	312	Now we need to know, where your favorite CPAN sites are located. Push
	313	a few sites onto the array (just in case the first on the array won\'t
	314	work). If you are mirroring CPAN to your local workstation, specify a
	315	file: URL.
	316
	317	You can enter the number in front of the URL on the next screen, a
	318	file:, ftp: or http: URL, or "q" to finish selecting.
	319
	320	};
	321
	322	$ans = prompt("Press RETURN to continue");
	323	my $other;
	324	$ans = $other = "";
	325	my(%seen);
	326
	327	while () {
	328	my $pipe = -t *STDIN ? "\| $CPAN::Config->{'pager'}" : ">/dev/null";
	329	my(@valid,$previous_best);
05454584	330	my $fh = FileHandle->new;
05454584	331	$fh->open($pipe);
5f05dabc	332	{
	333	my($cont,$country,$url,$item);
	334	my(@cont) = sort keys %all;
	335	for $cont (@cont) {
05454584	336	$fh->print(" $cont\n");
5f05dabc	337	for $country (sort {lc $a cmp lc $b} keys %{$all{$cont}}) {
	338	for $url (sort {lc $a cmp lc $b} keys %{$all{$cont}{$country}}) {
	339	my $t = sprintf(
	340	" %-18s (%2d) %s\n",
	341	$country,
	342	++$item,
	343	$url
	344	);
	345	if ($cont =~ /^\[/) {
	346	$previous_best \|\|= $item;
	347	}
	348	push @valid, $all{$cont}{$country}{$url};
05454584	349	$fh->print($t);
5f05dabc	350	}
	351	}
	352	}
	353	}
5f05dabc	354	$previous_best \|\|= 1;
	355	$default =
	356	@{$CPAN::Config->{urllist}} >= $expected_size ? "q" : $previous_best;
	357	$ans = prompt(
	358	"\nSelect an$other ftp or file URL or a number (q to finish)",
	359	$default
	360	);
	361	my $sel;
	362	if ($ans =~ /^\d/) {
	363	my $this = $valid[$ans-1];
da199366	364	my($con,$cou,$url) = ($this->continent,$this->country,$this->url);
5f05dabc	365	push @{$CPAN::Config->{urllist}}, $url unless $seen{$url}++;
	366	delete $all{$con}{$cou}{$url};
	367	# print "Was a number [$ans] con[$con] cou[$cou] url[$url]\n";
	368	} elsif (@{$CPAN::Config->{urllist}} && $ans =~ /^q/i) {
	369	last;
	370	} else {
	371	$ans =~ s\|/?$\|/\|; # has to end with one slash
	372	$ans = "file:$ans" unless $ans =~ /:/; # without a scheme is a file:
	373	if ($ans =~ /^\w+:\/./) {
	374	push @{$CPAN::Config->{urllist}}, $ans unless $seen{$ans}++;
	375	} else {
	376	print qq{"$ans" doesn\'t look like an URL at first sight.
	377	I\'ll ignore it for now. You can add it to lib/CPAN/Config.pm
	378	later and report a bug in my Makefile.PL to me (andreas koenig).
	379	Thanks.\n};
	380	}
	381	}
	382	$other \|\|= "other";
	383	}
	384	}
	385
	386	1;