in reply to Re: Re: Re: Receiving POST
in thread Receiving POST
use LWP::UserAgent; $ua = new LWP::UserAgent; $ua->agent("PlanetXML/0.1 " . $ua->agent); my $req = new HTTP::Request POST => 'http://www.test.be/cgi-bin/xmlrec +eive.cgi'; $req->content_type('text/xml'); $content=<<END; <request> <header> <from>Sender</from> <to>Receiver</to> </header> <body> lots of stuff </body> </request> END $req->content($content); my $res = $ua->request($req); if ($res->is_success) { print $res->content; } else { print "Error\n"; }
use CGI; $q = new CGI; print $q->header; @name = $q->param('keywords'); print map("$_\n",@name);
|
|---|