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