in reply to Re: Email form
in thread Email form
Please do not recommend random Perl scripts on the web without having verified them. The script that you recommended contains ugly errors that make it easy to send spam via the script:
... $Email = $in{'Email'}; $Message = $in{'Message'}; ... sub SendAutoReply { open (MAIL,"|$MailProgram -t"); print MAIL "To: $Email\n"; print MAIL "From: $YourEmail\n"; print MAIL "Subject: $Subject\n"; print MAIL "$Header\n"; print MAIL "$Date\n\n"; print MAIL "$Subject\n\n"; print MAIL "You sent the following:\n\n"; print MAIL "==============================\n\n"; print MAIL "Name: $Name\n"; print MAIL "Email: $Email\n\n"; print MAIL "Message:\n\n"; print MAIL "$Message\n\n"; print MAIL "==============================\n\n"; print MAIL "$TailMessage\n\n"; print MAIL "Best regards,\n\n\n"; print MAIL "$Signature1\n"; print MAIL "$Signature2\n\n"; close (MAIL); }
If $Email contains a newline, you can spam any address through this form (and it is nowhere verified that $Email doesn't contain a newline and more data). Of course, there will be some fluff data trailing the spammers message, but if the spammer cared, he would have a different profession.
Update: Finished incomplete sentence about verification of $Email
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^3: Email form
by jbrugger (Parson) on Mar 07, 2005 at 18:12 UTC | |
|
Re^3: Email form
by RazorbladeBidet (Friar) on Mar 07, 2005 at 17:29 UTC | |
by Corion (Patriarch) on Mar 07, 2005 at 17:34 UTC |