Data commit

Task/Web-scraping/MIRC-Scripting-Language/web-scraping.mirc

@@ -0,0 +1,23 @@
+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
+  }
+}