|
#!/usr/local/bin/perl
# A getstats replacement for HEASARC. Processes ftp, gn and ncsa httpd log
# files
# init the constants
$domainfile = "/www/htdocs/cgi-bin/getstats/domain-codes.txt";
$maxnodes = 50;
$maxfiles = 50;
$numhash = 40;
$home_page = "/docs/HEASARC_HOME_PAGE.HTML";
# init the variables
$total = 0;
$firstdate = "99/99/99";
$lastdate = "00/00/00";
# init the arrays to speed processing
$month2no{"Jan"} = "01";
$month2no{"Feb"} = "02";
$month2no{"Mar"} = "03";
$month2no{"Apr"} = "04";
$month2no{"May"} = "05";
$month2no{"Jun"} = "06";
$month2no{"Jul"} = "07";
$month2no{"Aug"} = "08";
$m
|
