diff options
author | Norbert Preining <preining@logic.at> | 2008-05-06 07:02:12 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-05-06 07:02:12 +0000 |
commit | e0b8a010305fe41fb6388fa7e6280b3563a1dc41 (patch) | |
tree | 0101a0502c6f987899bc9f6be4030058d5b7cbed /Master | |
parent | 307dd09ad44284d3ccae4d47479f42adf6833c70 (diff) |
tlmgr --gui working
git-svn-id: svn://tug.org/texlive/trunk@7891 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl index 79363c66f77..b33a8dfb32c 100755 --- a/Master/texmf/scripts/texlive/tlmgr.pl +++ b/Master/texmf/scripts/texlive/tlmgr.pl @@ -65,13 +65,22 @@ my $opt_help = 0; my $opt_debug = 0; my $opt_netarchive; my $opt_diskarchive; +my $opt_gui = 0; GetOptions("location=s" => \$opt_location, "netarchive=s" => \$opt_netarchive, "diskarchive=s" => \$opt_diskarchive, + "gui" => \$opt_gui, "debug!", "h|help|?" => \$opt_help) or pod2usage(1); -my $action = shift; +my $action; +if ($opt_gui) { + $action = "gui"; + # ignore all other things +} else { + $action = shift; +} + if (!defined($action) && !$opt_help) { print "missing action\ntry 'tlmgr help' for more information.\n"; exit 1; |