summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPostActions.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPostActions.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPostActions.pm24
1 files changed, 16 insertions, 8 deletions
diff --git a/Master/tlpkg/TeXLive/TLPostActions.pm b/Master/tlpkg/TeXLive/TLPostActions.pm
index 173cf6bb447..2f6e16f7cf4 100644
--- a/Master/tlpkg/TeXLive/TLPostActions.pm
+++ b/Master/tlpkg/TeXLive/TLPostActions.pm
@@ -28,7 +28,7 @@ our %PostRemove;
#
# bin-xetex
-#
+#
sub do_install_bin_xetex {
my ($texdir) = @_;
#
@@ -37,11 +37,11 @@ sub do_install_bin_xetex {
# - updated the installation path in bin/win32/conf/fonts.conf
# - call fc-cache -v
if (-r "$texdir/bin/win32/conf/fonts.conf") {
- open(FONTSCONF, "<$texdir/bin/win32/conf/fonts.conf")
+ open(FONTSCONF, "<$texdir/bin/win32/conf/fonts.conf")
or die("Cannot open $texdir/bin/win32/conf/fonts.conf");
my @lines = <FONTSCONF>;
close(FONTSCONF);
- open(FONTSCONF, ">$texdir/bin/win32/conf/fonts.conf")
+ open(FONTSCONF, ">$texdir/bin/win32/conf/fonts.conf")
or die("Cannot open $texdir/bin/win32/conf/fonts.conf for writing");
foreach (@lines) {
$_ =~ s!c:/Program Files/texlive/2008!$texdir!;
@@ -112,6 +112,10 @@ sub do_install_bin_tlpsv_win32 {
'', # no args
'batgui', # any non-null value to hide command-prompt
);
+ register_extension(".ps", "PostScript");
+ register_extension(".eps", "PostScript");
+ register_file_type("PostScript", $texdir.'/bin/win32/psv.bat');
+ update_assocs();
}
}
sub do_remove_bin_tlpsv_win32 {
@@ -119,6 +123,10 @@ sub do_remove_bin_tlpsv_win32 {
if (win32()) {
remove_desktop_shortcut('PS_View');
remove_menu_shortcut($mainmenu, 'PS_View');
+ unregister_extension(".ps");
+ unregister_extension(".eps");
+ unregister_file_type("PostScript");
+ update_assocs();
}
}
$PostRemove{'bin-tlpsv.win32'} = \&do_remove_bin_tlpsv_win32;
@@ -377,9 +385,9 @@ sub do_bin_dvipdfm {
}
# fix up dvipdfm config file to contain the right # piping command
mkdirhier("$TEXMFSYSVAR/dvipdfm/config");
- open(DVIPDFMCONFIGDIST, "<$TEXDIR/texmf/dvipdfm/config/config")
+ open(DVIPDFMCONFIGDIST, "<$TEXDIR/texmf/dvipdfm/config/config")
or die("Cannot open $TEXDIR/texmf/dvipdfm/config/config");
- open(DVIPDFMCONFIGINST, ">$TEXMFSYSVAR/dvipdfm/config/config")
+ open(DVIPDFMCONFIGINST, ">$TEXMFSYSVAR/dvipdfm/config/config")
or die("Cannot open $TEXMFSYSVAR/dvipdfm/config/config");
while (<DVIPDFMCONFIGDIST>) {
if (m/^D /) {
@@ -401,9 +409,9 @@ sub do_bin_dvipdfmx {
chomp($TEXMFSYSVAR);
}
# dvipdfmx.cfg
- open(DVIPDFMCONFIGDIST, "<$TEXDIR/texmf/dvipdfm/dvipdfmx.cfg")
+ open(DVIPDFMCONFIGDIST, "<$TEXDIR/texmf/dvipdfm/dvipdfmx.cfg")
or die("Cannot open $TEXDIR/texmf/dvipdfm/dvipdfmx.cfg");
- open(DVIPDFMCONFIGINST, ">$TEXMFSYSVAR/dvipdfm/dvipdfmx.cfg")
+ open(DVIPDFMCONFIGINST, ">$TEXMFSYSVAR/dvipdfm/dvipdfmx.cfg")
or die("Cannot open $TEXMFSYSVAR/dvipdfm/dvipdfmx.cfg");
while (<DVIPDFMCONFIGDIST>) {
# current dvipdfmx.cfg already contains the right rungs incantation
@@ -456,7 +464,7 @@ sub do_context {
chomp($TEXMFSYSVAR);
}
# old installer did this, should we do this, TOO????
- copy ("$TEXDIR/texmf-dist/tex/context/config/cont-usr.tex",
+ copy ("$TEXDIR/texmf-dist/tex/context/config/cont-usr.tex",
"$TEXMFSYSVAR/tex/context/config");
}
# $PostInstall{"context"} = \&do_context;