#!/usr/local/bin/perl
use Time::Local;
$newmark = ' ';
$newdates=2;
$time=time;
open IN,"message.idx";
print "content-type: text/html\n\n";
while(){
if ($line++==10){
last;
}
@fields=split(/:=:/);
($year,$mon,$day)=split(/\//,$fields[3]);
$updatetime=timelocal(0,0,0,$day,$mon-1,$year);
if (($time-$updatetime) > $newdates*24*60*60*2) { $newsign = ""; }
else { $newsign = "$newmark"; }
if(not($fields[0]=~/^\*/)){
print " | $fields[1]$newsign | $fields[2] | \n" ;
}
}
print " | | →続き | " ;
close IN;
|