k nove registrovanym senderum defaultne pridavana i validita

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!!!");