home *** CD-ROM | disk | FTP | other *** search
- #!/usr/bin/perl
-
- use CGI;
- use URI;
- use BOHTTPD;
-
- my $cgi = new CGI;
-
- for my $url ($ENV{HTTP_REFERER}, $cgi->param('q')) {
- my $url = new_abs URI $url, $ENV{HTTP_REFERER};
- BOHTTPD::db_update("$url");
- }
-
- print "Content-type: application/x-javascript\n\n";
-
-