�? but ... \$domainname, \$gname # What's wrong here? i could not find it!
----- Original Message ----- From: "Praveen Goutam S" <[EMAIL PROTECTED]> To: "Brian Raven" <[EMAIL PROTECTED]>; "Activeperl (E-mail)" <[EMAIL PROTECTED]> Sent: Wednesday, August 04, 2004 2:44 PM Subject: Group email using perl > 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 > > _______________________________________________ ActivePerl mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
