zmena volani chyboveho vypisu DB na DBI

src/warden-server/bin/getClients.pl

@@ -67,7 +67,7 @@ if ($UID != 0) {
 
 # connect to DB
 our $DBH = DBI->connect("DBI:mysql:database=$DB_NAME;host=$DB_HOST", $DB_USER, $DB_PASS, {RaiseError => 1, mysql_auto_reconnect => 1})
-           || die "Could not connect to database: $DBH->errstr";
+           || die "Could not connect to database: $DBI::errstr";
 
 # obtain data from DB
 my $sth = $DBH->prepare("SELECT * FROM clients ORDER BY client_id ASC;") or die "Cannot prepare statement: " . $DBH->errstr;

src/warden-server/bin/getStatus.pl

@@ -73,7 +73,7 @@ if ($UID != 0) {
 
 # connect to DB
 our $DBH = DBI->connect("DBI:mysql:database=$DB_NAME;host=$DB_HOST", $DB_USER, $DB_PASS, {RaiseError => 1, mysql_auto_reconnect => 1})
-           || die "Could not connect to database: $DBH->errstr";
+           || die "Could not connect to database: $DBI::errstr";
 
 #-----------------------------------------------------------------------------
 # Warden server variables

src/warden-server/bin/registerReceiver.pl

@@ -131,7 +131,7 @@ my $description_tags	= undef;
 
 # connect to DB
 our $DBH = DBI->connect("DBI:mysql:database=$DB_NAME;host=$DB_HOST", $DB_USER, $DB_PASS, {RaiseError => 1, mysql_auto_reconnect => 1})
-           || die "Could not connect to database: $DBH->errstr";
+           || die "Could not connect to database: $DBI::errstr";
 
 # check if receiver has been already registered or register it
 my $sth = $DBH->prepare("SELECT registered FROM clients WHERE hostname = ? AND client_type = ? AND type = ? AND ip_net_client = ? LIMIT 1;") or die "Cannot prepare statement: " . $DBH->errstr;

src/warden-server/bin/registerSender.pl

@@ -130,7 +130,7 @@ my $receive_own_events	= undef;
 
 # connect to DB
 our $DBH = DBI->connect("DBI:mysql:database=$DB_NAME;host=$DB_HOST", $DB_USER, $DB_PASS, {RaiseError => 1, mysql_auto_reconnect => 1})
-           || die "Could not connect to database: $DBH->errstr";
+           || die "Could not connect to database: $DBI::errstr";
 
 # check if receiver has been already registered or register it
 my $sth = $DBH->prepare("SELECT registered FROM clients WHERE hostname = ? AND service = ? AND client_type = ? AND ip_net_client = ? LIMIT 1;") or die "Cannot prepare statement: " . $DBH->errstr;

src/warden-server/bin/unregisterClient.pl

@@ -106,7 +106,7 @@ if (!defined $client_id) {
 
 # connect to DB
 our $DBH = DBI->connect("DBI:mysql:database=$DB_NAME;host=$DB_HOST", $DB_USER, $DB_PASS, {RaiseError => 1, mysql_auto_reconnect => 1})
-           || die "Could not connect to database: $DBH->errstr";
+           || die "Could not connect to database: $DBI::errstr";
 
 # check if receiver has been already registered
 my $sth = $DBH->prepare("SELECT client_id, hostname, service, client_type, type FROM clients WHERE client_id = ? LIMIT 1;") or die "Cannot prepare statement: " . $DBH->errstr;

src/warden-server/lib/Warden.pm

@@ -63,7 +63,7 @@ unless (do $conf_file) {
 #				DB CONNECT
 ################################################################################
 our $DBH = DBI->connect("DBI:mysql:database=$DB_NAME;host=$DB_HOST", $DB_USER, $DB_PASS, {RaiseError => 1, mysql_auto_reconnect => 1})
-           || die "Could not connect to database: $DBH->errstr";
+           || die "Could not connect to database: $DBI::errstr";