Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re^4: GD and LWP giving 500 errors

by Schmunzie (Beadle)
on Mar 17, 2017 at 11:10 UTC ( [id://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
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1185009]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others having an uproarious good time at the Monastery: (6)
As of 2024-04-18 13:11 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found