summaryrefslogtreecommitdiff
path: root/Master/texmf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf')
-rwxr-xr-xMaster/texmf/scripts/texlive/tl-package-manager.pl19
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) {