Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re^4: GD and LWP giving 500 errors

by Schmunzie (Sexton)
on Mar 17, 2017 at 11:10 UTC ( #1185009=note: print w/replies, xml ) Need Help??


in reply to Re^3: GD and LWP giving 500 errors
in thread GD and LWP giving 500 errors

Thank you. This has proved extremely useful. I've been able to replace a swathe of LWP code with
$result=qx(curl -X POST --data "$query" 'https://www.paypal.com/cgi-bi +n/webscr');
and it seems to work.

The bit that is now confusing me is how to replace LWP's

is_error(status) and is_success(status)

There is barely a mention of response codes in the curl documentation.

LATER...

Thanks to a search of StackOverflow, I now have a working workaround that give me access to the response code

read (STDIN, $query, $ENV{'CONTENT_LENGTH'}); $query .= '&cmd=_notify-validate'; my ($head,$body) = split( m{\r?\n\r?\n}, qx(curl -X POST --data "$que +ry" -si 'https://www.paypal.com/cgi-bin/webscr'),2 ); my ($code) = $head =~m{\A\S+ (\d+)};

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1185009]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (9)
As of 2019-09-23 15:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    The room is dark, and your next move is ...












    Results (280 votes). Check out past polls.

    Notices?