sub db_update {
  @_ == 2 or croak 'Incorrect number of parameters';

  my $dbh      = shift;
  my $hreplist = shift;

  my $statement = sprintf(q{
      INSERT
        INTO %s
             (%s)
      VALUES (%s)
    },
    DEF_DBTABLE,
    join(', ', @{ &DB_COLUMNS }),
    join(', ', ('?') x @{ &DB_COLUMNS }),
  );

  my $sth = $dbh->prepare($statement);

  foreach my $nodeid (sort keys %$hreplist) {
    $sth->execute(@{ $hreplist->{$nodeid} }{ @{&DB_COLUMNS} };
  }
}