<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl

# stopwblue.pl
# Kyoma TAKAHASHI 1999/10/29
#   Thanks for Okuyama's help

$cnt = 0; $mailhb = '';

while (&lt;STDIN&gt;) {
	if (/^To:\s+epmail.+/) { $cnt += 1 }
	if (/^To:\s+postmaster.+/) { $cnt += 1 }
	$mailhb .= $_;
}

if ( $cnt &lt; 2 ) { print $mailhb; exit 0; }
else {
	$from = $ENV{'SENDER'}; $to = $ENV{'RECIPIENT'};
	$ermsg = 'Message from '.$from.' to '.$to.' is going to start chain reaction!! Stopped it.';
	system "/usr/bin/logger -t stopwepmail.pl '$ermsg'";
	open (STOPMAIL,"&gt;&gt; /home/epmail/stopped-mail");
	print STOPMAIL $mailhb;
	close (STOPMAIL);
	exit 99;
}

</pre></body></html>