;; @module traffic.lsp
;; @description Yandex.traffic
;; @author Cyril Slobin
;; @version $Id: traffic.lsp,v 1.1 2008/09/11 23:58:09 slobin Exp $

(define (write-log-line file)
  (write-line (join (cons (date) (args)) " ") file))

(setq url "http://maps.yandex.ru/moscow_traffic")

(setq p-level {\<span id\=\"j\-level\"\>(.*?)\<\/span\>})
(setq p-time {\<span id\=\"j\-time\"\>(.*?)\<\/span\>})

(change-dir (env "HOME"))
(change-dir "public_html/traffic")

(setq file (open (date (date-value) 0 "%Y-%m.txt") "append"))
(setq page (get-url url))

(if (starts-with page "ERR:")
  (write-log-line file ((parse page {\r?\n} 0) 0))
  (begin
    (setq f-level (if (regex p-level page) $1 "ERR"))
    (setq f-time (if (regex p-time page) $1 "ERR"))
    (write-log-line file f-level f-time)))

(close file)
(exit)