iamAnne has asked for the wisdom of the Perl Monks concerning the following question:
Hi, I had a problem when I run my perl script it displays error in HTTP Post error code 500 and error message : Internal Server Error. Please advise how will I handle this. Thank you in advance.
My script
use warnings; use strict; use LWP::UserAgent; my $ua = LWP::UserAgent->new; my $url = "https://host/WebService/webservice.php"; # set custom HTTP request header fields my $req = HTTP::Request->new(POST => $url); $req->header('content-type' => 'application/json'); $req->header('x-auth-token' => 'kfksj48sdfj4jd9d'); # add POST data to HTTP request body my $post_data = '{"List": {"Data" : [ {"value" : "SRYSR656", "value2" +: "STYDTY ","date" : "140810","time" : "2132" },{ "value" : "001695 +568GP,"value2" : "EEFGE54","date" : "140812","time" : "1205"},{ "val +ue" : "YYHG","value2" :"JKTYRT6F","date" : "140811","time" : "1302" } +, {"value" : "ERETUT","value2" : "DYTUYU","date":"140812","time" : "1 +102" },{"value" : "SRT4543","value2" : "DASDRGF","date" : "140811","t +ime" : "2245"} ] }}'; $req->content($post_data); print $req->as_string; my $resp = $ua->request($req); if ($resp->is_success) { my $message = $resp->decoded_content; print "Received reply: $message\n"; } else { print "HTTP POST error code: ", $resp->code, "\n"; print "HTTP POST error message: ", $resp->message, "\n"; }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: I got HTTP POST error message: Internal Server Error
by Gangabass (Vicar) on Sep 19, 2014 at 04:58 UTC | |
by iamAnne (Initiate) on Sep 19, 2014 at 06:31 UTC | |
by Corion (Patriarch) on Sep 19, 2014 at 06:55 UTC | |
Re: I got HTTP POST error message: Internal Server Error
by poj (Abbot) on Sep 19, 2014 at 10:51 UTC | |
Re: I got HTTP POST error message: Internal Server Error
by derby (Abbot) on Sep 19, 2014 at 10:52 UTC | |
Re: I got HTTP POST error message: Internal Server Error
by Anonymous Monk on Sep 19, 2014 at 03:50 UTC |
Back to
Seekers of Perl Wisdom