mirror of
https://bitbucket.org/grumdrig/pq.git
synced 2026-09-29 08:44:00 -06:00
This is an ex post facto rendering of pq6 in its various versions in
svn, so that changes will be trackable thataway. As checked in, right here, this is PQ 6.0
This commit is contained in:
Eric Fredricksen
@@ -0,0 +1,526 @@
|
||||
<?php
|
||||
|
||||
###########################################################################
|
||||
# configuration
|
||||
###########################################################################
|
||||
|
||||
# main script path & script URL
|
||||
$script_path = '/usr/home/uhomeu2/elton99/php-bin/eklog';
|
||||
$script_url = 'http://elton99.uhome.net/php-bin/eklog/eklog.php';
|
||||
|
||||
# last-visit, count & log data files
|
||||
$vst_file = "$script_path/visit.txt";
|
||||
$cnt_file = "$script_path/count.txt";
|
||||
$log_file = "$script_path/log.txt";
|
||||
|
||||
###########################################################################
|
||||
|
||||
# IP addresses to be excluded in access log (can exclude a whole sub-net)
|
||||
# white IPs have access to all statistics
|
||||
# black IPs have no access to any data
|
||||
# e.g. $white_ip_list = array('xxx.xxx.xxx.xxx', 'yyy.yyy.yyy');
|
||||
$white_ip_list = array();
|
||||
$black_ip_list = array();
|
||||
|
||||
# length of time (minutes) before consecutive hits from an IP are counted
|
||||
# use 0 to disable anti-reload feature
|
||||
$anti_reload_period = 60;
|
||||
|
||||
###########################################################################
|
||||
|
||||
# count visible?
|
||||
$visible_count = 1;
|
||||
|
||||
# show count digits as
|
||||
# 0 - text
|
||||
# 1 - images
|
||||
$digit_type = 1;
|
||||
|
||||
# absolute number of digits to display
|
||||
# (used when $digit_length >= count_digit_length)
|
||||
$digit_length = 0;
|
||||
|
||||
# number of zeroes to prefix the count
|
||||
# (used when $digit_length < count_digit_length)
|
||||
$digit_pad = 1;
|
||||
|
||||
# show digits in what language?
|
||||
# (used when showing digits as text)
|
||||
$arabic_count = 1;
|
||||
$chinese_count = 0;
|
||||
$roman_count = 0;
|
||||
|
||||
if ($arabic_count) {
|
||||
$bold = 0;
|
||||
$italic = 0;
|
||||
$cnt_color = '#ff0000';
|
||||
$cnt_face = 'Comic Sans MS';
|
||||
$cnt_size = '+1';
|
||||
} elseif ($chinese_count) {
|
||||
$bold = 1;
|
||||
$italic = 0;
|
||||
$cnt_color = '#ff0000';
|
||||
$cnt_face = '';
|
||||
$cnt_size = '+1';
|
||||
} elseif ($roman_count) {
|
||||
$bold = 0;
|
||||
$italic = 0;
|
||||
$cnt_color = '#ff0000';
|
||||
$cnt_face = 'Comic Sans MS';
|
||||
$cnt_size = '+1';
|
||||
}
|
||||
|
||||
# digit images directory name & file extension
|
||||
# directory can use absolute or relative path
|
||||
# absolute paths start with "http://", "https://" or "/"
|
||||
# all other paths are considered relative (to main script directory)
|
||||
# (used when showing digits as images)
|
||||
$img_dir = 'digit';
|
||||
$img_ext = 'gif';
|
||||
|
||||
# individual digit image width & height
|
||||
$img_width = 16;
|
||||
$img_height = 21;
|
||||
|
||||
# digit images text alignment
|
||||
# e.g. absmiddle, top, middle, bottom
|
||||
$img_align = 'absmiddle';
|
||||
|
||||
###########################################################################
|
||||
|
||||
# statistics visible?
|
||||
$visible_stat = 1;
|
||||
|
||||
# statistics page window name
|
||||
# use empty string for same window (as count page)
|
||||
$stat_frame = '_blank';
|
||||
|
||||
# statistics summary visible?
|
||||
# statistics detail visible?
|
||||
$summary_stat = 1;
|
||||
$detail_stat = 1;
|
||||
|
||||
# statistics background colours
|
||||
$back_col_type = 'yellow';
|
||||
$back_col_head = 'lightblue';
|
||||
$back_col_body = 'lightcyan';
|
||||
|
||||
###########################################################################
|
||||
# main programme
|
||||
###########################################################################
|
||||
|
||||
$agent_stat = array();
|
||||
|
||||
# create initial data files during first run
|
||||
if (! file_exists($vst_file)) {
|
||||
$vst_fp = fopen($vst_file, 'w') or die("Can't open $vst_file\n");
|
||||
flock($vst_fp, 2);
|
||||
fwrite($vst_fp, '0.0.0.0|0');
|
||||
fclose($vst_fp);
|
||||
}
|
||||
|
||||
if (! file_exists($cnt_file)) {
|
||||
$cnt_fp = fopen($cnt_file, 'w') or die("Can't open $cnt_file\n");
|
||||
flock($cnt_fp, 2);
|
||||
fwrite($cnt_fp, '0');
|
||||
fclose($cnt_fp);
|
||||
}
|
||||
|
||||
# run script
|
||||
if (getenv('QUERY_STRING') == '') {
|
||||
takeLog(); # take log
|
||||
} elseif (strtolower(getenv('QUERY_STRING')) == 'stat') {
|
||||
viewStat(); # view statistics
|
||||
} else {
|
||||
# exit when script is called with invalid parameter
|
||||
print '[parameter invalid]';
|
||||
}
|
||||
|
||||
###########################################################################
|
||||
# functions
|
||||
###########################################################################
|
||||
|
||||
function takeLog() {
|
||||
global $script_url, $vst_file, $cnt_file, $log_file;
|
||||
global $visible_count;
|
||||
global $digit_type, $digit_length, $digit_pad;
|
||||
global $arabic_count, $chinese_count, $roman_count;
|
||||
global $bold, $italic, $cnt_color, $cnt_face, $cnt_size;
|
||||
global $img_dir, $img_ext, $img_width, $img_height, $img_align;
|
||||
global $visible_stat, $stat_frame;
|
||||
|
||||
# do access log
|
||||
if (handleListedIP() || isReload()) { # no logging needed
|
||||
$cnt_fp = fopen($cnt_file, 'r') or die("Can't open $cnt_file\n");
|
||||
$cnt = fread($cnt_fp, filesize($cnt_file));
|
||||
$cnt = chop($cnt);
|
||||
fclose($cnt_fp);
|
||||
} else { # logging needed
|
||||
# process last-visit data
|
||||
$vst_fp = fopen($vst_file, 'w') or die("Can't open $vst_file\n");
|
||||
flock($vst_fp, 2);
|
||||
$tm = time();
|
||||
fwrite($vst_fp, getenv('REMOTE_ADDR')."|$tm");
|
||||
fclose($vst_fp);
|
||||
|
||||
# process count data
|
||||
$cnt_fp = fopen($cnt_file, 'r+') or die("Can't open $cnt_file\n");
|
||||
flock($cnt_fp, 2);
|
||||
$cnt = fread($cnt_fp, filesize($cnt_file));
|
||||
$cnt = chop($cnt);
|
||||
$cnt++;
|
||||
rewind($cnt_fp);
|
||||
fwrite($cnt_fp, $cnt);
|
||||
ftruncate($cnt_fp, ftell($cnt_fp));
|
||||
fclose($cnt_fp);
|
||||
|
||||
# process log data
|
||||
$log_fp = fopen($log_file, 'a') or die("Can't open $log_file\n");
|
||||
flock($log_fp, 2);
|
||||
|
||||
$aTime = localtime($tm, 1);
|
||||
$iY = $aTime['tm_year']+1900;
|
||||
$iM = $aTime['tm_mon']+1;
|
||||
$iM = ($iM>=10?$iM:"0$iM");
|
||||
$iD = $aTime['tm_mday'];
|
||||
$iD = ($iD>=10?$iD:"0$iD");
|
||||
$iHH = $aTime['tm_hour'];
|
||||
$iHH = ($iHH>=10?$iHH:"0$iHH");
|
||||
$iMM = $aTime['tm_min'];
|
||||
$iMM = ($iMM>=10?$iMM:"0$iMM");
|
||||
$iSS = $aTime['tm_sec'];
|
||||
$iSS = ($iSS>=10?$iSS:"0$iSS");
|
||||
$logTime = "$iY-$iM-$iD $iHH:$iMM:$iSS";
|
||||
|
||||
if (gethostbyaddr(getenv('REMOTE_ADDR'))) {
|
||||
$logHost = gethostbyaddr(getenv('REMOTE_ADDR'));
|
||||
} else {
|
||||
$logHost = '[Unknown]';
|
||||
}
|
||||
|
||||
if (getenv('HTTP_USER_AGENT')) {
|
||||
$logAgent = getenv('HTTP_USER_AGENT');
|
||||
} else {
|
||||
$logAgent = '[Unknown]';
|
||||
}
|
||||
|
||||
fwrite($log_fp, "$logTime|$logHost|$logAgent\n");
|
||||
fclose($log_fp);
|
||||
}
|
||||
|
||||
# show output
|
||||
$html_out = '';
|
||||
|
||||
if ($visible_count) {
|
||||
# pad zero(es) to the count
|
||||
# (used when showing text digits in Arabic or image digits)
|
||||
if (($digit_type == 0) && $arabic_count || ($digit_type == 1)) {
|
||||
if ($digit_length >= strlen($cnt)) { $digit_pad = $digit_length - strlen($cnt); }
|
||||
for ($i=0; $i<$digit_pad; $i++) { $cnt = '0' . $cnt; }
|
||||
}
|
||||
|
||||
if ($digit_type == 0) {
|
||||
if (! $arabic_count) {
|
||||
if ($chinese_count) {
|
||||
$cnt = arabic2chinese($cnt);
|
||||
} elseif ($roman_count) {
|
||||
$cnt = arabic2roman($cnt);
|
||||
}
|
||||
}
|
||||
} elseif ($digit_type == 1) {
|
||||
# check if relative path is used for digit images directory
|
||||
if (! preg_match('@^(http://|https://|/)@', $img_dir)) {
|
||||
$img_url = preg_replace('@(.*)/.*@', '\\1', $script_url);
|
||||
$img_dir = "$img_url/$img_dir";
|
||||
}
|
||||
}
|
||||
|
||||
if ($visible_stat) {
|
||||
if ($stat_frame) {
|
||||
# show statistics page in given window
|
||||
$html_out .= "<a href=\"${script_url}?stat\" target=\"${stat_frame}\">";
|
||||
} else {
|
||||
# show statistics page in same window
|
||||
$html_out .= "<a href=\"${script_url}?stat\">";
|
||||
}
|
||||
}
|
||||
if ($digit_type == 0) {
|
||||
# show count as text
|
||||
if ($cnt_color || $cnt_face || $cnt_size) { $html_out .= '<font'; }
|
||||
if ($cnt_color) { $html_out .= " color=\"$cnt_color\""; }
|
||||
if ($cnt_face) { $html_out .= " face=\"$cnt_face\""; }
|
||||
if ($cnt_size) { $html_out .= " size=\"$cnt_size\""; }
|
||||
if ($cnt_color || $cnt_face || $cnt_size) { $html_out .= '>'; }
|
||||
if ($bold) { $html_out .= '<b>'; }
|
||||
if ($italic) { $html_out .= '<i>'; }
|
||||
$html_out .= $cnt;
|
||||
if ($italic) { $html_out .= '</i>'; }
|
||||
if ($bold) { $html_out .= '</b>'; }
|
||||
if ($cnt_color || $cnt_face || $cnt_size) { $html_out .= '</font>'; }
|
||||
} elseif ($digit_type == 1) {
|
||||
# show count as image
|
||||
for ($i=0; $i<strlen($cnt); $i++) {
|
||||
$html_out .= "<img src=\"$img_dir/$cnt[$i].$img_ext\"";
|
||||
if ($img_width && $img_height) { $html_out .= " width=$img_width height=$img_height"; }
|
||||
if ($img_align) { $html_out .= " align=$img_align"; }
|
||||
$html_out .= ' border=0>';
|
||||
}
|
||||
}
|
||||
if ($visible_stat) { $html_out .= '</a>'; }
|
||||
}
|
||||
|
||||
print $html_out;
|
||||
}
|
||||
|
||||
function viewStat() {
|
||||
global $cnt_file, $log_file;
|
||||
global $visible_stat;
|
||||
global $summary_stat, $detail_stat;
|
||||
global $back_col_type, $back_col_head, $back_col_body;
|
||||
global $agent_stat;
|
||||
|
||||
# user-defined sort function
|
||||
function doSort ($a, $b) {
|
||||
global $agent_stat;
|
||||
|
||||
if ($agent_stat[$a] > $agent_stat[$b]) {
|
||||
return(-1);
|
||||
} elseif ($agent_stat[$a] < $agent_stat[$b]) {
|
||||
return(1);
|
||||
} else {
|
||||
if ($a > $b) {
|
||||
return(-1);
|
||||
} elseif ($a < $b) {
|
||||
return(1);
|
||||
} else {
|
||||
return(0);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
# handle listed ip
|
||||
handleListedIP();
|
||||
|
||||
# return if no stat or stat invisible
|
||||
if ((! file_exists($log_file)) || !$visible_stat || !$summary_stat && !$detail_stat) {
|
||||
print '[statistics not available]';
|
||||
return(0);
|
||||
}
|
||||
|
||||
# get count file data
|
||||
$cnt_fp = fopen($cnt_file, 'r') or die("Can't open $cnt_file\n");
|
||||
$cnt_no = fread($cnt_fp, filesize($cnt_file));
|
||||
$cnt_no = chop($cnt_no);
|
||||
fclose($cnt_fp);
|
||||
|
||||
# get log file data
|
||||
$log_fp = fopen($log_file, 'r') or die("Can't open $log_file\n");
|
||||
for ($log_no=0; ! feof($log_fp); $log_no++) {
|
||||
$tmp = preg_split('/\|/', fgets($log_fp, 256));
|
||||
$time[$log_no] = $tmp[0];
|
||||
$host[$log_no] = $tmp[1];
|
||||
$agent[$log_no] = chop($tmp[2]);
|
||||
|
||||
if ($agent[$log_no]) { $agent_stat[$agent[$log_no]]++; }
|
||||
}
|
||||
$log_no--;
|
||||
fclose($log_fp);
|
||||
|
||||
# get count offset
|
||||
$off_no = $cnt_no - $log_no;
|
||||
|
||||
# output stat report
|
||||
print "<HTML>\n\n";
|
||||
print "<HEAD><TITLE>Statistics</TITLE></HEAD>\n\n";
|
||||
print "<BODY>\n";
|
||||
|
||||
if ($summary_stat) {
|
||||
print "<TABLE BGCOLOR=$back_col_type BORDER=1 CELLPADDING=4 CELLSPACING=2 WIDTH=\"100%\">\n";
|
||||
print "<TR><TH><BIG>Log Summary</BIG></TH></TR>\n";
|
||||
print "</TABLE>\n";
|
||||
print "<BR>\n";
|
||||
print "<TABLE ALIGN=CENTER BGCOLOR=$back_col_body BORDER=1 CELLPADDING=2 CELLSPACING=2>\n";
|
||||
print "<TR BGCOLOR=$back_col_head>\n";
|
||||
print "<TH ALIGN=LEFT>Agent</TH>\n";
|
||||
print "<TH>Count</TH>\n";
|
||||
print "</TR>\n";
|
||||
|
||||
$agent_stat_keys = array_keys($agent_stat);
|
||||
usort($agent_stat_keys, "doSort");
|
||||
foreach ($agent_stat_keys as $key) {
|
||||
print "<TR>\n";
|
||||
print "<TD>$key</TD>\n";
|
||||
print "<TD ALIGN=CENTER>$agent_stat[$key]</TD>\n";
|
||||
print "</TR>\n";
|
||||
}
|
||||
|
||||
print "<TR BGCOLOR=$back_col_head>\n";
|
||||
print "<TH ALIGN=LEFT>Total</TH>\n";
|
||||
print "<TH>$log_no</TH>\n";
|
||||
print "</TR>\n";
|
||||
print "</TABLE>\n\n";
|
||||
}
|
||||
|
||||
if ($summary_stat && $detail_stat) { print "<BR><BR><BR>\n\n"; }
|
||||
|
||||
if ($detail_stat) {
|
||||
print "<TABLE BGCOLOR=$back_col_type BORDER=1 CELLPADDING=4 CELLSPACING=2 WIDTH=\"100%\">\n";
|
||||
print "<TR><TH><BIG>Log Detail</BIG></TH></TR>\n";
|
||||
print "</TABLE>\n";
|
||||
print "<BR>\n";
|
||||
print "<TABLE ALIGN=CENTER BGCOLOR=$back_col_body BORDER=1 CELLPADDING=2 CELLSPACING=2>\n";
|
||||
print "<TR BGCOLOR=$back_col_head>\n";
|
||||
print "<TD> </TD>\n";
|
||||
print "<TH ALIGN=LEFT>Time</TH>\n";
|
||||
print "<TH ALIGN=LEFT>Host</TH>\n";
|
||||
print "<TH ALIGN=LEFT>Agent</TH>\n";
|
||||
print "</TR>\n";
|
||||
for ($i=0; $i<$log_no; $i++) {
|
||||
print "<TR>\n";
|
||||
printf("<TD ALIGN=RIGHT BGCOLOR=$back_col_head>%d</TD>\n", $i+1+$off_no);
|
||||
print "<TD>$time[$i]</TD>\n";
|
||||
print "<TD>$host[$i]</TD>\n";
|
||||
print "<TD>$agent[$i]</TD>\n";
|
||||
print "</TR>\n";
|
||||
}
|
||||
print "</TABLE>\n";
|
||||
}
|
||||
|
||||
print "</BODY>\n\n";
|
||||
print "</HTML>\n";
|
||||
}
|
||||
|
||||
function handleListedIP() {
|
||||
global $white_ip_list, $black_ip_list;
|
||||
global $visible_count, $visible_stat, $summary_stat, $detail_stat;
|
||||
|
||||
$this_ip = getenv('REMOTE_ADDR') . '.';
|
||||
|
||||
foreach ($white_ip_list as $ip) {
|
||||
if (preg_match("/^$ip\./", $this_ip)) {
|
||||
# override default for white-listed ip
|
||||
$visible_count = 1;
|
||||
$visible_stat = 1;
|
||||
$summary_stat = 1;
|
||||
$detail_stat = 1;
|
||||
|
||||
return(1);
|
||||
}
|
||||
}
|
||||
|
||||
foreach ($black_ip_list as $ip) {
|
||||
if (preg_match("/^$ip\./", $this_ip)) {
|
||||
# override default for black-listed ip
|
||||
$visible_count = 0;
|
||||
$visible_stat = 0;
|
||||
$summary_stat = 0;
|
||||
$detail_stat = 0;
|
||||
|
||||
return(2);
|
||||
}
|
||||
}
|
||||
|
||||
return(0);
|
||||
}
|
||||
|
||||
function isReload() {
|
||||
global $vst_file;
|
||||
global $anti_reload_period;
|
||||
|
||||
$vst_fp = fopen($vst_file, 'r') or die("Can't open $vst_file\n");
|
||||
$vst = preg_split('/\|/', fread($vst_fp, filesize($vst_file)));
|
||||
$ip_last = $vst[0];
|
||||
$tm_last = chop($vst[1]);
|
||||
fclose($vst_fp);
|
||||
|
||||
$tm_now = time();
|
||||
$min_diff = ($tm_now-$tm_last)/60;
|
||||
|
||||
# return true if current IP is the same as last IP and within anti-reload
|
||||
# period
|
||||
if ((getenv('REMOTE_ADDR')==$ip_last)&&($min_diff<=$anti_reload_period)) {
|
||||
return(1);
|
||||
} else {
|
||||
return(0);
|
||||
}
|
||||
}
|
||||
|
||||
function arabic2chinese($in) {
|
||||
$d = '零';
|
||||
$mm = array('','萬','億','兆');
|
||||
|
||||
# return 0 if input is all 0
|
||||
if (! intval($in)) { return($d); }
|
||||
|
||||
# construct chinese characters, in groups of 4 digits from the right
|
||||
for ($i=0,$s='',$out=''; $i<strlen($in); $i+=4) {
|
||||
if (($i+4) <= strlen($in)) {
|
||||
$s = substr($in,-($i+4),4);
|
||||
} elseif (($i+3) == strlen($in)) {
|
||||
$s = substr($in,-($i+3),3);
|
||||
} elseif (($i+2) == strlen($in)) {
|
||||
$s = substr($in,-($i+2),2);
|
||||
} else {
|
||||
$s = substr($in,-($i+1),1);
|
||||
}
|
||||
|
||||
if (intval($s)) {
|
||||
# append 0 between groups if it's not first loop, and either rightmost
|
||||
# digit of current group or leftmost digit of previous group is 0, and
|
||||
# digits of previous group are not all 0's
|
||||
$j = (($i)&&((substr($s,-1,1)=='0')||(substr($in,-$i,1)=='0'))&&intval(substr($in,-$i))?$d:'');
|
||||
|
||||
# append current group, with corresponding multiple
|
||||
$out = chineseQuadruple($s) . $mm[$i/4] . $j . $out;
|
||||
}
|
||||
}
|
||||
|
||||
return($out);
|
||||
}
|
||||
|
||||
function chineseQuadruple($in) {
|
||||
$d = array('零','一','二','三','四','五','六','七','八','九');
|
||||
$m = array('千','百','十','');
|
||||
|
||||
# return 0 if input is all 0
|
||||
if (! intval($in)) { return($d[0]); }
|
||||
|
||||
for ($i=-strlen($in),$out=''; $i<=-1; $i++) {
|
||||
if (substr($in,$i,1)) {
|
||||
# append current digit (1-9), with corresponding multiple
|
||||
$out .= $d[substr($in,$i,1)] . $m[$i+count($m)];
|
||||
} else {
|
||||
# break loop if all remaining digits are 0's
|
||||
if (! intval(substr($in,$i))) { break; }
|
||||
|
||||
# append 0 if previous digit is not 0 or null
|
||||
if (substr($in,$i-1,1)) { $out .= $d[0]; }
|
||||
}
|
||||
}
|
||||
|
||||
return($out);
|
||||
}
|
||||
|
||||
function arabic2roman($in) {
|
||||
$r1 = array('I','II','III','IV','V','VI','VII','VIII','IX');
|
||||
$r10 = array('X','XX','XXX','XL','L','LX','LXX','LXXX','XC');
|
||||
$r100 = array('C','CC','CCC','CD','D','DC','DCC','DCCC','CM');
|
||||
|
||||
# get arabic digits
|
||||
$a1 = $in%10;
|
||||
$in = ($in-$a1)/10;
|
||||
$a10 = $in%10;
|
||||
$in = ($in-$a10)/10;
|
||||
$a100 = $in%10;
|
||||
$a1000 = ($in-$a100)/10;
|
||||
|
||||
# construct roman numerals
|
||||
for ($i=0,$out=''; $i<$a1000; $i++) { $out .= 'M'; }
|
||||
if ($a100) { $out .= $r100[$a100-1]; }
|
||||
if ($a10) { $out .= $r10[$a10-1]; }
|
||||
if ($a1) { $out .= $r1[$a1-1]; }
|
||||
|
||||
return($out);
|
||||
}
|
||||
|
||||
?>
|
||||
Reference in New Issue
Block a user