#!/usr/bin/perl
##############################################################################
#
# CGI Script require Perl 5.003 or heigher.
#
# Written by K.Nakagawa, except 'jcode','stdio' and 'date' packages
#
# This script uses 'jcode.pl' and 'stdio.pl' and 'date.pl'.
# Very thanks to their writer!!!
##############################################################################
require 'packages.pl';
#共通変数・サブルーチン定義
require 'corex.pl';
require 'global.cgi';
#############################################################################
# ユーザー設定
#############################################################################
#一度に表示する件数
$PAGE_SHOW = 100;
#############################################################################
# Debug option... 詳細表示する => 1 | 詳細表示しない => 0
#############################################################################
$debug_mode = 0;
%FORM = ();
%COOKIE = ();
%LOG = ();
@LOG = ();
$FDIR = "";
if($ENV{'REQUEST_METHOD'})
{
@FORM = stdio::getFormData(\%FORM,2,'SJIS');
}
else
{
foreach(@ARGV)
{
my @e = split(/=/);
$FORM{$e[0]} = $e[1];
}
}
$DIR = $FORM{'dir'} ? $FORM{'dir'} : $DIR_DEFAULT;
unless(-e "$DIR_DATA/$DIR/property.pl")
{
&html_header;
print qq(\n);
print qq(\n);
print qq(スタートアップ・エラー\n);
print qq(ディレクトリ定義ファイルを読み込めません\n);
exit;
}
require "$DIR_DATA/$DIR/property.pl";
&setDirectory;
##ここまで##################################################################
&main;
##スクリプト実行終了
###################################################
# メイン
###################################################
sub main
{
my $logfile = "$DIR_DATA/$FDIR/$LOG_NAME";
my @logdata;
my $num = 0;
my $ctime = time;
if(&getLogEx($logfile) == 1)
{
&cgiOut($ERROR_OPEN);
}
@logdata = splice(@LOG,1);
&html_header;
print qq(\n);
print qq(\n);
print qq(\n);
print qq($HTML_TITLE - HeadLine - \n);
print qq(\n);
print qq(\n);
#ここに表示用のコードを書く
foreach(@logdata)
{
if($LOG{$_})
{
my @t = split(/$split/,$LOG{$_});
my @a = split(/\//,$t[$L_ATTR]);
my $public = 0 + $a[$A_HEADER+$A_BODY+$A_PUBLIC];
my $notify = 0 + $a[$A_HEADER+$A_BODY+$A_PUBLIC+$A_NOTIFICATION];
my $notify_to = 0 + $a[$A_HEADER+$A_BODY+$A_PUBLIC+$A_NTF_TO];
my @k = split(/-/,$t[$L_KEY]);
my $date = stdio::getTime("%yyyy.%mm.%dd",32400,$k[$K_TIME]);
unless($public)
{
next;
}
print qq();
print qq($t[$L_DATE]);
#####################################################
#通知アイコンの表示 modified 2005/8/2 K.Nakagawa
#####################################################
if(($notify_to && $notify_to > $ctime && $notify) || (!$notify_to && $notify))
{
print $NOTIFICATION_DISP[$notify];
}
#####################################################
print qq($t[$L_TITLE]\n);
print qq(
);
if(++$num >= $PAGE_SHOW)
{
last;
}
}
}
print qq(\n);
print qq(\n);
exit;
}