1# Basic MTA/NTA for tests
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: mta.pl,v $
14# Revision 3.0  1993/11/29  13:50:26  ram
15# Baseline for mailagent 3.0 netwide release.
16#
17
18unlink 'send.mail', 'send.news';	# Output from our MTA and NTA
19
20open(MSEND, '>msend');
21print MSEND <<'EOM';
22#!/bin/sh
23echo "Recipients: $@" >> send.mail
24exec cat >> send.mail
25EOM
26close MSEND;
27
28open(NSEND, '>nsend');
29print NSEND <<'EOM';
30#!/bin/sh
31exec cat >> send.news
32EOM
33close NSEND;
34
35chmod 0755, 'msend', 'nsend';
36
37sub clear_mta {
38	unlink 'msend', 'nsend', 'send.mail', 'send.news';
39}
40
41