diff options
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) { |