#!/usr/local/bin/gawk -f

#  demog - a Web log analysis script
#  Copyright © 1998-1999 Saugus.net, Inc.
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
# 
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.

# Here we're basically just initializing our variables and writing out
# the constant beginning portion of our HTML source.

BEGIN \
{
  if(DemogFilename=="")DemogFilename="demog.shtml";
  # We're using multi-line input records
  RS="";
  FS="\n";
  LastRef="NoRef";
  DefineDomainTable();
  DefineRefererTable();
  DefineSpiderTable();
};

# The following pattern will match a group of lines beginning
# with the string "Time:" at the beginning of a line and ending
# with a blank line.  For our expected input, this should match
# every recorded hit.
#
# Thus we're using this section to process each log entry and
# count up certain things.

/^Time:/ \
{
  # don't include any host testing
  if(substr($2,7,9)!="localhost")				# Host tests.
  {
    # Don't include search engine robots in the regular count.
    for(Engine in SpiderID)
      if(substr($4,7,length(SpiderID[Engine]))==SpiderID[Engine])
      {
        Spider++;
        next;
      }
    for(Engine in SpiderDomain)
      if(substr($2,length($2)-length(SpiderDomain[Engine])+1)==\
         SpiderDomain[Engine])
      {
        Spider++;
        next;
      }
    CountBrowsersAndOSs();
    CountReferences();
    CountGeographyAndTypes();
  }
  else
    HostTest++;
};

# Here we do all our final one-time computations based on
# the counts we've made and print out the results in HTML format.

END \
{
  # Do all the final calculations

  Browser100=100/Browser;	# used for more efficient percentage calcs.

  SumBrowsersAndOSs();
  SumReferences();
  SumContinents();

  # Print out raw demographics page

  PrintHead(DemogFilename);
  PrintDemogIntro(DemogFilename);
  PrintOSTable(DemogFilename);
  PrintBrowserTable(DemogFilename);
  PrintReferenceTable(DemogFilename);
  PrintTypeTable(DemogFilename);
  PrintGeographyTable(DemogFilename);
  PrintTail(DemogFilename);
};

