print "Content-Type: text/html\n\n";
# read post from PayPal system and add 'cmd'
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);
# 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
$receiver_email = $variable{'receiver_email'};
$txn_id = $variable{'txn_id'};
$txn_type = $variable{'txn_type'};
$item_name = $variable{'item_name'};
$item_number = $variable{'item_number'};
$invoice = $variable{'invoice'};
$payment_status = $variable{'payment_status'};
$pending_reason = $variable{'pending_reason'};
$payment_gross = $variable{'mc_gross'};
$payment_currency = $variable{'mc_currency'};
$payment_date = $variable{'payment_date'};
$payment_type = $variable{'payment_type'};
$payer_id = $variable{'payer_id'};
$payer_email = $variable{'payer_email'};
$payer_status = $variable{'payer_status'};
$first_name = $variable{'first_name'};
$last_name = $variable{'last_name'};
$address_street = $variable{'address_street'};
$address_city = $variable{'address_city'};
$address_state = $variable{'address_state'};
$address_zip = $variable{'address_zip'};
$address_country = $variable{'address_country'};
$address_status = $variable{'address_status'};
Andrew W. Chang
President
Scorpion Systems
Winner PayPal® Star Developer Award 2005
AndrewC@scorpionsystems.nethttp://www.scorpionsystems.net Phone: 631.789.5785
Fax : 631.842.4321