Latest posts for the topic "Access Stats Modifications"

Access Stats Modifications

Anonymous — GMT

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

[code]$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'}++;[/code]
to:
[code]$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'}++;[/code]

Anonymous — GMT

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 — GMT

[quote="Anonymous"]Is there a way to separate the different Moz 5 browsers (Phoenix, Netscape 6 or 7, Chimera, different releases of Mozilla, etc..)?[/quote]
Not sure yet, I'll post back when I work it out

Anonymous — GMT

For Netscape 7 add between the code:
[code]elsif ($agent =~ /Netcaptor (\d)/i) {
$browser{"Netcaptor $1"}++;
next;
}
elsif ($agent =~ /MSIE (\d)/i) {
$browser{"Internet Explorer $1"}++;
next;
}
else {
$browser{$agent}++;
next;
}
} [/code]
and:
[code]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;
} [/code]
add:
[code]elsif($agent =~ /Netscape\/7/i) {
$browser{'Netscape Navigator 7'}++;
next;
}[/code]

Anonymous — GMT

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.)

Anonymous — GMT

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

For Netscape 7:
Replace the above code for Netscape 7 with the following:
[code]elsif($agent =~ /Netscape\/(.*)/i) {
$browser{"Netscape $1"}++;
next;
}[/code]

For Internet Explorer:
Replace the above code for IE with the following:
[code]elsif ($agent =~ /MSIE (.*)/i) {
($iever, $x) = split(/;/, $1);
$browser{"Internet Explorer $iever"}++;
next;
}[/code]

For Mozilla:
Replace the above code for Mozilla 5 with the following:
[code]elsif ($agent =~ /Mozilla/i) {
if ($agent =~ /rv:(.*)/i) {
($mzver, $z) = split(/\)/, $1);
$browser{"Mozilla $mzver"}++;
next;
}[/code]

For previous releases of Netscape Navigator:
Replace the above code for Netscape Navigator with the following:
[code]elsif ($agent =~ /Mozilla\/(.*)/i || $agent =~ /Mozilla (.*)/i) {
($nsver, $y) = split(/ /, $1);
$browser{"Netscape Navigator $nsver"}++;
next;
}[/code]

To add the Phoenix browser:
[code]Add the following under the Netscape 7 code:
elsif($agent =~ /Phoenix\/(.*)/i) {
$browser{"Phoenix $1"}++;
next;
}[/code]

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?

Anonymous — GMT

[quote]How can I add screen resolution and screen depth to the stats?[/quote]
I wish I knew - it'd be in there like a shot!

Anonymous — GMT

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.

Anonymous — GMT

Netscape 6 needs it's own code. Put the following under the Netscape 7 code above:
[code]elsif($agent =~ /Netscape6\/(.*)/i) {
$browser{"Netscape $1"}++;
next;
}[/code]

Still need help with screen resolution mod.

Anonymous — GMT

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:
[code]$homesite = "domain.com";
$homesite2 = "domain2.com";[/code]

Under Misc Configurations add the following after $top_host:
[code]$top_page = "yes";[/code]

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:
[code]&html_page if ($top_page eq "yes");[/code]

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):
[code]sub parse_log {
chdir ($base_dir);
$log_file = "$base_dir/$_[0]";
open(DATA,"$log_file") || &message('Cannot Open Log File!');
@lines = ;
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{'IP only'}++;
}
}
push(@USER_AGENT, $user_agent);
}
}[/code]

Find sub sort_ref further down. Add the following after it:
[code]sub sort_page {
if ($page{$a} > $page{$b}) {
$retval = -1;
}
elsif ($page{$a} == $page{$b}) {
$retval = uc($a) cmp uc($b);
}
else {
$retval = 1;
}
$retval;
}[/code]

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):
[code]sub html_page {
print <

Pages

Header
my $percent;
foreach $pag (sort sort_page keys %page) {
if ($page{$pag} >= $page_min) {
$percent = sprintf ("%.2f",($page{$pag}/$total*100));
print " \n \n \n";
if ($pag eq "-") {
print " \n \n";
}
else {
print " \n \n";
}
}
else {
last;
}
}
print "

Hits	Percent	Page
$page{$pag}	$percent\%	NO PAGE
$pag

\n";
}[/code]

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:
[code]print DATA ("$this_day - $ENV{'REMOTE_ADDR'} - $host - \"$ENV{'HTTP_USER_AGENT'}\" - \"$referer\" - \"$ENV{'HTTP_REFERER'}\"\n");[/code]

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):
[code]
[/code]

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

Anonymous — GMT

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