home *** CD-ROM | disk | FTP | other *** search
/ ftp.sunet.sepub/pictures / 2014.11.ftp.sunet.se-pictures.tar / ftp.sunet.se / pub / pictures / ACiD-artpacks / www / mirrors / acheron / cgi-bin / exposure.cgi < prev    next >
Text File  |  1999-01-30  |  692b  |  29 lines
  1. #!/usr/bin/perl
  2.  
  3. require ("cgi-lib.pl") or die "Could not open or find cgi-lib.pl\n";
  4.  
  5. ## call initial functions
  6. &Get_request_types;
  7. &Record_Log;
  8.  
  9. #########################################################################
  10.  
  11. sub Get_request_types {
  12.         
  13. &ReadParse(*input);
  14. $host_request = ($input{'Host'});
  15. $banner_name = ($input{'Banner_name'});
  16.  
  17. }
  18.  
  19. #########################################################################
  20.  
  21. sub Record_Log {
  22.  
  23. open (LOGFILE, ">>exposures.txt" || die "Could not open or find logfile.txt\n");
  24. print LOGFILE "$banner_name | ".gmtime(time)." | $ip | $host_request\n";
  25. close LOGFILE;
  26.  
  27. }
  28.  
  29. #########################################################################