emcb has asked for the wisdom of the Perl Monks concerning the following question:
Hi,
I have written this little piece of code to act as a sucessful-hit logger on my home-page and i cant for the life of me get it to work.
Here's the code if anyonw wouldnt mind taking a look:
#!/usr/bin/perl # # To use this just insert this line into any html file you # want to hit: # # <!--exec cgi="/cgi-bin/hitlogger.cgi"--> # print "Content-Type: text/html\n\n"; print "HELLO\n"; # Gather all of the log strings $dateprog = "/bin/date"; $server_protocol = $ENV{'SERVER_PROTOCOL'}; $remoth_host = $ENV{'HTTP_X_FORWARDED_FOR'} || $ENV{'REMOTE_ADDR'}; $user_agent = $ENV{'HTTP_USER_AGENT'}; $request_method = $ENV{'REQUEST_METHOD'}; $request_uri = $ENV{'REQUEST_URI'}; $request = "$request_method $request_uri $server_protocol"; $date = `$dateprog`; chomp $date; $log_strig = "$remote_host - - [$date] \"$request\" 200 -"; # open the log and output the log string open( LOG, ">/home/exposu/logs/web_access.log.txt" ) || die "$!\n"; print LOG "$log_string\n"; close LOG;
Cheers,
Elfyn
|
---|
Replies are listed 'Best First'. | |
---|---|
•Re: is there something wrong with this code?
by merlyn (Sage) on May 18, 2002 at 21:22 UTC | |
by emcb (Beadle) on May 18, 2002 at 21:33 UTC | |
Re: is there something wrong with this code?
by DamnDirtyApe (Curate) on May 18, 2002 at 22:14 UTC | |
Re: is there something wrong with this code?
by perigeeV (Hermit) on May 19, 2002 at 11:34 UTC | |
Re: is there something wrong with this code?
by Parham (Friar) on May 19, 2002 at 13:46 UTC |
Back to
Seekers of Perl Wisdom