From 9d5676c946e2ffee5cbe5b9e6bb001de389daaf3 Mon Sep 17 00:00:00 2001
From: Tomas Plesnik <plesnik@ics.muni.cz>
Date: Thu, 24 Jan 2013 17:09:11 +0100
Subject: [PATCH] k nove registrovanym senderum defaultne pridavana i validita
---
src/warden-server/bin/registerSender.pl | 13 +++++++------
1 file changed, 7 insertions(+), 6 deletions(-)
diff --git a/src/warden-server/bin/registerSender.pl b/src/warden-server/bin/registerSender.pl
index c09eb0e..ea4b99f 100755
--- a/src/warden-server/bin/registerSender.pl
+++ b/src/warden-server/bin/registerSender.pl
@@ -88,10 +88,11 @@ switch () {
}
# defined variables by method
-my $client_type = "s";
-my $registered = DateTime->now;
-my $type = undef;
-my $receive_own_events = undef;
+my $client_type = "s";
+my $valid = "t";
+my $registered = DateTime->now;
+my $type = undef;
+my $receive_own_events = undef;
# read config file
my $conf_file = "$etc/warden-server.conf";
@@ -121,8 +122,8 @@ if (defined $result) {
WardenCommon::sendMsg($SYSLOG, $SYSLOG_VERBOSE, $SYSLOG_FACILITY, "err", "Attempt to re-register the sender [hostname: '$hostname', service: '$service', cidr: '$ip_net_client']");
WardenCommon::errMsg("Sender has already been registered at $warden_server in '$result'");
} else {
- $sth = $DBH->prepare("INSERT INTO clients VALUES (?,?,?,?,?,?,?,?,?,?);") or die "Cannot prepare statement: " . $DBH->errstr;
- my $ret_val = $sth->execute(undef, $hostname, $registered, $requestor, $service, $client_type, $type, $receive_own_events, $description_tags, $ip_net_client) or die "Cannot execute statement: " . $sth->errstr;
+ $sth = $DBH->prepare("INSERT INTO clients VALUES (?,?,?,?,?,?,?,?,?,?,?);") or die "Cannot prepare statement: " . $DBH->errstr;
+ my $ret_val = $sth->execute(undef, $hostname, $registered, $requestor, $service, $client_type, $type, $receive_own_events, $description_tags, $ip_net_client, $valid) or die "Cannot execute statement: " . $sth->errstr;
if ($ret_val == 1) {
WardenCommon::sendMsg($SYSLOG, $SYSLOG_VERBOSE, $SYSLOG_FACILITY, "info", "New sender [hostname: '$hostname', service: '$service', cidr: '$ip_net_client'] was registered");
WardenCommon::succMsg("Registration of sender from $hostname was SUCCESSFUL!!!");
--
GitLab