Perl

HTTP Basic Authentication Test

Demonstrates how to do HTTP basic authentication using Chilkat. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $http = Chilkat2::Http->new;

# To use HTTP Basic authentication:
$http->Login('myLogin');
$http->Password('myPassword');
$http->BasicAuth(1);

# Run the test using this URL with the credentials above.
# (Works while httpbin.org keeps the test endpoint available.)
my $jsonResponse = $http->QuickGetStr('https://httpbin.org/basic-auth/myLogin/myPassword');
if (!$http->LastMethodSuccess) {
    print $http->LastErrorText, "\n";
    exit;
}

print 'Response status code: ', $http->LastStatus, "\n";

print $jsonResponse, "\n";

# Output:

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