Hi , I have the below perl script which suppose to send email to a group, but somehow my body is not working properly .. when I am sending emails the body is displaying like this ============== <p>Dear $gname, Please Accept our Invitation <a href="$domainname?NAME=$gname">Invite</a></p><br><br> Regards ===============
it suppose to show the domain name and the script name for eg: Dear XXX, Please accept our invitation <a>Invite</a> can you please let me know how do I send an email with links here is the script ========================================= #!/usr/bin/perl use CGI qw(:standard); $query = new CGI; print $query -> header; $domainname='http://www.xxx.com/perl/invitation.pl'; chop($var = `cat /home/virtual/perl/test_list.txt | sort | uniq`); @newlist = split(/:/,$var); print "<html><body>\n"; print "<h4> <font color=#0000FF>Email lists</font> </h4>\n"; foreach $guests (@newlist ) { chomp; ($gname, $gemail) = split(/,/,$guests); $mailprog = '/usr/lib/sendmail'; open (MAIL, "|$mailprog $gemail") || die "Can't open $mailprog!\n"; print MAIL "From: [EMAIL PROTECTED]"; print MAIL "Subject: House Warming Invitation\n"; print MAIL "<p>Dear \$gname, Please Accept our Invitation <a href=\"\$domainname\?NAME=\$gname\">Invite</a></p>"; print MAIL "<br><br>\n"; print MAIL "Regards \n"; close MAIL; } print "</body></html>\n"; ================================ ===== Praveen G Siddavarapu 614-537-8406(Cell) 614-677-9750(W) http://www.Siddavarapu.com __________________________________ Do you Yahoo!? New and Improved Yahoo! Mail - 100MB free storage! http://promotions.yahoo.com/new_mail _______________________________________________ ActivePerl mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
