home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 June / PCWorld_2002-06_cd.bin / Software / TemaCD / webweaver / ww200205.exe / _SETUP.1 / accesslog.cgi < prev    next >
Encoding:
Text File  |  1998-08-07  |  927 b   |  46 lines
  1. #! /usr/local/bin/perl
  2. ################################################
  3. #    Setcookie.cgi - for Referral Partner Program
  4. #    Written by McWeb Software
  5. #    June 1998
  6. ################################################
  7.  
  8. $logfile = "/home/ns-home/docs/mmm/accesslog.txt";  
  9.  
  10. &log;
  11. exit (0);
  12.  
  13. sub log {
  14.  
  15.     ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
  16.  
  17. if ($hour < 10) {
  18.     $hour = "0$hour";
  19. }
  20.     $month = ($mon + 1);
  21.     if ($month < 10) {
  22.         $month = "0$month";
  23.     }
  24.     if ($mday < 10) {
  25.         $mday = "0$mday";
  26.     }
  27.     $weekday = ($wday + 1);
  28.     $day = (Sun,Mon,Tue,Wed,Thu,Fri,Sat) [(localtime) [6]];
  29.     @months = ("January","February","March","April","May","June","July","August","September","October","November","December");
  30.     $date = "$hour | $weekday | $month | $day, $month/$mday/$year";
  31.  
  32.     if (! open(LOG,">>$logfile")) {
  33.         exit;
  34.     }
  35.     print LOG "$date | $ENV{'HTTP_USER_AGENT'} | $ENV{'REMOTE_HOST'}  \n";
  36.     close (LOG);
  37.  
  38. }
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.