$com |
No. | "; } print "$namae | "; if($show_mail){ print "Offical | "; } if($show_url){ print "Sound | "; } $x=0; foreach(@show){ $sortno = $_ + 19; print"$koumoku[$_]"; $x++; } if($show_img){ print " | 画像 | "; } if($show_lastup){print "最終更新日 | "; } print"
No. | "; } print "$namae | "; if($show_mail){ print "Official | "; } if($show_url){ print "Sound | "; } $x=0; foreach(@show){ $sortno = $_ + 19; print"$koumoku[$_] | "; $x++; } if($show_img){ print "画像 | "; } if($show_lastup){print "最終更新日 | "; } print "||||||||
$num | "; } if($name){ print"$name | ";} else{print"--- | ";} # メール表示 if($show_mail){ if($mail){ print"$maillink | " } else{ print "− | " } } # ホームページへのリンク表示 if($show_url){ if($url){ print"$urllink | " } else{ print "− | " } } # 項目表示 $x=0; foreach(@show){ if($item[$_-1] eq ''){print"− | ";} else{print"$item[$_-1] | ";} $x++; } # 画像の有無チェック if($show_img){ if($uptype){ if($tail){ print"$imglink | " } else{ print "− | " } } else{ if($imgurl){ print"$imglink | " } else{ print "− | " } } } # 前回の更新時間を表示 if($show_lastup){ if($last_time eq ''){ print"− | "; } else{ # $new_time時間以内に更新があったら色付きで if ($new_time && ($time - $time1) < $new_time*3600) { $last_time = "$last_time"; } print"$last_time | "; } } print"
$comment
\n"; } } # 最終更新日がないのは、管理人が名前だけ登録したとき else{ print "