function DefineDomainTable()
{
  Domain["USA Commercial"]="com";
  Continent["USA Commercial"]="North America";
  Domain["USA Educational"]="edu";
  Continent["USA Educational"]="North America";
  Domain["USA Government"]="gov";
  Continent["USA Government"]="North America";
  Domain["USA Organization"]="org";
  Continent["USA Organization"]="North America";
  Domain["USA ISP"]="net";
  Continent["USA ISP"]="North America";
  Domain["USA Military"]="mil";
  Continent["USA Military"]="North America";
  Domain["International"]="int";		# original international domain
  Continent["International"]="Non-specific; International";
  Domain["NATO"]="nato";			# original NATO domain
  Continent["NATO"]="Non-specific; International";
  Domain["USA Public School"]="us";
  Continent["USA Public School"]="North America";
  Domain["Afghanistan"]="af";
  Continent["Afghanistan"]="Asia";
  Domain["Albania"]="al";
  Continent["Albania"]="Europe";
  Domain["Algeria"]="dz";
  Continent["Algeria"]="Africa";
  Domain["American Samoa"]="as";
  Continent["American Samoa"]="Australia and Oceania";
  Domain["Andorra"]="ad";
  Continent["Andorra"]="Europe";
  Domain["Angola"]="ao";
  Continent["Angola"]="Africa";
  Domain["Anguilla"]="ai";
  Continent["Anguilla"]="North America";
  Domain["Antarctica Proper"]="aq";
  Continent["Antarctica Proper"]="Antarctica";
  Domain["Heard and McDonald Islands"]="hm";
  Continent["Heard and McDonald Islands"]="Antarctica";
  Domain["French Southern Territories"]="tf";
  Continent["French Southern Territories"]="Antarctica";
  Domain["Antigua and Barbuda"]="ag";
  Continent["Antigua and Barbuda"]="North America";
  Domain["Argentina"]="ar";
  Continent["Argentina"]="South America";
  Domain["Armenia"]="am";
  Continent["Armenia"]="Europe";
  Domain["Aruba"]="aw";
  Continent["Aruba"]="North America";
  Domain["Australia"]="au";
  Continent["Australia"]="Australia and Oceania";
  Domain["Austria"]="at";
  Continent["Austria"]="Europe";
  Domain["Azerbaijan"]="az";
  Continent["Azerbaijan"]="Europe";
  Domain["Bahamas"]="bs";
  Continent["Bahamas"]="North America";
  Domain["Bahrain"]="bh";
  Continent["Bahrain"]="Asia";
  Domain["Bangladesh"]="bd";
  Continent["Bangladesh"]="Asia";
  Domain["Barbados"]="bb";
  Continent["Barbados"]="South America";
  Domain["Belarus"]="by";
  Continent["Belarus"]="Europe";
  Domain["Belgium"]="be";
  Continent["Belgium"]="Europe";
  Domain["Belize"]="bz";
  Continent["Belize"]="North America";
  Domain["Benin"]="bj";
  Continent["Benin"]="Africa";
  Domain["Bermuda"]="bm";
  Continent["Bermuda"]="North America";
  Domain["Bhutan"]="bh";
  Continent["Bhutan"]="Asia";
  Domain["Bolivia"]="bo";
  Continent["Bolivia"]="South America";
  Domain["Bosnia-Herzegovina"]="ba";
  Continent["Bosnia-Herzegovina"]="Europe";
  Domain["Botswana"]="bw";
  Continent["Botswana"]="Africa";
  Domain["Bouvet Island"]="bv";
  Continent["Bouvet Island"]="South America";
  Domain["Brazil"]="br";
  Continent["Brazil"]="South America";
  Domain["British Indian Ocean Territory"]="io";
  Continent["British Indian Ocean Territory"]="Asia";
  Domain["Brunei Darussalam"]="bn";
  Continent["Brunei Darussalam"]="Australia and Oceania";
  Domain["Bulgaria"]="bg";
  Continent["Bulgaria"]="Europe";
  Domain["Burkina Faso"]="bf";
  Continent["Burkina Faso"]="Africa";
  Domain["Burundi"]="bi";
  Continent["Burundi"]="Africa";
  Domain["Cambodia"]="kh";
  Continent["Cambodia"]="Asia";
  Domain["Cameroon"]="cm";
  Continent["Cameroon"]="Africa";
  Domain["Canada"]="ca";
  Continent["Canada"]="North America";
  Domain["Cape Verde"]="cv";
  Continent["Cape Verde"]="Africa";
  Domain["Cayman Islands"]="ky";
  Continent["Cayman Islands"]="North America";
  Domain["Central African Republic"]="cf";
  Continent["Central African Republic"]="Africa";
  Domain["Chad"]="td";
  Continent["Chad"]="Africa";
  Domain["Chile"]="cl";
  Continent["Chile"]="South America";
  Domain["China Proper"]="cn";
  Continent["China Proper"]="Asia";
  Domain["Christmas Island"]="cx";
  Continent["Christmas Island"]="Australia and Oceania";
  Domain["Cocos Islands"]="cc";
  Continent["Cocos Islands"]="Asia";
  Domain["Columbia"]="co";
  Continent["Columbia"]="South America";
  Domain["Comoros"]="km";
  Continent["Comoros"]="Africa";
  Domain["Congo"]="cg";
  Continent["Congo"]="Africa";
  Domain["Cook Islands"]="ck";
  Continent["Cook Islands"]="Australia and Oceania";
  Domain["Costa Rica"]="cr";
  Continent["Costa Rica"]="North America";
  Domain["Croatia"]="hr";
  Continent["Croatia"]="Europe";
  Domain["Cuba"]="cu";
  Continent["Cuba"]="North America";
  Domain["Cyprus"]="cy";
  Continent["Cyprus"]="Europe";
  Domain["Czech Republic"]="cz";
  Continent["Czech Republic"]="Europe";
  Domain["Czechoslovakia"]="cs";
  Continent["Czechoslovakia"]="Europe";
  Domain["Denmark"]="dk";
  Continent["Denmark"]="Europe";
  Domain["Djibouti"]="dj";
  Continent["Djibouti"]="Africa";
  Domain["Dominica"]="dm";
  Continent["Dominica"]="North America";
  Domain["Dominican Republic"]="do";
  Continent["Dominican Republic"]="North America";
  Domain["East Timor"]="tp";
  Continent["East Timor"]="Australia and Oceania";
  Domain["Ecuador"]="ec";
  Continent["Ecuador"]="South America";
  Domain["Egypt"]="eg";
  Continent["Egypt"]="Africa";
  Domain["El Salvador"]="sv";
  Continent["El Salvador"]="North America";
  Domain["Equatorial Guinea"]="gq";
  Continent["Equatorial Guinea"]="Africa";
  Domain["Estonia"]="ee";
  Continent["Estonia"]="Europe";
  Domain["Ethiopia"]="et";
  Continent["Ethiopia"]="Africa";
  Domain["Falkland Islands"]="fk";
  Continent["Falkland Islands"]="South America";
  Domain["Faeroe Islands"]="fo";
  Continent["Faeroe Islands"]="Europe";
  Domain["Fiji"]="fj";
  Continent["Fiji"]="Australia and Oceania";
  Domain["Finland"]="fi";
  Continent["Finland"]="Europe";
  Domain["France"]="fr";
  Continent["France"]="Europe";
  Domain["France (European Territory)"]="fx";
  Continent["France (European Territory)"]="Europe";
  Domain["French Guyana"]="gf";
  Continent["French Guyana"]="South America";
  Domain["French Polynesia"]="pf";
  Continent["French Polynesia"]="Australia and Oceania";
  Domain["Gabon"]="ga";
  Continent["Gabon"]="Africa";
  Domain["Gambia"]="gm";
  Continent["Gambia"]="Africa";
  Domain["Georgia"]="ge";
  Continent["Georgia"]="Europe";
  Domain["Germany"]="de";
  Continent["Germany"]="Europe";
  Domain["Ghana"]="gh";
  Continent["Ghana"]="Africa";
  Domain["Gibraltar"]="gi";
  Continent["Gibraltar"]="Europe";
  Domain["Greece"]="gr";
  Continent["Greece"]="Europe";
  Domain["Greenland"]="gl";
  Continent["Greenland"]="North America";
  Domain["Grenada"]="gd";
  Continent["Grenada"]="North America";
  Domain["Guadeloupe"]="gp";
  Continent["Guadeloupe"]="North America";
  Domain["Guam"]="gu";
  Continent["Guam"]="Australia and Oceania";
  Domain["Guatemala"]="gt";
  Continent["Guatemala"]="North America";
  Domain["Guinea"]="gn";
  Continent["Guinea"]="Africa";
  Domain["Guinea Bissau"]="gw";
  Continent["Guinea Bissau"]="Africa";
  Domain["Guyana"]="gy";
  Continent["Guyana"]="South America";
  Domain["Haiti"]="ht";
  Continent["Haiti"]="North America";
  Domain["Honduras"]="hn";
  Continent["Honduras"]="North America";
  Domain["Hong Kong"]="hk";
  Continent["Hong Kong"]="Asia";
  Domain["Hungary"]="hu";
  Continent["Hungary"]="Europe";
  Domain["Iceland"]="is";
  Continent["Iceland"]="Europe";
  Domain["India"]="in";
  Continent["India"]="Asia";
  Domain["Indonesia"]="id";
  Continent["Indonesia"]="Asia";
  Domain["Iran"]="ir";
  Continent["Iran"]="Asia";
  Domain["Iraq"]="iq";
  Continent["Iraq"]="Asia";
  Domain["Ireland"]="ie";
  Continent["Ireland"]="Europe";
  Domain["Israel"]="il";
  Continent["Israel"]="Asia";
  Domain["Italy"]="it";
  Continent["Italy"]="Europe";
  Domain["Ivory Coast"]="ci";
  Continent["Ivory Coast"]="Africa";
  Domain["Jamaica"]="jm";
  Continent["Jamaica"]="North America";
  Domain["Japan"]="jp";
  Continent["Japan"]="Asia";
  Domain["Jordan"]="jo";
  Continent["Jordan"]="Asia";
  Domain["Kazakhstan"]="kz";
  Continent["Kazakhstan"]="Asia";
  Domain["Kenya"]="ke";
  Continent["Kenya"]="Africa";
  Domain["Kiribati"]="ki";
  Continent["Kiribati"]="Australia and Oceania";
  Domain["Kuwait"]="kw";
  Continent["Kuwait"]="Asia";
  Domain["Kyrgyzstan"]="kg";
  Continent["Kyrgyzstan"]="Asia";
  Domain["Laos"]="la";
  Continent["Laos"]="Asia";
  Domain["Latvia"]="lv";
  Continent["Latvia"]="Europe";
  Domain["Lebanon"]="lb";
  Continent["Lebanon"]="Asia";
  Domain["Neutral Zone"]="nt";
  Continent["Neutral Zone"]="Asia";
  Domain["Lesotho"]="ls";
  Continent["Lesotho"]="Africa";
  Domain["Liberia"]="lr";
  Continent["Liberia"]="Africa";
  Domain["Libya"]="ly";
  Continent["Libya"]="Africa";
  Domain["Liechtenstein"]="li";
  Continent["Liechtenstein"]="Europe";
  Domain["Lithuania"]="lt";
  Continent["Lithuania"]="Europe";
  Domain["Luxembourg"]="lu";
  Continent["Luxembourg"]="Europe";
  Domain["Macau"]="mo";
  Continent["Macau"]="Asia";
  Domain["Macedonia"]="mk";
  Continent["Macedonia"]="Europe";
  Domain["Madagascar"]="mg";
  Continent["Madagascar"]="Africa";
  Domain["Malawi"]="mw";
  Continent["Malawi"]="Africa";
  Domain["Malaysia"]="my";
  Continent["Malaysia"]="Asia";
  Domain["Maldives"]="mv";
  Continent["Maldives"]="Asia";
  Domain["Mali"]="ml";
  Continent["Mali"]="Africa";
  Domain["Malta"]="mt";
  Continent["Malta"]="Europe";
  Domain["Marshall Islands"]="mh";
  Continent["Marshall Islands"]="Australia and Oceania";
  Domain["Martinique"]="mq";
  Continent["Martinique"]="North America";
  Domain["Mauritania"]="mr";
  Continent["Mauritania"]="Africa";
  Domain["Maurititus"]="mu";
  Continent["Maurititus"]="Africa";
  Domain["Mexico"]="mx";
  Continent["Mexico"]="North America";
  Domain["Micronesia"]="fm";
  Continent["Micronesia"]="Australia and Oceania";
  Domain["Moldavia"]="md";
  Continent["Moldavia"]="Europe";
  Domain["Monaco"]="mc";
  Continent["Monaco"]="Europe";
  Domain["Mongolia"]="mn";
  Continent["Mongolia"]="Asia";
  Domain["Montserrat"]="ms";
  Continent["Montserrat"]="North America";
  Domain["Morocco"]="ma";
  Continent["Morocco"]="Africa";
  Domain["Mozambique"]="mz";
  Continent["Mozambique"]="Africa";
  Domain["Myanmar"]="my";
  Continent["Myanmar"]="Asia";
  Domain["Namibia"]="na";
  Continent["Namibia"]="Africa";
  Domain["Nauru"]="nr";
  Continent["Nauru"]="Australia and Oceania";
  Domain["Nepal"]="np";
  Continent["Nepal"]="Asia";
  Domain["Netherland Antilles"]="an";
  Continent["Netherland Antilles"]="South America";
  Domain["Netherlands"]="nl";
  Continent["Netherlands"]="Europe";
  Domain["New Caledonia"]="nc";
  Continent["New Caledonia"]="Australia and Oceania";
  Domain["New Zealand"]="nz";
  Continent["New Zealand"]="Australia and Oceania";
  Domain["Nicaragua"]="ni";
  Continent["Nicaragua"]="North America";
  Domain["Niger"]="ne";
  Continent["Niger"]="Africa";
  Domain["Nigeria"]="ng";
  Continent["Nigeria"]="Africa";
  Domain["Niue"]="nu";
  Continent["Niue"]="Australia and Oceania";
  Domain["Norfolk Island"]="nf";
  Continent["Norfolk Island"]="Australia and Oceania";
  Domain["North Korea"]="kp";
  Continent["North Korea"]="Asia";
  Domain["Northern Mariana Islands"]="mp";
  Continent["Northern Mariana Islands"]="Australia and Oceania";
  Domain["Norway"]="no";
  Continent["Norway"]="Europe";
  Domain["Svalbard and Jan Mayen Islands"]="sj";
  Continent["Svalbard and Jan Mayen Islands"]="Europe";
  Domain["Oman"]="om";
  Continent["Oman"]="Asia";
  Domain["Pakistan"]="pk";
  Continent["Pakistan"]="Asia";
  Domain["Palau"]="pw";
  Continent["Palau"]="Australia and Oceania";
  Domain["Panama"]="pa";
  Continent["Panama"]="North America";
  Domain["Papua New Guinea"]="pg";
  Continent["Papua New Guinea"]="Australia and Oceania";
  Domain["Paraguay"]="py";
  Continent["Paraguay"]="South America";
  Domain["Peru"]="pe";
  Continent["Peru"]="South America";
  Domain["Philippines"]="ph";
  Continent["Philippines"]="Asia";
  Domain["Pitcairn"]="pn";
  Continent["Pitcairn"]="Australia and Oceania";
  Domain["Poland"]="pl";
  Continent["Poland"]="Europe";
  Domain["Polynesia"]="pf";
  Continent["Polynesia"]="Australia and Oceania";
  Domain["Portugal"]="pt";
  Continent["Portugal"]="Europe";
  Domain["Puerto Rico"]="pr";
  Continent["Puerto Rico"]="North America";
  Domain["Qatar"]="qa";
  Continent["Qatar"]="Asia";
  Domain["Reunion"]="re";
  Continent["Reunion"]="Africa";
  Domain["Romania"]="ro";
  Continent["Romania"]="Europe";
  Domain["Russia"]="ru";
  Continent["Russia"]="Europe";
  Domain["Rwanda"]="rw";
  Continent["Rwanda"]="Africa";
  Domain["Saint Helena"]="sh";
  Continent["Saint Helena"]="Africa";
  Domain["Saint Kitts Nevis Anguilla"]="kn";
  Continent["Saint Kitts Nevis Anguilla"]="North America";
  Domain["Saint Lucia"]="lc";
  Continent["Saint Lucia"]="North America";
  Domain["Saint Pierre and Miquelon"]="pm";
  Continent["Saint Pierre and Miquelon"]="North America";
  Domain["Saint Tome and Principe"]="st";
  Continent["Saint Tome and Principe"]="Africa";
  Domain["Saint Vincent and the Grenadines"]="vc";
  Continent["Saint Vincent and the Grenadines"]="North America";
  Domain["San Marino"]="sm";
  Continent["San Marino"]="Europe";
  Domain["Saudi Arabia"]="sa";
  Continent["Saudi Arabia"]="Asia";
  Domain["Senegal"]="sn";
  Continent["Senegal"]="Africa";
  Domain["Seychelles"]="sc";
  Continent["Seychelles"]="Africa";
  Domain["Sierra Leone"]="sl";
  Continent["Sierra Leone"]="Africa";
  Domain["Singapore"]="sg";
  Continent["Singapore"]="Asia";
  Domain["Slovakia"]="sk";
  Continent["Slovakia"]="Europe";
  Domain["Slovenia"]="sk";
  Continent["Slovenia"]="Europe";
  Domain["Soloman Islands"]="sb";
  Continent["Soloman Islands"]="Australia and Oceania";
  Domain["Somalia"]="so";
  Continent["Somalia"]="Africa";
  Domain["South Africa"]="za";
  Continent["South Africa"]="Africa";
  Domain["South Korea"]="kr";
  Continent["South Korea"]="Asia";
  Domain["Soviet Union"]="su";
  Continent["Soviet Union"]="Europe";
  Domain["Spain"]="es";
  Continent["Spain"]="Europe";
  Domain["Sri Lanka"]="lk";
  Continent["Sri Lanka"]="Asia";
  Domain["Sudan"]="sd";
  Continent["Sudan"]="Africa";
  Domain["Surinam"]="sr";
  Continent["Surinam"]="South America";
  Domain["Swaziland"]="sz";
  Continent["Swaziland"]="Africa";
  Domain["Sweden"]="se";
  Continent["Sweden"]="Europe";
  Domain["Switzerland"]="ch";
  Continent["Switzerland"]="Europe";
  Domain["Syria"]="sy";
  Continent["Syria"]="Asia";
  Domain["Tajikistan"]="tj";
  Continent["Tajikistan"]="Asia";
  Domain["Taiwan"]="tw";
  Continent["Taiwan"]="Asia";
  Domain["Tanzania"]="tz";
  Continent["Tanzania"]="Africa";
  Domain["Thailand"]="th";
  Continent["Thailand"]="Asia";
  Domain["Togo"]="tg";
  Continent["Togo"]="Africa";
  Domain["Tokelau"]="tk";
  Continent["Tokelau"]="Australia and Oceania";
  Domain["Tonga"]="to";
  Continent["Tonga"]="Australia and Oceania";
  Domain["Trinidad and Tobago"]="tt";
  Continent["Trinidad and Tobago"]="South America";
  Domain["Tunisia"]="tn";
  Continent["Tunisia"]="Africa";
  Domain["Turkey"]="tr";
  Continent["Turkey"]="Asia";
  Domain["Turkmenistan"]="tm";
  Continent["Turkmenistan"]="Asia";
  Domain["Turks and Caicos Islands"]="tc";
  Continent["Turks and Caicos Islands"]="North America";
  Domain["Tuvalu"]="tv";
  Continent["Tuvalu"]="Australia and Oceania";
  Domain["Uganda"]="ug";
  Continent["Uganda"]="Africa";
  Domain["Ukraine"]="ua";
  Continent["Ukraine"]="Europe";
  Domain["United Arab Emirates"]="ae";
  Continent["United Arab Emirates"]="Asia";
  Domain["United Kingdom"]="uk";
  Continent["United Kingdom"]="Europe";
  Domain["United States Minor Outlying Islands"]="um";
  Continent["United States Minor Outlying Islands"]="Australia and Oceania";
  Domain["Uruguay"]="uy";
  Continent["Uruguay"]="South America";
  Domain["Uzbekistan"]="uz";
  Continent["Uzbekistan"]="Asia";
  Domain["Vanuatu"]="vu";
  Continent["Vanuatu"]="Australia and Oceania";
  Domain["Vatican"]="va";
  Continent["Vatican"]="Europe";
  Domain["Venezuela"]="ve";
  Continent["Venezuela"]="South America";
  Domain["Vietnam"]="vn";
  Continent["Vietnam"]="Asia";
  Domain["Virgin Islands (British)"]="vg";
  Continent["Virgin Islands (British)"]="North America";
  Domain["Virgin Islands (USA)"]="vi";
  Continent["Virgin Islands (USA)"]="North America";
  Domain["Wallis and Futuna Islands"]="wf";
  Continent["Wallis and Futuna Islands"]="Australia and Oceania";
  Domain["Western Sahara"]="eh";
  Continent["Western Sahara"]="Africa";
  Domain["Yemen"]="ye";
  Continent["Yemen"]="Asia";
  Domain["Yugoslavia"]="yu";
  Continent["Yugoslavia"]="Europe";
  Domain["Zaire"]="zr";
  Continent["Zaire"]="Africa";
  Domain["Zambia"]="zm";
  Continent["Zambia"]="Africa";
  Domain["Zimbabwe"]="zw";
  Continent["Zimbabwe"]="Africa";

  Continent["China"]="Asia";
  Continent["USA"]="North America";
  return 0;
}

