From b0013c4b339c2aa853304ce84fa78fa4061b4d26 Mon Sep 17 00:00:00 2001
From: wolffc <wolffc@594d385d-05f5-0310-b6e9-bd551577e9d8>
Date: Fri, 24 Jun 2011 14:13:22 +0000
Subject: [PATCH] No longer pass on the list of users at local clients to all
 known servers immediately when handling the CURRENTLY_LOGGED_IN message.
 Instead, introduce a new option (report-logged-in-users), task
 (watch_for_logged_in_users) and time period (logged_in_users_delay) so that
 all known users are reported every logged_in_users_delay seconds (10 minutes
 by default).

git-svn-id: https://oss.gonicus.de/repositories/gosa/branches/2.6-lhm@20917 594d385d-05f5-0310-b6e9-bd551577e9d8
---
 trunk/gosa-si/gosa-si-server              | 30 ++++++++++++++++++++++-
 trunk/gosa-si/server/events/clMessages.pm | 11 +--------
 2 files changed, 30 insertions(+), 11 deletions(-)

diff --git a/trunk/gosa-si/gosa-si-server b/trunk/gosa-si/gosa-si-server
index b3c88c1d8..f36994356 100755
--- a/trunk/gosa-si/gosa-si-server
+++ b/trunk/gosa-si/gosa-si-server
@@ -90,7 +90,7 @@ our (%cfg_defaults, $log_file, $pid_file, $repo_basepath,
     $wake_on_lan_passwd, $job_synchronization, $modified_jobs_loop_delay,
     $arp_enabled, $arp_interface,
     $opsi_enabled, $opsi_server, $opsi_admin, $opsi_password,
-		$new_systems_ou,
+    $new_systems_ou, $logged_in_users_delay,
 );
 
 # additional variable which should be globaly accessable
@@ -275,6 +275,7 @@ our $logged_in_user_date_of_expiry = 600;
     "key-lifetime" => [\$foreign_servers_register_delay, 120],
     "job-synchronization-enabled" => [\$job_synchronization, "true"],
     "synchronization-loop" => [\$modified_jobs_loop_delay, 5],
+    "report-logged-in-users" => [\$logged_in_users_delay, 600],
     },
 "ArpHandler" => {
     "enabled"   => [\$arp_enabled, "true"],
@@ -1575,6 +1576,7 @@ sub session_start {
     $kernel->delay_set('watch_for_delivery_messages', $messaging_db_loop_delay);
 	$kernel->delay_set('watch_for_done_messages', $messaging_db_loop_delay);
     $kernel->delay_set('watch_for_old_known_clients', $job_queue_loop_delay);
+    $kernel->delay_set('watch_for_logged_in_users', $logged_in_users_delay);
 
     # Start opsi check
     if ($opsi_enabled eq "true") {
@@ -2131,6 +2133,31 @@ sub watch_for_next_tasks {
     $kernel->delay_set('watch_for_next_tasks', 1); 
 }
 
+sub watch_for_logged_in_users {
+    my ($kernel,$heap) = @_[KERNEL, HEAP];
+
+    # Get list of currently logged in users
+    my $sql = "SELECT * FROM $login_users_tn WHERE regserver='localhost'";
+    my $res = $main::login_users_db->select_dbentry($sql);
+    my $msg_hash = &create_xml_hash("information_sharing", $server_address, "KNOWN_SERVER");
+    while (my ($hit_id, $hit) = each(%$res)) {
+        &add_content2xml_hash($msg_hash, 'user_db', $hit->{'client'}.";".$hit->{'user'});
+    }
+    my $msg = &create_xml_string($msg_hash);
+
+    # Inform all other server which users are logged in at clients registered at local server
+    my $sql_statement= "SELECT * FROM $known_server_tn";
+    my $query_res = $known_server_db->select_dbentry( $sql_statement );
+    while( my ($hit_num, $hit) = each %{ $query_res } ) {
+        my $host_name = $hit->{hostname};
+        my $host_key = $hit->{hostkey};
+        $msg =~ s/<target>\S+<\/target>/<target>$host_name<\/target>/g;
+	# TODO: get session_id
+        my $error = &send_msg_to_target($msg, $host_name, $host_key, "information_sharing", 0);
+    }
+
+    $kernel->delay_set('watch_for_logged_in_users', $logged_in_users_delay); 
+}
 
 sub get_ldap_handle {
 	my ($session_id) = @_;
@@ -3530,6 +3557,7 @@ POE::Session->create(
         watch_for_done_jobs => \&watch_for_done_jobs,
         watch_for_opsi_jobs => \&watch_for_opsi_jobs,
         watch_for_old_known_clients => \&watch_for_old_known_clients,
+        watch_for_logged_in_users => \&watch_for_logged_in_users,
         create_packages_list_db => \&run_create_packages_list_db,
         create_fai_server_db => \&run_create_fai_server_db,
         create_fai_release_db => \&run_create_fai_release_db,
diff --git a/trunk/gosa-si/server/events/clMessages.pm b/trunk/gosa-si/server/events/clMessages.pm
index 9960a59d3..24e9d2978 100644
--- a/trunk/gosa-si/server/events/clMessages.pm
+++ b/trunk/gosa-si/server/events/clMessages.pm
@@ -243,16 +243,7 @@ sub CURRENTLY_LOGGED_IN {
         &main::daemon_log("$session_id INFO: delete user '".$hit->{'user'}."' at client '".$hit->{'client'}."' from login_user_db", 5); 
     }
 
-    # Inform all other server which users are logged in at clients registered at local server
-    my $info_sql = "SELECT * FROM $main::login_users_tn WHERE regserver='localhost'";
-    my $info_res = $main::login_users_db->select_dbentry($info_sql);
-    my $info_msg_hash = &create_xml_hash("information_sharing", $main::server_address, "KNOWN_SERVER");
-    while (my ($hit_id, $hit) = each(%$info_res)) {
-        &add_content2xml_hash($info_msg_hash, 'user_db', $hit->{'client'}.";".$hit->{'user'});
-    }
-    my $info_msg = &create_xml_string($info_msg_hash);
-
-    return ($info_msg);  
+    return;
 }
 
 
-- 
2.30.2