- 803 名前：KENT厨 mailto:sage [2010/05/09(日) 01:08:33 ID:???]
- >>797
もっといい方法があると思うけど、たとえばこんなのはどうでしょう？
75行目付近に
my $logup=(-M "$tlog");
if($logup > "$days"){
というのがあるので、先頭に#をつけて
#my $logup=(-M "$tlog");
#if($logup > "$days"){
こんな感じにする。そうしたらそのすぐ後ろに
require 'timelocal.pl';
open(LOG,"$tlog") || &er_("Can't open $tlog","1","404");
my $filetime = <LOG>;
close(LOG);
chomp($filetime);
my ($ayear,$amonth,$aday) = split(/\//, $filetime);
$ENV{'TZ'} = "JST-9";
my $beforetime = timelocal(0,0,0,$aday,$amonth-1,$ayear-1900);
my $nowtime = time();
if($nowtime > $beforetime + $days*24*60*60){
というのをコピペする。
試す前に特にログファイル（〜.logと〜.dat）などのバックアップを
取っておいてください。これは、もし$daysが7の場合7日後の日付が変わって
最初のアクセスがあった時に毎回更新されるようになってるはずですが、
うまくいかないようなら元に戻して誰かほかの人が答えてくれるのを待ってください。
|
 |
