[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
antenna-check for Meadow
掲示板
(was:antenna KEY vs URL)
From: TSUCHIYA Masatoshi <tsuchiya@pine.kuee.kyoto-u.ac.jp> さん曰く
Subject: [emacs-w3m:06467] Re: antenna KEY vs URL
Message-ID: <mpad68bd3mq.fsf@moss.lang-private.kuee.kyoto-u.ac.jp>
Date: Thu, 19 Feb 2004 14:45:01 +0900
土> が，[emacs-w3m:06103] でお知らせした通り，ユーザー定義関数で自由にサイ
土> トの更新を検査する方法を変更できるように拡張してあるので，対応は可能の
土> はずです．
以前 Meadow 掲示板を antenna で捕まえていたときに、更新がわから
なくて難儀していたので、作ってみました。
(defun w3m-antenna-check-tcupbbs (site handler)
(lexical-let ((site site)
(url (w3m-antenna-site-key site)))
(w3m-process-do-with-temp-buffer
(type (w3m-retrieve url nil 'nocache nil nil handler))
(let (time)
(when type
(w3m-decode-buffer url)
(goto-char (point-min))
(when (re-search-forward
(concat "投稿日： *\\([0-9]+\\)月 *\\([0-9]+\\)日(.)"
" *\\([0-9]+\\)時 *\\([0-9]+\\)分 *\\([0-9]+\\)秒") nil t)
(let ((mon (string-to-number (match-string 1)))
(day (string-to-number (match-string 2)))
(hour (string-to-number (match-string 3)))
(min (string-to-number (match-string 4)))
(sec (string-to-number (match-string 5)))
(year (string-to-number (format-time-string "%Y" (current-time)))))
(setq time (encode-time sec min hour day mon year 32400)))))
(if time
(w3m-antenna-site-update site (w3m-antenna-site-key site) time nil)
(w3m-antenna-check-page site handler))))))
http://6629.teacup.com/yutopia/bbs を表示しておいて、"+" して、
Procedure => user function => w3m-antenna-check-tcupbbs
と指定します。ただし、新年は最初の投稿があるまでチェックが狂うで
しょう。
# ほとんど Meadow 掲示板専用関数ですが、Meadow 掲示板ってぐらい
# だからね :-)
--
白井秀行 (mailto:shirai@meadowy.org)