sub _doLog {
  my ($self, $lid, $pid, $msg) = @_;
  $msg = '[PID:$$] ' . $msg;
  substr($msg, 2045) = '...' if length($msg) > 2048;
  my $sth = $self->{dbh}->prepare("INSERT INTO Logs
                                   ( log_level_id, 
                                     log_program_id, 
                                     message ) 
                                   VALUES ( ?, ?, ? )" );
  $sth->execute( $lid, $pid, $msg );
}