1# Common actions at the top of each filtering test
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: filter.pl,v $
14;# Revision 3.0.1.1  1994/07/01  15:10:19  ram
15;# patch8: now uses the cp_mail routine to copy mail
16;#
17;# Revision 3.0  1993/11/29  13:50:23  ram
18;# Baseline for mailagent 3.0 netwide release.
19;#
20
21do '../pl/init.pl';
22chdir '../out';
23do '../pl/mail.pl';
24&cp_mail;				# From mail.pl
25$user = $ENV{'USER'};
26unlink $user, 'agentlog';
27$cmd = "$mailagent -L $ENV{'LEVEL'} -r ../rules mail 2>/dev/null";
28
29# Re-create pattern list
30open(PATTERN, ">pattern-list");
31print PATTERN <<'EOP';
32no-match-possible
33another-impossible-match
34# This will match
35pattern
36EOP
37close PATTERN;
38