1 files changed, 41 insertions, 0 deletions
diff --git a/Master/tlpkg/tlpostcode/texworks.pl b/Master/tlpkg/tlpostcode/texworks.pl
new file mode 100644
index 00000000000..af0937a94e9
--- /dev/null
+++ b/Master/tlpkg/tlpostcode/texworks.pl
@@ -0,0 +1,41 @@
+# $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: #