(Perl) Transition from Http.SynchronousRequest to Http.HttpSReq

Provides instructions for replacing deprecated SynchronousRequest method calls with HttpSReq.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux

use chilkat();

$http = chilkat::CkHttp->new();

$domain = "example.com";
$port = 443;
$tls = 1;

$req = chilkat::CkHttpRequest->new();
$req->put_HttpVerb("POST");
$req->put_Path("/some/path");
$req->put_ContentType("application/x-www-form-urlencoded");
$req->AddParam("firstName","Matt");
$req->AddParam("lastName","Smith");

# ------------------------------------------------------------------------
# The SynchronousRequest method is deprecated:

# responseObj is a HttpResponse
$responseObj = $http->SynchronousRequest($domain,$port,$tls,$req);
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

# ...
# ...

# ------------------------------------------------------------------------
# Do the equivalent using HttpSReq.
# Your application creates a new, empty HttpResponse object which is passed 
# in the last argument and filled upon success.

$responseOut = chilkat::CkHttpResponse->new();
$success = $http->HttpSReq($domain,$port,$tls,$req,$responseOut);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}