From 17df465a2b2e511e4d540339804fff1bb1ea37a8 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Wed, 1 Jul 2009 00:58:23 +0000 Subject: removing texworks postaction texworks.pl, and activate the desktop link for texworks git-svn-id: svn://tug.org/texlive/trunk@14039 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/tlpostcode/texworks.pl | 41 ------------------------------------- 1 file changed, 41 deletions(-) delete mode 100644 Master/tlpkg/tlpostcode/texworks.pl (limited to 'Master/tlpkg/tlpostcode') 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: # -- cgit v1.2.3