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 / redir.cgi < prev    next >
Text File  |  1999-01-09  |  943b  |  39 lines
  1. #!/usr/bin/perl
  2.  
  3. require ("cgi-lib.pl") or die "Could not open or find cgi-lib.pl\n";
  4. require ("banners.conf") or die "Could not open or find banners.conf\n";
  5.  
  6. ## call initial functions
  7. &Get_request_types;
  8. &Record_Log;
  9. &Redirect_to_Advertiser;
  10.  
  11. #########################################################################
  12.  
  13. sub Get_request_types {
  14.         
  15. &ReadParse(*input);
  16. $host_request = ($input{'Host'});
  17. $banner_name = ($input{'Banner_name'});
  18.  
  19. }
  20.  
  21. #########################################################################
  22.  
  23. sub Record_Log {
  24.  
  25. open (LOGFILE, ">>logfile.txt" || die "Could not open or find logfile.txt\n");
  26. print LOGFILE "$banner_name | ".gmtime(time)." | $ip | $host_request\n";
  27. close LOGFILE;
  28.  
  29. }
  30.  
  31. #########################################################################
  32.  
  33. sub Redirect_to_Advertiser {
  34.  
  35. print "Location: $Banners{$banner_name}\n\n";
  36.  
  37. }
  38.  
  39. #########################################################################