anycare to help get this working.
it is being called from a homepage as the page loads (like a counter would be used)


#!/usr/bin/perl -w
use strict;
use diagnostics;
print "Content-type: text/html\n\n";

##############
##declared variables
##############
my $homepage;
my $ENV;
my $HTTP_REFERER;


## print to webpage
##############
##print "$_:  $ENV{$_}<br>\n" foreach keys %ENV;
print "$ENV{'$HTTP_REFERER'}\n";

##open, print, close file
##############
open(A,">>/home/homepage/cgi-bin/data/refs.htm");
print A "$ENV{'HTTP_REFERER'}\n";
close (A);
exit;

Reply via email to