email-a-friend

rtb1 · Jul 17, 2000

I'm totally new to this and feel this is quite easy to solve hope somebody can help me. I'm running a email-this site to a friend script from a Flash movie. The one I got to work is from Outel. 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 Thank you, Raoul ------- script --------------- #!/usr/bin/perl ########################## #   OutTel.com Scripts   # ########################## read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); foreach $pair (@pairs) {         ($name, $value) = split(/=/, $pair);         $value =~ tr/+/ /;         $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;         $value =~ s/\n/ /g;         $request{$name} = $value; } $url = "<A HREF="

http://www.andasoft.com&quot"

TARGET="_new">

http://www.andasoft.com&quot</A>;; $maillocation

= "/usr/sbin/sendmail"; $stmail="$request{'stmail'}" ; $tmail="$request{'tmail'}" ; $tnmail="$request{'tnmail'}" ; print "Content-type: text/html\n\n"; print "<Head><title>Sent!</title></head><body>\n"; print "<center> Thank you for recomending this site. \n"; print "The message has been sent. \n"; print " <A HREF=$url>Go back to our web site.</A></center><body>\n"; print "\n\n"; open (MAIL, "¦ $maillocation -t&quot

¦¦ die "aw, cant use $maillocation"; print MAIL "To: $stmail\n"; print MAIL "Reply-to: $tmail\n"; print MAIL "Subject:check it!\n"; print MAIL "Hey, I found a cool web site that might interest you.\n\n"; print MAIL "Check it out at:\n"; print MAIL "$url\n\n"; print MAIL "From $tnmail\n\n; ###This is where the script ends, I added the next part### close MAIL; open (MAIL, "¦ $maillocation -t&quot

¦¦ die "aw, cant use $maillocation"; print MAIL "To: $tmail\n"; print MAIL "Reply-to: $stmail\n"; print MAIL "Subject: Thanks!\n"; print MAIL "Thank you for.... print MAIL "$url\n\n"; print MAIL "From $tnmail\n\n; close Mail;

MikeLacey · Jul 17, 2000

hi, your line print MAIL "Thank you for.... needs to read print MAIL "Thank you for....\n"; same with print MAIL "From $tnmail\n\n; should read print MAIL "From $tnmail\n\n"; pretty close for a first go though! A hint -- if you always run with perl -w it will pick up this kind of error Mike <a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a> <a href=

http://www.cargill.com/>

Cargill's Corporate Web Site</a>

rtb1 · Jul 17, 2000

Thanks Mike, I will check this sort of errors again but I think this was just me trying to get this mail done quickly, When I was struggling to get it work I checked this sort of errors twice. So except from the errors you quoted it should work? Raoul

rtb1 · Jul 17, 2000

Sorry for this, slow connection and not patient!

rtb1 · Jul 17, 2000

I checked it and it still gives errors even when I only add: close MAIL; without the code to send the second email. Or should I expect this to happen? raoul

MikeLacey · Jul 18, 2000

open (MAIL, "¦ $maillocation -t&quot

¦¦ die "aw, cant use $maillocation"; print MAIL "To: $tmail\n"; print MAIL "Reply-to: $stmail\n"; print MAIL "Subject: Thanks!\n"; print MAIL "Thank you for....\n" print MAIL "$url\n\n"; print MAIL "From $tnmail\n\n"; close Mail; Hi Raol, could you add the code above please and, if it gives you an error, post the error message. Oh - and did you use the -w switch? Mike <a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a> <a href=

http://www.cargill.com/>

Cargill's Corporate Web Site</a>

rtb1 · Jul 18, 2000

Internal Server Error! didn't use the -w switch. I did find a way around this from a Flash movie, it simply runs two scripts but still would like to find out what's wrong? Thank you for your help, raoul

MikeLacey · Jul 20, 2000

Internal Server Error doesn't look like a Perl error.... What line is it failing on? Mike <a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a> <a href=

http://www.cargill.com/>

Cargill's Corporate Web Site</a>

AndyBo · Jul 21, 2000

Internal Server Error is usually a HTTP error in the 500 range.  It usually turns out to be a permissions problem on the script, or a syntax error... <a href=mailto: > </a> <a href= > </a> -- 
0 1 - Just my two bits

rtb1 · Jul 22, 2000

It doesn't give any detailed information about the error! I will contact my ISP again, Thanks for helping, Raoul

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

email-a-friend

rtb1

IS-IT--Management

MikeLacey

MIS

rtb1

IS-IT--Management

rtb1

IS-IT--Management

rtb1

IS-IT--Management

MikeLacey

MIS

rtb1

IS-IT--Management

MikeLacey

MIS

AndyBo

MIS

rtb1

IS-IT--Management

Similar threads

Part and Inventory Search

Sponsor