$title

#!/usr/local/bin/perl #┌───────────────────────────────── #│ DAY COUNTER-EX v3.5 (2003/07/04) #│ Copyright (c) KentWeb #│ webmaster@kent-web.com #│ http://www.kent-web.com/ #└───────────────────────────────── $ver = 'DAY COUNTER-EX v3.5'; #┌───────────────────────────────── #│ [注意事項] #│ 1. このスクリプトはフリーソフトです。このスクリプトを使用した #│ いかなる損害に対して作者は一切の責任を負いません。 #│ 2. 設置に関する質問はサポート掲示板にお願いいたします。 #│ 直接メールによる質問は一切お受けいたしておりません。 #└───────────────────────────────── #============# # 設定項目 # #============# # ログファイル $logfile = "./dayx.dat"; # 日次記録ファイル $dayfile = "./day.dat"; # 月次記録ファイル $monfile = "./mon.dat"; # 集計一覧からの戻り先 $home = "../jmkjlog.htm"; # 集計一覧のタイトル名 $title = "アクセス集計一覧"; # 集計ファイル一覧 $script = './dayxmgr.pl'; # タイトル文字色 $t_color = "#008080"; # グラフ画像 # → 絶対パスなら http:// から書く $graph1 = "./blue.gif"; $graph2 = "./red.gif"; # 月間グラフ幅の調整 # 1か月平均 4桁で50～100 5桁で200～500程度 $mKEY = 130; # 日計グラフ幅の調整 # 1日平均 2桁で1～2 3桁で5～10 4桁で30～60程度 $dKEY = 2; # bodyタグ $body = ''; # パスワード # → ここに英数字でパスワードを記述すると「閲覧」には # このパスワードが必須となります。 $pass = ''; #============# # 設定完了 # #============# # パスワード制限 if ($pass ne "") { local($key, $val, $buf); read(STDIN, $buf, $ENV{'CONTENT_LENGTH'}); %in=(); foreach ( split(/&/, $buf) ) { ($key, $val) = split(/=/); $val =~ s/&/&/g; $val =~ s/"/"/g; $val =~ s//>/g; $in{$key} = $val; } if ($in{'pass'} eq "") { &header; print "

パスワードを入力して下さい

\n"; print "

\n"; print "\n"; exit; } elsif ($pass ne $in{'pass'}) { &error("パスワードが違います"); } } # ログファイル読み込み open(IN,"$logfile") || &error("Open Error : $logfile"); flock(IN,1); @data = ; flock(IN,8); close(IN); $data = pop @data; chop ($data); # 記録ファイルを分解 ($day,$yes,$to,$countlog) = split(/<>/, $data); while ($countlog == 1) { $data = pop @data; chop ($data); # 記録ファイルを分解 ($day,$yes,$to,$countlog) = split(/<>/, $data); } # 時間取得 $ENV{'TZ'} = "JST-9"; ($mday,$monnow,$year,$wday) = (localtime(time))[3..6]; @week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat'); $date = sprintf("%02d/%02d (%s) ", $monnow+1,$mday,$week[$wday]); # 月間アクセスファイルを読み込み open(IN,"$monfile") || &error("Open Error : $monfile"); flock(IN,1); @monfile = ; flock(IN,8); close(IN); # popは、配列最後のレコードを返し、配列から最後のレコードは削除される。 $under = pop(@monfile); ################## #push (@monfile,$under); ################## $D_Y = sprintf("%04d/%02d", $year+1900,$monnow+1); ##################### $yearnow = $year + 1900; ##################### if ($under =~ /^(\d+)\/(\d+)<>(\d+)/) { $Y="$1/$2"; $C=$3; } if ($Y eq $D_Y) { $C2 = $C + $to; push(@monfile,"$Y<>$C2<>\n"); } else { push(@monfile,"$D_Y<>$to<>\n"); } ###################### $monnow++; if ($monnow < 10) { $monnow = "0$monnow"; } ###################### # 日次アクセスファイルを読み込み open(IN,"$dayfile") || &error("Open Error : $dayfile"); flock(IN,1); @dayfile = ; flock(IN,8); close(IN); push(@dayfile,"$date<>0<>\n"); # HTMLを表示 &header; print <<"EOM";

