Access Stats Modifications

To show a more detailed evaluation of OS's and Browsers, change the code in stat.pl from:

$total_agent = @USER_AGENT;
if ($top_os eq "yes") {
  foreach $user_agent (@USER_AGENT) {
	if ($user_agent =~ /MSIE/i) {
   		if ($user_agent =~ /Windows 98/i) {
   			$os{'Windows 98'}++;
   			next;
   		}
   		elsif ($user_agent =~ /Windows NT/i) {
   			$os{'Windows NT'}++;
   			next;
   		}
   		elsif ($user_agent =~ /Windows 95/i) {
   			$os{'Windows 95'}++;
   			next;
   		}
   		elsif ($user_agent =~ /Mac_PowerPC/i || $user_agent =~ /Macintosh/i) {
   			$os{'Macintosh'}++;
   			next;
   		}
   	}
   	elsif  ($user_agent =~ /Win98/i || $user_agent =~ /Windows 98/i) {
   		$os{'Windows 98'}++;
   		next;
   	}
   	elsif  ($user_agent =~ /WinNT/i || $user_agent =~ /Windows NT/i) {
   		$os{'Windows NT'}++;
   		next;
   	}
   	elsif  ($user_agent =~ /Win95/i || $user_agent =~ /Windows 95/i) {
   		$os{'Windows 95'}++;
   		next;
   	}
   	elsif ($user_agent =~ /Mac_PowerPC/i || $user_agent =~ /Macintosh/i) {
   		$os{'Macintosh'}++;
   		next;
   	}
   	elsif  ($user_agent =~ /X11/i) {
   		if  ($user_agent =~ /Linux/i) {
   			$os{'Linux'}++;
   			next;
   		}
 	  	elsif  ($user_agent =~ /SunOS/i) {
 	  		$os{'SunOS'}++;
 	  		next;
	   	}
 	  	elsif  ($user_agent =~ /FreeBSD/i) {
	   		$os{'FreeBSD'}++;
	   		next;
	   	}
	   	elsif  ($user_agent =~ /BSD/i) {
	   		$os{'BSD'}++;
	   		next;
   		}
	   	else {
	   		$os{'UNIX Clone'}++;
	   		next;
	   	}
	}
   	elsif  ($user_agent =~ /Win16/i || $user_agent =~ /Windows 3\.1/i) {
   		$os{'Windows 3.1'}++;
   		next;
   	}
   	elsif  ($user_agent =~ /OS\/2/i) {
   		$os{'OS/2'}++;
   		next;
   	}
   	elsif  ($user_agent =~ /Amiga/i) {
   		$os{'Amiga'}++;
   		next;
   	}
   	else {
   		$os{'Unbekanntes System'}++;
   		next;
   	}
  }
}
if ($top_browsers eq "yes") {
 foreach $agent (@USER_AGENT) {
   if ($agent =~ /Opera/i) {
   	$browser{'Opera'}++;
	next;
   }
   elsif ($agent =~ /MSIE/i) {
   	if ($agent =~ /AltaVista/i) {
   		$browser{'AltaVista'}++;
		next;
	}
	elsif ($agent =~ /Lycos/i) {
   		$browser{'Lycos'}++;
		next;
	}
	elsif ($agent =~ /MSIE (\d)/i) {
		$browser{"Internet Explorer $1"}++;
		next;
	}
	else {
		$browser{$agent}++;
		next;
	}
    }
    elsif ($agent =~ /Mozilla/i) {
	if ($agent =~ /Mozilla\/5/i || $agent =~ /Mozilla 5/i) {
		$browser{'Netscape Navigator 6'}++;
		next;
	}
	elsif ($agent =~ /Mozilla\/(\d)/i || $agent =~ /Mozilla (\d)/i) {
		$browser{"Netscape Navigator $1"}++;
		next;
	}
	else {
		$browser{$agent}++;
		next;
	}
     }
     elsif ($agent ne "") {
     	$browser{$agent}++;
     	next;
     }
     else {
     	$browser{'NO USER AGENT'}++;

to:

$total_agent = @USER_AGENT;
if ($top_os eq "yes") {
  foreach $user_agent (@USER_AGENT) {
if ($user_agent =~ /Win 9x 4\.9/i || $user_agent =~ /Windows Millenium/i || $user_agent =~ /Windows me/i) {
$os{'Windows ME'}++;
next;
}
elsif ($user_agent =~ /Win95/i || $user_agent =~ /Windows 95/i) {
$os{'Windows 95'}++;
next;
}
elsif ($user_agent =~ /Win98/i || $user_agent =~ /Windows 98/i) {
$os{'Windows 98'}++;
next;
}
elsif ($user_agent =~ /Windows NT 5\.1/i || $user_agent =~ /Windows XP/i) { 
$os{'Windows XP'}++; 
next; 
}
elsif ($user_agent =~ /Windows NT 5\.0/i || $user_agent =~ /Windows NT 5/i || $user_agent =~ /Windows 2000/i) { 
$os{'Windows 2000'}++; 
next; 
} 
elsif ($user_agent =~ /Windows NT/i || $user_agent =~ /Winnt/i) { 
$os{'Windows NT'}++; 
next; 
}
elsif ($user_agent =~ /win16/i) {
$os{'Windows 16-bit'}++; 
next;
}
elsif ($user_agent =~ /win32/i) {
$os{'Windows 32-bit'}++; 
next;
}
elsif ($user_agent =~ /windows 3\.1/i) {
$os{'Windows 3.1'}++; 
next;
}
elsif ($user_agent =~ /Mac_PowerPC/i || $user_agent =~ /Macintosh/i) {
$os{'Macintosh'}++;
next;
}
elsif  ($user_agent =~ /Linux/i) {
$os{'Linux'}++;
next;
}
elsif ($user_agent =~ /SunOS/i) {
$os{'SunOS'}++;
next;
}
elsif ($user_agent =~ /FreeBSD/i) {
$os{'FreeBSD'}++;
next;
}
elsif ($user_agent =~ /BSD/i) {
$os{'BSD'}++;
next;
}
elsif ($user_agent =~ /Unix/i) {
$os{'Unix'}++;
next;
}
elsif ($user_agent =~ /webtv/i) {
$os{'WebTV'}++; 
next;
}
elsif  ($user_agent =~ /OS\/2/i) {
$os{'OS/2'}++;
next;
}
elsif  ($user_agent =~ /Amiga/i) {
$os{'Amiga'}++;
next;
}
else {
$os{'Unknown Platform'}++;
next;
    }
  }
}
if ($top_browsers eq "yes") {
 foreach $agent (@USER_AGENT) {
if ($agent =~ /Opera\/(\d)/i || $agent =~ /Opera (\d)/i) {
$browser{"Opera $1"}++;
next;
}
elsif ($agent =~ /MSIE/i) {
if ($agent =~ /AltaVista/i) {
$browser{'AltaVista'}++;
next;
}
elsif ($agent =~ /Lycos/i) {
$browser{'Lycos'}++;
next;
}
elsif ($agent =~ /AOL (\d)/i) {
$browser{"AOL $1"}++;
next;
}
elsif ($agent =~ /Netcaptor (\d)/i) {
$browser{"Netcaptor  $1"}++;
next;
}
elsif ($agent =~ /MSIE (\d)/i) {
$browser{"Internet Explorer $1"}++;
next;
}
else {
$browser{$agent}++;
next;
}
}
elsif ($agent =~ /Mozilla/i) {
if ($agent =~ /Mozilla\/5/i || $agent =~ /Mozilla 5/i) {
$browser{'Netscape Navigator 6'}++;
next;
}
elsif ($agent =~ /Mozilla\/(\d)/i || $agent =~ /Mozilla (\d)/i) {
$browser{"Netscape Navigator $1"}++;
next;
}
else {
$browser{$agent}++;
next;
}
}
elsif ($agent ne "") {
$browser{$agent}++;
next;
}
else {
$browser{'NO USER AGENT'}++;

Thank you for the Windows ME code. I've been wanting that for a while. I have been trying to work with the Mozilla 5.0 browser issue but can't seem to figure it out. Is there a way to separate the different Moz 5 browsers (Phoenix, Netscape 6 or 7, Chimera, different releases of Mozilla, etc..)?

Anonymous wrote:Is there a way to separate the different Moz 5 browsers (Phoenix, Netscape 6 or 7, Chimera, different releases of Mozilla, etc..)?

Not sure yet, I'll post back when I work it out

For Netscape 7 add between the code:

and:

add:

Thanks again.

I was able to work with that a bit and add one for the Phoenix browser since it shows up in the logs the same (I don't have a Mac so I'm not sure how Chimera shows up). I would like to know how to get the decimal version number to show up instead of just the first digit. (IE 5.5 just shows up as 5, or Phoenix 0.4 just shows up as 0, etc.)

Ok, I figured it out. To get full version numbers counted:

For Netscape 7:
Replace the above code for Netscape 7 with the following:

For Internet Explorer:
Replace the above code for IE with the following:

For Mozilla:
Replace the above code for Mozilla 5 with the following:

For previous releases of Netscape Navigator:
Replace the above code for Netscape Navigator with the following:

To add the Phoenix browser:

That should do it.

Next: How can I add screen resolution and screen depth to the stats? I got only as far as the log.pl being able to write the info into the logs. Stats.pl crashes when trying to read the logs. I added the two extra parameters into the stats.pl file. That's as far as it will go. Any ideas?

How can I add screen resolution and screen depth to the stats?

I wish I knew - it'd be in there like a shot!

I'll have to post my mod for individual page counting. I have to figure out how I did it though. I've been using the mod for over a year.

Netscape 6 needs it's own code. Put the following under the Netscape 7 code above:

Still need help with screen resolution mod.

Here's my mod for individual page counting.

Add a variable for each domain name pointing to your site. In my case I have two so I had to add two variables somewhere near the top of stat.pl. Preferably before the $cgiurl variable. Like so:

Under Misc Configurations add the following after $top_host:

After the country list and before sub parse_form a list of subroutines appears. After &http_ref and before &html_footer add the following line:

Next you need to have the logfile parser be made aware of its existence. Replace your sub parse_log with the following (stop just before $total_agent):

sub parse_log {
chdir ($base_dir);
$log_file = "$base_dir/$_[0]";
open(DATA,"$log_file") || &message('Cannot Open Log File!');
@lines = <DATA>;
close(DATA);
$total = @lines;
foreach $line (@lines) {
if ($line =~ /(.*) - (.*) - (.*) - \"(.*)\" - \"(.*)\" - \"(.*)\"/) {
$date = $1;
($weekday,$day,$time) = split(/ /,$date);
($hour,$minute) = split(/:/,$time);
($temp,$month,$year) = split (/-/,$day);
$ip_addr = $2;
$host_name = $3;
$user_agent = $4;
$referer = $5;
$page = $6;
$day = "$day "."$weekday";
if ($top_referer eq "yes") {
($x,$ref1) = split(/http:\/\//,$referer);
($ref2,$y) = split(/\//,$ref1) ;
if ($ref2 =~ $homesite || $ref2 =~ $homesite2) {
$referer{'-'}++;
}
else {
$referer{$referer}++;
}
}
$page{$page}++;
$day{$day}++;
$week_days{$weekday}++;
$hour{$hour}++;
if ($top_countries eq "yes" || $top_host eq "yes") {
if ($host_name =~ /\.([_a-z0-9-]*\.[a-z]{2,4}$)/i) {
$remote{$1}++;
$host_name =~ s/(.*)\.// ;
$host_name =~ tr/[A-Z]/[a-z]/;
$domain{$host_name}++;
$total_doms += 1;
}
else {
$remote{'<b>IP only</b>'}++;
}
}
push(@USER_AGENT, $user_agent);
}
}

Find sub sort_ref further down. Add the following after it:

Next find sub http_ref. This prints the HTML for you to see your referrals. You need to add the following to see your sorted page list (change the HTML to whatever you desire):

We're done with stat.pl. Now the log.pl file needs to write the page into the logfiles. Inside log.pl find sub write_log and find open(DATA,">>$logdat"). Under that change the line print DATA to the following:

That's it for log.pl. The javascript on each page needs to be changed as well. Here it is (put it on every page you want to keep track of):

That should do it. I'm not a programmer so if it can be done more efficiently, please correct me.

Try EZSTATPG - Easy Access Stats Page Maker
http://mannyjuan.com/ezstatpg.htm
and do all the code mods to ezstatvu.pl