のみまくし日記

GMTな罠

単純に以下のようにしたら。

my $t = Time::Piece->strptime(
	'2003-04-24 00:00:00',
	"%Y-%m-%d %H:%M:%S"
);

$t->epoch(); の値は GMTな値でした。

strptimeの罠

エー、っと思ったけど、まぁ、仕様的には納得できるので以下のようにしてみました。

my $t = Time::Piece->strptime(
	'2003-04-24 00:00:00 JST',
	"%Y-%m-%d %H:%M:%S %Z"
);

したら、strptime は %Z を扱えないみたい。(man strptime) しょうがないので

日付の大小の比較したかっただけなので、$t->epoch() - $t->tzoffset() と time() を比べることにしました。なんか、適当な対応。

今日はSledge::Plugin::DenyDeepLinkというのを作ってみました。

リンクを禁止するというより、違うサーバ（ローカル）からのPOSTを禁止したい目的で使っています。

そのうちアクセス制御的なプラグイン(Authorizerクラス)にしようかと考えています。

ご飯を食べに、あんまり飲まない予定だったのに、またいっぱい飲んでしまった。

2003年04月28日 (月)