From 02b94ffc6a064ea511559ae364537b30e29bf738 Mon Sep 17 00:00:00 2001
From: Tomas Plesnik <plesnik@ics.muni.cz>
Date: Thu, 24 Jan 2013 17:08:56 +0100
Subject: [PATCH] k nove registrovanym receiverum defaultne pridavana i
validita
---
src/warden-server/bin/registerReceiver.pl | 15 ++++++++-------
1 file changed, 8 insertions(+), 7 deletions(-)
diff --git a/src/warden-server/bin/registerReceiver.pl b/src/warden-server/bin/registerReceiver.pl
index 43267f6..50bf2f4 100755
--- a/src/warden-server/bin/registerReceiver.pl
+++ b/src/warden-server/bin/registerReceiver.pl
@@ -89,16 +89,17 @@ switch () {
}
# defined variables by script
-my $client_type = "r";
-my $registered = DateTime->now;
-my $service = undef;
-my $description_tags = undef;
+my $client_type = "r";
+my $valid = "t";
+my $registered = DateTime->now;
+my $service = undef;
+my $description_tags = undef;
# read config file
my $conf_file = "$etc/warden-server.conf";
our $SYSLOG = undef;
our $SYSLOG_VERBOSE = undef;
-our $SYSLOG_FACILITY = undef;
+our $SYSLOG_FACILITY = undef;
our $DB_NAME = undef;
our $DB_USER = undef;
our $DB_PASS = undef;
@@ -122,8 +123,8 @@ if (defined $result) {
WardenCommon::sendMsg($SYSLOG, $SYSLOG_VERBOSE, $SYSLOG_FACILITY, "err", "Attempt to re-register the receiver [hostname: '$hostname', type: '$type', cidr: '$ip_net_client']");
WardenCommon::errMsg("Receiver 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 receiver [hostname: '$hostname', type: '$type', cidr: '$ip_net_client'] was registered");
WardenCommon::succMsg("Registration of receiver from $hostname was SUCCESSFUL!!!");
--
GitLab