Hildenbrands.com: AWStats Basic Stats Displayer

Ok, so I decided to toss this script out into the wind for anyone to grab. It's a script that pulls the current month data from AWStats data files and displays it on your site via SSI. It's meant to run from Linux as it uses grep to pull the data quickly so there's less overhead.

This is the script. Copy the contents and paste it into a file named, oh, stats.cgi in your cgi-bin.

#!/usr/bin/perl
#------------------------------------------------------------------------------
# Free real time web statistics display mechanism for AWStats to allow for
# display of statistics information on users webpages via SSI.
# This script is provided AS-IS with no warranty. Use at your own risk, but
# don't worry too much. It's just a simple perl wrapper to grep that gets
# important AWStats data from the data files and places it on your site.
#
# If you use this script, give a little shout out to myself and my site. Not asking
# for anything displayed by the stats itself, just a nice post on your blog or in your
# site news.. :)
#------------------------------------------------------------------------------
# $Revision: 1.0 $ - $Author: Scott Hildenbrand $ - $Date: 2006/05/26 20:25:00 $
################################################################################
#=~=#=~=#=~=#=~=#=~=#=~=#=~=#=~=#=~=#=~==~=#=~=#=~=#=~=#=~=#=~=#=~=#=~=#=~=#=~=#
################################################################################
# There are only two things to configure. The path to where AWStats keeps it's data 
# and the config that you want to pull the data from. Configure both below.

# The directory to AWStats data, NO trailing slash/
$DataDir	= '/var/www/data';

# The name of the config file, minus the awstats.and.conf I use the domain name 
# of the site in the stats config file name, so the following works great for me 
# and makes the configs easy to keep track of.
#
# EXAMPLE: AWStats Config is awstats.beer.conf - $ConfigName would be 'beer'
$ConfigName	= 'www.bluegrassbasset.com'; 
################################################################################
#=~=#=~=#=~=#=~=#=~=#=~=#=~=#=~=#=~=#=~==~=#=~=#=~=#=~=#=~=#=~=#=~=#=~=#=~=#=~=#
################################################################################
print "content-type: text/html\n\n";

# RESET DATA 
#
	# Just need to get the current month and year so that we can see which file to grep.
	local($Second,$Minute,$Hour,$Month_Day,$Month,$Year,$Week_Day,$IsDST) = (localtime(time()))[0,1,2,3,4,5,6,8];
 $Year = ($Year+1900); $Month++; $Month = "0" . $Month if $Month < 10;

$pages = "0";
	$hits = "0";
	$bandwidth = "0";
	$uniques = "0";
	$visits = "0";
	$statfile = "$DataDir/awstats$Month$Year.$ConfigName.txt";

# GET TRAFIC STATS
#
	$traffic = `grep '^ip ' $statfile`; ($jnk,$pages,$hits,$bandwidth,$jnk) = split (/ /, $traffic);
	$visits = `grep '^TotalVisits' $statfile`; $visits =~ s/TotalVisits //g;
	$uniques = `grep '^TotalUnique' $statfile`; $uniques =~ s/TotalUnique //g;

# STRIP USELESS CRAP
#
	$pages =~ s/\n//g;
	$hits =~ s/\n//g;
	$bandwidth =~ s/\n//g;
	$uniques =~ s/\n//g;
	$visits =~ s/\n//g;
	$pages =~ s/ //g;
	$hits =~ s/ //g;
	$bandwidth =~ s/ //g;
	$uniques =~ s/ //g;
	$visits =~ s/ //g;
	$pages =~ s/[a-zA-Z]//g;
	$hits =~ s/[a-zA-Z]//g;
	$bandwidth =~ s/[a-zA-Z]//g;
	$uniques =~ s/[a-zA-Z]//g;
	$visits =~ s/[a-zA-Z]//g;

# PRINT IT OUT ALL PRETTY
#
	# Make the bandwidth data all nice and neat.
	$bandwidth = ($bandwidth/1024/1024);
	if ($bandwidth > "100") { $bandwidth = sprintf("%.2f", ($bandwidth/1024)); $bandwidth .= "GB"; } 
	else { $bandwidth = sprintf("%.2f", $bandwidth); $bandwidth .= "MB"; }

# Modify the HTML in between the |'s below to change the look.
	print qq|
 <table border="0" cellspacing="0" cellpadding="0">
 <tr>
 <td nowrap colspan="2" align="left" style="border-bottom: 1px solid #336699;">
	 Stats For 05/2006</td>
 </tr>

<tr>
 <td align="left">Uniques</td>
 <td>$uniques</td>
 </tr>
 <tr>
 <td align="left">Visits</td>
 <td>$visits</td>
 </tr>

<tr>
 <td align="left">Pages</td>
 <td>$pages</td>
 </tr>
 <tr>
 <td align="left">Hits</td>
 <td>$hits</td>
 </tr>
 <tr>
 <td align="left">Bandwidth</td>
 <td>$bandwidth</td>
 </tr>
 
 </table>
	|;

Be sure to chmod 755 it so that it runs as a script. Once that's done just place your standard SSI into your web page, like such.

That should be it... It's a really simple program and is much like what I use on this site... Hope you enjoy it and find it useful.. :)

AWStats Basic Stats Displayer

See Also

6 Comments

Add your comment

TrackBack