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