summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: ffc42c7)
raw | patch | inline | side by side (parent: ffc42c7)
author | rettenbe <rettenbe@594d385d-05f5-0310-b6e9-bd551577e9d8> | |
Tue, 30 Sep 2008 07:41:17 +0000 (07:41 +0000) | ||
committer | rettenbe <rettenbe@594d385d-05f5-0310-b6e9-bd551577e9d8> | |
Tue, 30 Sep 2008 07:41:17 +0000 (07:41 +0000) |
git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@12559 594d385d-05f5-0310-b6e9-bd551577e9d8
gosa-si/gosa-si-server | patch | blob | history |
diff --git a/gosa-si/gosa-si-server b/gosa-si/gosa-si-server
index 57845bec80710955167f2700717843c8c945c218..92b803c75068938f059cb1e8ce8f1f90322a0914 100755 (executable)
--- a/gosa-si/gosa-si-server
+++ b/gosa-si/gosa-si-server
our $client_fai_log_dir = "/var/log/fai";
# queue which stores taskes until one of the $max_children children are ready to process the task
-my @tasks = qw();
+#my @tasks = qw();
my @msgs_to_decrypt = qw();
my $max_children = 2;
Alias => "TCP_SERVER",
Port => $server_port,
ClientInput => sub {
- my ($kernel, $input) = @_[KERNEL, ARG0];
- push(@tasks, $input);
+ my ($kernel, $input, $heap, $session) = @_[KERNEL, ARG0, HEAP, SESSION];
+ my $session_id = $session->ID;
+ my $remote_ip = $heap->{'remote_ip'};
push(@msgs_to_decrypt, $input);
+ &daemon_log("$session_id DEBUG: incoming message from '$remote_ip'", 7);
$kernel->yield("msg_to_decrypt");
},
InlineStates => {