Gidday all,
I wish to slurp in a letter template in the form of a text file and
substitute fields in the letter for variables that are input on my html
form. I indicate in the text file where the substitution should take place
by the use of a <tag> like in html.
the Text file looks like this
<snip>
Dear <FirstName>,
Your registration for our workshops has been successfully processed.
Date: <date>
Venue: <SelectCity>
Time: <time>
You have nominated to attend the following two workshops:
<Workshop1>
<workshop2>
We look forward to seeing you.
</snip>
This is then to be sent as an email to the person who registered. I've done
the code it is below.
<code>
#!/usr/local/bin/perl
print "Content-Type: text/html\n\n";
$autoResponse = "responsepage.txt";
$from = "colin\@johnstonefamily.com";
$to = "colinjohnstone\@ozemail.com.au";
$subject = "Testing.. Testing..";
$sendmailpath="/usr/sbin/sendmail";
#$inFile = "c:/xitami/cgi-bin/hp_data/".$autoResponse;
$inFile =
"/home/bdweb8083m/johnstonefamily.com/cgi-bin/hp_data/".$autoResponse;
open (SENDMAIL, "| $sendmailpath -t");
print SENDMAIL "Subject: $subject\n";
print SENDMAIL "From: $from\n";
print SENDMAIL "To: $to\n\n";
print SENDMAIL "This is a test e-mail.\n\n";
$/ = "undef";
open(IN, "<$inFile") or die("Cannot open: $!");
while( $email_body = <IN>){
print SENDMAIL "$email_body\n\n";
}
close(IN);
print SENDMAIL "Bye!\n\n";
close (SENDMAIL);
print("sending to...: $to<br>");
</code>
All I need is help substituting the tags for the variables.
Any help appreciated.
Thank You
Colin
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
