Skip to content
Snippets Groups Projects
Commit 214ee598 authored by Tomáš Plesník's avatar Tomáš Plesník
Browse files

vypisovani i nevalidnich klientu

parent 25cc0fd2
No related branches found
No related tags found
No related merge requests found
......@@ -55,7 +55,7 @@ if ($help) {
my $dbh = WardenCommon::connectDB($WardenCommon::DB_NAME, $WardenCommon::DB_HOST, $WardenCommon::DB_USER, $WardenCommon::DB_PASS);
# obtain data from DB
my $sth = $dbh->prepare("SELECT * FROM clients WHERE valid = 't' ORDER BY client_id ASC;") or die "Cannot prepare statement: " . $dbh->errstr;
my $sth = $dbh->prepare("SELECT * FROM clients ORDER BY client_id ASC;") or die "Cannot prepare statement: " . $dbh->errstr;
$sth->execute or die "Cannot execute statement: " . $sth->errstr;
my $hash_ref = $sth->fetchall_hashref("client_id");
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment