HTTP POST

Demonstrates a simple HTTP POST. You may test this program against http://www.chilkatsoft.com/testPostHandler.asp. This ASP page fetches and displays the contents of form variables named arg1, arg2, and arg3.

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

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;
}

#  Build an HTTP POST Request:
$req->UsePost();
$req->put_Path("/testPostHandler.asp");
$req->AddParam("arg1","This is the value for arg1.");
$req->AddParam("arg2","This is the value for arg2.");
$req->AddParam("arg3","This is the value for arg3.");

#  Send the HTTP POST and get the response.  Note: This is a blocking call.
#  The method does not return until the full HTTP response is received.

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

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