From 8e85d1ab2ab6ba2ad123e83ac4e16a3d8153b1df Mon Sep 17 00:00:00 2001
From: Norbert Preining <preining@logic.at>
Date: Thu, 10 Jul 2008 10:35:35 +0000
Subject: 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
---
 Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl | 11 +++++++----
 1 file 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) {
-- 
cgit v1.2.3