Simple HTTP POST

Demonstrates a simple HTTP POST.

Chilkat Module for Perl 5.8.*

Chilkat Module for Perl 5.10.*

use chilkat;


$req = new chilkat::CkHttpRequest();
$http = new chilkat::CkHttp();

#  Any string unlocks the component for the 1st 30-days.
$success = $http->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print $http->lastErrorText() . "\n";
    exit;
}

#  This example simulates this FORM:
#  <form action="processPost.asp" method="post">
#  First name: <input type="text" name="firstName"><br />
#  Last name: <input type="text" name="lastName"><br />
#  <input type="submit" value="Submit">
#  </form>
#  The online FORM is found at this URL:
#  http://www.chilkatsoft.com/simpleForm.html

#  Build an HTTP POST Request:
$req->UsePost();

#  The FORM target is http://www.chilkatsoft.com/processPost.asp
#  An easy way of filling out most of the HTTP request object
#  is to call SetFromUrl:
$req->SetFromUrl("http://www.chilkatsoft.com/processPost.asp");

#  The only remaining task is to add the params to the
#  HTTP request object:
$req->AddParam("firstName","Matt");
$req->AddParam("lastName","Jones");

#  Send the HTTP POST and get the response.
#  The POST is being sent to chilkatsoft.com, on port 80
#  (the default HTTP port), and not using SSL.

$domain = "chilkatsoft.com";
$port = 80;
$ssl = 0;

#  The HTTP POST is sent here:

$resp = $http->SynchronousRequest($domain,$port,$ssl,$req);
if ($resp eq null ) {
    print $http->lastErrorText() . "\r\n";
}
else {
    #  Display the HTML source of the page returned.
    print $resp->bodyStr() . "\r\n";

}