diff options
author | Norbert Preining <preining@logic.at> | 2008-06-04 07:56:53 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-06-04 07:56:53 +0000 |
commit | 521246ba0df7c0f432d04afe3883edb371455e07 (patch) | |
tree | 901834fad806f556390299a3d3f174ec63a4fe3f /Master/tlpkg/installer/install-menu-text.pl | |
parent | 36a5045c67599bb8cde8ba2ab9b9e5aa40f6d8ab (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-x | Master/tlpkg/installer/install-menu-text.pl | 25 |
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 |