19 lines
566 B
Text
19 lines
566 B
Text
@(next @(open-command "wget -c http://tycho.usno.navy.mil/cgi-bin/timer.pl -O - 2> /dev/null"))
|
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final"//EN>
|
|
<html>
|
|
<body>
|
|
<TITLE>What time is it?</TITLE>
|
|
<H2> US Naval Observatory Master Clock Time</H2> <H3><PRE>
|
|
@(collect :vars (MO DD HH MM SS (PM " ") TZ TZNAME))
|
|
<BR>@MO. @DD, @HH:@MM:@SS @(maybe)@{PM /PM/} @(end)@TZ@/\t+/@TZNAME
|
|
@ (until)
|
|
</PRE>@/.*/
|
|
@(end)
|
|
</PRE></H3><P><A HREF="http://www.usno.navy.mil"> US Naval Observatory</A>
|
|
|
|
</body></html>
|
|
@(output)
|
|
@ (repeat)
|
|
@MO-@DD @HH:@MM:@SS @PM @TZ
|
|
@ (end)
|
|
@(end)
|