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