#!/usr/bin/perl
###変更履歴######################################################
#1999/06/14 カウンタ総合計ページを作成
#2000/04/14 mtecwebに移行
#################################################################
require 'cgi-lib.pl'; #CGIライブラリ
# ==============================================
# フォーム読み込み
# ==============================================
&ReadParse(*in);
$kubun = $in{'kubun'}; #管理者権限
$User = $in{'user'}; #ユーザ名取得
# ============メイン=================
print "Content-type: text/html\n\n";
print "\n";
print "カウンタページ\n";
print "\n";
print "\n";
print "\n";
print "\n\n";
print "\n";
print "カ ウ ン タ ー
\n";
print "
\n";
print "
\n";
print "
\n";
print "\n";
print "\n";
print "| ページ名 | \n";
print " 本日 | \n";
print " 昨日 | \n";
print " 通算 | \n";
print "
\n";
##カウンタ名データ設定
@cntname = ('top');
##カウンタ名と企画名の対応データ設定
%pagedat = ('top','エクトストップページ');
##カウンタ名とサーバーアドレスの対応データ設定
%serverdat = ('top','mw');
##各種サーバーアドレスデータ設定
%server = ('mw','http://www.kmg-kusuhara.com/');
##合計計算処理
$gall = 0;
$gtoday = 0;
$gday = 0;
$gcnt = 0;
##各カウンタデータ取得,出力
foreach $cntname(@cntname){
#URL取得
if($serverdat{$cntname} eq ''){
$url = $server{'k'};
}
else{
$url = $server{$serverdat{$cntname}};
}
$url .= $urldat{$cntname};
#ページ名出力
print "\n";
print "| $pagedat{$cntname} | \n";
#本日データ取得
open(FILE,"data/today/$cntname.txt");
$today=;
close(FILE);
$today = $today + 0;
#本日データ出力
print "$today | \n";
#昨日データ取得
open(FILE,"data/day/$cntname.txt");
$day=;
close(FILE);
$day = $day + 0;
#昨日データ出力
print "$day | \n";
#通算データ取得
open(FILE,"data/all/$cntname.txt");
$all=;
close(FILE);
$all = $all + 0;
#通算データ出力
print "$all | \n";
#合計計算処理
$gall = $gall + $all;
$gtoday = $gtoday + $today;
$gday = $gday + $day;
$gcnt = $gcnt + $cnt;
print "
\n";
}
print "\n";
print "
\n\n";
print "";