7 lines
178 B
Tcl
7 lines
178 B
Tcl
|
package require http
|
||
|
|
|
||
|
|
set request [http::geturl "http://tycho.usno.navy.mil/cgi-bin/timer.pl"]
|
||
|
|
if {[regexp -line {<BR>(.* UTC)} [http::data $request] --> utc]} {
|
||
|
|
puts $utc
|
||
|
|
}
|