$statement = q{UPDATE results
                 SET status = ?, verze = ?
                 WHERE host = ? AND app = ?;};
  $result = $dbh->do($statement, undef, $status, $version, $host, $app);
  if (! defined $result) { $result = -1; }
  if ($result <= 0) {
    print STDERR "\n" . $0 . ": CHYBA: " . $dbh->errstr . "\n";
    $dbh->rollback();
    return ISHN_ERR_INTERNAL;
  }
  $statement = q{INSERT INTO history
                 (host, app, status, verze)
                 VALUES (?, ?, ?, ?);};
  $result = $dbh->do($statement, undef, $host, $app, $status, $version);
  if (! defined $result) { $result = -1; }
  if ($result <= 0) {
    print STDERR "\n" . $0 . ": CHYBA: " . $dbh->errstr . "\n";
    $dbh->rollback();
    return ISHN_ERR_INTERNAL;
  }
  $result = $dbh->commit();
  if (! defined $result) { $result = -1; }
  if ($result < 0) {
    print STDERR "\n" . $0 . ": CHYBA: " . $dbh->errstr . "\n";
    $dbh->rollback();
    return ISHN_ERR_INTERNAL;
  } else { return ISHN_OK; }
}