[Mimedefang] Host name

[David F. Skoll]

On Thu, 10 Oct 2002, Kevin Withnall wrote:

> Secondly, I would like to add a header for each host that scans the
> message (typically a message is scanned from once to 3 times depending
> on which mail hosts etc it passes through here).

Pretty easy.  Put this near the top of your filter, outside any
subroutine definition:

chomp($MyHostName = `hostname`);

Then, in filter_end, do something like this:

	sub filter_end ($) {
		my($entity) = @_;

		action_add_header("X-Scanned-On", $MyHostName);

		# ... rest of filter_end
	}

--
David.