I also have this problem. I discovered that $res->content can't be read if it's saved as a variable, consist of any scalar or hashes.
If you saved $content=$res->content; and print it, it would be just blank. I suspect the $res->content, is a hash. Somehow, it has to be dereferenced, in order to be seen. I am still looking through my books to figure this out. Hopefully I'll find an answer soon.
If anybody knows the answer, pls. reply to this post.
<blockquote id="quote"><font size="1" face="Verdana, Arial, Helvetica" id="quote">quote:<hr height="1" noshade id="quote">
Originally posted by tofletch[br]I'm using the paypal supplied Perl code, with very minor changes (see below). $res->content is always blank, but the other fields have valid data, including $payment_status.
Help is much appreciated.
Mike
#!/usr/bin/perl
require LWP::UserAgent;
my ($pending_reason);
# read post from PayPal system and add 'cmd'
read (STDIN, $query, $ENV{'CONTENT_LENGTH'});
$query .= '&cmd=_notify-validate';
$file = "/tmp/paypalstep1.dbg";
open(DEBUG, ">$file");
print DEBUG "query = $query\n";
# 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);
# split posted variables into pairs
@pairs = split(/&/, $query);
$count = 0;
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$variable{$name} = $value;
$count++;
}
# assign posted variables to local variables
$item_name = $variable{'item_name'};
$item_number = $variable{'item_number'};
$payment_status = $variable{'payment_status'};
$payment_gross = $variable{'payment_gross'};
$txn_id = $variable{'txn_id'};
$receiver_email = $variable{'receiver_email'};
$payer_email = $variable{'payer_email'};
$invoice = $variable{'invoice'};
$affno = $variable{'affno'};
$pending_reason = $variable{'pending_reason'};
$status = $res->content;
print DEBUG "res->content = $status\n";
print DEBUG "item_name = $item_name\n";
print DEBUG "item_number = $item_number\n";
print DEBUG "payment_status = $payment_status\n";
print DEBUG "payment_gross = $payment_gross\n";
print DEBUG "txn_id = $txn_id\n";
print DEBUG "receiver_email = $receiver_email\n";
print DEBUG "payer_email = $payer_email\n";
print DEBUG "invoice = $invoice\n";
print DEBUG "affno = $affno\n";
print DEBUG "pending_reason = $pending_reason\n";
# Not doing anything unless 'VERIFIED' is received
if ($res->content eq 'VERIFIED') {
if ($receiver_email eq 'george@uvox.net') {
$tmp = 'txn_id=' . $txn_id;
$tmp = $tmp . '+payer_email=' . $payer_email;
$tmp = $tmp . '+affno=' . $affno;
$tmp = $tmp . '+invoice=' . $invoice;
$tmp = $tmp . '+status=' . $payment_status;
$tmp = $tmp . '+reason=' . $pending_reason;
chomp($fname = `date +'%Y%m%d%H%M%S'`);
$fname = "/met/ux/authorizations/paypalstep1.$fname";
system("(export TERM=dumb ; /met/bin/dbshell -a UX -u UX -s 1 -b N /met/bin/run paypal1.run[1/ux] $tmp 2>$fname)");
}
}
close(DEBUG);
print "content-type: text/plain";
<hr height="1" noshade id="quote"></blockquote id="quote"></font id="quote">
