24 lines
445 B
Plaintext
24 lines
445 B
Plaintext
alias utc {
|
|
sockclose UTC
|
|
sockopen UTC tycho.usno.navy.mil 80
|
|
}
|
|
|
|
on *:SOCKOPEN:UTC: {
|
|
sockwrite -n UTC GET /cgi-bin/timer.pl HTTP/1.1
|
|
sockwrite -n UTC Host: tycho.usno.navy.mil
|
|
sockwrite UTC $crlf
|
|
}
|
|
|
|
on *:SOCKREAD:UTC: {
|
|
sockread %UTC
|
|
while ($sockbr) {
|
|
if (<BR>*Universal Time iswm %UTC) {
|
|
echo -ag $remove(%UTC,<BR>,$chr(9),Universal Time)
|
|
unset %UTC
|
|
sockclose UTC
|
|
return
|
|
}
|
|
sockread %UTC
|
|
}
|
|
}
|