sub doSQL { print DEBUGFILE "Entering sub doSQL\n" if ($DEBUG); my (@localArray, $sqlStatement, $size)=(); (@localArray)=@_; $size=scalar (@localArray); $sqlStatement="INSERT INTO $liveTable SET @localArray"; if ($usingDB) { my $sth=$mainDBh->prepare($sqlStatement) or &exitAll("notok", "doSQL:\nQuery= $sqlStatement\nError=" . $mainDBh->errstr); $sth->execute() or &exitAll("notok", "doSQL:\nQuery= $sqlStatement\nError=" . $mainDBh->errstr); } print DEBUGFILE "$sqlStatement\n" if $DEBUG; }