PenPenPalm

cgi-bin  -+-   timy -+- timy_3.cgi (755)

                     +- up.gif   (644)  新記事に表示するアイコン

                     +- dummy.gif   (644)  旧記事に表示するアイコン（例　）

#!/usr/bin/perl

#----------------------------------------
# 単なる新記事　アイコン表示　ささやかcgi
#                   for MovableType part2
#
#                 by Clover こと a.tanaka
#                              2003.11.02
# http://tanakaa.selfip.com:8008/ppp/
#----------------------------------------

#--------------------------------------------------------------------------------------
# 使用条件：　ssi 可能なサーバーであること
#--------------------------------------------------------------------------------------
# 設置法
#
# cgi-bin  -+-  time(755) -+- timy_3.cgi (755)
#                          +- up.gif   (644)    新記事に表示するアイコン
#                          +- dummy.gif   (644)  旧記事に表示するダミーアイコン
#--------------------------------------------------------------------------------------
# 引用　の　例
#
# <img src="http://your.server.ne.jp/yourname/cgi-bin/timy/timy_3.cgi?<$MTEntryDate format="yy=%Y&MM=%m&dd=%d&hh=%H&mm=%M&ss=%S"$>&Ti=48" alt="new">
#
#     timy3.cgi のパス　　例：http://your.server.ne.jp/yourname/cgi-bin/timy/timy_3.cgi
#     エントリー更新時刻　　　<$MTEntryDate format="yy=%Y&MM=%m&dd=%d&hh=%H&mm=%M&ss=%S"$>
#     更新判定時間            Ti=48  (この例では48時間)
# --------------------------------------------------------------------------------------

#============
# 設定
#============

# 新記事に表示するアイコンファイル名
$gifname = "up.gif";

# 旧記事に表示するダミーアイコンファイル名
$gif2name = "dummy.gif";

#============
# 設定 終わり
#============

use Time::Local;

&Macro_Setup;

$nowtime = time();

$f_time = timelocal($Mss, $Mmm, $Mhh, $Mdd, $MMM - 1, $Myy);

if ( ( $nowtime - $f_time ) < 60*60*$Time1 ) { 
	open (IMG, "$gifname");
	print "Content-type: image/gif\n\n";
	print <IMG>;
	close(IMG);
} else {
	open (IMG, "$gif2name");
	print "Content-type: image/gif\n\n";
	print <IMG>;
	close(IMG);
}
exit;

sub Macro_Setup {
	### 引数の解釈
	foreach $data (split(/&/, $ENV{'QUERY_STRING'})) {
		($key , $val) = split(/=/,$data);
		$P{$key} = $val;
	}
	$Time1 = $P{'Ti'};
	$Myy = $P{'yy'};		# 以下年月日時刻
	$MMM = $P{'MM'};
	$Mdd = $P{'dd'};
	$Mhh = $P{'hh'};
	$Mmm = $P{'mm'};
	$Mss = $P{'ss'};
}