Perl

Get Current Date/Time from NIST Time Server

See more Socket/SSL/TLS Examples

Demonstrates using Chilkat Socket to connect to an NIST time server and (using the old Time Protocol (RFC 868)), will read the current GMT time.

Note: This is not necessarily the very best means for getting the current date/time. The most commonly used time protocol is the Network Time Protocol (RFC-1305).

Perl

use chilkat();

$success = 0;

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

$socket = chilkat::CkSocket->new();

# Connect to an NIST time server and read the current date/time
$maxWaitMs = 4000;
$useTls = 0;
$success = $socket->Connect("time-c.nist.gov",37,$useTls,$maxWaitMs);
if ($success != 1) {
    print $socket->lastErrorText() . "\r\n";
    exit;
}

# The time server will send a big-endian 32-bit integer representing
# the number of seconds since since 00:00 (midnight) 1 January 1900 GMT.
# The ReceiveInt32 method will receive a 4-byte integer, but returns
# 1 or 0 to indicate success.  If successful, the integer
# is obtained via the ReceivedInt property.
$bigEndian = 1;
$success = $socket->ReceiveInt32($bigEndian);
if ($success != 1) {
    print $socket->lastErrorText() . "\r\n";
    exit;
}

$dt = chilkat::CkDateTime->new();
$dt->SetFromNtpTime($socket->get_ReceivedInt());

# Show the current local date/time
$bLocalTime = 1;
print "Current local date/time: " . $dt->getAsRfc822($bLocalTime) . "\r\n";

$maxWaitMs = 10;
$socket->Close($maxWaitMs);