summaryrefslogtreecommitdiff
path: root/Master/install-tl.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-01-09 13:15:53 +0000
committerNorbert Preining <preining@logic.at>2008-01-09 13:15:53 +0000
commitee1a04809137d89731d5084db7296979dac6cb89 (patch)
tree8a266ff0ea31301ed3ee269b424e18d11526a9da /Master/install-tl.pl
parent4141e69a42b45f87439e90778a3d31ee7a3e2537 (diff)
ok, working perl/tk installer
git-svn-id: svn://tug.org/texlive/trunk@6164 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/install-tl.pl')
-rwxr-xr-xMaster/install-tl.pl9
1 files changed, 7 insertions, 2 deletions
diff --git a/Master/install-tl.pl b/Master/install-tl.pl
index 1abd7324962..3809f077c5f 100755
--- a/Master/install-tl.pl
+++ b/Master/install-tl.pl
@@ -96,12 +96,14 @@ my $opt_media = "";
my $opt_url = "";
my $opt_profile = "";
my $opt_no_cls=0;
+my $opt_gui = 0;
$::netarchive = "archive";
$::diskarchive = "archive";
GetOptions("media=s" => \$opt_media,
"profile=s"=> \$opt_profile,
"no-cls",
+ "gui", \$opt_gui,
"netarchive=s" => \$::netarchive,
"diskarchive=s" => \$::diskarchive,
"url=s" => \$opt_url ) or die("No pod doc till now!");
@@ -171,8 +173,11 @@ if ($opt_profile eq "") {
our $MENU_INSTALL = 0;
our $MENU_ABORT = 1;
our $MENU_QUIT = 2;
- #require("TeXLive/install-menu-perltk.pl");
- require("TeXLive/install-menu-text.pl");
+ if ($opt_gui) {
+ require("TeXLive/install-menu-perltk.pl");
+ } else {
+ require("TeXLive/install-menu-text.pl");
+ }
my $ret = run_menu();
if ($ret == $MENU_QUIT) {
# do_cleanup(); MISSING