🚀 go-pugleaf

I modified ~/www/cgi-bin/count-ssi.cgi to be a little faster (by removing
useless 'use CGI') and adding the ability to log HTTP_REFERER.
	-Joe

inwap% diff -u www/cgi-bin/{vwh-count,count-ssi}.cgi
--- www/cgi-bin/vwh-count.cgi   Sat Oct 13 20:19:56 2001
+++ www/cgi-bin/count-ssi.cgi   Mon Oct 29 16:20:17 2001
@@ -2,7 +2,9 @@
 
 use strict;
 use Getopt::Std;
-use CGI qw/:standard/;
+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;
@@ -86,5 +88,14 @@
        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
+
+exit 0 unless $ENV{HTTP_REFERER};
+$_ = $ENV{DOCUMENT_URI} || $ENV{REQUEST_URI} || $ENV{COUNTER_INFO};
+open(OUT,">>$logfile") || exit 1;
+print OUT "$_ $ENV{HTTP_REFERER}\n";   # Document, space, referer (no quotes)
+close OUT;
 
 exit(0);

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