uShop English (U.S.) for 179!

uStorekeeper English (U.S.) for 149!

 Tech Support
       Support Policy
       Knowledge Base
       Reference Sites
       Software Piracy
       Legal Notices
       Privacy Policy
       Reseller Info
       Contact Us
       Site Map
PayPal Perl Script?

Knowledge Base Lobby : uShop Support Conference : General Questions
Aug-19-18 07:44 PM EST
Original Message
PayPal Perl Script?
Author Chris Guth ( on 09-04-2001 at 11:36 (EST)
Here is a PayPal Perl Script Payment Notification Handler. I don't know if this will help anyone in setting up a PayPal Interface that works with UShop.

# read the 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','';
$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;
# assign posted variables to local variables
$receiver_email = $variable{'receiver_email'};
$item_name = $variable{'item_name'};
$item_number = $variable{'item_number'};
$custom = $variable{'custom'};
$payment_status = $variable{'payment_status'};
$payment_date = $variable{'payment_date'};
$payment_gross = $variable{'payment_gross'};
$payment_fee = $variable{'payment_fee'};
$txn_id = $variable{'txn_id'};
$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'};
$payer_email = $variable{'payer_email'};
if ($res->content eq 'VERIFIED') {
# check transaction for uniqueness
# process payment
elsif ($res->content eq 'INVALID') {
# possible fraud
else {
# error


Table Of Contents
  PayPal Perl Script? Chris Guth (, 2001-09-04 11:43:52 (1)

Messages In This Discussion
         1. PayPal Perl Script?
        Author Chris Guth ( on 09-04-2001 at 11:43 (EST)
Here is all the info on PayPal's functions.

© 2003 Microburst Technologies, Inc.