function DefineRefererTable()
{
  Referer["AltaVista"]="altavista";
  RefererURL["AltaVista"]="<A HREF=\"http://www.altavista.digital.com/cgi-bin/query?text=yes\"><STRONG>AltaVista</STRONG></A>"
  Referer["AOLNetFind"]="netfind.aol";
  RefererURL["AOLNetFind"]="<A HREF=\"http://www.aol.com/netfind/\"><STRONG>AOL NetFind</STRONG></A>";
  Referer["Businesseek"]="businesseek";
  RefererURL["Businesseek"]="<A HREF=\"http://www.businesseek.com/\"><STRONG>Business Seek</STRONG></A>";
  Referer["Excite"]="excite";
  RefererURL["Excite"]="<A HREF=\"http://www.excite.com/\"><STRONG>Excite</STRONG></A>";
  Referer["HotBot"]="hotbot";
  RefererURL["HotBot"]="<A HREF=\"http://www.hotbot.com/\"><STRONG>HotBot</STRONG></A>";
  Referer["InfoSeek"]="infoseek";
  RefererURL["InfoSeek"]="<A HREF=\"http://www.infoseek.com/\"><STRONG>InfoSeek</STRONG></A>";
  Referer["Lycos"]="lycos";
  RefererURL["Lycos"]="<A HREF=\"http://www.lycos.com/\"><STRONG>Lycos</STRONG></A>";
  Referer["Metacrawler"]="metacrawler";
  RefererURL["Metacrawler"]="<A HREF=\"http://www.metacrawler.com/\"><STRONG>Metacrawler</STRONG></A>";
  Referer["NorthernLight"]="northernlight";
  RefererURL["NorthernLight"]="<A HREF=\"http://www.northernlight.com/\"><STRONG>Northern Light</STRONG></A>";
  Referer["Thunderstone"]="thunderstone";
  RefererURL["Thunderstone"]="<A HREF=\"http://www.thunderstone.com/\"><STRONG>Thunderstone</STRONG></A>";
  Referer["WebCrawler"]="webcrawler";
  RefererURL["WebCrawler"]="<A HREF=\"http://www.webcrawler.com/\"><STRONG>WebCrawler</STRONG></A>";
  Referer["WhatUSeek"]="whatuseek";
  RefererURL["WhatUSeek"]="<A HREF=\"http://www.whatuseek.com/\"><STRONG>What-U-Seek</STRONG></A>";
  Referer["Yahoo"]="yahoo";
  RefererURL["Yahoo"]="<A HREF=\"http://www.yahoo.com/text/\"><STRONG>Yahoo</STRONG></A>";
  return 0;
}

