home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 May / 05_02.iso / software / mhtmls / MagicHTMLStudio.exe / Disk1 / data1.cab / Program_Files / CGI / TextCount / textcounter.cgi < prev   
Encoding:
Text File  |  2002-03-06  |  621 b   |  28 lines
  1. #!/usr/bin/perl
  2.  
  3.    $date_command = "/bin/date";
  4.    $date = `$date_command +"%B %d, %Y"`; chop($date);
  5.  
  6.    $count_file = "count.txt";
  7.    open(COUNT,"$count_file") || die "$!\n"; 
  8.    flock COUNT,2;
  9.    $count = <COUNT>;
  10.    close(COUNT);
  11.    if ($count =~ /\n$/) {
  12.       chop($count);
  13.    }
  14.  
  15.    $count++;
  16.  
  17.    open(COUNT,">$count_file") || die "$!\n";
  18.    print COUNT "$count";
  19.    close(COUNT);
  20.  
  21.    open(LOG,">>log.txt") || die "$!\n";
  22.    print LOG "$date:$ENV{'REMOTE_HOST'}:$ENV{'REMOTE_ADDR'}:$ENV{'HTTP_REFERER'}\n";
  23.    close(LOG);
  24.  
  25.    print "Content-Type: text/html \n\n";
  26.    print "$count";
  27.  
  28.