I've gotten responses from the following remailers: hfinney@shell.portal.com hh@soda.berkeley.edu remail@tamsun.tamu.edu nowhere@bsu-cs.bsu.edu phantom@mead.u.washington.edu elee7h5@rosebud.ee.uh.edu hal@alumni.cco.caltech.edu dis.org!remailer@merde.dis.org hh@pmantis.berkeley.edu hh@cicada.berkeley.edu remail@tamaix.tamu.edu ebrandt@jarthur.claremont.edu remailer@rebma.mn.org And have not recieved (in two days) a response from: 00x@uclink.berkeley.edu I used the perl script appended to this message. -eric messick (eric@toad.com) #!/usr/local/bin/perl $me = "eric@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; }
participants (1)
-
eric@Synopsys.COM