#!/usr/bin/perl
#↑perlの存在するpathに書き換えてください。
#-------------------------------------------------------------------#
# 今日の訪問者
# tdylog.cgi by http://kikuchisan.net/
# using modified log.csv of webaxs.pl
#-------------------------------------------------------------------#
print "Content-type: text/html\n\n";
#書き換えるところ
$log = "./log.csv"; #ログファイルのパス指定
#書き変えるところ(ここまで)
#環境変数取得
$buffer = $ENV{'QUERY_STRING'};
@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$FORM{$name} = $value;
}
# ヘッダー部出力---------------------------------
print "今日の訪問者\n";
print "\n";
print "\n";
print "\n";
# -------入力フォームの作成
print " | |
\n";
#フォーム入力の有無をチェック
# 無い場合--今日,前日の処理
# 有る場合--過去の指定日の処理
if ($FORM{'date'} eq '') {
# 時刻取得
($sec,$min,$hour,$mday,$mon,$year,$wday,$suu) = gmtime(time + 9*3600);
for($i = 0; $i < 2; $i++) {
# 月数変換
$mon++;
# 数が1桁の場合は頭に0を付ける
if ($mon < 10) { $mon = "0$mon"; }
if ($mday < 10) { $mday = "0$mday"; }
if ($min < 10) { $min = "0$min"; }
if ($hour < 10) { $hour = "0$hour"; }
# 曜日処理
@week = ('日','月','火','水','木','金','土');
$wday = $week[$wday];
# テーブル部出力---------------------------------
print "
$year年$mon月$mday日($wday)\n";
if ($i < 1) {print "(午前0時より$hour時$min分まで)\n";}
print " |
\n";
# テーブル表示
&vew;
#前日データセット
($sec,$min,$hour,$mday,$mon,$year,$wday,$suu) = gmtime(time + 9*3600 - 60*60*24);
}
print "\n";
} else {
# 過去の指定日処理
$oldday=$FORM{'date'}*60*60*24;
($sec,$min,$hour,$mday,$mon,$year,$wday,$suu) = gmtime(time + 9*3600-$oldday);
# 月数変換
$mon++;
# 数が1桁の場合は頭に0を付ける
if ($mon < 10) { $mon = "0$mon"; }
if ($mday < 10) { $mday = "0$mday"; }
if ($min < 10) { $min = "0$min"; }
if ($hour < 10) { $hour = "0$hour"; }
# 曜日処理
@week = ('日','月','火','水','木','金','土');
$wday = $week[$wday];
# テーブル部出力---------------------------------
print " \n";
# テーブル表示
&vew;
print " |