Perl

Example: Http.HasRequestHeader method

Demonstrates the HasRequestHeader method. Perl

use chilkat();

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

$http->SetRequestHeader("X-CSRF-Token","Fetch");

$b = $http->HasRequestHeader("X-CSRF-Token");
if ($b == 1) {
    print "X-CSRF-Token: Yes" . "\r\n";
}
else {
    print "X-CSRF-Token: No" . "\r\n";
}

$b = $http->HasRequestHeader("X-Something");
if ($b == 1) {
    print "X-Something: Yes" . "\r\n";
}
else {
    print "X-Something: No" . "\r\n";
}

# The Accept and Accept-Encoding headers are default headers automatically added,
# unless the application chooses to remove by calling RemoveRequestHeader for each.
$b = $http->HasRequestHeader("Accept");
if ($b == 1) {
    print "Accept: Yes" . "\r\n";
}
else {
    print "Accept: No" . "\r\n";
}

# Output:

# X-CSRF-Token: Yes
# X-Something: No
# Accept: Yes