function DefineSpiderTable()
{
  # Some spiders have distinctive IDs
  SpiderID["AltaVista"]="Scooter";
  SpiderID["InfoSeek"]="InfoSeek";
  SpiderID["Lycos"]="Lycos";
  SpiderID["WebCrawler"]="WebCrawler";
  SpiderID["HotBot"]="Slurp";			# and Inktomi too
  SpiderID["NorthernLight"]="Gulliver";
  SpiderID["Backrub"]="BackRub";		# Stanford experiment
  SpiderID["Microsoft"]="Microsoft URL";	# Microsoft spider
  SpiderID["Hatch"]="HatchKun";			# Hatch phone number thing
  SpiderID["WiseWire"]="WiseWire";		# Not sure what this is
  SpiderID["ArchitextSpider"]="ArchitextSpider"; # ditto

  # Some can only be picked out by domain name
  SpiderDomain["Yahoo"]="yahoo.com";
  SpiderDomain["Thunderstone"]=".thunderstone.com";
  SpiderDomain["WhoWhere"]=".whowhere.com";	# Not sure what this is
  SpiderDomain["Lycos"]=".lycos.com";

  return 0;
}

function CountBrowsersAndOSs()
{
  Browser++;					# increment browser count
  if(index($4,"Mozilla"))
  {
    NetscapeComp++;				# inc. Netscape compatible count
    if(index($4,"IWENG"))
      IWENG++;					# AOL claims Netscape comp.
    else if(index($4,"LunaSuite"))
    {
      LunaSuite++;				# increment LunaSuite count
      Newton++;					# Newton only & doesn't tell OS
    }
    else if(index($4,"Opera"))
      Opera++;		                        #increment Opera count
    else if(index($4,"ompatible; MSIE"))
    {
      if(index($4,"AOL"))
        AOLMSIE++;				# AOL flavor of MSIE
      else
        MSIE++;					# MSIE claims Netscape comp.
    }
    else if(!index($4,"ompatible;"))		# others, too
      Netscape++;				# otherwise genuine Netscape
  }
  else if(index($4,"Lynx"))
    Lynx++;					# increment Lynx count
  else if(index($4,"Mosaic"))
    Mosaic++;					# increment Mosaic count
  else if(index($4,"Java"))
    HotJava++;					# increment HotJava count
  else if(index($4,"Chimera"))
  {
    Chimera++;					# increment Chimera count
    X11++;					# no OS info, but definitely X
  }
  else if(index($4,"Arena"))
  {
    Arena++;					# increment Arena count
    X11++;					# no OS info, but definitely X
  }
  else if(index($4,"NetHopper"))
    NetHopper++;				# increment NetHopper count
  else if(index($4,"Newt's Cape"))
    NewtsCape++;				# increment Newt's Cape count
  else if(index($4,"Voyager"))
    Voyager++;					# increment Voyager count
  else if(index($4,"PocketWeb"))
  {
    PocketWeb++;				# increment PocketWeb count
    Newton++;					# Newton only & doesn't tell OS
  }
  else if(index($4,"PRODIGY-WB"))
    Prodigy++;					# increment Prodigy WB count
  else if(index($4,"Cyberdog"))
  {
    Cyberdog++;					# increment Cyberdog count
    Mac++;					# Mac only & doesn't tell OS
  }
  else if(index($4,"W3C")||index($4,"Email"))
    EMail++;					# increment web by e-mail count
  else if(length($4)==6)
  {
    if(substr($2,length($2)-6)==".gmd.de")
      EMail++;					# does web by e-mail access
    else
      NoBrowser++;				# blank field...
  }

  if(index($4,"X11")||index($4,"X Win"))
  {
    X11++;					# Some flavor of UNIX
    if(index($4,"Sun"))
      Sun++;					# inc. SunOS / Solaris count
    else if(index($4,"Linux"))
      Linux++;					# increment Linux count
    else if(index($4,"FreeBSD"))
      FreeBSD++;				# increment FreeBSD count
    else if(index($4,"IRIX"))
      IRIX++;					# increment IRIX count
    else if(index($4,"AIX"))
      AIX++;					# increment AIX count
    else if(index($4,"HP-UX"))
      HPUX++;					# increment HP-UX count
  }
  else if(index($4,"Mac"))
    Mac++;					# increment Mac count
  else if(index($4,"Newt")||index($4,"NEWT"))
    Newton++;					# increment Newton count
  else if(index($4,"WebTV"))
    WebTV++;					# inc. WebTV box count
  else if(index($4,"Amiga"))
    Amiga++;					# inc. Amiga count
  else if(index($4,"OS/2"))
    OS2++;					# inc. OS/2 count
  else if(index($4,"Win"))
  {
    MSWin++;					# some flavor of MS-Win
    if(index($4,"NT"))
      MSWinNT++;				# increment NT count
    if(index($4,"98"))
      MSWin98++;				# increment 98 count
    if(index($4,"s CE"))
      MSWinCE++;				# increment CE count
    else if(index($4,"95"))
      MSWin95++;				# increment 95 count
  }
  return 0;
}