戻る

$title

[日次アクセス一覧] [月次アクセス一覧]

　■ 日次アクセス一覧

EOM $flag=0; $tochu=0; for (my $i = 0; $i <@dayfile; $i++) { chop; ($m_d,$dcnt) = split(/<>/,$dayfile[$i]); # \d+は「数字1文字(\d)以上(+)続く文字」という意味である。 # =~ は、@_ 以外の変数($m_d)に対してパターンマッチを行う時に使うもの。 # 真ん中の「\/」=「文字列の"/"」の意味。つまり、これはm/ /である。 if ($i == 1 && $m_d =~ /^(\d+)\/(\d+)/) { # ^は、行頭の意味 # パターンマッチ（上の行）に成功すると、n個のグループ【( )内のこと】の文字列は特殊変数$1と$2…$nに残される。 if ($2 != 1) { $tochu=1; } } # グラフ幅を指定 if ($dcnt > 0) { $width = int($dcnt / ($dKEY * 5)); } else { $width=1; } if ($width < 1) { $width=1; } # 桁処理 $dcnt = &filler($dcnt); # 色変更 $m_d =~ s/Sat/Sat<\/font>/; $m_d =~ s/Sun/Sun<\/font>/; $dayfile[$i] = "\n"; } print @dayfile; print <<"EOM";

月日 IP総数　グラフ
$m_d $dcnt

月日	IP総数	グラフ
$m_d	$dcnt

　■ 月次アクセス一覧

EOM $flag=0; foreach (@monfile) { ($y_m,$mcnt) = split(/<>/); ($year,$mon) = split(/\//, $y_m); if ($_ eq $monfile[$#monfile]) { # $day は、dayx.datの前回アクセス更新時日付 if ($day == 1) { $avr = ' - '; } else { if ($tochu) { $waru = @dayfile-1; } else { $waru = $day-1; } if ($C > 0) { # int(式)は、式の整数値を返す。 $avr = int (($C / $waru) +0.5); $avr = &filler($avr); } else { $avr = ' - '; } } } else { $lastday = &LastDay($year, $mon); $avr = int (($mcnt / $lastday) +0.5); $avr = &filler($avr); } # グラフ幅を指定 if ($mcnt > 0) { $width = int($mcnt / $mKEY); } else { $width=1; } if ($width < 1) { $width=1; } # 桁処理 $mcnt = &filler($mcnt); if ($year ne $year2) { print "\n"; } ############################ if (($mon eq $monnow) && ($year eq $yearnow)) { print ""; } else { print ""; } ############################ print ""; print "\n"; $year2 = $year; } ## 著作権表示（削除改変禁止） print <<"EOM";

年月月間日平均グラフ
$y_m $mcnt
$y_m $mcnt $avr

年月	月間	日平均

$y_m	$mcnt
$y_m	$mcnt	$avr

EOM exit; #----------------# # 月の末日計算 # #----------------# sub LastDay { local($year, $mon) = @_; local($lastday); $lastday = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31) [$mon - 1] + ($mon == 2 && (($year % 4 == 0 && $year % 100 != 0) || $year % 400 == 0)); $lastday; } #--------------# # HTMLヘッダ # #--------------# sub header { print "Content-type: text/html\n\n"; print <<"EOM"; $title $body EOM } #----------------# # 桁区きり処理 # #----------------# sub filler { local($_) = $_[0]; # "." は、「\n以外の任意の1文字」。"*" は、「適合文字列0個以上」の意味 # \dは「数字1文字」 1 while s/(.*\d)(\d\d\d)/$1,$2/; $_; } #--------------# # エラー処理 # #--------------# sub error { &header; print <<"EOM";

ERROR !

$_[0]

EOM exit; } __END__