#!/usr/bin/perl -w use strict; use Qpsmtpd::Postfix; Qpsmtpd::Postfix->inject_mail( 'hjp@hjp.at', [ 'hjp@wsr.ac.at', 'hjp@luga.at' ], [ "Received: from nowhere.example.net (HELO nowhere.example.net) (10.11.12.13)\r\n", " by teal.hjp.at (qpsmtpd/0.20) with SMTP;\r\n", " Wed, 25 Jun 2003 01:33:02 +0200\r\n", "Received: from localhost (HELO nowhere.example.net) (127.0.0.1)\r\n", " by nowhere.example.net with SMTP;\r\n", " Wed, 25 Jun 2003 01:33:01 +0200\r\n", "From: Peter J. Holzer \r\n", "To: Myself \r\n", "Subject: test\r\n", "Date: Wed, 25 Jun 2003 01:33:01 +0200\r\n", "\r\n", "please ignore me talking to myself\r\n", ] ); # vim:sw=2