規制人より10周年 ∩( ・ω・)∩ ﾊﾞﾝｼﾞｬｰｲ芋68本目

こんなかんじ、


$GoAhead = 12 ; # N分たったら解除


if(!(-e $dFile)) {&html_foot("スレッドがありませんでした。(1)");}

my ($prdev,$prino,$prmode,$prnlink,$pruid,$prgid,$prrdev,$prsize,$pratime,$prmtime,$prctime)=stat("$dFile");
if($prmode ne "33133") {&html_foot("スレストかかってないよ?");}
my $ctime = time ;
$Keika = $ctime - $prmtime ;
$Keika = int($Keika / 60 + 0.5) ;

if($Keika < $GoAhead) {&html_foot("$GoAhead 分経ってないので解除できません。($Keika)");}