20 lines
650 B
Rexx
20 lines
650 B
Rexx
/* Show when the last response from a NTP server was received */
|
|
Options RESULTS
|
|
Address TIMEKEEPER.1 'LastSync'
|
|
IF TIMEKEEPER.ERRORCODE == 0 THEN SAY (RESULT)
|
|
ELSE SAY (TIMEKEEPER.ERRORTEXT)
|
|
|
|
Address TIMEKEEPER.1 LASTSYNC RFC3339
|
|
IF TIMEKEEPER.ERRORCODE == 0 THEN SAY ('Time and date in RFC 3339 format:' RESULT)
|
|
ELSE SAY (TIMEKEEPER.ERRORTEXT)
|
|
|
|
Address TIMEKEEPER.1 LASTSYNC DATE
|
|
IF TIMEKEEPER.ERRORCODE == 0 THEN SAY ('Sorted date (in the form YYYYMMDD):' RESULT)
|
|
ELSE SAY (TIMEKEEPER.ERRORTEXT)
|
|
|
|
Address TIMEKEEPER.1 LASTSYNC TIME
|
|
IF TIMEKEEPER.ERRORCODE == 0 THEN SAY ('Time in seconds since midnight:' RESULT)
|
|
ELSE SAY (TIMEKEEPER.ERRORTEXT)
|
|
|
|
|