summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlpostcode/texworks.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlpostcode/texworks.pl')
-rw-r--r--Master/tlpkg/tlpostcode/texworks.pl41
1 files changed, 0 insertions, 41 deletions
diff --git a/Master/tlpkg/tlpostcode/texworks.pl b/Master/tlpkg/tlpostcode/texworks.pl
deleted file mode 100644
index af0937a94e9..00000000000
--- a/Master/tlpkg/tlpostcode/texworks.pl
+++ /dev/null
@@ -1,41 +0,0 @@
-# $Id$
-# post action for texworks
-# Copyright 2009 Norbert Preining
-# This file is licensed under the GNU General Public License version 2
-# or any later version.
-
-my $texdir;
-my $mode;
-
-BEGIN {
- $^W = 1;
- $mode = $ARGV[0];
- $texdir = $ARGV[1];
- # make Perl find our packages first:
- unshift (@INC, "$texdir/tlpkg");
-}
-
-use TeXLive::TLUtils qw(win32 mkdirhier conv_to_w32_path log info tlwarn);
-
-if ($mode eq "install") {
- for my $f (<$texdir/bin/*>) {
- next if ! -d $f;
- open (TWI, ">$f/texworks-setup.ini")
- || tlwarn "Cannot open $f/texworks-setup.ini";
- print TWI "defaultbinpaths = $f\n";
- close TWI;
- }
-} elsif ($mode eq "remove") {
- unlink <$texdir/bin/texworks-setup.ini>;
-} else {
- tlwarn ("texworks post action: unknown mode $mode\n");
-}
-
-exit 0;
-
-### Local Variables:
-### perl-indent-level: 2
-### tab-width: 2
-### indent-tabs-mode: nil
-### End:
-# vim:set tabstop=2 expandtab: #