diff options
| author | Norbert Preining <preining@logic.at> | 2008-07-10 10:35:35 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2008-07-10 10:35:35 +0000 |
| commit | 8e85d1ab2ab6ba2ad123e83ac4e16a3d8153b1df (patch) | |
| tree | 8267bde6966588cd8b3d046425b6fb06f00e4090 /Master | |
| parent | 3726af04a35d7fbf92f6da3ecef2b54d238f27f6 (diff) | |
tlmgr/tlmgrgui: forgot to commit the part of process_logging_options support
for tlmgrgui, here it is.
git-svn-id: svn://tug.org/texlive/trunk@9428 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
| -rwxr-xr-x | Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl index 4259fc8914f..511b6608313 100755 --- a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl +++ b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl @@ -136,7 +136,6 @@ sub ___ ($) { } my $opt_location; -my $opt_debug = 0; my $opt_netarchive; my $opt_diskarchive; my $opt_screen; @@ -145,6 +144,8 @@ our $opt_force = 0; our $opt_nodepends = 0; my $opt_lang; +TeXLive::TLUtils::process_logging_options(); + GetOptions("location=s" => \$opt_location, "netarchive=s" => \$NetArchive, "diskarchive=s" => \$DiskArchive, @@ -153,7 +154,7 @@ GetOptions("location=s" => \$opt_location, "load" => \$opt_load, "lang=s" => \$opt_lang, "no-depends" => \$opt_nodepends, - "debug!" => \$opt_debug) or die("Unsupported argument!"); + ) or die("Unsupported argument!"); if (defined($opt_lang)) { $LANG = $opt_lang; @@ -164,7 +165,7 @@ if (defined($opt_lang)) { if ($foo) { $LANG = $foo; } else { - debug("Didn't get any usuful code from reg_country: $foo...\n"); + debug("Didn't get any useful code from reg_country: $foo...\n"); } } else { # we load POSIX and locale stuff @@ -205,6 +206,7 @@ if (defined($LANG) && (-r "$Master/texmf/scripts/texlive/tlmgrgui/lang/$LANG")) our @update_function_list; our $debugmode = 0; +$debugmode = 1 if ($::opt_verbosity > 0); our $mw = MainWindow->new(-title => "tlmgr 2008"); $mw->withdraw; @@ -466,7 +468,8 @@ sub install_selected_packages { my @execlist; push @execlist, "tlmgr", "--location", "$location"; if ($debugmode) { - push @execlist, "-v"; + push @execlist, "-v" if ($::opt_verbosity > 0); + push @execlist, "-v" if ($::opt_verbosity > 1); } push @execlist, "install"; if ($opt_nodepends) { |