(Tcl) Query NTP Server for Current Date/Time

Demonstrates how to query an NTP server to get the current date/time.

Note: This feature was added in Chilkat v9.5.0.96.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# Specify the NTP server domain.
# Information is passed in a JSON object to allow for any unanticipated future optional information that might need to be provided.
set json [new_CkJsonObject]

CkJsonObject_UpdateString $json "ntp_server" "pool.ntp.org"

# Query the NTP server for the current date/time.
set dt [new_CkDateTime]

set success [CkDateTime_SetFromNtpServer $dt [CkJsonObject_emit $json]]
if {$success == 0} then {
    puts [CkDateTime_lastErrorText $dt]
    delete_CkJsonObject $json
    delete_CkDateTime $dt
    exit
}

# Show the date/time in various formats..
set bLocalTime 1
puts [CkDateTime_getAsTimestamp $dt $bLocalTime]
puts [CkDateTime_getAsRfc822 $dt $bLocalTime]
puts [CkDateTime_GetAsUnixTime $dt $bLocalTime]

# Sample output:

# 2023-10-31T09:43:27-05:00
# Tue, 31 Oct 2023 09:43:27 -0500
# 1698745407

delete_CkJsonObject $json
delete_CkDateTime $dt