#!/usr/bin/perl
############################################################
# test_sendmail_to_pooclub.pl
############################################################

#$mailto = "mike2sheds\@gmail.com";
#$mailto = "pooclub\@googlegroups.com";;
$mailto = "poomail\@shite.org";
$mailfrom = "bogus\@pooclub.com";

print "Content-type: text/html; charset=iso-8859-1\n\n";

print qq(
SCRIPT_NAME=$ENV{SCRIPT_NAME}<p />
HTTP_HOST=$ENV{HTTP_HOST}<p />
SERVER_NAME=$ENV{SERVER_NAME}<p />
);

open(SENDMAIL, "|/usr/sbin/sendmail -t") or die ("Cannot open SENDMAIL");
print SENDMAIL qq(To: $mailto
From: Pooclub Test <$mailfrom>
Subject: Testing sendmail - Please ignore
Content-type: text/plain

Test message to $mailto 
from HTTP_HOST=$ENV{HTTP_HOST} SERVER_NAME=$ENV{SERVER_NAME}
);
close(SENDMAIL);

print "Finished sending mail to $mailto from $mailfrom<p />";

exit(0);