トップ «前の日記(2004-11-09 (Tue)) 最新 次の日記(2004-11-12 (Fri))» 編集

猫熊は燃えつきた?!日記

最近なんにもやっていませんが、なにかやったらこちらに置くようにしています。
2002|12|
2003|01|02|03|04|05|06|07|08|09|10|11|12|
2004|01|02|03|04|05|06|07|08|09|10|11|12|
2005|01|02|03|04|05|06|07|08|09|10|11|12|
2006|01|02|03|04|05|06|07|08|09|10|11|12|
2007|01|02|03|04|05|06|07|08|09|10|11|12|
2008|01|02|03|04|05|06|07|08|09|10|11|12|
2009|01|02|03|04|05|06|07|08|09|10|11|12|
2010|01|02|03|04|05|06|07|08|
2011|09|
2012|02|


2004-11-11 (Thu) [長年日記]

Meadow 掲示板の更新チェック

そういえば、Meadow 掲示板の antenna チェッカって、公開したことがなかったかも。標準のチェック方法だとうまく動かない。
こんな関数を ~/.emacs または ~/.emacs-w3m にでも書いておいて、
(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))))))
antenna の画面で "E" w3m-edit-current-url() を動かして、custom で以下の様に追加する。
INS DEL URL: http://6629.teacup.com/yutopia/bbs
       Title: Meadow掲示板
       Procedure: Value Menu Check with a user defined function: <= これとか
       Function: w3m-antenna-check-tcupbbs <= これね
       Arguments:
       INS
しかし、年をまたぐときはうまく動かないでしょう。新年になって、だれかが投稿すれば大丈夫なような気がする ^^;;;

いかん

年末調整の締切、明日だ。全然書いていないぞ。

というわけで、

年末調整の書類を書くために、いつもより早く帰ってきた。よくよく「書き方」を読むと、なんだか去年までより提出しなくちゃならない証明書とか増えているんですけど。。。


書いている人: 白井秀行 (mailto:shirai@meadowy。org)
訪問して下さった人: 今日: 人, 昨日: , 過去: 人 (2007年5月10日から)
RDF Feed