Gossamer Forum: General: Perl Programming: Great Perl module

Jan 2, 2004, 4:10 AM

Andy

Veteran / Moderator (17298 posts)

Jan 2, 2004, 4:10 AM

Post #1 of 5

Shortcut

Great Perl module - Business::PayPal::IPN

Just thought I would post a link:

http://author.handalak.com/archives/072003/000224

Looks like a seriously cool module... especially seeing as the default IPN checking code is pretty crap. I'm giving this module a go in a new script now. I'll let you know how it goes Smile

Cheers

Andy (mod)
andy@ultranerds.co.uk

IMPORTANT: I've now moved to ultranerds.co.uk, and the .com will no longer work!
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package (plugins total "value" $3,325 & rising, for just $350)| GLinks ULTRA Package PRO (plugins total "value" $5,625 & rising, for just $500)
Support Forum | Links SQL Plugins | DMOZ Dumps | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!
Compare our different Plugin packages *new* Free CSS Templates

Jan 2, 2004, 4:26 AM

Andy

Veteran / Moderator (17298 posts)

Jan 2, 2004, 4:26 AM

Post #2 of 5

Shortcut

Re: [Andy] Great Perl module - Business::PayPal::IPN In reply to

Doh... I knew I shouldn't have posted anything about this module :p

I've just tried it, and I get the following error;

Quote:

Insufficient content from the invoker:
$Business::PayPal::IPN = bless( {
'ua' => undef,
'_PAYPAL_VARS' => {
'session' => '__65432__'
},
'query' => bless( {
'.charset' => 'ISO-8859-1',
'.parameters' => [
'session'
],
'.fieldnames' => {},
'session' => [
'__65432__'
]
}, 'CGI' )
}, 'Business::PayPal::IPN' );
test at paypal.cgi line 38.

... from this line;

Code:
# decide if the purchase made is valid or not :) 
 my $ipn = new Business::PayPal::IPN() or die Business::PayPal::IPN->error() ."test";

Anyone got any ideas? I've had a look on Google, but because this is a relativly new module, I can't find anything to do with it :(

TIA

Andy (mod)
andy@ultranerds.co.uk

Jan 2, 2004, 10:42 AM

Chaz

Enthusiast (819 posts)

Jan 2, 2004, 10:42 AM

Post #3 of 5

Shortcut

Re: [Andy] Great Perl module - Business::PayPal::IPN In reply to

Are you sure you have your IPN settings correct on your PayPal account? From the source on that module it looks like the error means that PayPal didn't send back all the correct info to your script.

~Charlie

Jan 3, 2004, 2:32 AM

Andy

Veteran / Moderator (17298 posts)

Jan 3, 2004, 2:32 AM

Post #4 of 5

Shortcut

Re: [Chaz] Great Perl module - Business::PayPal::IPN In reply to

Yeah, I'm definate it was activated. I even double checked that the 'hidden' values exist on the page (the one on PayPals site, where you click the button and it takes you to your own site, where the IPN verification is done).

Cheers

Andy (mod)
andy@ultranerds.co.uk

Feb 28, 2004, 10:44 AM

sherzodr

New User (2 posts)

Feb 28, 2004, 10:44 AM

Post #5 of 5

Shortcut

Re: [Andy] Great Perl module - Business::PayPal::IPN In reply to

Here is what I'd suggest you do.

Create a simple script (without using Business::PayPal::IPN), which logs the invokation into a log file:

Code:
#!/usr/bin/perl 

use strict; 
use CGI; 
use CGI::Carp ('carpout'); 

BEGIN { 
    open(LOG, '>>paypal.log') && carpout(\*LOG); 
} 
use Data::Dumper; 


my $cgi = CGI->new(); 
print $cgi->header(); 

warn Dumper( {$cgi->Vars} );

The idea is to see what information PayPal is posting to your script. Depending on how your web server is setup, you may have to create "paypal.log" file and chmod it (and the folder it resides in) to 0777.

If there is something being posted to the script, it will be logged in your "paypal.log" file.

Let me know how it goes.

Last edited by:

sherzodr: Feb 28, 2004, 10:46 AM