I'm totally new to this and feel this is quite easy to solve hope somebody can help me.<br><br>I'm running a email-this site to a friend script from a Flash movie. The one I got to work is from Outel.<br><br>Quite basic but exactly what I needed for the Flash movie.However I would like to make it send an email as well to the visitor on the site to thank him. And this part I can't get to work please let me know what I should change in the script below<br><br>Thank you,<br><br>Raoul<br><br><br><br>------- script ---------------<br>#!/usr/bin/perl<br>##########################<br># OutTel.com Scripts #<br>##########################<br><br>read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});<br>@pairs = split(/&/, $buffer);<br>foreach $pair (@pairs) {<br> ($name, $value) = split(/=/, $pair);<br> $value =~ tr/+/ /;<br> $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;<br> $value =~ s/\n/ /g;<br><br> $request{$name} = $value;<br><br><br>}<br><br>$url = "<A HREF=" TARGET="_new"> = "/usr/sbin/sendmail";<br><br>$stmail="$request{'stmail'}" ;<br>$tmail="$request{'tmail'}" ;<br>$tnmail="$request{'tnmail'}" ;<br><br>print "Content-type: text/html\n\n"; <br>print "<Head><title>Sent!</title></head><body>\n";<br>print "<center><BR>Thank you for recomending this site.<BR>\n";<br>print "The message has been sent.<BR>\n";<br>print "<BR><A HREF=$url>Go back to our web site.</A></center><body>\n";<br>print "<P><P>\n\n";<br><br>open (MAIL, "¦ $maillocation -t"
¦¦ die "aw, cant use $maillocation";<br>print MAIL "To: $stmail\n";<br>print MAIL "Reply-to: $tmail\n";<br>print MAIL "Subject:check it!\n";<br>print MAIL "Hey, I found a cool web site that might interest you.\n\n";<br>print MAIL "Check it out at:\n";<br>print MAIL "$url\n\n";<br>print MAIL "From $tnmail\n\n;<br><br>###This is where the script ends, I added the next part###<br><br>close MAIL;<br><br>open (MAIL, "¦ $maillocation -t" ¦¦ die "aw, cant use $maillocation";<br>print MAIL "To: $tmail\n";<br>print MAIL "Reply-to: $stmail\n";<br>print MAIL "Subject: Thanks!\n";<br>print MAIL "Thank you for....<br>print MAIL "$url\n\n";<br>print MAIL "From $tnmail\n\n;<br><br>close Mail;
¦¦ die "aw, cant use $maillocation";<br>print MAIL "To: $stmail\n";<br>print MAIL "Reply-to: $tmail\n";<br>print MAIL "Subject:check it!\n";<br>print MAIL "Hey, I found a cool web site that might interest you.\n\n";<br>print MAIL "Check it out at:\n";<br>print MAIL "$url\n\n";<br>print MAIL "From $tnmail\n\n;<br><br>###This is where the script ends, I added the next part###<br><br>close MAIL;<br><br>open (MAIL, "¦ $maillocation -t" ¦¦ die "aw, cant use $maillocation";<br>print MAIL "To: $tmail\n";<br>print MAIL "Reply-to: $stmail\n";<br>print MAIL "Subject: Thanks!\n";<br>print MAIL "Thank you for....<br>print MAIL "$url\n\n";<br>print MAIL "From $tnmail\n\n;<br><br>close Mail;