1# Set up mailagent and filter paths 2 3;# $Id$ 4;# 5;# Copyright (c) 1990-2006, Raphael Manfredi 6;# 7;# You may redistribute only under the terms of the Artistic License, 8;# as specified in the README file that comes with the distribution. 9;# You may reuse parts of this distribution only within the terms of 10;# that same Artistic License; a copy of which may be found at the root 11;# of the source tree for mailagent 3.0. 12;# 13;# $Log: init.pl,v $ 14;# Revision 3.0.1.3 1999/01/13 18:16:59 ram 15;# patch64: cleanup agent.wait file since now always produced 16;# 17;# Revision 3.0.1.2 1995/08/07 16:28:52 ram 18;# patch37: added support for locking on filesystems with short filenames 19;# 20;# Revision 3.0.1.1 1994/07/01 15:10:38 ram 21;# patch8: fixed RCS leading comment string 22;# 23;# Revision 3.0 1993/11/29 13:50:24 ram 24;# Baseline for mailagent 3.0 netwide release. 25;# 26 27$pwd = $ENV{'PWD'}; # Where TEST was invoked from 28$lockext = $ENV{'LOCKEXT'}; # Locking extension 29($up) = $pwd =~ m|^(.*)/.*|; 30$mailagent_prog = $ENV{'MAILAGENT'}; 31$mailagent_path = "$up/$mailagent_prog"; 32$mailagent = "$mailagent_path -TEST"; 33$filter = "$up/filter/filter"; 34 35# Make sure no lock were left by previous test 36unlink "$pwd/out/filter$lockext", "$pwd/out/perl$lockext"; 37unlink 'agent.wait'; 38 39