;; -*- Mode: Irken -*-
(include "doom/doom.scm")
(define (fetch-head ip)
(let ((sfd (socket AF_INET SOCK_STREAM 0))
(addr (make-in-addr ip 80)))
(connect sfd addr)
(printn (send sfd "HEAD / HTTP/1.0\r\n\r\n"))
(print-string (recv sfd 1024))
(print-string "done!\n")
(close sfd)
))
(let ((ip "72.52.84.226"))
(poller/fork (lambda () (fetch-head ip)))
(poller/fork (lambda () (fetch-head ip)))
(poller/fork (lambda () (fetch-head ip)))
(poller/wait-and-schedule)
)