(Tcl) Example: Http.HasRequestHeader method

Demonstrates the HasRequestHeader method.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set http [new_CkHttp]

CkHttp_SetRequestHeader $http "X-CSRF-Token" "Fetch"

set b [CkHttp_HasRequestHeader $http "X-CSRF-Token"]
if {$b == 1} then {
    puts "X-CSRF-Token: Yes"
} else {
    puts "X-CSRF-Token: No"
}

set b [CkHttp_HasRequestHeader $http "X-Something"]
if {$b == 1} then {
    puts "X-Something: Yes"
} else {
    puts "X-Something: No"
}

# The Accept and Accept-Encoding headers are default headers automatically added,
# unless the application chooses to remove by calling RemoveRequestHeader for each.
set b [CkHttp_HasRequestHeader $http "Accept"]
if {$b == 1} then {
    puts "Accept: Yes"
} else {
    puts "Accept: No"
}

# Output:

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

delete_CkHttp $http