http://www.perlmonks.org?node_id=1225214

bigup401 has asked for the wisdom of the Perl Monks concerning the following question:

500 read timeout at Business/PayPal/API.pm line 164.: /usr/home/bigup401/public_html/prod/test.pl localhost Sun Nov 04 13:44:13 2018 error pid 17698 mod_cgi.c(175): client 31.210.141.800:21824 AH01215: Sun Nov 4 13:44:13 2018 test.pl: at test.pl line 21.: /usr/home/bigup401/public_html/prod/test.pl

use Business::PayPal::API::TransactionSearch; use Data::Dumper; $ENV{'PERL_LWP_SSL_VERIFY_HOSTNAME'} = 0; my $pp = Business::PayPal::API::TransactionSearch->new( Username => 'username', Password => 'password', CertFile => 'paypal_cert_key_pem.txt', KeyFile => 'paypal_cert_key_pem.txt', sandbox => 0, timeout => 5 ); $transid = '98832432992384234'; my $transactions = $pp->TransactionSearch( TransactionID => $transid ); print "Content-type: text/html\n\n"; for my $rec ( @$transactions ) { print "Record:\n"; print "TransactionID: " . $rec->{TransactionID} . "\n"; print "Payer Email: " . $rec->{Payer} . "\n"; print "Amount: " . $rec->{GrossAmount} . "\n\n"; print "Status: " . $rec->{Status} . "\n\n"; }