I revised my code from an earlier post and look to my fellow monks for constructive criticism on better ways to do this. This is a rewritten version of the query program for parsing NT logs into NCSA format (yes, I know that IIS logs to NCSA, but these are existing logs rather than logs for new sites).

#!/usr/bin/perl
#!/usr/bin/perl -w
# -*- perl -*- @(#) $Id$
#
# $Revision$
# $Date$
# $Author$
# $Locker$
# $RCSfile$
# $State$
# $Source$

require 5.005;
use strict;

umask 002;

my $prog_name = $0;
my $log_basedir = '/webstat/NT/';
my $log_dir = '';
my $sites_dat = '/etc/weblog/nt-sites.dat';

my $syscmd_webalizer_wrapper = '/opt/webalizer/bin/webalizer-wrapper';

# The parse2ncsa command takes a directory name as a parameter,
# and parses all of the logs in that directory in chronological
# order, converting to NCSA format wherever necessary.  It sends
# the NCSA common/combined log format to STDOUT.
my $syscmd_parse2ncsa = '/opt/webalizer/bin/parse2ncsa';

chdir $log_dir or die "Could not change to $log_dir";

my $domain;
my $webserver;
my $w3svc;
my $ip_addr;

my $line;

open(SITES_DAT,"<$sites_dat") or die;

while (defined ($line = <SITES_DAT>))
{
    $line =~ /^#/ and next;
    chomp $line;
    ($domain, $webserver, $w3svc, $ip_addr) = split(/\t/,$line,4);
    $0 = $prog_name . " - processing $domain from $webserver/$w3svc";
    my $log_dir = join('/', $log_basedir, $webserver, $w3svc);
    open(NCSA_STREAM,"$syscmd_parse2ncsa $log_dir $domain |") or next;
    open(WEBALIZER, "|$syscmd_webalizer_wrapper $domain") or next;
    while (defined ($line = <NCSA_STREAM>))
    {
        $line =~ tr/\000//d;
        print WEBALIZER $line while defined ($line = <NCSA_STREAM>);
    }
    close(WEBALIZER);
    close(NCSA_STREAM);
}

close(SITES_DAT);

my $datakey = "domain";
my $driver = 'mysql';
my $database = 'webstat';
my $table = 'sites';
my $user = 'withheld';
my $password = 'withheld';
my $dbh;
my @Fields = qw( priority domain server_name server_type log_code log_
+location ip_addr username timestamp );
my $button = (defined($req->param("button"))) ? $req->param("button") 
+: "Default";
my %FormData = getformdata();


sub db_connect()
{
    my $dsn = "DBI:$Driver:$DataBase";
    $dbh = DBI->connect($dsn, $User, $Password, {RaiseError => 1, Auto
+Commit => 1});
}

sub db_disconnect()
{
    $dbh->disconnect;
}

    my $query = "select * from $Table where $DataKey = ?";
    my $sth = $dbh->prepare($query);
    $sth->execute($FormData{$DataKey});
[download]