Network Time Protocol (NTP) client

範例：來自 Network Time Protocol - NTP

使用了 Tcllib 中的 NTP package，並且需要使用 TclUDP 或者是 ceptcl 來提供 UDP 支援。
 

package require time

set timeserver "time.stdtime.gov.tw"

proc NetTime {server} {
set tok [time::getsntp $server] ;# or gettime to use the TIME protocol
time::wait $tok
if {[time::status $tok] eq "ok"} {
   set result [time::unixtime $tok]
   set code ok
} else {
   set result [time::error $tok]
   set code error
}
time::cleanup $tok
return -code $code $result
}


exec cmd.exe /c time [clock format [NetTime $timeserver] -format %H:%M:%S]