function CountReferences()
{
  $6=tolower($6);			# we don't care about case here
  if(length($6)==6)
  {
    Count["NoRef"]++;				# No references provided
    LastRef="NoRef";
  }
  else if(index($6,"saugus.net"))
  {
    InternalLink++;			# referenced by internal link
    if(index($6,"movies")||index($6,"sounds")||
       index($6,"images")||index($6,"log"))
    {
      Count["UntraceableRef"]++;
      LastRef="UntraceableRef";
    }
    else
      Count[LastRef]++;
  }
  else
  {
    for(FromAddr in Referer)
    {
      if(index($6,Referer[FromAddr]))
      {
        Count[FromAddr]++;
        LastRef=FromAddr;
        break;
      }
    }
  }
  return 0;
}

function CountGeographyAndTypes()
{
  if(match($2,"st:[. 0-9]*$"))
    NoType++;		# just numbers given; no name to work with
  else
  {
    $2=tolower($2);			# don't care about case here
    for(Place in Domain)
    {
      if(substr($2,length($2)-length(Domain[Place]))=="."Domain[Place])
      {
        Count[Place]++;
        break;
      }
    }
    if(index($2,".co.")||index($2,".com."))
      Count["Foreign Commercial"]++;		# foreign commercial domain
    else if(index($2,".ed.")||index($2,".edu."))
      Count["Foreign Educational"]++;		# foreign educational domain
    else if(index($2,".ne.")||index($2,".net."))
      Count["Foreign ISP"]++;			# foreign network / ISP domain
    else if(index($2,".or.")||index($2,".org."))
      Count["Foreign Organization"]++;		# foreign non-profit domain
    else if(index($2,".go.")||index($2,".gov."))
      Count["Foreign Government"]++;		# foreign government domain
    else if(index($2,".mi.")||index($2,".mil."))
      Count["Foreign Military"]++;		# foreign military domain
  }
  return 0;
}

function SumBrowsersAndOSs()
{
  # if it's Netscape compatible but not Netscape itself or MSIE or AOL,
  # classify it as an other Netscape compatible
  OtherNetscapeComp=NetscapeComp-Netscape-AOLMSIE-MSIE-IWENG-LunaSuite-Opera;

  # if it's not Netscape compatible, Lynx, HotJava, or undefined, it's other
  OtherBrowser=Browser-NetscapeComp-Lynx-HotJava-Mosaic-EMail-\
               Chimera-LunaSuite-Cyberdog-NetHopper-NewtsCape-Prodigy-\
               Arena-Voyager-NoBrowser;

  # if it's UNIX but not Sun, Linux, FreeBSD, IRIX, AIX, or HP-UX, it's
  # some other UNIX
  OtherUnix=X11-Sun-Linux-FreeBSD-IRIX-AIX-HPUX;

  # if it's MS-Win but not NT, CE, 95, or 98, it's 3.1
  MSWin31=MSWin-MSWinNT-MSWinCE-MSWin95-MSWin98;

  # if it's not MS-Win, not UNIX, not Mac, not Newton, not WebTV, and
  # not Amiga, then it's some other OS
  OtherOs=Browser-X11-MSWin-Mac-Newton-WebTV-OS2-Amiga;

  return 0;
}

function SumReferences()
{
  # if it's not one of the recognized search engines and it's not a blank
  # reference, it's another link
  Count["OtherRef"]=Browser;
  for(FromAddr in Referer)
  {
    RefCount++;
    Count["OtherRef"]-=Count[FromAddr];
  }
  Count["OtherRef"]-=Count["NoRef"];
  Count["OtherRef"]-=Count["UntraceableRef"];
  RefCount+=3;
  return 0;
}

function SumContinents()
{
  for(Place in Domain)
    Count[Continent[Place]]+=Count[Place];

  Count["USA"]=Count["USA Commercial"]+Count["USA ISP"]+\
               Count["USA Educational"]+Count["USA Government"]+\
               Count["USA Military"]+Count["USA Organization"]+\
               Count["USA Public School"];

  Count["China"]=Count["China Proper"]+Count["Hong Kong"]+Count["Macau"];

  Count["Commercial"]=Count["USA Commercial"]+Count["Foreign Commercial"];
  Count["Educational"]=Count["USA Educational"]+Count["Foreign Educational"]+\
                       Count["USA Public School"];
  Count["Government"]=Count["USA Government"]+Count["Foreign Government"];
  Count["Organization"]=Count["USA Organization"]+Count["Foreign Organization"];
  Count["Military"]=Count["USA Military"]+Count["Foreign Military"];
  Count["ISP"]=Count["USA ISP"]+Count["Foreign ISP"];

  UnknownCountry=Browser-Count["North America"]-Count["South America"]-\
                 Count["Europe"]-Count["Asia"]-Count["Africa"]-\
                 Count["Australia and Oceania"]-Count["Antarctica"]-\
                 Count["Non-specific; International"];
  OtherType=Browser-Count["Commercial"]-Count["Educational"]-\
            Count["Government"]-Count["Organization"]-Count["Military"]-\
            Count["ISP"]-Count["NATO"]-Count["International"]-NoType;
  return 0;
}

