diff options
author | Norbert Preining <preining@logic.at> | 2008-04-17 08:50:52 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-04-17 08:50:52 +0000 |
commit | 879ffd96ec3bdc67834400d7537e8e75754077e7 (patch) | |
tree | bab5b6e43761f0a7f2c49bd8e22ef525c10d6746 /Master/texmf | |
parent | 31774a928820b9ede1b2624558c3dc725d8985fc (diff) |
add an option to change the default location
tlmgr default location http://....
git-svn-id: svn://tug.org/texlive/trunk@7467 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf')
-rwxr-xr-x | Master/texmf/scripts/texlive/tl-package-manager.pl | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/Master/texmf/scripts/texlive/tl-package-manager.pl b/Master/texmf/scripts/texlive/tl-package-manager.pl index 0fda2b2f1c6..44467737210 100755 --- a/Master/texmf/scripts/texlive/tl-package-manager.pl +++ b/Master/texmf/scripts/texlive/tl-package-manager.pl @@ -11,6 +11,11 @@ # - (?) removal does not remove created format files from TEXMFSYSVAR # - other features: dependency check?, ...? # - improve search function +# - list_archs and add_arch +# - cmd +# default <key> <value> +# sets the options in texlive.tlpdb +# done for location my $Master; @@ -130,6 +135,20 @@ if ($action =~ m/^generate$/i) { } # should we do some postinst actions? exit(0); +} elsif ($action =~ m/^default$/i) { + my $what = shift; + die("default needs at least one argument") unless defined($what); + if ($what =~ m/^location$/i) { + # changes the default location + my $loc = shift; + die("defaultlocation needs an argument") unless defined($loc); + print "Setting default location to $loc!\n"; + $localtlpdb->option_location($loc); + $localtlpdb->save; + } else { + warn "Setting other options currently not support, please edit texlive.tlpdb!"; + } + exit(0); } elsif ($action =~ m/^list$/i) { my $what = shift; if ($what =~ m/^collection/i) { |