bugfix: empty messages of logged in users are be handled

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

diff --git a/gosa-si/server/events/clMessages.pm b/gosa-si/server/events/clMessages.pm
index 3415ea14c0ea083d55d05a5003e84c7c9adb4823..24ab6682902cbbc8a3b8c605beb78b06499c7922 100644 (file)
--- a/gosa-si/server/events/clMessages.pm
+++ b/gosa-si/server/events/clMessages.pm
@@ -165,6 +165,11 @@ sub CURRENTLY_LOGGED_IN {
     my $source = @{$msg_hash->{'source'}}[0];
     my $login = @{$msg_hash->{$header}}[0];
 
+    if(ref $login eq "HASH") { 
+        &main::daemon_log("$session_id INFO: no logged in users reported from host '$source'", 5); 
+        return;     
+    }
+    
     # fetch all user currently assigned to the client at login_users_db
     my %currently_logged_in_user = (); 
     $sql_statement = "SELECT * FROM $main::login_users_tn WHERE client='$source'"; 
@@ -174,7 +179,7 @@ sub CURRENTLY_LOGGED_IN {
     }
     &main::daemon_log("$session_id DEBUG: logged in users from login_user_db: ".join(", ", keys(%currently_logged_in_user)), 7); 
 
-    # 
+    # update all reported users in login_user_db
     my @logged_in_user = split(/\s+/, $login);
     &main::daemon_log("$session_id DEBUG: logged in users reported from client: ".join(", ", @logged_in_user), 7); 
     foreach my $user (@logged_in_user) {