sub write_status($$$$) {
  my $host = $_[0];
  my $app = $_[1];
  my $status = $_[2];
  my $version = $_[3];
  my $result = $dbh->begin_work();
  if (! defined $result) { $result = -1; }
  if ($result < 0) {
    print STDERR "\n" . $0 . ": CHYBA: " . $dbh->errstr . "\n";
    return ISHN_ERR_INTERNAL;
  }