From 55828ee92f273099c5c67ae3bb4632e7991c2c5d Mon Sep 17 00:00:00 2001
From: rettenbe <rettenbe@594d385d-05f5-0310-b6e9-bd551577e9d8>
Date: Tue, 2 Sep 2008 08:11:50 +0000
Subject: [PATCH] update: opsi host detecting

git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@12338 594d385d-05f5-0310-b6e9-bd551577e9d8
---
 gosa-si/gosa-si-server                     |  2 +-
 gosa-si/server/events/server_server_com.pm | 13 +++++--------
 2 files changed, 6 insertions(+), 9 deletions(-)

diff --git a/gosa-si/gosa-si-server b/gosa-si/gosa-si-server
index c2e5a46c0..7cf1e482d 100755
--- a/gosa-si/gosa-si-server
+++ b/gosa-si/gosa-si-server
@@ -150,7 +150,7 @@ my @job_queue_col_names = ("id INTEGER PRIMARY KEY",
 our $known_server_db;
 our $known_server_tn = "known_server";
 my $known_server_file_name;
-my @known_server_col_names = ("hostname", "status", "hostkey", "timestamp");
+my @known_server_col_names = ("hostname", "status", "hostkey", "loaded_modules", "timestamp");
 
 # holds all registrated clients
 our $known_clients_db;
diff --git a/gosa-si/server/events/server_server_com.pm b/gosa-si/server/events/server_server_com.pm
index 686d9f768..b393da3a3 100644
--- a/gosa-si/server/events/server_server_com.pm
+++ b/gosa-si/server/events/server_server_com.pm
@@ -78,7 +78,8 @@ sub new_server {
     my $target = @{$msg_hash->{'target'}}[0];
     my $key = @{$msg_hash->{'key'}}[0];
     my @clients = exists $msg_hash->{'client'} ? @{$msg_hash->{'client'}} : qw();
-
+    my @loaded_modules = exists $msg_hash->{'loaded_modules'} ? @{$msg_hash->{'loaded_modules'}} : qw();
+    
     # sanity check
     if (ref $key eq 'HASH') {
         &main::daemon_log("$session_id ERROR: 'new_server'-message from host '$source' contains no key!", 1);
@@ -91,6 +92,7 @@ sub new_server {
         hostname => $source,
         status => "new_server",
         hostkey => $key,
+        loaded_modules => join(',', @loaded_modules),
         timestamp=>&get_time(),
     };
     my $res = $main::known_server_db->add_dbentry($func_dic);
@@ -126,7 +128,7 @@ sub new_server {
         &main::daemon_log("$session_id DEBUG: Inserting ".$len." entries to foreign_clients_db", 8);
         my $res = $main::foreign_clients_db->exec_statementlist(\@sql_list);
     }
-            
+
     # fetch all registered clients
     my $client_sql = "SELECT * FROM $main::known_clients_tn"; 
     my $client_res = $main::known_clients_db->exec_statement($client_sql);
@@ -139,13 +141,8 @@ sub new_server {
 
     # build registration message and send it
     my $out_msg = &create_xml_string($myhash);
-
-
-    # build confirm_new_server message
-    #my %data = ( key=>$key );
-    #my $out_msg = &build_msg('confirm_new_server', $main::server_address, $source, \%data);
     my $error =  &main::send_msg_to_target($out_msg, $source, $main::ServerPackages_key, 'confirm_new_server', $session_id); 
-    
+
     return;
 }
 
-- 
2.30.2