#!/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 "\n"; #本日データ取得 open(FILE,"data/today/$cntname.txt"); $today=; close(FILE); $today = $today + 0; #本日データ出力 print "\n"; #昨日データ取得 open(FILE,"data/day/$cntname.txt"); $day=; close(FILE); $day = $day + 0; #昨日データ出力 print "\n"; #通算データ取得 open(FILE,"data/all/$cntname.txt"); $all=; close(FILE); $all = $all + 0; #通算データ出力 print "\n"; #合計計算処理 $gall = $gall + $all; $gtoday = $gtoday + $today; $gday = $gday + $day; $gcnt = $gcnt + $cnt; print "\n"; } print "\n"; print "
ページ名 本日  昨日  通算 
$pagedat{$cntname}$today$day$all
\n\n"; print "
";