' . "\n";
echo 'Analyzing logfile' . "\n";
echo number_format($LogOffset) . ' bytes processed
' . "\n";
echo number_format(filesize($LogFile) - $LogOffset) . ' bytes to go
' . "\n";
echo 'Please wait...
';
PageFooter();
return;
}
/* Create the new datafile. This is used to prevent two instances
from running simultaneously, primitive, but it works. */
$Fout = @fopen($NewFile,"w");
if ($Fout === FALSE) return;
/* Walk through all the measurements in the logfile. */
$StartTime = time() + 5;
$Line = TRUE;
while ($StartTime > time()) {
$Line = fgets($Fin,50000);
if ($Line === FALSE) break;
$a = explode(' ',rtrim($Line));
if (($a[0] == '') || ($a[0] == 0)) continue;
if ($a[0] <= $LogDate) continue;
if (($a[1] < 0) || ($a[1] > 60000)) continue;
$LogDate = $a[0];
$U = '0'; /* Assume it's a Unique. */
if ((isset($SLastM[$a[2]])) && ($SLastM[$a[2]] >= $a[0] - 14400)) {
$U = '1'; /* No, it's a Reload. */
}
$SLastM[$a[2]] = $a[0];
$SLastT[$SLastI] = $a[1];
$SLastU[$SLastI] = $U;
$SLastI++;
if ($SLastI >= 200) $SLastI = 0;
$i = floor($a[0] / 3600);
if (isset($SHourC[$U][$i])) {
$SHourC[$U][$i]++;
$SHourT[$U][$i] += $a[1];
} else {
$SHourC[$U][$i] = 1;
$SHourT[$U][$i] = $a[1];
}
$i = floor($a[0] / 86400);
if (isset($SDayC[$U][$i])) {
$SDayC[$U][$i]++;
$SDayT[$U][$i] += $a[1];
} else {
$SDayC[$U][$i] = 1;
$SDayT[$U][$i] = $a[1];
}
$i = floor($a[0] / 604800);
if (isset($SWeekC[$U][$i])) {
$SWeekC[$U][$i]++;
$SWeekT[$U][$i] += $a[1];
} else {
$SWeekC[$U][$i] = 1;
$SWeekT[$U][$i] = $a[1];
}
$i = floor($a[0] / 2419200);
$j = date('G',$a[0]) + 24 * date('w',$a[0]);
if (isset($SDowC[$U][$i][$j])) {
$SDowC[$U][$i][$j]++;
$SDowT[$U][$i][$j] += $a[1];
} else {
$SDowC[$U][$i][$j] = 1;
$SDowT[$U][$i][$j] = $a[1];
}
$j = floor((date('i',$a[0]) + 60 * date('G',$a[0])) / 10);
if (isset($SHodC[$U][$i][$j])) {
$SHodC[$U][$i][$j]++;
$SHodT[$U][$i][$j] += $a[1];
} else {
$SHodC[$U][$i][$j] = 1;
$SHodT[$U][$i][$j] = $a[1];
}
$j = floor($a[1] / 125);
if (isset($SDist[$U][$i][$j])) {
$SDist[$U][$i][$j]++;
} else {
$SDist[$U][$i][$j] = 1;
}
}
if ($Line === FALSE) {
$LogOffset = filesize($LogFile);
$Finished = TRUE;
} else {
$LogOffset = ftell($Fin);
$Finished = FALSE;
}
@fclose($Fin);
/* Write the data from memory to the temporary datafile. */
$Out = ' $b) {
if ($i > 1) $Out .= ',';
$Out .= '"' . $a . '"=>' . $b;
if ($i++ > 1000) break;
}
$Out .= ');' . "\n";
if ($Result !== FALSE) $Result = fwrite($Fout,$Out);
}
if ($Result !== FALSE) $Result = WriteArray1($Fout,$SLastT,'SLastT');
if ($Result !== FALSE) $Result = WriteArray1($Fout,$SLastU,'SLastU');
if ($SLastI == '') {
if ($Result !== FALSE) $Result = fwrite($Fout,'$SLastI = 0;' . "\n");
} else {
if ($Result !== FALSE) $Result = fwrite($Fout,'$SLastI = ' . $SLastI . ';' . "\n");
}
$Max = floor(time() / 3600);
if ($Result !== FALSE) $Result = WriteArray2($Fout,$SHourC,'SHourC',$Max);
if ($Result !== FALSE) $Result = WriteArray2($Fout,$SHourT,'SHourT',$Max);
$Max = floor(time() / 86400);
if ($Result !== FALSE) $Result = WriteArray2($Fout,$SDayC,'SDayC',$Max);
if ($Result !== FALSE) $Result = WriteArray2($Fout,$SDayT,'SDayT',$Max);
$Max = floor(time() / 604800);
if ($Result !== FALSE) $Result = WriteArray2($Fout,$SWeekC,'SWeekC',$Max);
if ($Result !== FALSE) $Result = WriteArray2($Fout,$SWeekT,'SWeekT',$Max);
$Max = floor(time() / 2419200);
if ($Result !== FALSE) $Result = WriteArray3($Fout,$SDowC,'SDowC',$Max,168);
if ($Result !== FALSE) $Result = WriteArray3($Fout,$SDowT,'SDowT',$Max,168);
if ($Result !== FALSE) $Result = WriteArray3($Fout,$SHodC,'SHodC',$Max,144);
if ($Result !== FALSE) $Result = WriteArray3($Fout,$SHodT,'SHodT',$Max,144);
if ($Result !== FALSE) $Result = WriteArray3($Fout,$SDist,'SDist',$Max,240);
if ($Result !== FALSE) $Result = fwrite($Fout,'?>' . "\n");
if ($Result !== FALSE) $Result = fflush($Fout);
if ($Result !== FALSE) $Result = fclose($Fout);
if ($Result !== FALSE) {
if (file_exists($DatFile) == TRUE) unlink($DatFile);
rename($NewFile,$DatFile);
}
if ($Finished === FALSE) {
PageHeader('1; url=' . $_SERVER['PHP_SELF'] . '?Name=' . rawurlencode($Name));
echo '
' . "\n";
echo 'Analyzing logfile' . "\n";
echo number_format($LogOffset) . ' bytes processed
' . "\n";
echo number_format(filesize($LogFile) - $LogOffset) . ' bytes to go
' . "\n";
echo 'Please wait...
';
PageFooter();
}
}
/* Encode a long into a string. Maximum integer: 49.787.136 */
function Encode83($Value) {
$Trans = array(
"!","#","$","%","(",")","*",",","-",".",
"0","1","2","3","4","5","6","7","8","9",":",";","=",
"@","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O",
"P","Q","R","S","T","U","V","W","X","Y","Z","[","]","^","_",
"a","b","c","d","e","f","g","h","i","j","k","l","m","n","o",
"p","q","r","s","t","u","v","w","x","y","z","{","|","}","~");
if (($Value > 47458321) || ($Value < 0)) return('!!!!');
return($Trans[$Value / 571787] .
$Trans[($Value % 571787) / 6889] .
$Trans[($Value % 6889) / 83] .
$Trans[$Value % 83]);
}
function GenerateGraph($Select) {
global $Name, $SLastM, $SLastU, $SLastT, $SLastI, $SLastC, $SLastCi,
$SHourC, $SHourT, $SDayC, $SDayT, $SWeekC, $SWeekT,
$SDowC, $SDowT, $SHodC, $SHodT, $SDist,
$FontOther;
$Out = '';
/* Construct the graph. */
$ScriptName = $_SERVER['PHP_SELF'];
if (strrpos($ScriptName,'/') == FALSE) {
$Codebase = '/';
} else {
$Codebase = substr($ScriptName,0,strrpos($ScriptName,'/')+1);
}
$Out .= '';
$Out .= '
';
$Out .= $FontOther . $Legend . '
' . "\n";
$Out .= '
' . "\n";
if ($Select == 'Distribution') {
$Out .= '' . "\n";
$Out .= ' | | ' . "\n";
$Out .= ' | ' . "\n";
$Out .= ' ' . $FontOther . 'Average | ' . "\n";
$Out .= ' ' . $FontOther . 'Middle | ' . "\n";
$Out .= ' ' . $FontOther . 'Most | ' . "\n";
$Out .= '
' . "\n";
}
$Out .= '' . "\n";
$Out .= ' | | ' . "\n";
$Out .= ' ' . $FontOther . 'Uniques | ' . "\n";
$Out .= ' ' . $FontOther . sprintf("%.03f",$TotalAverage[0] / 1000) . ' seconds | ' . "\n";
if ($Select == 'Distribution') {
$Out .= ' ' . $FontOther . sprintf("%.03f",$MeanTime[0] / 1000) . ' seconds | ' . "\n";
$Out .= ' ' . $FontOther . sprintf("%.03f",$TopTime[0] / 1000) . ' seconds | ' . "\n";
}
$Out .= '
' . "\n";
if ($Select != 'Last') {
$Out .= '' . "\n";
$Out .= ' | | ' . "\n";
$Out .= ' ' . $FontOther . 'Impressions | ' . "\n";
$Out .= ' ' . $FontOther . sprintf("%.03f",$TotalAverage[2] / 1000) . ' seconds | ' . "\n";
if ($Select == 'Distribution') {
$Out .= ' ' . $FontOther . sprintf("%.03f",$MeanTime[2] / 1000) . ' seconds | ' . "\n";
$Out .= ' ' . $FontOther . sprintf("%.03f",$TopTime[2] / 1000) . ' seconds | ' . "\n";
}
$Out .= '
' . "\n";
}
$Out .= '' . "\n";
$Out .= ' | | ' . "\n";
$Out .= ' ' . $FontOther . 'Reloads | ' . "\n";
$Out .= ' ' . $FontOther . sprintf("%.03f",$TotalAverage[1] / 1000) . ' seconds | ' . "\n";
if ($Select == 'Distribution') {
$Out .= ' ' . $FontOther . sprintf("%.03f",$MeanTime[1] / 1000) . ' seconds | ' . "\n";
$Out .= ' ' . $FontOther . sprintf("%.03f",$TopTime[1] / 1000) . ' seconds | ' . "\n";
}
$Out .= '
' . "\n";
if (($Select == 'WeekDay') || ($Select == 'DayHour')) {
$Out .= '' . "\n";
$Out .= ' | | ' . "\n";
$Out .= ' ' . $FontOther . 'Now | ' . "\n";
$Out .= '
' . "\n";
}
$Out .= '
' . "\n";
if ($Select == 'Distribution') {
$Out .= $FontOther . "\n";
$Out .= 'Middle: 50% of the visitors are faster than this speed.
' . "\n";
$Out .= 'Most: the graph peaks at this speed.' . "\n";
$Out .= '' . "\n";
}
return($Out);
}
/* Include the pre-processed data. The aggregated graphs are stored
in arrays in a PHP include file which is automatically generated
when the logfile is analysed, see below. */
$SLastI = 0;
$LogOffset = 0;
$LogDate = 0;
if (file_exists('Logs/' . base64_encode($Name) . '.dat') == TRUE) {
include('Logs/' . base64_encode($Name) . '.dat');
}
/* Process any pending measurements in the logfile. The measurements
are aggregated into arrays in memory, the arrays directly map onto
the graphs. For example, the by-hour graph shows the average of all
the measurement in the last 168 hours, and is stored in an array
exactly like that. The arrays are written into the ".dat" include
file so that a later instance can pick it up. */
AnalyzeLogfile();
PageHeader('');
echo '
' . "\n";
echo '' . "\n";
echo $FontTitle . 'SiteSpeed statistics
' . "\n";
echo $FontOther . 'for page: ' . $Name . '
' . "\n";
PageLine();
echo GenerateGraph('Hour');
PageLine();
echo GenerateGraph('Day');
PageLine();
echo GenerateGraph('Week');
PageLine();
echo GenerateGraph('Last');
PageLine();
echo GenerateGraph('WeekDay');
PageLine();
echo GenerateGraph('DayHour');
PageLine();
echo GenerateGraph('Distribution');
PageLine();
PageFooter();
?>