function PrintHead(OutFilename)
{
  # Note that this very first output redirection performs an overwrite...
  print "<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML//EN\">" >OutFilename;
  print "<HTML>" >>OutFilename;
  print "<HEAD>" >>OutFilename;
  print "<TITLE>Saugus.net Site Visitor Demographics</TITLE>"\
   >>OutFilename;
  printf "<META NAME=\"description\" " >>OutFilename;
  print "CONTENT=\"Some (Hopefully) Interesting Statistics\">" >>OutFilename;
  print "<META NAME=\"keywords\" " >>OutFilename;
  print "CONTENT=\"Saugus, MA, Saugus, Massachusetts, Saugus, Mass., Essex County\">"\
   >>OutFilename;
  # these link tags are used by some browsers to create special home
  # and up buttons.  Netscape & MSIE ignore them, though.
  print "<LINK REL=\"Home\" TITLE=\"The Saugus.net Home Page\"" >>OutFilename;
  print "HREF=\"http://www.saugus.net/\">" >>OutFilename;
  print "<LINK REL=\"Up\" TITLE=\"The Saugus.net Home Page\""\
        >>OutFilename;
  print "HREF=\"http://www.saugus.net/\">" >>OutFilename;
  print "</HEAD>" >>OutFilename;
  printf "<BODY BGCOLOR=\"#FFFFFF\" Text=\"#000000\" VLINK=\"#654545\""\
   >>OutFilename
  print "LINK=\"#957575\" ALINK=\"#FF0000\">" >>OutFilename;
  print "<P>" >>OutFilename;
  print "<A NAME="demographics"></A>" >> OutFilename;
  print "<TABLE WIDTH=100% COLS=4 BORDER=0 CELLPADDING=0 CELLSPACING=0>" >>OutFilename;
  print "<TR>" >>OutFilename;
  print "<TD ALIGN=LEFT WIDTH=23%>" >>OutFilename;
  print "<IMG ALIGN=LEFT VALIGN=TOP WIDTH=76 HEIGHT=75 SRC=\"/moreicons/saugusseal.gif\"" >>OutFilename;
  print "ALT=\"[the great seal of Saugus]\">" >>OutFilename;
  print "<TD ALIGN=CENTER COLSPAN=2 WIDTH=54%><A HREF=\"http://www.saugus.net/\"" >>OutFilename;
  print "TITLE=\"Go to Saugus.net...\"" >>OutFilename;
  print "ONMOUSEOVER=\"window.status='Go to Saugus.net...';return true\"" >>OutFilename;
  print "ONMOUSEOUT=\"window.status='Saugus.net';return true\"><IMG ALIGN=CENTER" >>OutFilename;
  print "VALIGN=MIDDLE SRC=\"http://www.tiac.net/users/feneric/images/saugus.net.gif\"" >>OutFilename;
  print "WIDTH=295 HEIGHT=47 BORDER=0 ALT=\"Saugus.net\"></A><BR>" >>OutFilename;
  print "<TD ALIGN=RIGHT WIDTH=23%>" >>OutFilename;
  print "<H1 ALIGN=RIGHT>Site Visitor Demographics</H1>" >>OutFilename;
  print "</TABLE>" >>OutFilename;
  print "<P>" >>OutFilename;
  # this line causes hits to the resulting page to themselves be logged
  printf "<!--#exec cgi=\"" >>OutFilename;
  print "/cgi-bin/logit\"-->" >>OutFilename;
  printf "<!--#exec cgi=\"" >>OutFilename;
  print "/cgi-bin/counter-nd\"-->" >>OutFilename;
  print "<P>" >>OutFilename;
  print "<HR WIDTH=25% ALIGN=CENTER>" >>OutFilename;
  print "<P>" >>OutFilename;
  # even margins on both sides
  print "<DIV ALIGN=JUSTIFY>" >>OutFilename;
  return 0;
}

function PrintDemogIntro(OutFilename)
{
  print "<A NAME=\"what\"></A>" >>OutFilename;
  print "<H3>What's This Page About?</H3>" >>OutFilename;
  print "This page provides a look at the population of people who visit"\
        >>OutFilename;
  print "this site and gives a rough breakdown on some simple facts about"\
        >>OutFilename;
  print "what web <A HREF=\"http://www.saugus.net/Computer/terms.shtml#browser\">browsers</A>"\
        >>OutFilename;
  print "are being used on what <A HREF=\"http://www.saugus.net/Computer/terms.shtml#platform\">platforms</A>, how these pages"\
        >>OutFilename;
  print "were found, etc.<P>" >>OutFilename;
  print "It is displayed here just for the curiousity value.  It's a bit"\
        >>OutFilename;
  print "more interesting than a simple counter and gives a feel for what"\
        >>OutFilename;
  print "kinds of computers are being used in town.<P>" >>OutFilename;
  print "<A NAME=\"how\"></A>" >>OutFilename;
  print "<H3>How Were These Data Gathered?</H3>" >>OutFilename;
  print "The numbers are fairly rough; no <A HREF=\"http://www.saugus.net/Computer/terms.shtml#cookie\">cookies</A> or other nasty tricks are"\
        >>OutFilename;
  print "used to grab extra information about visitors (for"\
        >>OutFilename;
  print "example, no user name information is collected).  It just relies on the"\
        >>OutFilename;
  print "normal (and typically incomplete) information automatically provided"\
        >>OutFilename;
  print "by all browsers to every web server.<P>" >>OutFilename;
  print "What this means is that certain entries in certain categories"\
        >>OutFilename;
  print "(most notably <A HREF=\"#systems\">Systems</A>," >>OutFilename;
  print "<A HREF=\"#types\">Types</A>," >>OutFilename;
  print "<A HREF=\"#geography\">Geography</A>, and" >>OutFilename;
  print "<A HREF=\"#from\">How Entered</A>) will have lower numbers"\
        >>OutFilename;
  print "than they really deserve while the corresponding &quot;other&quot;"\
        >>OutFilename;
  print "entries in these categories will have higher numbers than they"\
        >>OutFilename;
  print "really deserve.  Essentially what's happening is some of the"\
        >>OutFilename;
  print "hits that really ought to contribute to earlier entries wind up"\
        >>OutFilename;
  print "in the catch-all &quot;other&quot; entry instead.<P>" >>OutFilename;
  printf "%6.2f%% of all hits to this site are &quot;inhuman&quot;\n",
         Spider*100/NR >>OutFilename;
  print "hits; they're the work of search engine"\
        >>OutFilename;
  print "<A HREF=\"http://www.saugus.net/Computer/terms.shtml#spider\">spiders</A> or page statistic"\
        >>OutFilename;
  print "robots or similar entities from external sources.  These hits are"\
        >>OutFilename;
  print "not counted in any of the following tables.  Likewise, hits from all"\
        >>OutFilename;
  print "our own employees have been removed prior to the counting.<P>"\
        >>OutFilename;
  printf "%6.2f%% of the people who hit this site view more than one\n",
         InternalLink*Browser100 >>OutFilename;
  print "page during their visit." >>OutFilename;
  print "</DIV>" >>OutFilename;
  return 0;
}

