#!/usr/local/bin/perl
# AXS Script Set, Administration Module
# Copyright 1997-2000 by Fluid Dynamics
#
# Please adhere to the copyright notice and conditions of use as described at
# the URL below. For latest version and help files, visit:
# http://www.xav.com/scripts/axs/
# ___________________________________________________________________________
$VERSION = '2.3.0.0008';
# You should place the log.txt and axs.dat files in the same directory as
# this script. If you do, you won't have to change the variables below.
# If you want to put the files somewhere else, enter the full path to these
# files:
$LogFile = '/htdocs/cgi-bin/tracking/log.txt';
$prefs = '/htdocs/cgi-bin/tracking/axs.dat';
# Other examples:
# $LogFile = '/usr/www/users/xav/log.txt';
# $LogFile = 'c:/axs/log.txt';
# Enter the URL of your website, or part of it:
$My_Web_Address = $ENV{'http://www.dhilton.com'};
# Examples:
# $My_Web_Address = 'http://www.xav.com/';
# $My_Web_Address = 'xav.com';
# The HTTP_HOST variable is an automatic variable which will work for 90% of
# users. If you have trouble with the "Hits from Other Sites" or "HyperLinks
# Followed from This Site", or if everything shows up in those graphs rather
# than just remote links, then customize $My_Web_Address to your domain name,
# like "xav.com".
# Enter your anchor page. This will form a link at the top of each AXS
# output document:
$link_url = '/';
$link_title = 'My Home Page';
# Enter the URL to red.gif and tracker.jpg:
$RED = 'http://www.dhilton.com/htdocs/cgi-bin/images/red.gif';
$IMG = 'http://www.dhilton.com/htdocs/cgi-bin/images/tracker.jpg';
# Once the script is working to your satisfaction, set the $AllowDebug
# variable to zero:
$AllowDebug = 1;
# ________________________________________________________________________
# Protect AXS with a username and password. Both are case sensitive. You
# can leave them blank to disable password locking. This is the default:
$Username = '';
$Password = 'WhisperWish';
# Other examples:
# $Username = 'root';
# $Password = 'IronMAN';
# You can allow anyone access to your graphs, while continuing to protect
# your "Customize" page with a username and password. If you do this,
# web visitors will be free to view your statistics, but they won't be
# able to delete the log file or change your settings. To allow web
# visitors to see your graphs without entering a username or password, set
# this to 1:
$AllowAnonymousForGraphs = 0; # set to 1 to allow
# ________________________________________________________________________
# Most of you shouldn't have to change anything below this line. If you
# try the script out and it doesn't work, the help files will suggest
# changes to the following lines.
# The request method can be either GET or POST. Setting the method to GET
# will cause the username and password data to be exposed to the web server
# logs. Using GET is inadvisable if others have access to your web server
# logs.
$Request_Method = 'POST';
# The URL to this script:
$This_Script_Address = $ENV{'SCRIPT_NAME'};
# The admininstrator's email address - use *single* quotes:
$Admin_Email_Address = $ENV{'naika@dhilton.com'};
# Example:
# $Admin_Email_Address = 'president@whitehouse.gov';
# Your favorite network lookup services:
$nslookup = 'http://www.xav.com/cgi-bin/nslookup.cgi';
$whois = 'http://www.networksolutions.com/cgi-bin/whois/whois?';
# AXS can collapse web addresses which include the default document.
# This prevents you from having two database entries for a single file,
# like http://www.ms.com/ and http://www.ms.com/index.html:
$DefaultDoc = 'index.html';
# If you'd like, local files can show up as their HTML title instead of
# their URL. For example, visits to http://www.xav.com/ would show up in
# your graphs as "Home Page". To use this option, enter the URL-title
# pairs below, and set the top variable to "1":
$UseLocalAddressTitlePairs = 0; # Set to "1" to enable.
%LocalAddressTitlePairs = (
'http://www.xav.com/' , 'Home Page',
'http://www.xav.com/scripts/' , 'Scripts Page',
'http://www.xav.com/scripts/axs/' , 'AXS Script Page',
);
# Uncomment this line if you receive errors about invalid Content-Type
# headers. (to support command-line parameters, the HTTP headers are
# only sent back if the SERVER_SOFTWARE env var is defined; most web
# servers should set this, but if you're doesn't then you have to set
# it manually by uncommenting the line below)
#$ENV{'SERVER_SOFTWARE'} = 1;
# No further editing is necessary, but feel free to play around. The
# first 1,000 lines of this script are straight HTML and JavaScript, so
# you can safely customize the look and feel of the output even if you
# don't know Perl.
#
# ________________________________________________________________________
%GraphOptions = (
's01' , 'Web Browser (Netscape 3.01 Gold)',
's02' , 'Abbreviated Browser (Netscape 3.X)',
's03' , 'Operating System (Windows 98)',
's04' , 'Visitors Top Level Domains (.com)',
's05' , 'First Level Domains (xav.com)',
's06' , 'Full Server Address (noc.xav.com)',
's07' , 'Visitor IP Address (206.134.243.3)',
's08' , 'Hits from Other Sites (Full URL)',
's09' , 'Hits from Other Sites (Domain Only)',
's10' , 'Hyperlinks Followed From This Site',
's11' , 'Hits to Local Documents',
's12' , 'Average Number of Hits Per Visitor',
's13' , 'Hits By Day of Year',
's14' , 'Hits By Day of the Week',
's15' , 'Hits By Hour of the Day');
@DatabaseOptions = ('Sort All by Time','Sort All by Visitor','Visitor Flow Only');
@LongWeekDays = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
@ShortWeekDays = ('SUN','MON','TUE','WED','THU','FRI','SAT');
@LongMonths = ('January','February','March','April','May','June','July','August','September','October','November','December');
@ShortMonths = ('JAN','FEB','MAR','APR','MAY','JUN','JUL','AUG','SEP','OCT','NOV','DEC');
@ShortDayNames = ('YEST','TOD','TOM');
sub Header {
return <<"END_OF_HTML";
AXS Script Set - Administrator's Page
END_OF_HTML
}
# ________________________________________________________________________
sub HTML_Header {
return <<"END_OF_HTML";
END_OF_HTML
}
# ________________________________________________________________________
sub PrintMainPage {
$cur_hits = 0;
if (open(LOG, "<$LogFile")) {
binmode(LOG);
while () {
$cur_hits++;
}
close(LOG);
}
print <<"EOM";
AXS keeps records on visits to your site. This companion
script, AX-ADMIN, allows you to display these records in
meaningful graph and database formats. We currently have $cur_hits
hits to work with.
EOM
}
# ________________________________________________________________________
sub PrintJavaMainPage {
print <<"EOM";
EOM
}
# ________________________________________________________________________
sub PrintCustomizePage {
print <<"EOM";
Use of secured computer and network facilities requires prior
authorization. Unauthorized access is prohibited. Usage may be
subject to security testing and monitoring. Abuse is subject to
criminal, civil, and extra-legal prosecution.
This script is operated by
$Admin_Email_Address, or a third party reachable via that address.
Contact them for help with usernames and passwords. Technical issues,
bug reports, and the like may be directed to noc\@xav.com.
AXS Script Set Version $VERSION is Copyright 1997-2000 by
Fluid Dynamics. Visit the
AXS Page for help
files and most recent version.