#【予告】アーカイブの日付の切り方を変えます。これまでサーバのlocaltimeで切ってましたが、GMTの日付で切るようにします。
#de,
#で、既にchatonを使っている人がいるかどうかわからないけれど、もしいたら、切り替えの日だけはアーカイバを走らせるのに注意が必要になるかも。(素直にやると発言が失われる可能性がある)
#具体的にどう切り替えるかまだ詰めてないけど、決まったらここでアナウンスするのでchaton既に使ってる人は注意しといてください。
#りょうかいです。
#てすと
#てすと
#ログファイル作られないな。
#(define-class <chaton-config> ()
((client :init-keyword :client
:accessor client-of :init-value #f)
(url :init-keyword :url
:accessor url-of :init-value #f)
(npath :init-keyword :npath
:accessor npath-of :init-value #f)
(ipath :init-keyword :ipath
:accessor ipath-of :init-value #f)
(priority :init-keyword :priority
:accessor priority-of :init-value 0)
(logpath :init-keyword :logpath
:accessor logpath-of :init-value #f)))
(define *chaton-config*
(make-parameter
(make <chaton-config> :client "ChatonRadar"
:url "http://practical-scheme.net/chaton/gauche"
:npath "/usr/local/bin/growlnotify"
:ipath "/Users/yasuyuki/Downloads/chaton-room-gauche.gif"
:priority 2
:logpath "/Users/yasuyuki/logs/chaton-gauche.log")))#(define (main args)
(let-args (cdr args)
((cfile "c|conf=s" => (cut read-config <>))
(help "h|help" => (cut show-help <>)))
(send-notify (npath-of (*chaton-config*))
(ipath-of (*chaton-config*))
(client-of (*chaton-config*)) "Radar Start")
((with-module chaton.client chaton-log-open)
#?=(logpath-of (*chaton-config*)))
(let1 client (chaton-connect
(url-of (*chaton-config*))
(client-of (*chaton-config*))
radar-handler)
(thread-join! (ref client 'observer-thread)))))#てすと
Chaton > Archives > 2009/05/25