(Perl) HTTPS PUT application/x-www-form-urlencoded

Demonstrates two ways of sending an HTTPS PUT application/x-www-form-urlencoded request.

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

use chilkat();

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

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

# The 1st example sends a PUT with the query params in the URL.
# The body of the request will be empty.
$url = "https://example.com/leads/12345678?uid=XXXX&apikey=YYYYYY&notes=Test_Note";

# Sends the following request:

# PUT /leads/12345678?uid=XXXX&apikey=YYYYYY&notes=Test_Note HTTP/1.1
# Host: example.com
# Accept: */*
# Accept-Encoding: gzip
# Content-Length: 0
# 

# resp is a HttpResponse
$resp = $http->PText("PUT",$url,"","","application/x-www-form-urlencoded",0,0);
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
}
else {

    print "Response status code = " . $resp->get_StatusCode() . "\r\n";
    print "Response body: " . $resp->bodyStr() . "\r\n";

}

# -----------------------------------------------------------------------
# Now we send the same request, but instead the query params are in the HTTP request body.

$req = chilkat::CkHttpRequest->new();
$req->put_HttpVerb("PUT");
$req->put_Path("/leads/12345678");
$req->AddParam("uid","XXXX");
$req->AddParam("apikey","YYYYYY");
$req->AddParam("notes","Test_Note");

# Sends the following request:

# POST /leads/12345678 HTTP/1.1
# Host: example.com
# Content-Type: application/x-www-form-urlencoded
# Content-Length: 38
# 
# uid=XXXX&apikey=YYYYYY&notes=Test_Note

# resp is a HttpResponse
$resp = $http->PostUrlEncoded("https://example.com/leads/12345678",$req);
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

print "Response status code = " . $resp->get_StatusCode() . "\r\n";
print "Response body: " . $resp->bodyStr() . "\r\n";