diff --git a/src/warden-server/bin/registerSender.pl b/src/warden-server/bin/registerSender.pl index c09eb0e0b4ee8302dda14a62b21785e8a39cfe1e..ea4b99f8e37fc21e9443175053cbb7fc62dc452a 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!!!");