summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-text.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-06-04 07:56:53 +0000
committerNorbert Preining <preining@logic.at>2008-06-04 07:56:53 +0000
commit521246ba0df7c0f432d04afe3883edb371455e07 (patch)
tree901834fad806f556390299a3d3f174ec63a4fe3f /Master/tlpkg/installer/install-menu-text.pl
parent36a5045c67599bb8cde8ba2ab9b9e5aa40f6d8ab (diff)
installer: support TEXMFSYSCONFIG adjustment
git-svn-id: svn://tug.org/texlive/trunk@8542 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-text.pl')
-rwxr-xr-xMaster/tlpkg/installer/install-menu-text.pl25
1 files changed, 19 insertions, 6 deletions
diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl
index cbc9bb8e1eb..24082912096 100755
--- a/Master/tlpkg/installer/install-menu-text.pl
+++ b/Master/tlpkg/installer/install-menu-text.pl
@@ -426,13 +426,14 @@ sub directories_menu {
";
}
print <<"EOF";
- <1> TEXDIR: $vars{'TEXDIR'}
- support tree: $vars{'TEXDIR'}/texmf
+ <1> TEXDIR: $vars{'TEXDIR'}
+ support tree: $vars{'TEXDIR'}/texmf
- <2> TEXMFLOCAL: $vars{'TEXMFLOCAL'}
- <3> TEXMFSYSVAR: $vars{'TEXMFSYSVAR'}
+ <2> TEXMFLOCAL: $vars{'TEXMFLOCAL'}
+ <3> TEXMFSYSVAR: $vars{'TEXMFSYSVAR'}
+ <4> TEXMFSYSCONFIG: $vars{'TEXMFSYSCONFIG'}
- <4> TEXMFHOME: $vars{'TEXMFHOME'}
+ <5> TEXMFHOME: $vars{'TEXMFHOME'}
EOF
;
@@ -457,10 +458,12 @@ EOF
if ($vars{'TEXDIR'}=~/^(.*)\/$texlive_release$/) {
$vars{'TEXMFLOCAL'}="$1/texmf-local";
$vars{'TEXMFSYSVAR'}="$1/$texlive_release/texmf-var";
+ $vars{'TEXMFSYSCONFIG'}="$1/$texlive_release/texmf-config";
return $command{'self'};
} elsif ($vars{'TEXDIR'}=~/^(.*)$/) {
$vars{'TEXMFLOCAL'}="$1/texmf-local";
$vars{'TEXMFSYSVAR'}="$1/texmf-var";
+ $vars{'TEXMFSYSCONFIG'}="$1/texmf-config";
return $command{'self'};
}
}
@@ -481,6 +484,14 @@ EOF
return $command{'self'};
}
if ("\u$answer" eq '4') {
+ print "New value TEXMFSYSCONFIG [$vars{'TEXMFSYSCONFIG'}]: ";
+ chomp($answer=<STDIN>);
+ $vars{'TEXMFSYSCONFIG'}="$answer" if (length $answer);
+ $vars{'TEXMFSYSCONFIG'}=~s@\\@/@g if (win32);
+ $vars{'TEXMFSYSCONFIG'} =~ s/^~/$home/;
+ return $command{'self'};
+ }
+ if ("\u$answer" eq '5') {
print "New value TEXMFHOME [$vars{'TEXMFHOME'}]: ";
chomp($answer=<STDIN>);
$vars{'TEXMFHOME'}="$answer" if (length $answer);
@@ -800,8 +811,10 @@ EOF
print <<"EOF";
TEXMFLOCAL (Directory for local styles etc):
$vars{'TEXMFLOCAL'}
- TEXMFSYSVAR (Directory for local config):
+ TEXMFSYSVAR (Directory for variable and automatically generated data):
$vars{'TEXMFSYSVAR'}
+ TEXMFSYSCONFIG (Directory for local config):
+ $vars{'TEXMFSYSCONFIG'}
<O> options:
EOF