Remailer pings

[Eric Messick]

I've gotten responses from the following remailers:

hfinney at shell.portal.com
hh at soda.berkeley.edu
remail at tamsun.tamu.edu
nowhere at bsu-cs.bsu.edu
phantom at mead.u.washington.edu
elee7h5 at rosebud.ee.uh.edu
hal at alumni.cco.caltech.edu
dis.org!remailer at merde.dis.org
hh at pmantis.berkeley.edu
hh at cicada.berkeley.edu
remail at tamaix.tamu.edu
ebrandt at jarthur.claremont.edu
remailer at rebma.mn.org

And have not recieved (in two days) a response from:

00x at uclink.berkeley.edu 

I used the perl script appended to this message.

-eric messick (eric at toad.com)

#!/usr/local/bin/perl

$me = "eric at synopsys.com" ; # put your email address here

sub begin_mail {
	local ($addr, $from, $subject) = (@_);

	if (!open(MAIL, "| /usr/lib/sendmail '" . $addr . "'")) {
		&log("error", "Error sending mail to $addr") ;
		return;
		}
	print MAIL "To: $addr\n" ;
	print MAIL "From: $from\n" ;
	print MAIL "Reply-To: $from\n" ;
	print MAIL "Subject:  $subject\n" ;
	print MAIL "\n" ;
}

$home = $ENV{'HOME'} ;

open(REMAILERS, "$home/remail/currentremailers") || die "Can't open $home/remail/currentremailers: $!\n" ;

while (<REMAILERS>) {
	chop;
	($addr) = split ;
	next if ($addr eq "#") ;

	print "$addr\n" ;

	&begin_mail($addr, $me, "ferd");
	print MAIL "::\n" ;
	print MAIL "Request-Remailing-To: $me\n" ;
	print MAIL "\n" ;
	print MAIL "mailed to $addr\n" ;
	close MAIL;

	}