[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.16 $, 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}};
	    }
	}
    }

    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....
    $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);
    
    my $pipe = -t *STDIN ? "| $CPAN::Config->{'pager'}" : ">/dev/null";
    while () {
	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);
		    }
		}
	    }
	}
	$fh->close;
	$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);
d4fd5c69	18	$VERSION = substr q$Revision: 1.16 $, 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
d4fd5c69	234	unless (@{$CPAN::Config->{'wait_list'}\|\|[]}) {
d4fd5c69	235	print qq{
da199366	236
05454584	237	WAIT support is available as a Plugin. You need the CPAN::WAIT module
	238	to actually use it. But we need to know your favorite WAIT server. If
	239	you don\'t know a WAIT server near you, just press ENTER.
	240
	241	};
d4fd5c69	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	}
05454584	246
	247	print qq{
	248
da199366	249	If you\'re accessing the net via proxies, you can specify them in the
	250	CPAN configuration or via environment variables. The variable in
	251	the \$CPAN::Config takes precedence.
	252
	253	};
	254
	255	for (qw/ftp_proxy http_proxy no_proxy/) {
	256	$default = $CPAN::Config->{$_} \|\| $ENV{$_};
	257	$CPAN::Config->{$_} = prompt("Your $_?",$default);
	258	}
	259
5f05dabc	260	# We don't ask that now, it will be noticed in time....
	261	$CPAN::Config->{'inhibit_startup_message'} = 0;
	262
	263	print "\n\n";
	264	CPAN::Config->commit($configpm);
	265	}
	266
	267	sub find_exe {
	268	my($exe,$path) = @_;
	269	my($dir,$MY);
	270	$MY = {};
	271	bless $MY, 'MY';
	272	for $dir (@$path) {
	273	my $abs = $MY->catfile($dir,$exe);
	274	if ($MY->maybe_command($abs)) {
	275	return $abs;
	276	}
	277	}
	278	}
	279
	280	sub read_mirrored_by {
	281	my($local) = @_;
	282	my(%all,$url,$expected_size,$default,$ans,$host,$dst,$country,$continent,@location);
05454584	283	my $fh = FileHandle->new;
	284	$fh->open($local) or die "Couldn't open $local: $!";
	285	while (<$fh>) {
5f05dabc	286	($host) = /^([\w\.\-]+)/ unless defined $host;
	287	next unless defined $host;
	288	next unless /\s+dst_(dst\|location)/;
	289	/location\s+=\s+\"([^\"]+)/ and @location = (split /\s,\s/, $1) and
	290	($continent, $country) = @location[-1,-2];
	291	$continent =~ s/\s\(.*//;
	292	/dst_dst\s+=\s+\"([^\"]+)/ and $dst = $1;
	293	next unless $host && $dst && $continent && $country;
	294	$all{$continent}{$country}{$dst} = CPAN::Mirrored::By->new($continent,$country,$dst);
	295	undef $host;
	296	$dst=$continent=$country="";
	297	}
05454584	298	$fh->close;
5f05dabc	299	$CPAN::Config->{urllist} \|\|= [];
	300	if ($expected_size = @{$CPAN::Config->{urllist}}) {
	301	for $url (@{$CPAN::Config->{urllist}}) {
	302	# sanity check, scheme+colon, not "q" there:
	303	next unless $url =~ /^\w+:\/./;
	304	$all{"[From previous setup]"}{"found URL"}{$url}=CPAN::Mirrored::By->new('[From previous setup]','found URL',$url);
	305	}
	306	$CPAN::Config->{urllist} = [];
	307	} else {
	308	$expected_size = 6;
	309	}
	310
	311	print qq{
	312
	313	Now we need to know, where your favorite CPAN sites are located. Push
	314	a few sites onto the array (just in case the first on the array won\'t
	315	work). If you are mirroring CPAN to your local workstation, specify a
	316	file: URL.
	317
	318	You can enter the number in front of the URL on the next screen, a
	319	file:, ftp: or http: URL, or "q" to finish selecting.
	320
	321	};
	322
	323	$ans = prompt("Press RETURN to continue");
	324	my $other;
	325	$ans = $other = "";
	326	my(%seen);
	327
d4fd5c69	328	my $pipe = -t *STDIN ? "\| $CPAN::Config->{'pager'}" : ">/dev/null";
5f05dabc	329	while () {
5f05dabc	330	my(@valid,$previous_best);
05454584	331	my $fh = FileHandle->new;
05454584	332	$fh->open($pipe);
5f05dabc	333	{
	334	my($cont,$country,$url,$item);
	335	my(@cont) = sort keys %all;
	336	for $cont (@cont) {
05454584	337	$fh->print(" $cont\n");
5f05dabc	338	for $country (sort {lc $a cmp lc $b} keys %{$all{$cont}}) {
	339	for $url (sort {lc $a cmp lc $b} keys %{$all{$cont}{$country}}) {
	340	my $t = sprintf(
	341	" %-18s (%2d) %s\n",
	342	$country,
	343	++$item,
	344	$url
	345	);
	346	if ($cont =~ /^\[/) {
	347	$previous_best \|\|= $item;
	348	}
	349	push @valid, $all{$cont}{$country}{$url};
05454584	350	$fh->print($t);
5f05dabc	351	}
	352	}
	353	}
	354	}
d4fd5c69	355	$fh->close;
5f05dabc	356	$previous_best \|\|= 1;
	357	$default =
	358	@{$CPAN::Config->{urllist}} >= $expected_size ? "q" : $previous_best;
	359	$ans = prompt(
	360	"\nSelect an$other ftp or file URL or a number (q to finish)",
	361	$default
	362	);
	363	my $sel;
	364	if ($ans =~ /^\d/) {
	365	my $this = $valid[$ans-1];
da199366	366	my($con,$cou,$url) = ($this->continent,$this->country,$this->url);
5f05dabc	367	push @{$CPAN::Config->{urllist}}, $url unless $seen{$url}++;
	368	delete $all{$con}{$cou}{$url};
	369	# print "Was a number [$ans] con[$con] cou[$cou] url[$url]\n";
	370	} elsif (@{$CPAN::Config->{urllist}} && $ans =~ /^q/i) {
	371	last;
	372	} else {
	373	$ans =~ s\|/?$\|/\|; # has to end with one slash
	374	$ans = "file:$ans" unless $ans =~ /:/; # without a scheme is a file:
	375	if ($ans =~ /^\w+:\/./) {
	376	push @{$CPAN::Config->{urllist}}, $ans unless $seen{$ans}++;
	377	} else {
	378	print qq{"$ans" doesn\'t look like an URL at first sight.
	379	I\'ll ignore it for now. You can add it to lib/CPAN/Config.pm
	380	later and report a bug in my Makefile.PL to me (andreas koenig).
	381	Thanks.\n};
	382	}
	383	}
	384	$other \|\|= "other";
	385	}
	386	}
	387
	388	1;