Hey Jim,
While testing using a sandbox, modifying $Business::PayPal::IPN::GTW
is a good idea. Otherwise it could be expensive since your loosing
out on fees during each transaction.
To give you a bit of an idea on how I used it:
---8<---
use Business::PayPal::IPN;
if ( my $ipn = Business::PayPal::IPN->new() )
{
unless ( $ipn->item_name() )
{
print "Content-type: text/plain\n\nOK";
exit;
}
unless ( $ipn->receiver_email() eq $my_email )
{
die "receiver_email is SUSPICIOUS: " . $ipn->dump();
}
unless ( $ipn->payer_email() )
{
die "payer_email is not a valid email address: " . $ipn->dump();
}
my $payment;
if ( $ipn->payment_gross() )
{
unless ( $ipn->payment_gross() =~ m{ ^ ( \d+ [.]? \d{0,2} ) $
}x )
{
die "payment_gross is not a valid number: " .
$ipn->dump();
}
if ( $ipn->payment_fee() )
{
unless ( $ipn->payment_fee() =~ m{ ^ ( \d+ [.]? \d{0,2}
) $ }x )
{
die "payment_fee is not a valid number: " .
$ipn->dump();
}
}
$payment = $ipn->payment_gross() - ( $ipn->payment_fee() || 0 );
}
elsif ( $ipn->settle_amount() && $ipn->settle_current() eq 'USD' )
{
unless ( $ipn->settle_amount() =~ m{ ^ ( \d+ [.]? \d{0,2} ) $
}x )
{
die "settle_amount is not a valid number: " .
$ipn->dump();
}
$payment = $ipn->settle_amount();
}
else
{
die "currency not in USD: " . $ipn->dump();
}
eval {
My::Class->create(
'transaction_id' => $ipn->txn_id(),
'url' => $ipn->item_name(),
'email' => $ipn->payer_email(),
'payment' => $payment,
'my_custom1' => ( $ipn->option_selection1() ? 1 : 0
),
);
};
if ( $@ )
{
unless ( $@ =~ m{ DBD::mysql::db do failed: Duplicate entry } )
{
die "duplicate record found";
}
}
}
--->8---
Alfie John
http://www.freehouse.com.au
On 26/02/2007, at 8:11 PM, Jim Rey wrote:
I've decided using Business::PayPal::IPN, but I first need to test
my process using the paypal sandbox. I have still to setup the
sandbox properly, but in order to use it, may I assume that I have
proceed the call to:
if ($Ipn = new Business::PayPal::IPN ()) {
...
}
by something like:
$Business::PayPal::IPN::GTW = 'https://www.sandbox.paypal.com/cgi-
bin/webscr ';
Jim
On 22/02/07, Jim Rey <[EMAIL PROTECTED]> wrote:
Thanks Lionel,
Shortly before you replied I managed to get through to PayPal and
apparently "pending" applied to payments via a bank account which
takes 4 to 5 working days here in the UK. During the time it takes
to clear we are going to wait for completion. I'm going to ask
PayPay if there is any way the PayPal account can be accessed
READONLY so I can check the status of pending orders for
completion, but, initially at least, we will probably have to login
to see for ourselves.
Jim
On 22/02/07, Lionel MARTIN < [EMAIL PROTECTED]> wrote:
Hi Jim,
Normally, when the status is pending, Paypal sends you a new
notification when the status becomes completed, if it ever becomes
completed. So, from your part, dying here would just be fine. (or
store data for your records)
Lionel.
----- Original Message -----
From: Jim Rey
To: Alfie John
Cc: Mason List
Sent: Thursday, February 22, 2007 3:48 PM
Subject: Re: [Mason] How do I implement PayPal IPN code in Mason?
Alfie
The code example shows:
my $ipn = new Business::PayPal::IPN() or die
Business::PayPal::IPN->error();
# if we come this far, we're guaranteed it was a valid transaction.
if ( $ipn->completed() ) {
# means the funds are already in our paypal account.
} elsif ( $ipn->pending() ) {
# the payment was made to your account, but its status is still
pending
# $ipn->pending() also returns the reason why it is so.
} elsif ( $ipn->denied() ) {
# the payment denied
} elsif ( $ipn->failed() ) {
# the payment failed
}
Obviously, I won't use die because it is generally bad web
practice, but if the returned status is pending, what do you do,
resubmit at intervals using cron job?
Jim
On 22/02/07, Jim Rey <[EMAIL PROTECTED]> wrote:
Alfie
Thanks
I'll check it out.
Jim
On 22/02/07, Alfie John <[EMAIL PROTECTED]> wrote:
Hey Jim,
I've used Business::PayPal::IPN in the past and found it very
reliable.
CPAN is your friend:
http://search.cpan.org/search?query=paypal+ipn&mode=all
Alfie John
http://www.freehouse.com.au
On 23/02/2007, at 12:30 AM, Jim Rey wrote:
Hi
I have downloaded some sample code written in perl from the PayPal
site, but it appears to handle the POSTed parameters directly
rather like in CGI perl. I use mod_perl2 and Apache2 code. Does
anyone have a copy of this code already converted for Mason2 /
mod_perl2 / Apache2?
Jim Rey
The free code provided follows:
#!/usr/bin/perl
#(requires LWP::UserAgent)
# 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
$item_name = $variable{'item_name'};
$item_number = $variable{'item_number'};
$payment_status = $variable{'payment_status'};
$payment_amount = $variable{'mc_gross'};
$payment_currency = $variable{'mc_currency'};
$txn_id = $variable{'txn_id'};
$receiver_email = $variable{'receiver_email'};
$payer_email = $variable{'payer_email'};
if ($res->is_error) {
# HTTP error
}
elsif ($res->content eq 'VERIFIED') {
# check the $payment_status=Completed
# check that $txn_id has not been previously processed
# check that $receiver_email is your Primary PayPal email
# check that $payment_amount/$payment_currency are correct
# process payment
}
elsif ($res->content eq 'INVALID') {
# log for manual investigation
}
else {
# error
}
print "content-type: text/plain\n\n";
--
Jim Rey
48 Laburnum Park
Bradshaw
Bolton BL2 3BU
United Kingdom
Tel: 01204 593 222
Mob: 07816 751 874
---------------------------------------------------------------------
----
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to
share your
opinions on IT & business topics through brief surveys-and earn cash
http://www.techsay.com/default.php?
page=join.php&p=sourceforge&CID=DEVDEV_______________________________
________________
Mason-users mailing list
Mason-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mason-users
--
Jim Rey
48 Laburnum Park
Bradshaw
Bolton BL2 3BU
United Kingdom
Tel: 01204 593 222
Mob: 07816 751 874
--
Jim Rey
48 Laburnum Park
Bradshaw
Bolton BL2 3BU
United Kingdom
Tel: 01204 593 222
Mob: 07816 751 874
----------------------------------------------------------------------
---
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to
share your
opinions on IT & business topics through brief surveys-and earn cash
http://www.techsay.com/default.php?
page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
Mason-users mailing list
Mason-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mason-users
--
Jim Rey
48 Laburnum Park
Bradshaw
Bolton BL2 3BU
United Kingdom
Tel: 01204 593 222
Mob: 07816 751 874
--
Jim Rey
48 Laburnum Park
Bradshaw
Bolton BL2 3BU
United Kingdom
Tel: 01204 593 222
Mob: 07816 751 874
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys-and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
Mason-users mailing list
Mason-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mason-users
