#!/usr/bin/perl -wT
# vislog.cgi
use strict;
use POSIX;
use Socket;
use lib qw(.);
use LogConnect;
my $dbh = LogConnect->connect;
my $ip = $ENV{'REMOTE_ADDR'};
my $browser = $ENV{'HTTP_USER_AGENT'};
my $referer = $ENV{'HTTP_REFERER'};
my $here = $ENV{'REQUEST_URI'};
my @digits = split (/\./, $ip);
my $address = pack ("C4", @digits);
my $host = gethostbyaddr ($address, AF_INET);
my $time = strftime("%Y-%m-%d %H:%M:%S",gmtime);
my $query = qq(insert into access_log 
                values('$ip','$host','$browser','$here','$referer', $time));
my $sth = $dbh->prepare($query);
$sth->execute;
$dbh->disconnect;