I wrote a small program for my website, it simply grabbed the users browser, reffering url, IP, and time of visit and stored it into a text file. I used it mainly to see what the bulk of my visitors were using and how they found the site.
Now it worked fine up until about the end of december when all of the sudden it stopped showing new visitor info. I emailed the server folks and they said they do not help troubleshoot users scripts. So Im wondering if anyone here knows if thee was an update to perl or something that took place recently that may cause my script to quit working. Here is the script maybe somone could see if there is an error or something.
Below the script is the line of code in my HTML that sends the data to the script. The exec command was disabled so this was the only way I could find to make it run.
#!/usr/bin/perl
use CGI qw/:all/;
#
#
my @values = split(/&&&&&/,$ENV{QUERY_STRING});
$timestamp = localtime();
#
open(OUTFV, ">>userlog1.txt") || die("Cannot Open File");
flock (OUTFV, 2);
print "Content-type: text/html\n\n";
#
#
print OUTFV "Date: $timestamp\n";
print OUTFV "IP Address: $values[1]\n";
print OUTFV "Screen Name: $values[2]\n";
print OUTFV "HTTP Referer: $values[0]\n";
print OUTFV "Browser: $ENV{HTTP_USER_AGENT}\n\n";
print OUTFV " \n\n";
close(OUTFV);
/cgi-bin/log.cgi?<!--#echo var=
Any inout of any type would be greatly appreciated.
Now it worked fine up until about the end of december when all of the sudden it stopped showing new visitor info. I emailed the server folks and they said they do not help troubleshoot users scripts. So Im wondering if anyone here knows if thee was an update to perl or something that took place recently that may cause my script to quit working. Here is the script maybe somone could see if there is an error or something.
Below the script is the line of code in my HTML that sends the data to the script. The exec command was disabled so this was the only way I could find to make it run.
#!/usr/bin/perl
use CGI qw/:all/;
#
#
my @values = split(/&&&&&/,$ENV{QUERY_STRING});
$timestamp = localtime();
#
open(OUTFV, ">>userlog1.txt") || die("Cannot Open File");
flock (OUTFV, 2);
print "Content-type: text/html\n\n";
#
#
print OUTFV "Date: $timestamp\n";
print OUTFV "IP Address: $values[1]\n";
print OUTFV "Screen Name: $values[2]\n";
print OUTFV "HTTP Referer: $values[0]\n";
print OUTFV "Browser: $ENV{HTTP_USER_AGENT}\n\n";
print OUTFV " \n\n";
close(OUTFV);
/cgi-bin/log.cgi?<!--#echo var=
Any inout of any type would be greatly appreciated.
