summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-text.pl
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2011-09-14 00:17:53 +0000
committerKarl Berry <karl@freefriends.org>2011-09-14 00:17:53 +0000
commitcd935b0b2cfa9922b17364f03c75d79da18c30e8 (patch)
tree8c1e03c053c0fb212b800f85ed8b30faeaa362df /Master/tlpkg/installer/install-menu-text.pl
parent582227ed022c3ea5efe93263d5da23745ce8384c (diff)
tweak appearance
git-svn-id: svn://tug.org/texlive/trunk@23943 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-text.pl')
-rwxr-xr-xMaster/tlpkg/installer/install-menu-text.pl19
1 files changed, 10 insertions, 9 deletions
diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl
index 5f4c4e07b55..59cc7d3e0ef 100755
--- a/Master/tlpkg/installer/install-menu-text.pl
+++ b/Master/tlpkg/installer/install-menu-text.pl
@@ -2,7 +2,7 @@
# $Id$
# install-menu-txt.pl
#
-# Copyright 2007, 2008, 2009, 2010 Norbert Preining, Karl Berry
+# Copyright 2007, 2008, 2009, 2010, 2011 Norbert Preining, Karl Berry
# Copyright 2007, 2008 Reinhard Kotucha
# This file is licensed under the GNU General Public License version 2
# or any later version.
@@ -117,7 +117,7 @@ sub run_menu_text {
# network is always available
my @mirror_list = TeXLive::TLUtils::create_mirror_list();
print "Please select a repository:\n";
- print "Network repositories:\n" if ($#media_available >= 0);
+ print "Network repositories:" if ($#media_available >= 0);
my @sel_to_index;
my $selind = 0;
# this is for 0 mirror.ctan.org, but it is printed last!
@@ -125,18 +125,19 @@ sub run_menu_text {
$selind++;
for my $i (0..$#mirror_list) {
if ($mirror_list[$i] !~ m/^ /) {
- print "$mirror_list[$i]\n";
+ print "\n$mirror_list[$i]\n";
} else {
+ print " " if 1 <= $selind && $selind <= 9; # align
print "[$selind] $mirror_list[$i]\n";
push @sel_to_index, $i;
$selind++;
}
}
- print "---\n";
+ print "----\n";
print "[0] default mirror - http://mirror.ctan.org\n";
my $local_ind = "a";
if ($#media_available >= 0) {
- print "Locally present repositories:\n";
+ print "Local repositories:\n";
# we have some local media present, propose to use it
for my $l (@media_available) {
my ($a, $b) = split ('#', $l);
@@ -154,7 +155,7 @@ sub run_menu_text {
$default = $local_ind;
$local_ind++;
} else {
- printf STDERR "Unknown media $l\n";
+ warn "$0: Unknown media $l";
}
}
}
@@ -180,7 +181,7 @@ sub run_menu_text {
print $selstr;
$ans = readline(*STDIN);
if (!defined($ans)) {
- print "Please select 'q' for quitting the program!\n";
+ print "Please select `q' to quit the program!\n";
} else {
chomp($ans);
$ans = $default if ($ans eq "");
@@ -203,10 +204,10 @@ sub run_menu_text {
$t =~ s/^[^#]*#//;
$::init_remote_needed = $t;
} elsif ($ans eq 'q' || $ans eq 'Q') {
- print "Good bye.\n";
+ print "Goodbye.\n";
exit 0;
} else {
- print "Not a valid answer.\n";
+ print "Not a valid answer: $ans.\n";
$ans = undef;
}
}