function PrintOSTable(OutFilename)
{
  # print out the table for OS percentages
  Factor=Browser100;
  Units="%";
  NumFormat="%6.2f";
  print "<A NAME=\"systems\"></A>" >>OutFilename;
  print "<H3>Systems</H3>" >>OutFilename;
  print "<TABLE WIDTH=100% ROWS=20 COLS=2 BORDER=1>" >>OutFilename;
  print "<TR>" >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG> Total <A HREF=\"http://www.saugus.net/Computer/terms.shtml#Amiga\">Amiga</A> Systems</STRONG>"\
        >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
         Amiga*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG> Total <A HREF=\"http://www.saugus.net/Computer/terms.shtml#Mac\">Macintosh</A> Systems</STRONG>"\
        >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
         Mac*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><A HREF=\"http://www.saugus.net/Computer/terms.shtml#Windows 3.1\">MS-Windows 3.1</A>" >>OutFilename;
  printf "<TD ALIGN=RIGHT> "NumFormat"%c<P><TR>\n",
         MSWin31*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><A HREF=\"http://www.saugus.net/Computer/terms.shtml#Windows 95\">MS-Windows 95</A>" >>OutFilename;
  printf "<TD ALIGN=RIGHT> "NumFormat"%c<P><TR>\n",
         MSWin95*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><A HREF=\"http://www.saugus.net/Computer/terms.shtml#Windows 98\">MS-Windows 98</A>" >>OutFilename;
  printf "<TD ALIGN=RIGHT> "NumFormat"%c<P><TR>\n",
         MSWin98*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><A HREF=\"http://www.saugus.net/Computer/terms.shtml#Windows CE\">MS-Windows CE</A>" >>OutFilename;
  printf "<TD ALIGN=RIGHT> "NumFormat"%c<P><TR>\n",
         MSWinCE*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><A HREF=\"http://www.saugus.net/Computer/terms.shtml#Windows NT\">MS-Windows NT</A>" >>OutFilename;
  printf "<TD ALIGN=RIGHT> "NumFormat"%c<P><TR>\n",
         MSWinNT*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Total <A HREF=\"http://www.saugus.net/Computer/terms.shtml#MS-Windows\">MS-Windows</A> Systems</STRONG>"\
        >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
         MSWin*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Total <A HREF=\"http://www.saugus.net/Computer/terms.shtml#Newton\">Newton</A> Systems</STRONG>"\
        >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
         Newton*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Total <A HREF=\"http://www.saugus.net/Computer/terms.shtml#OS/2\">OS/2</A> Systems</STRONG>"\
        >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
         OS2*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><A HREF=\"http://www.saugus.net/Computer/terms.shtml#AIX\">AIX</A><TD ALIGN=RIGHT> "NumFormat"%c<P><TR>\n",
         AIX*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><A HREF=\"http://www.saugus.net/Computer/terms.shtml#FreeBSD\">FreeBSD</A><TD ALIGN=RIGHT> "NumFormat"%c<P><TR>\n",
         FreeBSD*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><A HREF=\"http://www.saugus.net/Computer/terms.shtml#HP-UX\">HP-UX</A><TD ALIGN=RIGHT> "NumFormat"%c<P><TR>\n",
         HPUX*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><A HREF=\"http://www.saugus.net/Computer/terms.shtml#IRIX\">IRIX</A><TD ALIGN=RIGHT> "NumFormat"%c<P><TR>\n",
         IRIX*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><A HREF=\"http://www.saugus.net/Computer/terms.shtml#Linux\">Linux</A><TD ALIGN=RIGHT> "NumFormat"%c<P><TR>\n",
         Linux*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><A HREF=\"http://www.saugus.net/Computer/terms.shtml#Solaris\">Solaris</A>" >>OutFilename;
  printf "/ <A HREF=\"http://www.saugus.net/Computer/terms.shtml#SunOS\">SunOS</A>" >>OutFilename;
  printf "<TD ALIGN=RIGHT> "NumFormat"%c<P><TR>\n",
         Sun*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%>Other <A HREF=\"http://www.saugus.net/Computer/terms.shtml#UNIX\">UNIX</A> Types" >>OutFilename;
  printf "<TD ALIGN=RIGHT> "NumFormat"%c<P><TR>\n",
         OtherUnix*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Total <A HREF=\"http://www.saugus.net/Computer/terms.shtml#UNIX\">UNIX</A> Systems</STRONG>"\
        >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
         X11*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Total <A HREF=\"http://www.saugus.net/Computer/terms.shtml#WebTV\">WebTV</A> Systems</STRONG>"\
        >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
         WebTV*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Other Systems " >>OutFilename;
  printf "/ System Not Provided</STRONG>" >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P>\n",
         OtherOs*Factor,Units >>OutFilename;
  print "</TABLE>" >>OutFilename;
  print "<P>" >>OutFilename;
  return 0;
}

function PrintBrowserTable(OutFilename)
{
  # print out the table for browser percentages
  Factor=Browser100;
  Units="%";
  NumFormat="%6.2f";
  print "<A NAME=\"browsers\"></A>" >>OutFilename;
  print "<H3>Browsers</H3>" >>OutFilename;
  print "<TABLE WIDTH=100% ROWS=22 COLS=2 BORDER=1>" >>OutFilename;
  print "<TR>" >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Arena</STRONG>" >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
        Arena*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Chimera</STRONG>" >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
        Chimera*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Cyberdog</STRONG>" >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
        Cyberdog*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>HotJava</STRONG>" >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
        HotJava*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Total Lynx Compatible</STRONG>"\
        >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
        Lynx*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Total Mosaic Compatible</STRONG>"\
        >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
        Mosaic*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>NetHopper</STRONG>" >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
        NetHopper*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%>Netscape" >>OutFilename;
  printf "<TD ALIGN=RIGHT> "NumFormat"%c<P><TR>\n",
        Netscape*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%>MSIE" >>OutFilename;
  printf "<TD ALIGN=RIGHT> "NumFormat"%c<P><TR>\n",
        (MSIE-WebTV)*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%>WebTV-MSIE" >>OutFilename;
  printf "<TD ALIGN=RIGHT> "NumFormat"%c<P><TR>\n",
        WebTV*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%>AOL-MSIE" >>OutFilename;
  printf "<TD ALIGN=RIGHT> "NumFormat"%c<P><TR>\n",
        AOLMSIE*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%>AOL-IWENG" >>OutFilename;
  printf "<TD ALIGN=RIGHT> "NumFormat"%c<P><TR>\n",
        IWENG*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%>Opera" >>OutFilename;
  printf "<TD ALIGN=RIGHT> "NumFormat"%c<P><TR>\n",
        Opera*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%>LunaSuite" >>OutFilename;
  printf "<TD ALIGN=RIGHT> "NumFormat"%c<P><TR>\n",
        LunaSuite*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%>Other Netscape Compatible" >>OutFilename;
  printf "<TD ALIGN=RIGHT> "NumFormat"%c<P><TR>\n",
        OtherNetscapeComp*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Total Netscape Compatible</STRONG>"\
        >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c<P></STRONG><TR>\n",
        NetscapeComp*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Newt's Cape</STRONG>"\
        >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
        NewtsCape*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Prodigy Web Browser</STRONG>"\
        >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
        Prodigy*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Voyager</STRONG>" >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
        Voyager*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Web Access Via E-Mail</STRONG>"\
        >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
        EMail*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>No Browser Name Available</STRONG>"\
        >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
        NoBrowser*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Other Browsers</STRONG>"\
        >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P>\n",
        OtherBrowser*Factor,Units >>OutFilename;
  print "</TABLE>" >>OutFilename;
  print "<P>" >>OutFilename;
  return 0;
}

function PrintReferenceTable(OutFilename)
{
  # print out the table for reference link percentages
  Factor=Browser100;
  Units="%";
  NumFormat="%6.2f";
  print "<A NAME=\"from\"></A>" >>OutFilename;
  print "<H3>How Entered</H3>" >>OutFilename;
  print "<TABLE WIDTH=100% ROWS="RefCount" COLS=2 BORDER=1>" >>OutFilename;
  print "<TR>" >>OutFilename;
  for(FromAddr in Referer)
  {
    printf "<TD VALIGN=TOP WIDTH=80%%>%s",RefererURL[FromAddr] >>OutFilename;
    printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
          Count[FromAddr]*Factor,Units >>OutFilename;
  }
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Untraceable Links</STRONG>"\
        >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
        Count["UntraceableRef"]*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Other Links</STRONG>"\
        >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
        Count["OtherRef"]*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>No Reference " >>OutFilename;
  printf "/ Direct Hit / Not Provided</STRONG>" >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P>\n",
        Count["NoRef"]*Factor,Units >>OutFilename;
  print "</TABLE>" >>OutFilename;
  print "<P>" >>OutFilename;
  return 0;
}

