#!/usr/bin/perl #┌───────────────────────────────── #│ DAY COUNTER-EX MANAGER v3.41 (2002/07/15) #│ Copyright(C) KENT WEB 2002 #│ webmaster@kent-web.com #│ http://www.kent-web.com/ #└───────────────────────────────── $ver = 'DAY COUNTER-EX v3.41'; #┌───────────────────────────────── #│ 【原作者注意事項中譯】 #│ 1. 這個CGI程式為免費提供使用。有關使用此程式所造成的任何 #│ 問題及損害，作者將不負任何賠償責任。 #│ 【中文化作者按】 #│ 1. 本中文化為作者本身網站的需求而設定，如果任何人想要利用此程式 #│ 請不要刪除程式檔裡的版權宣告以及注意事項！ #│ 2. 如果有翻譯不週到的地方還請多包含！ #│ #│ #│ 【中文化作者資訊】 #│ 姓名：郭勝佳 網址：http://www.ksc.idv.tw/　日期：2002/11/23 #└───────────────────────────────── #============# # 設定項目 # #============# # 資料檔路徑 $logfile = "./dayx.dat"; # 日次紀錄檔路徑 $dayfile = "./day.dat"; # 月次紀錄檔路徑 $monfile = "./mon.dat"; # 返回首頁路徑 $home = "http://sex.ncu.edu.tw/"; # 標題名稱 $title = "訪客人次統計系統"; # 標題文字顏色 $t_color = "#78AEFF"; # 圖表圖檔路徑 $graph1 = "http://anti-censorship.twfriend.net/gif1/blue.gif"; $graph2 = "http://anti-censorship.twfriend.net/gif1/red.gif"; # 月間表格幅度調整 # 一個月四位數大約50~100 五位數約200~500 $mKEY = 1750; # 日次表格幅度調整 # 一天兩位數左右約1~2 三位數5~10 四位數30~60 $dKEY = 30; # BODY標籤 $body = ''; #============# # 設定結束 # #============# # open(IN,"$logfile") || &error("Open Error : $logfile"); $data = ; close(IN); ($day,$yes,$to) = split(/<>/, $data); # 時間取得 $ENV{'TZ'} = "JST-8"; ($mday,$mon,$year,$wday) = (localtime(time))[3..6]; @week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat'); $date = sprintf("%02d/%02d (%s) ", $mon+1,$mday,$week[$wday]); $D_Y = sprintf("%04d/%02d", $year+1900,$mon+1); # open(IN,"$dayfile") || &error("Open Error : $dayfile"); @dayfile = ; close(IN); push(@dayfile,"$date<>$to<>\n"); # open(IN,"$monfile") || &error("Open Error : $monfile"); @monfile = ; close(IN); $under = pop(@monfile); 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"); } # &header; print <<"EOM";
返回首頁
$title

[每日來訪人次一覽] [月間訪客人次一覽]

　■ 每日來訪人次一覽

EOM $flag=0; $tochu=0; $i=0; foreach (@dayfile) { $i++; chop; ($m_d,$dcnt) = split(/<>/); if ($i == 1 && $m_d =~ /^(\d+)\/(\d+)/) { if ($2 != 1) { $tochu=1; } } # if ($dcnt > 0) { $width = int($dcnt / $dKEY); } else { $width=1; } if ($width < 1) { $width=1; } # $dcnt = &filler($dcnt); # $m_d =~ s/Sat/Sat<\/font>/; $m_d =~ s/Sun/Sun<\/font>/; print ""; print "\n"; } print <<"EOM";
日期 訪客數 圖表
$m_d $dcnt


　■ 月間訪客人次一覽

EOM $flag=0; foreach (@monfile) { ($y_m,$mcnt) = split(/<>/); ($year,$mon) = split(/\//, $y_m); if ($_ eq $monfile[$#monfile]) { if ($day == 1) { $avr = ' - '; } else { if ($tochu) { $waru = @dayfile-1; } else { $waru = $day-1; } if ($C > 0) { $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"; } print ""; print ""; print "\n"; $year2 = $year; } ## 著作權標示，請勿刪除 print <<"EOM";
年月 月間人數 日平均 圖表
$y_m$mcnt$avr
Copyright (C) Kent Web 2002~2003﹝中文化：阿佳﹞
$ver
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; } #--------------# # # #--------------# sub header { print "Content-type: text/html\n\n"; print <<"EOM"; $title $body EOM } #----------------# # # #----------------# sub filler { local($_) = $_[0]; 1 while s/(.*\d)(\d\d\d)/$1,$2/; $_; } #--------------# # # #--------------# sub error { &header; print <<"EOM";

ERROR !

$_[0]

EOM exit; }