Help for this page

Select Code to Download


  1. or download this
    sub write_status($$$$) {
  my $host = $_[0];
...
    print STDERR "\n" . $0 . ": CHYBA: " . $dbh->errstr . "\n";
    return ISHN_ERR_INTERNAL;
  }
  2. or download this
      my $statement = q{UPDATE results
                    SET status = ?, verze = 'N/A'
...
    $dbh->rollback();
    return ISHN_ERR_INTERNAL;
  }
  3. or download this
      $statement = q{UPDATE results
                 SET status = ?, verze = ?
...
    return ISHN_ERR_INTERNAL;
  } else { return ISHN_OK; }
}