home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 49 / cda49.iso / VNULabs / BrownOrifice / BOHTTPD-0.2 / BOHTTPD_log.cgi < prev    next >
Encoding:
Text File  |  2000-08-11  |  258 b   |  16 lines

  1. #!/usr/bin/perl
  2.  
  3. use CGI;
  4. use URI;
  5. use BOHTTPD;
  6.  
  7. my $cgi = new CGI;
  8.  
  9. for my $url ($ENV{HTTP_REFERER}, $cgi->param('q')) {
  10.   my $url = new_abs URI $url, $ENV{HTTP_REFERER};
  11.   BOHTTPD::db_update("$url");
  12. }
  13.  
  14. print "Content-type: application/x-javascript\n\n";
  15.  
  16.