Perl

HTTP Basic Authentication Test

Demonstrates how to do HTTP basic authentication using Chilkat. Perl

use chilkat();

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

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

# To use HTTP Basic authentication:
$http->put_Login("myLogin");
$http->put_Password("myPassword");
$http->put_BasicAuth(1);

# Run the test using this URL with the credentials above.  
# (Works while httpbin.org keeps the test endpoint available.)
$jsonResponse = $http->quickGetStr("https://httpbin.org/basic-auth/myLogin/myPassword");
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

print "Response status code: " . $http->get_LastStatus() . "\r\n";

print $jsonResponse . "\r\n";

# Output:

# Response status code: 200
# {
#   "authenticated": true, 
#   "user": "myLogin"
# }