|;
for ($n = 0; $n <= $g_su; $n++) {
my $i = 0;
open(IN,"$logfile") || &error("Open Error: $logfile");
while () {
my ($a1,$a2,$a3,$a4,$a5,$a6,$a7,$a8,$a9,$a10,$a11,$a12,$a13,$a14,$a15,$a16,$a17,$a18,$a19,$a20) = split(/<>/);
$a=datetring();
$b=$a3;
$c=$a7;
# /を取り除く
$a =~ s/\///g;
$b =~ s/\///g;
$c =~ s/\///g;
#日付と投稿ナンバーで比較
$x=$b.$a1;
$count2=$n+$page;
if (($a >= $b)&&($x eq @min[$n])&&($a5 eq "on")) {
if($c ne ""){
if($a <=$c){
$flg=1;
$flg3++;
$flg4++;
$date[$flg7]->[1]=$a1;
$date[$flg7]->[2]=$a2;
$date[$flg7]->[3]=$a3;
$date[$flg7]->[4]=$a4;
$date[$flg7]->[5]=$a5;
$date[$flg7]->[6]=$a6;
$date[$flg7]->[7]=$a7;
$date[$flg7]->[8]=$a8;
$date[$flg7]->[9]=$a9;
$date[$flg7]->[10]=$a10;
$date[$flg7]->[11]=$a11;
$date[$flg7]->[12]=$a12;
$date[$flg7]->[13]=$a13;
$date[$flg7]->[14]=$a14;
$date[$flg7]->[15]=$a15;
$date[$flg7]->[16]=$a16;
$date[$flg7]->[17]=$a17;
$date[$flg7]->[18]=$a18;
$date[$flg7]->[19]=$a19;
$date[$flg7]->[20]=$a20;
$flg7++;
}
}else{
$flg=1;
$flg3++;
$flg4++;
$date[$flg7]->[1]=$a1;
$date[$flg7]->[2]=$a2;
$date[$flg7]->[3]=$a3;
$date[$flg7]->[4]=$a4;
$date[$flg7]->[5]=$a5;
$date[$flg7]->[6]=$a6;
$date[$flg7]->[7]=$a7;
$date[$flg7]->[8]=$a8;
$date[$flg7]->[9]=$a9;
$date[$flg7]->[10]=$a10;
$date[$flg7]->[11]=$a11;
$date[$flg7]->[12]=$a12;
$date[$flg7]->[13]=$a13;
$date[$flg7]->[14]=$a14;
$date[$flg7]->[15]=$a15;
$date[$flg7]->[16]=$a16;
$date[$flg7]->[17]=$a17;
$date[$flg7]->[18]=$a18;
$date[$flg7]->[19]=$a19;
$date[$flg7]->[20]=$a20;
$flg7++;
}
}
}
}
close(IN);
for ($n = 0; $n < $pageLog; $n++){
#width,heightを指定 $ww,$hhは画像up時に登録済
if ($date[$n3+$page2]->[15] && $date[$n3+$page2]->[16]) { $wh="width=$date[$n3+$page2]->[15] height=$date[$n3+$page2]->[16]"; }
else { $wh=""; }
#画像ファイル存在チェック
$foo = "./sub/img/$date[$n3+$page2]->[1]_main.$date[$n3+$page2]->[16]";
$foo2="./sub/file/file_$date[$n3+$page2]->[1].$date[$n3+$page2]->[15]";
if (-e $foo2) {
$href=" | ";
}else{
$href="";
}
if (-e $foo) {
$strFoo = " ";
} else {
$strFoo = "";
}
#掲示板に一件分表示 画像無し
if(($n3+$page2)<=($flg7-1)){
print <
| $date[$n3+$page2]->[8] | $date[$n3+$page2]->[3] |
|---|
|
$strFoo
$date[$n3+$page2]->[4]
|
$href
|