#!/usr/bin/perl # mailenvecho # Magnus Bodin 1998-10-23 magnus@bodin.org # http://x42.com/qmail/scripts/mailenvecho use strict; my $in; while () { $in .= $_; } my $environ; foreach (sort keys %ENV) { $environ .= "$_: $ENV{$_}\n"; } open MAIL,"| /var/qmail/bin/qmail-inject -f $ENV{SENDER}"; print MAIL <<"EOF"; From: $ENV{SENDER} To: $ENV{SENDER} Subject: DEFAULT=$ENV{DEFAULT} $environ --- %< - a copy of incoming message is included below-- $in ------------------------------------------------------- EOF close MAIL; exit 0;