1 # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
2 package CPAN::Mirrored::By;
9 sub continent { shift->[0] }
10 sub country { shift->[1] }
11 sub url { shift->[2] }
13 package CPAN::FirstTime;
16 use ExtUtils::MakeMaker ();
18 use File::Basename ();
21 use vars qw($VERSION $urllist);
22 $VERSION = sprintf "%.6f", substr(q$Rev: 924 $,4)/1000000 + 5.4;
26 CPAN::FirstTime - Utility for CPAN::Config file Initialization
30 CPAN::FirstTime::init()
34 The init routine asks a few questions and writes a CPAN/Config.pm or
35 CPAN/MyConfig.pm file (depending on what it is currently using).
39 This program is free software; you can redistribute it and/or
40 modify it under the same terms as Perl itself.
44 use vars qw( %prompts );
47 my($configpm, %args) = @_;
49 # extra args after 'o conf init'
50 my $matcher = $args{args} && @{$args{args}} ? $args{args}[0] : '';
51 if ($matcher =~ /^\/(.*)\/$/) {
52 # case /regex/ => take the first, ignore the rest
57 $CPAN::Frontend->mywarn("Ignoring excessive arguments '@{$args{args}}'");
58 $CPAN::Frontend->mysleep(2);
60 } elsif (0 == length $matcher) {
62 # case WORD... => all arguments must be valid
63 for my $arg (@{$args{args}}) {
64 unless (exists $CPAN::HandleConfig::keys{$arg}) {
65 $CPAN::Frontend->mywarn("'$arg' is not a valid configuration variable");
69 $matcher = "\\b(".join("|",@{$args{args}}).")\\b";
71 CPAN->debug("matcher[$matcher]") if $CPAN::DEBUG;
73 unless ($CPAN::VERSION) {
76 require CPAN::HandleConfig;
77 CPAN::HandleConfig::require_myconfig_or_config();
90 $CPAN::Frontend->myprint($prompts{manual_config});
96 if ( $args{autoconfig} ) {
101 my $_conf = prompt("Would you like me to configure as much as possible ".
102 "automatically?", "yes");
103 $manual_conf = ($_conf and $_conf =~ /^y/i) ? "no" : "yes";
105 CPAN->debug("manual_conf[$manual_conf]") if $CPAN::DEBUG;
108 if ($manual_conf =~ /^y/i) {
112 $CPAN::Config->{urllist} ||= [];
115 # prototype should match that of &MakeMaker::prompt
116 my $current_second = time;
117 my $current_second_count = 0;
119 *_real_prompt = sub ($;$) {
121 my($ret) = defined $a ? $a : "";
122 $CPAN::Frontend->myprint(sprintf qq{%s [%s]\n\n}, $q, $ret);
123 eval { require Time::HiRes };
125 if (time == $current_second) {
126 $current_second_count++;
127 if ($current_second_count > 20) {
128 # I don't like more than 20 prompts per second
132 $current_second = time;
133 $current_second_count = 0;
134 $i_am_mad-- if $i_am_mad>0;
138 #Carp::cluck("SLEEEEEEEEPIIIIIIIIIIINGGGGGGGGGGG");
139 Time::HiRes::sleep(0.1);
147 if (!$matcher or 'cpan_home keep_source_where build_dir' =~ /$matcher/){
148 $CPAN::Frontend->myprint($prompts{config_intro});
150 if (!$matcher or 'cpan_home' =~ /$matcher/) {
151 my $cpan_home = $CPAN::Config->{cpan_home}
152 || File::Spec->catdir($ENV{HOME}, ".cpan");
155 $CPAN::Frontend->myprint(qq{
157 I see you already have a directory
159 Shall we use it as the general CPAN build and cache directory?
163 # no cpan-home, must prompt and get one
164 $CPAN::Frontend->myprint($prompts{cpan_home_where});
167 $default = $cpan_home;
168 while ($ans = prompt("CPAN build and cache directory?",$default)) {
169 unless (File::Spec->file_name_is_absolute($ans)) {
171 my $cwd = Cwd::cwd();
172 my $absans = File::Spec->catdir($cwd,$ans);
173 $CPAN::Frontend->mywarn("The path '$ans' is not an ".
174 "absolute path. Please specify ".
175 "an absolute path\n");
179 eval { File::Path::mkpath($ans); }; # dies if it can't
181 $CPAN::Frontend->mywarn("Couldn't create directory $ans.\n".
185 if (-d $ans && -w _) {
188 $CPAN::Frontend->mywarn("Couldn't find directory $ans\n".
189 "or directory is not writable. Please retry.\n");
192 $CPAN::Config->{cpan_home} = $ans;
195 if (!$matcher or 'keep_source_where' =~ /$matcher/) {
196 my_dflt_prompt("keep_source_where",
197 File::Spec->catdir($CPAN::Config->{cpan_home},"sources"),
202 if (!$matcher or 'build_dir' =~ /$matcher/) {
203 my_dflt_prompt("build_dir",
204 File::Spec->catdir($CPAN::Config->{cpan_home},"build"),
211 #= Cache size, Index expire
214 if (!$matcher or 'build_cache' =~ /$matcher/){
215 $CPAN::Frontend->myprint($prompts{build_cache_intro});
217 # large enough to build large dists like Tk
218 my_dflt_prompt(build_cache => 100, $matcher);
221 if (!$matcher or 'index_expire' =~ /$matcher/) {
222 $CPAN::Frontend->myprint($prompts{index_expire_intro});
224 my_dflt_prompt(index_expire => 1, $matcher);
227 if (!$matcher or 'scan_cache' =~ /$matcher/){
228 $CPAN::Frontend->myprint($prompts{scan_cache_intro});
230 my_prompt_loop(scan_cache => 'atstart', $matcher, 'atstart|never');
237 my_yn_prompt(cache_metadata => 1, $matcher);
240 #= Do we follow PREREQ_PM?
243 if (!$matcher or 'prerequisites_policy' =~ /$matcher/){
244 $CPAN::Frontend->myprint($prompts{prerequisites_policy_intro});
246 my_prompt_loop(prerequisites_policy => 'ask', $matcher,
247 'follow|ask|ignore');
250 if (!$matcher or 'build_requires_install_policy' =~ /$matcher/){
251 $CPAN::Frontend->myprint($prompts{build_requires_install_policy_intro});
253 my_prompt_loop(build_requires_install_policy => 'ask/yes', $matcher,
254 'yes|no|ask/yes|ask/no');
260 if (!$matcher or 'check_sigs' =~ /$matcher/) {
261 my_yn_prompt(check_sigs => 0, $matcher);
267 if (!$matcher or 'test_report' =~ /$matcher/) {
268 my_yn_prompt(test_report => 0, $matcher);
270 $CPAN::Config->{test_report} &&
271 $CPAN::META->has_inst("CPAN::Reporter") &&
272 CPAN::Reporter->can('configure')
274 $CPAN::Frontend->myprint("\nProceeding to configure CPAN::Reporter.\n");
275 CPAN::Reporter::configure();
276 $CPAN::Frontend->myprint("\nReturning to CPAN configuration.\n");
284 my @external_progs = qw/bzip2 gzip tar unzip make
285 curl lynx wget ncftpget ncftp ftp
287 my(@path) = split /$Config{'path_sep'}/, $ENV{'PATH'};
288 if (!$matcher or "@external_progs" =~ /$matcher/) {
289 $CPAN::Frontend->myprint($prompts{external_progs});
292 local $^W if $^O eq 'MacOS';
293 local $^W = $old_warn;
295 for $progname (@external_progs) {
296 next if $matcher && $progname !~ /$matcher/;
297 if ($^O eq 'MacOS') {
298 $CPAN::Config->{$progname} = 'not_here';
302 my $progcall = $progname;
304 # we really don't need ncftp if we have ncftpget, but
305 # if they chose this dialog via matcher, they shall have it
306 next if $progname eq "ncftp" && $CPAN::Config->{ncftpget} gt " ";
308 my $path = $CPAN::Config->{$progname}
309 || $Config::Config{$progname}
311 if (File::Spec->file_name_is_absolute($path)) {
312 # testing existence is not good enough, some have these exe
315 # warn "Warning: configured $path does not exist\n" unless -e $path;
317 } elsif ($path =~ /^\s+$/) {
318 # preserve disabled programs
324 $progcall = $Config::Config{$progname} if $Config::Config{$progname};
327 $path ||= find_exe($progcall,[@path]);
328 $CPAN::Frontend->mywarn("Warning: $progcall not found in PATH\n") unless
329 $path; # not -e $path, because find_exe already checked that
330 $ans = prompt("Where is your $progname program?",$path) || $path;
331 $CPAN::Config->{$progname} = $ans;
335 if (!$matcher or 'pager' =~ /$matcher/) {
336 my $path = $CPAN::Config->{'pager'} ||
337 $ENV{PAGER} || find_exe("less",[@path]) ||
338 find_exe("more",[@path]) || ($^O eq 'MacOS' ? $ENV{EDITOR} : 0 )
340 $ans = prompt("What is your favorite pager program?",$path);
341 $CPAN::Config->{'pager'} = $ans;
344 if (!$matcher or 'shell' =~ /$matcher/) {
345 my $path = $CPAN::Config->{'shell'};
346 if (File::Spec->file_name_is_absolute($path)) {
347 $CPAN::Frontend->mywarn("Warning: configured $path does not exist\n")
351 $path ||= $ENV{SHELL};
352 $path ||= $ENV{COMSPEC} if $^O eq "MSWin32";
353 if ($^O eq 'MacOS') {
354 $CPAN::Config->{'shell'} = 'not_here';
356 $path =~ s,\\,/,g if $^O eq 'os2'; # Cosmetic only
357 $ans = prompt("What is your favorite shell?",$path);
358 $CPAN::Config->{'shell'} = $ans;
363 #= Installer, arguments to make etc.
366 if (!$matcher or 'prefer_installer' =~ /$matcher/){
367 $CPAN::Frontend->myprint($prompts{prefer_installer_intro});
369 my_prompt_loop(prefer_installer => 'EUMM', $matcher, 'MB|EUMM');
372 if (!$matcher or 'makepl_arg make_arg' =~ /$matcher/){
373 $CPAN::Frontend->myprint($prompts{makepl_arg_intro});
375 my_dflt_prompt(makepl_arg => "", $matcher);
376 my_dflt_prompt(make_arg => "", $matcher);
379 require CPAN::HandleConfig;
380 if (exists $CPAN::HandleConfig::keys{make_install_make_command}) {
381 # as long as Windows needs $self->_build_command, we cannot
382 # support sudo on windows :-)
383 my_dflt_prompt(make_install_make_command => $CPAN::Config->{make} || "",
387 my_dflt_prompt(make_install_arg => $CPAN::Config->{make_arg} || "",
390 if (!$matcher or 'mbuildpl_arg mbuild_arg' =~ /$matcher/){
391 $CPAN::Frontend->myprint($prompts{mbuildpl_arg_intro});
393 my_dflt_prompt(mbuildpl_arg => "", $matcher);
395 my_dflt_prompt(mbuild_arg => "", $matcher);
398 if (exists $CPAN::HandleConfig::keys{mbuild_install_build_command}) {
399 # as long as Windows needs $self->_build_command, we cannot
400 # support sudo on windows :-)
401 my_dflt_prompt(mbuild_install_build_command => "./Build", $matcher);
404 my_dflt_prompt(mbuild_install_arg => "", $matcher);
410 if (!$matcher or 'inactivity_timeout' =~ /$matcher/) {
411 $CPAN::Frontend->myprint($prompts{inactivity_timeout_intro});
412 $default = $CPAN::Config->{inactivity_timeout} || 0;
413 $CPAN::Config->{inactivity_timeout} =
414 prompt("Timeout for inactivity during {Makefile,Build}.PL?",$default);
421 my @proxy_vars = qw/ftp_proxy http_proxy no_proxy/;
422 my @proxy_user_vars = qw/proxy_user proxy_pass/;
423 if (!$matcher or "@proxy_vars @proxy_user_vars" =~ /$matcher/){
424 $CPAN::Frontend->myprint($prompts{proxy_intro});
427 if (!$matcher or /$matcher/){
428 $default = $CPAN::Config->{$_} || $ENV{$_} || "";
429 $CPAN::Config->{$_} = prompt("Your $_?",$default);
433 if ($CPAN::Config->{ftp_proxy} ||
434 $CPAN::Config->{http_proxy}) {
436 $default = $CPAN::Config->{proxy_user} || $CPAN::LWP::UserAgent::USER || "";
438 $CPAN::Frontend->myprint($prompts{proxy_user});
440 if ($CPAN::Config->{proxy_user} = prompt("Your proxy user id?",$default)) {
441 $CPAN::Frontend->myprint($prompts{proxy_pass});
443 if ($CPAN::META->has_inst("Term::ReadKey")) {
444 Term::ReadKey::ReadMode("noecho");
446 $CPAN::Frontend->myprint($prompts{password_warn});
448 $CPAN::Config->{proxy_pass} = prompt_no_strip("Your proxy password?");
449 if ($CPAN::META->has_inst("Term::ReadKey")) {
450 Term::ReadKey::ReadMode("restore");
452 $CPAN::Frontend->myprint("\n\n");
461 my_yn_prompt(ftp_passive => 1, $matcher);
467 if (!$matcher or 'getcwd' =~ /$matcher/){
468 $CPAN::Frontend->myprint($prompts{getcwd_intro});
470 my_prompt_loop(getcwd => 'cwd', $matcher,
471 'cwd|getcwd|fastcwd|backtickcwd');
475 #= the CPAN shell itself
478 my_yn_prompt(commandnumber_in_prompt => 1, $matcher);
479 my_yn_prompt(term_ornaments => 1, $matcher);
480 if ("colorize_output colorize_print colorize_warn" =~ $matcher) {
481 my_yn_prompt(colorize_output => 0, $matcher);
482 if ($CPAN::Config->{colorize_output}) {
484 ["colorize_print", "bold blue on_white"],
485 ["colorize_warn", "bold red on_white"],
487 my_dflt_prompt($tuple->[0] => $tuple->[1], $matcher);
488 if ($CPAN::META->has_inst("Term::ANSIColor")) {
489 eval { Term::ANSIColor::color($CPAN::Config->{$tuple->[0]})};
491 $CPAN::Config->{$tuple->[0]} = $tuple->[1];
492 $CPAN::Frontend->mywarn($@."setting to default '$tuple->[1]'\n");
503 if (!$matcher or 'term_is_latin' =~ /$matcher/){
504 $CPAN::Frontend->myprint($prompts{term_is_latin});
505 my_yn_prompt(term_is_latin => 1, $matcher);
509 #== save history in file 'histfile'
512 if (!$matcher or 'histfile histsize' =~ /$matcher/) {
513 $CPAN::Frontend->myprint($prompts{histfile_intro});
514 defined($default = $CPAN::Config->{histfile}) or
515 $default = File::Spec->catfile($CPAN::Config->{cpan_home},"histfile");
516 $ans = prompt("File to save your history?", $default);
517 $CPAN::Config->{histfile} = $ans;
519 if ($CPAN::Config->{histfile}) {
520 defined($default = $CPAN::Config->{histsize}) or $default = 100;
521 $ans = prompt("Number of lines to save?", $default);
522 $CPAN::Config->{histsize} = $ans;
527 #== do an ls on the m or the d command
529 if (!$matcher or 'show_upload_date' =~ /$matcher/) {
530 $CPAN::Frontend->myprint($prompts{show_upload_date_intro});
532 defined($default = $CPAN::Config->{show_upload_date}) or
534 $ans = prompt("Always try to show upload date with 'd' and 'm' command (yes/no)?",
535 ($default ? 'yes' : 'no'));
536 $CPAN::Config->{show_upload_date} = ($ans =~ /^[y1]/i ? 1 : 0);
540 #= MIRRORED.BY and conf_sites()
544 if ("urllist" =~ $matcher) {
545 # conf_sites would go into endless loop with the smash prompt
547 *_real_prompt = \&CPAN::Shell::colorable_makemaker_prompt;
550 } elsif ($fastread) {
551 $CPAN::Frontend->myprint("Autoconfigured everything but 'urllist'.\n".
552 "Please call 'o conf init urllist' to configure ".
553 "your CPAN server(s) now!");
558 # We don't ask this one now, it's plain silly and maybe is not
559 # even used correctly everywhere.
560 $CPAN::Config->{inhibit_startup_message} = 0;
562 $CPAN::Frontend->myprint("\n\n");
564 $CPAN::Frontend->myprint("Please remember to call 'o conf commit' to ".
565 "make the config permanent!\n\n");
567 CPAN::HandleConfig->commit($configpm);
572 my ($item, $dflt, $m) = @_;
573 my $default = $CPAN::Config->{$item} || $dflt;
576 if (!$m || $item =~ /$m/) {
577 $CPAN::Config->{$item} = prompt($prompts{$item}, $default);
579 $CPAN::Config->{$item} = $default;
584 my ($item, $dflt, $m) = @_;
586 defined($default = $CPAN::Config->{$item}) or $default = $dflt;
589 if (!$m || $item =~ /$m/) {
590 if (my $intro = $prompts{$item . "_intro"}) {
591 $CPAN::Frontend->myprint($intro);
593 my $ans = prompt($prompts{$item}, $default ? 'yes' : 'no');
594 $CPAN::Config->{$item} = ($ans =~ /^[y1]/i ? 1 : 0);
596 $CPAN::Config->{$item} = $default;
601 my ($item, $dflt, $m, $ok) = @_;
602 my $default = $CPAN::Config->{$item} || $dflt;
606 if (!$m || $item =~ /$m/) {
607 do { $ans = prompt($prompts{$item}, $default);
608 } until $ans =~ /$ok/;
609 $CPAN::Config->{$item} = $ans;
611 $CPAN::Config->{$item} = $default;
617 my $m = 'MIRRORED.BY';
618 my $mby = File::Spec->catfile($CPAN::Config->{keep_source_where},$m);
619 File::Path::mkpath(File::Basename::dirname($mby));
620 if (-f $mby && -f $m && -M $m < -M $mby) {
622 File::Copy::copy($m,$mby) or die "Could not update $mby: $!";
626 my $overwrite_local = 0;
627 if ($mby && -f $mby && -M _ <= 60 && -s _ > 0) {
628 my $mtime = localtime((stat _)[9]);
629 my $prompt = qq{Found $mby as of $mtime
631 I\'d use that as a database of CPAN sites. If that is OK for you,
632 please answer 'y', but if you want me to get a new database now,
633 please answer 'n' to the following question.
635 Shall I use the local database in $mby?};
636 my $ans = prompt($prompt,"y");
637 $overwrite_local = 1 unless $ans =~ /^y/i;
640 if ($overwrite_local) {
641 $CPAN::Frontend->myprint(qq{Trying to overwrite $mby\n});
642 $mby = CPAN::FTP->localize($m,$mby,3);
643 $overwrite_local = 0;
644 } elsif ( ! -f $mby ){
645 $CPAN::Frontend->myprint(qq{You have no $mby\n I\'m trying to fetch one\n});
646 $mby = CPAN::FTP->localize($m,$mby,3);
647 } elsif (-M $mby > 60 && $loopcount == 0) {
648 $CPAN::Frontend->myprint(qq{Your $mby is older than 60 days,\n I\'m trying }.
650 $mby = CPAN::FTP->localize($m,$mby,3);
652 } elsif (-s $mby == 0) {
653 $CPAN::Frontend->myprint(qq{You have an empty $mby,\n I\'m trying to fetch one\n});
654 $mby = CPAN::FTP->localize($m,$mby,3);
660 read_mirrored_by($mby);
662 $CPAN::Config->{urllist} = $urllist;
668 #warn "in find_exe exe[$exe] path[@$path]";
670 my $abs = File::Spec->catfile($dir,$exe);
671 if (($abs = MM->maybe_command($abs))) {
678 my($items,$prompt,$default,$require_nonempty,$empty_warning)=@_;
679 CPAN->debug("picklist('$items','$prompt','$default','$require_nonempty',".
680 "'$empty_warning')") if $CPAN::DEBUG;
686 SELECTION: while (1) {
688 # display, at most, 15 items at a time
689 my $limit = $#{ $items } - $pos;
690 $limit = 15 if $limit > 15;
692 # show the next $limit items, get the new position
693 $pos = display_some($items, $limit, $pos, $default);
694 $pos = 0 if $pos >= @$items;
696 my $num = prompt($prompt,$default);
698 @nums = split (' ', $num);
701 @nums = grep { !$seen{$_}++ } @nums;
703 my $i = scalar @$items;
705 if (grep (/\D/ || $_ < 1 || $_ > $i, @nums)){
706 $CPAN::Frontend->mywarn("invalid items entered, try again\n");
707 if ("@nums" =~ /\D/) {
708 $CPAN::Frontend->mywarn("(we are expecting only numbers between 1 and $i)\n");
712 if ($require_nonempty && !@nums) {
713 $CPAN::Frontend->mywarn("$empty_warning\n");
715 $CPAN::Frontend->myprint("\n");
717 # a blank line continues...
718 next SELECTION unless @nums;
728 while (@{$nums||[]}) {
729 my $n = shift @$nums;
730 if ($n =~ /^(\d+)-(\d+)$/) {
731 my @range = $1 .. $2;
732 # warn "range[@range]";
742 my ($items, $limit, $pos, $default) = @_;
745 my @displayable = @$items[$pos .. ($pos + $limit)];
746 for my $item (@displayable) {
747 $CPAN::Frontend->myprint(sprintf "(%d) %s\n", ++$pos, $item);
749 my $hit_what = $default ? "SPACE RETURN" : "RETURN";
750 $CPAN::Frontend->myprint(sprintf("%d more items, hit %s to show them\n",
758 sub read_mirrored_by {
759 my $local = shift or return;
760 my(%all,$url,$expected_size,$default,$ans,$host,
761 $dst,$country,$continent,@location);
762 my $fh = FileHandle->new;
763 $fh->open($local) or die "Couldn't open $local: $!";
766 ($host) = /^([\w\.\-]+)/ unless defined $host;
767 next unless defined $host;
768 next unless /\s+dst_(dst|location)/;
769 /location\s+=\s+\"([^\"]+)/ and @location = (split /\s*,\s*/, $1) and
770 ($continent, $country) = @location[-1,-2];
771 $continent =~ s/\s\(.*//;
772 $continent =~ s/\W+$//; # if Jarkko doesn't know latitude/longitude
773 /dst_dst\s+=\s+\"([^\"]+)/ and $dst = $1;
774 next unless $host && $dst && $continent && $country;
775 $all{$continent}{$country}{$dst} = CPAN::Mirrored::By->new($continent,$country,$dst);
777 $dst=$continent=$country="";
780 $CPAN::Config->{urllist} ||= [];
781 my @previous_urls = @{$CPAN::Config->{urllist}};
783 $CPAN::Frontend->myprint($prompts{urls_intro});
785 my (@cont, $cont, %cont, @countries, @urls, %seen);
786 my $no_previous_warn =
787 "Sorry! since you don't have any existing picks, you must make a\n" .
788 "geographic selection.";
789 my $offer_cont = [sort keys %all];
790 if (@previous_urls) {
791 push @$offer_cont, "(edit previous picks)";
792 $default = @$offer_cont;
794 @cont = picklist($offer_cont,
795 "Select your continent (or several nearby continents)",
801 foreach $cont (@cont) {
802 my @c = sort keys %{$all{$cont}};
803 @cont{@c} = map ($cont, 0..$#c);
804 @c = map ("$_ ($cont)", @c) if @cont > 1;
805 push (@countries, @c);
807 if (@previous_urls && @countries) {
808 push @countries, "(edit previous picks)";
809 $default = @countries;
813 @countries = picklist (\@countries,
814 "Select your country (or several nearby countries)",
818 %seen = map (($_ => 1), @previous_urls);
819 # hmmm, should take list of defaults from CPAN::Config->{'urllist'}...
820 foreach $country (@countries) {
821 next if $country =~ /edit previous picks/;
822 (my $bare_country = $country) =~ s/ \(.*\)//;
823 my @u = sort keys %{$all{$cont{$bare_country}}{$bare_country}};
824 @u = grep (! $seen{$_}, @u);
825 @u = map ("$_ ($bare_country)", @u)
830 push (@urls, map ("$_ (previous pick)", @previous_urls));
831 my $prompt = "Select as many URLs as you like (by number),
832 put them on one line, separated by blanks, hyphenated ranges allowed
833 e.g. '1 4 5' or '7 1-4 8'";
834 if (@previous_urls) {
835 $default = join (' ', ((scalar @urls) - (scalar @previous_urls) + 1) ..
837 $prompt .= "\n(or just hit RETURN to keep your previous picks)";
840 @urls = picklist (\@urls, $prompt, $default);
841 foreach (@urls) { s/ \(.*\)//; }
842 push @$urllist, @urls;
846 my %seen = map (($_ => 1), @$urllist);
849 my $prompt = "Enter another URL or RETURN to quit:";
851 $prompt = qq{CPAN.pm needs at least one URL where it can fetch CPAN files from.
853 Please enter your CPAN site:};
855 $ans = prompt ($prompt, "");
858 $ans =~ s|/?\z|/|; # has to end with one slash
859 $ans = "file:$ans" unless $ans =~ /:/; # without a scheme is a file:
860 if ($ans =~ /^\w+:\/./) {
861 push @urls, $ans unless $seen{$ans}++;
864 myprint(sprintf(qq{"%s" doesn\'t look like an URL at first sight.
865 I\'ll ignore it for now.
866 You can add it to your %s
867 later if you\'re sure it\'s right.\n},
869 $INC{'CPAN/MyConfig.pm'}
870 || $INC{'CPAN/Config.pm'}
871 || "configuration file",
875 } while $ans || !%seen;
877 push @$urllist, @urls;
878 # xxx delete or comment these out when you're happy that it works
879 $CPAN::Frontend->myprint("New set of picks:\n");
880 map { $CPAN::Frontend->myprint(" $_\n") } @$urllist;
885 $_[0] =~ s/^\s+//; # no leading spaces
886 $_[0] =~ s/\s+\z//; # no trailing spaces
890 unless (defined &_real_prompt) {
891 *_real_prompt = \&CPAN::Shell::colorable_makemaker_prompt;
893 my $ans = _real_prompt(@_);
901 sub prompt_no_strip ($;$) {
902 return _real_prompt(@_);
912 CPAN is the world-wide archive of perl resources. It consists of about
913 300 sites that all replicate the same contents around the globe. Many
914 countries have at least one CPAN site already. The resources found on
915 CPAN are easily accessible with the CPAN.pm module. If you want to use
916 CPAN.pm, lots of things have to be configured. Fortunately, most of
917 them can be determined automatically. If you prefer the automatic
918 configuration, answer 'yes' below.
920 If you prefer to enter a dialog instead, you can answer 'no' to this
921 question and I'll let you configure in small steps one thing after the
922 other. (Note: you can revisit this dialog anytime later by typing 'o
923 conf init' at the cpan prompt.)
929 The following questions are intended to help you with the
930 configuration. The CPAN module needs a directory of its own to cache
931 important index files and maybe keep a temporary mirror of CPAN files.
932 This may be a site-wide directory or a personal directory.
936 # cpan_home => qq{ },
938 cpan_home_where => qq{
940 First of all, I\'d like to create this directory. Where?
944 keep_source_where => qq{
946 Unless you are accessing the CPAN via the filesystem directly CPAN.pm
947 needs to keep the source files it downloads somewhere. Please supply a
948 directory where the downloaded files are to be kept.},
950 build_cache_intro => qq{
952 How big should the disk cache be for keeping the build directories
953 with all the intermediate files\?
958 "Cache size for build directory (in MB)?",
962 "Directory where the build process takes place?",
964 scan_cache_intro => qq{
966 By default, each time the CPAN module is started, cache scanning is
967 performed to keep the cache size in sync. To prevent this, answer
972 scan_cache => "Perform cache scanning (atstart or never)?",
974 cache_metadata_intro => qq{
976 To considerably speed up the initial CPAN shell startup, it is
977 possible to use Storable to create a cache of metadata. If Storable
978 is not available, the normal index mechanism will be used.
982 cache_metadata => qq{Cache metadata (yes/no)?},
984 term_is_latin_intro => qq{
986 The next option deals with the charset (aka character set) your
987 terminal supports. In general, CPAN is English speaking territory, so
988 the charset does not matter much, but some of the aliens out there who
989 upload their software to CPAN bear names that are outside the ASCII
990 range. If your terminal supports UTF-8, you should say no to the next
991 question. If it supports ISO-8859-1 (also known as LATIN1) then you
992 should say yes. If it supports neither, your answer does not matter
993 because you will not be able to read the names of some authors
994 anyway. If you answer no, names will be output in UTF-8.
998 term_is_latin => qq{Your terminal expects ISO-8859-1 (yes/no)?},
1000 histfile_intro => qq{
1002 If you have one of the readline packages (Term::ReadLine::Perl,
1003 Term::ReadLine::Gnu, possibly others) installed, the interactive CPAN
1004 shell will have history support. The next two questions deal with the
1005 filename of the history file and with its size. If you do not want to
1006 set this variable, please hit SPACE RETURN to the following question.
1010 histfile => qq{File to save your history?},
1012 show_upload_date_intro => qq{
1014 The 'd' and the 'm' command normally only show you information they
1015 have in their in-memory database and thus will never connect to the
1016 internet. If you set the 'show_upload_date' variable to true, 'm' and
1017 'd' will additionally show you the upload date of the module or
1018 distribution. Per default this feature is off because it may require a
1019 net connection to get at the upload date.
1024 "Always try to show upload date with 'd' and 'm' command (yes/no)?",
1026 prerequisites_policy_intro => qq{
1028 The CPAN module can detect when a module which you are trying to build
1029 depends on prerequisites. If this happens, it can build the
1030 prerequisites for you automatically ('follow'), ask you for
1031 confirmation ('ask'), or just ignore them ('ignore'). Please set your
1032 policy to one of the three values.
1036 prerequisites_policy =>
1037 "Policy on building prerequisites (follow, ask or ignore)?",
1039 check_sigs_intro => qq{
1041 CPAN packages can be digitally signed by authors and thus verified
1042 with the security provided by strong cryptography. The exact mechanism
1043 is defined in the Module::Signature module. While this is generally
1044 considered a good thing, it is not always convenient to the end user
1045 to install modules that are signed incorrectly or where the key of the
1046 author is not available or where some prerequisite for
1047 Module::Signature has a bug and so on.
1049 With the check_sigs parameter you can turn signature checking on and
1050 off. The default is off for now because the whole tool chain for the
1051 functionality is not yet considered mature by some. The author of
1052 CPAN.pm would recommend setting it to true most of the time and
1053 turning it off only if it turns out to be annoying.
1055 Note that if you do not have Module::Signature installed, no signature
1056 checks will be performed at all.
1061 qq{Always try to check and verify signatures if a SIGNATURE file is in the package
1062 and Module::Signature is installed (yes/no)?},
1064 test_report_intro =>
1067 The goal of the CPAN Testers project (http://testers.cpan.org/) is to
1068 test as many CPAN packages as possible on as many platforms as
1069 possible. This provides valuable feedback to module authors and
1070 potential users to identify bugs or platform compatibility issues and
1071 improves the overall quality and value of CPAN.
1073 One way you can contribute is to send test results for each module
1074 that you install. If you install the CPAN::Reporter module, you have
1075 the option to automatically generate and email test reports to CPAN
1076 Testers whenever you run tests on a CPAN package.
1078 See the CPAN::Reporter documentation for additional details and
1079 configuration settings. If your firewall blocks outgoing email,
1080 you will need to configure CPAN::Reporter before sending reports.
1085 qq{Email test reports if CPAN::Reporter is installed (yes/no)?},
1087 external_progs => qq{
1089 The CPAN module will need a few external programs to work properly.
1090 Please correct me, if I guess the wrong path for a program. Don\'t
1091 panic if you do not have some of them, just press ENTER for those. To
1092 disable the use of a program, you can type a space followed by ENTER.
1096 prefer_installer_intro => qq{
1098 When you have Module::Build installed and a module comes with both a
1099 Makefile.PL and a Build.PL, which shall have precedence? The two
1100 installer modules we have are the old and well established
1101 ExtUtils::MakeMaker (for short: EUMM) which uses the Makefile.PL and
1102 the next generation installer Module::Build (MB) works with the
1108 qq{In case you could choose, which installer would you prefer (EUMM or MB)?},
1110 makepl_arg_intro => qq{
1112 Every Makefile.PL is run by perl in a separate process. Likewise we
1113 run \'make\' and \'make install\' in separate processes. If you have
1114 any parameters \(e.g. PREFIX, LIB, UNINST or the like\) you want to
1115 pass to the calls, please specify them here.
1117 If you don\'t understand this question, just press ENTER.
1121 Parameters for the 'perl Makefile.PL' command?
1122 Typical frequently used settings:
1124 PREFIX=~/perl # non-root users (please see manual for more hints)
1128 make_arg => qq{Parameters for the 'make' command?
1129 Typical frequently used setting:
1131 -j3 # dual processor system
1136 make_install_make_command => qq{Do you want to use a different make command for 'make install'?
1137 Cautious people will probably prefer:
1143 /path1/to/sudo -u admin_account /path2/to/make
1145 or some such. Your choice: },
1148 make_install_arg => qq{Parameters for the 'make install' command?
1149 Typical frequently used setting:
1151 UNINST=1 # to always uninstall potentially conflicting files
1156 mbuildpl_arg_intro => qq{
1158 The next questions deal with Module::Build support.
1160 A Build.PL is run by perl in a separate process. Likewise we run
1161 './Build' and './Build install' in separate processes. If you have any
1162 parameters you want to pass to the calls, please specify them here.
1166 mbuildpl_arg => qq{Parameters for the 'perl Build.PL' command?
1167 Typical frequently used settings:
1169 --install_base /home/xxx # different installation directory
1173 mbuild_arg => qq{Parameters for the './Build' command?
1176 --extra_linker_flags -L/usr/foo/lib # non-standard library location
1181 mbuild_install_build_command => qq{Do you want to use a different command for './Build install'?
1182 Sudo users will probably prefer:
1188 /path1/to/sudo -u admin_account ./Build
1190 or some such. Your choice: },
1193 mbuild_install_arg => qq{Parameters for the './Build install' command?
1194 Typical frequently used setting:
1196 --uninst 1 # uninstall conflicting files
1202 inactivity_timeout_intro => qq{
1204 Sometimes you may wish to leave the processes run by CPAN alone
1205 without caring about them. Because the Makefile.PL or the Build.PL
1206 sometimes contains question you\'re expected to answer, you can set a
1207 timer that will kill a 'perl Makefile.PL' process after the specified
1210 If you set this value to 0, these processes will wait forever. This is
1211 the default and recommended setting.
1215 inactivity_timeout =>
1216 qq{Timeout for inactivity during {Makefile,Build}.PL? },
1221 If you\'re accessing the net via proxies, you can specify them in the
1222 CPAN configuration or via environment variables. The variable in
1223 the \$CPAN::Config takes precedence.
1229 If your proxy is an authenticating proxy, you can store your username
1230 permanently. If you do not want that, just press RETURN. You will then
1231 be asked for your username in every future session.
1237 Your password for the authenticating proxy can also be stored
1238 permanently on disk. If this violates your security policy, just press
1239 RETURN. You will then be asked for the password in every future
1246 Now we need to know where your favorite CPAN sites are located. Push
1247 a few sites onto the array (just in case the first on the array won\'t
1248 work). If you are mirroring CPAN to your local workstation, specify a
1251 First, pick a nearby continent and country by typing in the number(s)
1252 in front of the item(s) you want to select. You can pick several of
1253 each, separated by spaces. Then, you will be presented with a list of
1254 URLs of CPAN mirrors in the countries you selected, along with
1255 previously selected URLs. Select some of those URLs, or just keep the
1256 old list. Finally, you will be prompted for any extra URLs -- file:,
1257 ftp:, or http: -- that host a CPAN mirror.
1261 password_warn => qq{
1263 Warning: Term::ReadKey seems not to be available, your password will
1264 be echoed to the terminal!
1268 commandnumber_in_prompt => qq{
1270 The prompt of the cpan shell can contain the current command number
1271 for easier tracking of the session or be a plain string. Do you want
1272 the command number in the prompt (yes/no)?},
1276 Shall we always set FTP_PASSIVE envariable when dealing with ftp
1277 download (yes/no)?},
1279 # taken from the manpage:
1282 CPAN.pm changes the current working directory often and needs to
1283 determine its own current working directory. Per default it uses
1284 Cwd::cwd but if this doesn't work on your system for some reason,
1285 alternatives can be configured according to the following table:
1289 fastcwd Cwd::fastcwd
1290 backtickcwd external command cwd
1294 getcwd => qq{Preferred method for determining the current working directory?},
1296 index_expire_intro => qq{
1298 The CPAN indexes are usually rebuilt once or twice per hour, but the
1299 typical CPAN mirror mirrors only once or twice per day. Depending on
1300 the quality of your mirror and your desire to be on the bleeding edge,
1301 you may want to set the following value to more or less than one day
1302 (which is the default). It determines after how many days CPAN.pm
1303 downloads new indexes.
1307 index_expire => qq{Let the index expire after how many days?},
1309 term_ornaments => qq{
1311 When using Term::ReadLine, you can turn ornaments on so that your
1312 input stands out against the output from CPAN.pm. Do you want to turn
1315 colorize_output => qq{
1317 When you have Term::ANSIColor installed, you can turn on colorized
1318 output to have some visual differences between normal CPAN.pm output,
1319 warnings, and the output of the modules being installed. Set your
1320 favorite colors after some experimenting with the Term::ANSIColor
1321 module. Do you want to turn on colored output?},
1323 colorize_print => qq{Color for normal output?},
1325 colorize_warn => qq{Color for warnings?},
1327 build_requires_install_policy_intro => qq{
1329 When a module declares another one as a 'build_requires' prerequisite
1330 this means that the other module is only needed for building or
1331 testing the module but need not be installed permanently. In this case
1332 you may wish to install that other module nonetheless or just keep it
1333 in the 'build_dir' directory to have it available only temporarily.
1334 Installing saves time on future installations but makes the perl
1335 installation bigger.
1337 You can choose if you want to always install (yes), never install (no)
1338 or be always asked. In the latter case you can set the default answer
1339 for the question to yes (ask/yes) or no (ask/no).
1343 build_requires_install_policy =>
1344 qq{Policy on installing 'build_requires' modules (yes, no, ask/yes,
1349 die "Coding error in \@prompts declaration. Odd number of elements, above"
1352 %prompts = @prompts;
1354 if (scalar(keys %prompts) != scalar(@prompts)/2) {
1356 for my $item (0..$#prompts) {
1358 die "$prompts[$item] is duplicated\n" if $already{$prompts[$item]}++;