* gosa-si-server-nobus

* under construction

git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@11101 594d385d-05f5-0310-b6e9-bd551577e9d8

diff --git a/gosa-si/modules/ServerPackages.pm b/gosa-si/modules/ServerPackages.pm
index 820ccc2586f790b0791625465c630a745b53d1e2..7ce04da8678258e27b2826f53a3f8e3d3c491d48 100644 (file)
--- a/gosa-si/modules/ServerPackages.pm
+++ b/gosa-si/modules/ServerPackages.pm
@@ -8,6 +8,7 @@ use Exporter;
 use strict;
 use warnings;
 use GOSA::GosaSupportDaemon;
+use Data::Dumper;
 
 #use IO::Socket::INET;
 #use XML::Simple;
@@ -55,7 +56,7 @@ sub process_incoming_msg {
     my $sql_events;
 
     my @msg_l;
-    my @out_msg_l;
+    my @out_msg_l = ( 'nohandler' );
 
     &main::daemon_log("$session_id DEBUG: ServerPackages: msg to process '$header'", 7);
     if( exists $event_hash->{$header} ) {
@@ -68,7 +69,10 @@ sub process_incoming_msg {
         $sql_events = "SELECT * FROM $main::known_clients_tn WHERE ( (macaddress LIKE '$target') OR (hostname='$target') )"; 
         my $res = $main::known_clients_db->select_dbentry( $sql_events );
         my $l = keys(%$res);
-        
+
+
+# TODO
+# $l == 1, knownclienterror wird eigentlich nicht gebraucht. hier soll nohandler anspringen
         # set error if no or more than 1 hits are found for sql query
         if ( $l != 1) {
             @out_msg_l = ('knownclienterror');

diff --git a/gosa-si/server/events/server_server_com.pm b/gosa-si/server/events/server_server_com.pm
index 81cc4c0e5b0c596fe8acda61fc1cc5a260311004..68aa78702ed2efa57a751c38b65874034b0ace14 100644 (file)
--- a/gosa-si/server/events/server_server_com.pm
+++ b/gosa-si/server/events/server_server_com.pm
@@ -86,7 +86,7 @@ sub new_server {
     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;
 }
 
 
@@ -99,7 +99,7 @@ sub confirm_new_server {
     my $sql = "UPDATE $main::known_server_tn SET status='$header', hostkey='$key' WHERE hostname='$source'"; 
     my $res = $main::known_server_db->update_dbentry($sql);
 
-
+    return;
 }