🚀 go-pugleaf

In article <20011101212918.T15113-100000@shell5.ba.best.com>,
Daniel Myers  <dhm@best.com> wrote:
>--The new server has web statistics running a different version of Analog,
>which is accessible thru the Control Panel.  However, this does not yet
>contain the nice referer and user-agent (snip).  This additional
>information in the logs will be made available in the next week or two by
>request, and within a month we should have the information accessible thru
>the Control Panel's "view statistics" interface.

Until the HTTP_REFERER and HTTP_USER_AGENT fields show up, I've been
getting by with a modification to cgi-bin/count-ssi.cgi to log the
info for counted pages.
	-Joe

#!/usr/bin/perl

use strict;
use Getopt::Std;
sub header {"Content-type: text/html\n\n"}; # Replace 'use CGI qw/:standard/;'
my $logfile="/usr/home/inwap/www/logs/referer_log";

use integer;

print header;

$|=1;

my %opt;
my $val = '';
my $orig_val = '';
my $path;
my @t;
my $last;

getopts('f:pi',\%opt);

$path = $ENV{'COUNTER_INFO'};
@t = split(/\//,$path);
pop(@t);
$path = join('/',@t);
chdir($path);

open(COUNT,$opt{'f'}) || die "Cannot open file: ".$opt{'f'};

while(<COUNT>) {
	chomp;

	next if($val ne '');

	$val = $_;
	$val =~ s/\D//g;
}

close(COUNT);

if($val eq '') {
	$val = 0;
}

$orig_val = $val;

my $last3digits;
my $str = '';
my $started = 0;

if(!$opt{'p'}) {
	while ($val >= 1000) {
		$last3digits = $val % 1000;
		$val = $val / 1000;
		if ($started) {
			$str = "," . sprintf("%03d", $last3digits) . $str;
		} else {
			$str = "," . sprintf("%03d", $last3digits);
			$started = 1;
		}
	}
	$str = $val . $str;

	print $str;

	$last = $orig_val % 10;
	if ((($orig_val / 10) % 10) == 1) {
		# we're in the teens, so fake the "th"
		$last = 4;
	}
	if ($last == 1) {
		print "st";
	} elsif ($last == 2) {
		print "nd";
	} elsif ($last == 3) {
		print "rd";
	} else {
		print "th";
	}

}


if(!$opt{'i'}) {
	$orig_val = $orig_val + 1;
	open(COUNT,'>'.$opt{'f'}) || die "Cannot open file: ".$opt{'f'};
	print COUNT $orig_val."\n";
	close(COUNT);
}

# Log REFERER for any document using /cgi-bin/count-ssi.cgi for counter.
# Added by Joe.Smith@inwap.com 29-Oct-2001

my $ref = $ENV{HTTP_REFERER}    || "-";
my $ua  = $ENV{HTTP_USER_AGENT} || "-";
my $doc = $ENV{DOCUMENT_URI} || $ENV{REQUEST_URI} || $ENV{COUNTER_INFO};

exit 0 if ($ref eq "-") && ($ua = "-");

open(OUT,">>$logfile") || exit 1;
print OUT qq|$doc "$ref" "$ua"\n|;
close OUT;

exit(0);

--
See http://www.inwap.com/ for PDP-10 and "ReBoot" pages.