Yes, you are right. Here is the suspect code:
read (STDIN, $query, $ENV{'CONTENT_LENGTH'});
$query .= '&cmd=_notify-validate';
# post back to PayPal system to validate
use LWP::UserAgent;
$ua = new LWP::UserAgent;
$req = new HTTP::Request 'POST','http://www.paypal.com/cgi-bin/webscr'
+;
$req->content_type('application/x-www-form-urlencoded');
$req->content($query);
$res = $ua->request($req);
Everything else works OK. I am sending the buyer an email, the seller an email, and writing a record to a sales header file, and record(s) to a sales detail file. All of that works. The log records no errors.
Thanks for your help!
T.Davis
| [reply] [d/l] |
You will really, really want to use CGI.pm for reading form input.
I'm referring to the first two lines of that script. They will not work when you're using a GET request, for one.
See CGI for much more information how.
| [reply] |