« 京ぽん用 USB ケーブル(短) | Main | Wiki 小話が終わっていた »



Sat, 26 Nov 2005

entries_filedate on Blosxom を修正

Posted at Sat, 26 Nov 2005 in computer::blosxom

MayimMayim さんによる entries_filedate プラグインを使わせてもらっているのですが、未来の日記も表示されてしまうので2行ほど追加して対応してみました。
この日記が 11月26日になって表示されたらとりあえずは成功ということで。

Perl はほとんど使ったことがないのですが、and の使い方なんかは lisp と共通なんですね。お風呂に浸かりながらぼーっとソースを眺めてようやく改善ポイントはわかったものの、やっぱりまだどういう動きをしているかはわからないのでした。たとえば "and" と "&&"、"or" と "||" はどうちがうんだろう、とか。機能は同じだけど慣例で使い分けているんじゃないかな、とてきとうに予想しています。

変更前(一部抜粋)

		# to show or not to show future entries
		(
			$blosxom::show_future_entries
			or stat($node)->mtime <= time
		)
		and ( $files{$File::Find::name} || ++$reindex )
		and ( $files{$File::Find::name} =
			extract_date($File::Find::name,$files{$File::Find::name}) ||
			$files{$File::Find::name} ||
			stat($node)->mtime )

変更後(同)

		# to show or not to show future entries
		(
			$blosxom::show_future_entries
			or stat($node)->mtime <= time
		)
		# add by oosawa //
		and (	$blosxom::show_future_entries
				or extract_date($File::Find::name, $files{$File::Find::name}) <= time
		)
		# //
		and ( $files{$File::Find::name} || ++$reindex )
		and ( $files{$File::Find::name} =
			extract_date($File::Find::name,$files{$File::Find::name}) ||
			$files{$File::Find::name} ||
			stat($node)->mtime )

« 京ぽん用 USB ケーブル(短) | Main | Wiki 小話が終わっていた »