summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-07-30 14:12:16 +0000
committerNorbert Preining <preining@logic.at>2009-07-30 14:12:16 +0000
commit7224071580baaad0937388994f5ba1f7ad89d089 (patch)
tree4de5b6cad15e768896819b927a96f6d9486561ce
parent03ab3b6a7d6b750b00bc8d786e4b088385af53bb (diff)
implement tlmgr conf matching texconfig conf
git-svn-id: svn://tug.org/texlive/trunk@14491 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgr.pl56
1 files changed, 56 insertions, 0 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl
index 168ec0fe9d7..8442b8fa1c6 100755
--- a/Master/texmf/scripts/texlive/tlmgr.pl
+++ b/Master/texmf/scripts/texlive/tlmgr.pl
@@ -408,6 +408,9 @@ sub execute_action {
} elsif ($action =~ m/^postaction$/i) {
action_postaction();
finish(0);
+ } elsif ($action =~ m/^conf$/i) {
+ action_conf();
+ finish(0);
} elsif ($action =~ m/^show$/i) {
action_show();
finish(0);
@@ -3096,6 +3099,55 @@ sub action_postaction {
}
+#
+# action conf
+# tries to mimick texconfig conf but probably will add some more things
+#
+sub action_conf {
+ my $PATH = $ENV{'PATH'};
+ info("=========================== version information ==========================\n");
+ info(give_version());
+ info("==================== binaries found by searching $PATH ===================\n");
+ for my $cmd (qw/kpsewhich updmap fmtutil texconfig tex pdftex mktexpk dvips dvipdfm/) {
+ info("$cmd: " . TeXLive::TLUtils::which($cmd) . "\n");
+ }
+ info("=========================== active config files ==========================\n");
+
+ for my $m (qw/texmf.cnf updmap.cfg fmtutil.cnf config.ps mktex.cnf pdftexconfig.tex/) {
+ info("$m: " . `kpsewhich $m`);
+ }
+
+ tlwarn("missing finding of XDvi, config!\n");
+
+ info("============================= font map files =============================\n");
+ for my $m (qw/psfonts.map pdftex.map ps2pk.map dvipdfm.map/) {
+ info("$m: " . `kpsewhich $m`);
+ }
+
+ info("=========================== kpathsea variables ===========================\n");
+ for my $v (qw/TEXMFMAIN TEXMFDIST TEXMFLOCAL TEXMFSYSVAR TEXMFSYSCONFIG TEXMFVAR TEXMFCONFIG TEXMFHOME VARTEXFONTS TEXMF SYSTEXMF TEXMFDBS WEB2C TEXPSHEADERS TEXCONFIG ENCFONTS TEXFONTMAPS/) {
+ info("$v=" . `kpsewhich -var-value=$v`);
+ }
+
+ info("==== kpathsea variables from environment only (ok if no output here) ====\n");
+ my @envVars = qw/
+ AFMFONTS BIBINPUTS BSTINPUTS CMAPFONTS CWEBINPUTS ENCFONTS GFFONTS
+ GLYPHFONTS INDEXSTYLE LIGFONTS MFBASES MFINPUTS MFPOOL MFTINPUTS
+ MISCFONTS MPINPUTS MPMEMS MPPOOL MPSUPPORT OCPINPUTS OFMFONTS
+ OPENTYPEFONTS OPLFONTS OTPINPUTS OVFFONTS OVPFONTS PDFTEXCONFIG PKFONTS
+ PSHEADERS SFDFONTS T1FONTS T1INPUTS T42FONTS TEXBIB TEXCONFIG TEXDOCS
+ TEXFONTMAPS TEXFONTS TEXFORMATS TEXINDEXSTYLE TEXINPUTS TEXMFCNF
+ TEXMFDBS TEXMFINI TEXMFSCRIPTS TEXPICTS TEXPKS TEXPOOL TEXPSHEADERS
+ TEXSOURCES TFMFONTS TRFONTS TTFONTS VFFONTS WEB2C WEBINPUTS
+ /;
+ for my $v (@envVars) {
+ if (defined($ENV{$v})) {
+ info("$v=$ENV{$v}\n");
+ }
+ }
+}
+
+
# Subroutines galore.
#
# set global $location variable.
@@ -3792,6 +3844,10 @@ The C<--> avoids having the C<-1> treated as an option. (In general,
C<--> stops parsing for arguments at the point where it appears; this is
a general feature of option parsing.)
+=head2 conf
+
+This option to tlmgr mimicks the B<texconfig conf> call, but works on
+all supported platforms.
=head2 path [add|remove]