function PrintTypeTable(OutFilename)
{
  # print out the table for type percentages
  Factor=Browser100;
  Units="%";
  NumFormat="%6.2f";
  print "<A NAME=\"types\"></A>" >>OutFilename;
  print "<H3>Types</H3>" >>OutFilename;
  print "<TABLE WIDTH=100% ROWS=10 COLS=2 BORDER=1>" >>OutFilename;
  print "<TR>" >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Commercial</STRONG>" >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
        Count["Commercial"]*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Educational</STRONG>"\
        >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
        Count["Educational"]*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Government</STRONG>" >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
        Count["Government"]*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>International Services</STRONG>"\
        >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
        Count["International"]*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Internet Service Provider</STRONG>"\
        >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
        Count["ISP"]*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Military</STRONG>" >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
        Count["Military"]*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>NATO</STRONG>" >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
        Count["NATO"]*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Non-Profit Organization</STRONG>"\
        >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
        Count["Organization"]*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Numeric; Type Not Given</STRONG>"\
        >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
        NoType*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>No Type Provided</STRONG>"\
        >>OutFilename;
  printf " (Not Specified In Many Countries)" >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P>\n",
        OtherType*Factor,Units >>OutFilename;
  print "</TABLE>" >>OutFilename;
  print "<P>" >>OutFilename;
  return 0;
}

function PrintGeographyTable(OutFilename)
{
  # print out the table for geography percentages
  Factor=Browser100;
  Units="%";
  NumFormat="%6.2f";
  print "<A NAME=\"geography\"></A>" >>OutFilename;
  print "<H3>Geography</H3>" >>OutFilename;
  print "<TABLE WIDTH=100% ROWS=8 COLS=2 BORDER=1>" >>OutFilename;
  print "<TR>" >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Total for Africa</STRONG>"\
        >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
        Count["Africa"]*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Total for Antarctica</STRONG>"\
        >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
        Count["Antarctica"]*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Total for Asia</STRONG>"\
        >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
        Count["Asia"]*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Total for Australia" >>OutFilename;
  printf " &amp; Oceania</STRONG>" >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
        Count["Australia and Oceania"]*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Total for Europe</STRONG>"\
        >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
        Count["Europe"]*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Total for North America</STRONG>"\
        >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
        Count["North America"]*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Total for South America</STRONG>"\
        >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P><TR>\n",
        Count["South America"]*Factor,Units >>OutFilename;
  printf "<TD VALIGN=TOP WIDTH=80%%><STRONG>Unknown " >>OutFilename;
  printf "/ Numeric; Not Given</STRONG>" >>OutFilename;
  printf "<TD ALIGN=RIGHT><STRONG> "NumFormat"%c</STRONG><P>\n",
        UnknownCountry*Factor,Units >>OutFilename;
  print "</TABLE>" >>OutFilename;
  print "<P>" >>OutFilename;
  return 0;
}

function PrintTail(OutFilename)
{
  # print out the bottom of our HTML file including JavaScript
  # enhanced links to the main pages, and a correct date / time
  # stamp of when the page was created.
  print "<P>" >>OutFilename;
  print "<TABLE WIDTH=100% BORDER=0 ROWS=2 COLS=3 CELLPADDING=0 CELLSPACING=0>" >>OutFilename;
  print "<TR>" >>OutFilename;
  print "<TD ALIGN=LEFT VALIGN=TOP>" >>OutFilename;
  print "<IMG SRC=\"/moreicons/telephone.gif\" WIDTH=20 HEIGHT=23 ALT=\"Tel.:\">" >>OutFilename;
  print "<STRONG>781-231-2621</STRONG>" >>OutFilename;
  print "<P>" >>OutFilename;
  print "<TD ALIGN=CENTER VALIGN=TOP>" >>OutFilename;
  print "<A HREF=\"mailto:sales@saugus.net?subject=services page\" TITLE=\"services page\"" >>OutFilename;
  print "ONMOUSEOVER=\"window.status='E-mail Sales Dept...';return true\"" >>OutFilename;
  print "ONMOUSEOUT=\"window.status='Saugus.net';return true\"><IMG" >>OutFilename;
  print "SRC=\"/moreicons/mail.gif\" WIDTH=20 HEIGHT=23 BORDER=0" >>OutFilename;
  print "ALT=\"e-mail:\"> sales@saugus.net</A>" >>OutFilename;
  print "<P>" >>OutFilename;
  print "<TD ALIGN=RIGHT VALIGN=TOP>" >>OutFilename;
  print "<IMG SRC=\"/moreicons/fax.gif\" WIDTH=20 HEIGHT=23 ALT=\"FAX.:\">" >>OutFilename;
  print "<STRONG>781-231-4719</STRONG>" >>OutFilename;
  print "<P>" >>OutFilename;
  print "<TR>" >>OutFilename;
  print "<TD ALIGN=LEFT VALIGN=BOTTOM>" >>OutFilename;
  print "<BR>" >>OutFilename;
  print "<A HREF=\"http://www.saugus.net/\" TITLE=\"Go to Saugus.net...\"" >>OutFilename;
  print "ONMOUSEOVER=\"window.status='Go to the Saugus.net main page...';return true\"" >>OutFilename;
  print "ONMOUSEOUT=\"window.status='Saugus.net';return true\"><IMG WIDTH=8 HEIGHT=15" >>OutFilename;
  print "SRC=\"http://www.tiac.net/users/feneric/images/lilhome.gif\" ALT=\"[home]\"></A>" >>OutFilename;
  print "<A HREF=\"http://www.saugus.net/\" TITLE=\"Go to Saugus.net...\"" >>OutFilename;
  print "ONMOUSEOVER=\"window.status='Go to the Saugus.net main page...';return true\"" >>OutFilename;
  print "ONMOUSEOUT=\"window.status='Saugus.net';return true\"><IMG WIDTH=8 HEIGHT=15" >>OutFilename;
  print "SRC=\"http://www.tiac.net/users/feneric/images/lilup.gif\" ALT=\"[up]\"></A>" >>OutFilename;
  print "<TD COLSPAN=2 ALIGN=RIGHT VALIGN=BOTTOM>" >>OutFilename;
  print "<BR>" >>OutFilename;
  print "<SMALL>" >>OutFilename;
  print "Generated:  <!--#echo var=\"LAST_MODIFIED\"--><BR>" >>OutFilename;
  print "Web page by <A HREF=\"http://www.saugus.net/\" TITLE=\"Go to Saugus.net...\"" >>OutFilename;
  print "ONMOUSEOVER=\"window.status='Go to the Saugus.net main page...';return true\"" >>OutFilename;
  print "ONMOUSEOUT=\"window.status='Saugus.net';return true\">Saugus.net</A>" >>OutFilename;
  print "</SMALL>" >>OutFilename;
  print "</TABLE>" >>OutFilename;
  print "</BODY>" >>OutFilename;
  print "</HTML>" >>OutFilename;
  return 0;
}