package Apache::TaartsLog;

use CGI qw(:cgi);
use Apache ();
use Apache::Constants qw(:common &OPT_EXECCGI &REDIRECT);
use DBI;

my $query = new CGI();

$dbh = DBI->connect("dbi:mysql:taarts","jrobiso2","") || die "$DBI::errstr: $!\n";

sub handler {
        my $r = shift;  # @_[0] contains a reference to
                        # the current request handler

        my ($request);
        my ($hostname);
                        # Returns a blessed reference
        if ($r->main) { # unless this is the main request
                $orig = $r->main;
        } else {
                $orig = $r;
        }

        $hostname = $orig->get_remote_host;
        $request = $orig->filename;
        $user = $query->remote_user(); # this apparently fails.
        unless (($request =~ /jpg/) || ($request =~ /gif/)) {
           $dbh->do("insert into logs (host,request,time_stamp,cdsid) VALUES
                   ('$hostname','$request',NOW(),'$user')");
    }
}

END {
        undef($dbh);
}
1;