2005 ColdFusion UDF To Access NIST Time Servers
A developer asked me how he could get absolutely accurate time information for an application that he is working on. He cannot rely on local server time as he has no control over the machine, and can't verify that it is accurate (and can't change the time if not). There is no NTP (network time protocol) tag in ColdFusion, but fortunately one is not needed, because the NIST time servers also respond to plain text daytime protocol requests.
Here is a quick UDF I threw together to solve the problem. Call GetNISTTime() and it'll return a structure containing the raw data returned from the time server, as well as individual fields broken out for ease of use:
Author: Ben Forta, 12/6/2005
Description: Obtains current time data from NIST
Internet Time Service servers.
DST: US daylight savings time flag.
HEALTHY: TRUE if time server is healthy, FALSE if not.
JULIAN: Last 5 digits of Julian date/time value.
LEAPMONTH: TRUE is second will be added to or subtracted
from the current month.
MSADV: Number of milliseconds advanced by server to
compensate for network latency.
NOW: Current date/time.
RAW: Raw data from time server.
SUCCESS: TRUE if worked, FALSE if not, check
this flag first.
Note: For a list of NIST time servers see:
Servers should be addressed via IP address rather than
host name. The server used here is time.nist.gov
(22.214.171.124), but any of the listed servers will work.
To use an alternate server, just specify the IP
address in timeServer variable.
<cffunction name="GetNISTTime" returntype="struct" output="false">
<cfset var timeServer="126.96.36.199">
<cfset var result=StructNew()>
<!--- Try/catch block --->
<!--- Try get time data --->
<cfhttp url="http://#timeServer#:13/" />
<!--- Save raw data --->
<cfset result.raw = CFHTTP.FileContent>
<!--- Extract Julian date --->
<cfset result.julian=ListGetAt(result.raw, 1, " ")>
<!--- Extract current date and time --->
<cfset result.now=ParseDateTime(ListGetAt(result.raw, 2, " ")
& " "
& ListGetAt(result.raw, 3, " "))>
<!--- Extract daylight savings time flag --->
<cfset result.dst=IIf(ListGetAt(result.raw, 4, " ") IS 0,
<!--- Extract leap month flag --->
<cfset result.leapmonth=IIf(ListGetAt(result.raw, 5, " ") IS 0,
<!--- Extract health flag --->
<cfset result.healthy=IIf(ListGetAt(result.raw, 6, " ") IS 0,
<!--- Extract advance milliseconds --->
<cfset result.msadv=ListGetAt(result.raw, 7, " ")>
<!--- Success --->
<!--- Catch any errors --->
To test this code you can just use: