Re: [Mason] How do I implement PayPal IPN code in Mason?

[Alfie J. <al...@ha...>]

Hi again,

Yep. During testing, your IPN script should have:

	use Business::PayPal::IPN;

	$Business::PayPal::IPN::GTW = ' https://www.sandbox.paypal.com/cgi- 
bin/webscr ';
	...

Just don't forget that when you do send payments to your development  
box, to be sending them from PayPal's sandbox and not their  
production environment.

Alfie John
http://www.freehouse.com.au

On 26/02/2007, at 9:14 PM, Jim Rey wrote:

> Thanks Alfie,
>
> Would I be correct in preceding the call to Business::PayPal::IPN- 
> >new() by $Business::PayPal::IPN::GTW = ' https:// 
> www.sandbox.paypal.com/cgi-bin/webscr ';
> or how else do I ensure that it is using the sandbox?
>
> Jim
>
> On 26/02/07, Alfie John <al...@ha... > wrote:
> 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 < jim...@go...> 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 < mar...@ho...> 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 <jim...@go...> wrote:
>> Alfie
>>
>> Thanks
>>
>> I'll check it out.
>>
>> Jim
>>
>>
>> On 22/02/07, Alfie John <al...@ha... > 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
>>> Mas...@li...
>>> 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
>> Mas...@li...
>> 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
>
>
>
>
> -- 
> Jim Rey
> 48 Laburnum Park
> Bradshaw
> Bolton BL2 3BU
> United Kingdom
> Tel: 01204 593 222
> Mob: 07816 751 874