From 6a2a6621f279ec1f2c4a7233a26fb0bea5a8fa84 Mon Sep 17 00:00:00 2001 From: rettenbe Date: Wed, 15 Oct 2008 07:52:48 +0000 Subject: [PATCH] bugfix: gosaTriggered.pm, softupdate do wol for local network too git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@12700 594d385d-05f5-0310-b6e9-bd551577e9d8 --- gosa-si/server/events/clMessages.pm | 6 ++++-- gosa-si/server/events/gosaTriggered.pm | 10 ++++++++++ 2 files changed, 14 insertions(+), 2 deletions(-) diff --git a/gosa-si/server/events/clMessages.pm b/gosa-si/server/events/clMessages.pm index 4ff3875be..47bb47c63 100644 --- a/gosa-si/server/events/clMessages.pm +++ b/gosa-si/server/events/clMessages.pm @@ -116,9 +116,11 @@ sub LOGIN { my $header = @{$msg_hash->{'header'}}[0]; my $source = @{$msg_hash->{'source'}}[0]; my $login = @{$msg_hash->{$header}}[0]; + my $res; + my $error_str; # Invoke set_last_system - my $res = &set_last_system($msg, $msg_hash, $session_id); + $res = &set_last_system($msg, $msg_hash, $session_id); my %add_hash = ( table=>$main::login_users_tn, primkey=> ['client', 'user'], @@ -126,7 +128,7 @@ sub LOGIN { user=>$login, timestamp=>&get_time, ); - my ($res, $error_str) = $main::login_users_db->add_dbentry( \%add_hash ); + ($res, $error_str) = $main::login_users_db->add_dbentry( \%add_hash ); if ($res != 0) { &main::daemon_log("$session_id ERROR: cannot add entry to known_clients: $error_str"); return; diff --git a/gosa-si/server/events/gosaTriggered.pm b/gosa-si/server/events/gosaTriggered.pm index 5fdd546e5..5e1a08478 100644 --- a/gosa-si/server/events/gosaTriggered.pm +++ b/gosa-si/server/events/gosaTriggered.pm @@ -640,6 +640,9 @@ sub trigger_action_reinstall { my %data = ( 'macAddress' => \@{$msg_hash->{macaddress}} ); my $wake_msg = &build_msg("trigger_wake", "GOSA", "KNOWN_SERVER", \%data); + # invoke trigger wake for this gosa-si-server + &main::server_server_com::trigger_wake($msg, $msg_hash, $session_id); + my @out_msg_l = ($wake_msg, $msg); return @out_msg_l; } @@ -653,6 +656,9 @@ sub trigger_action_update { my %data = ( 'macAddress' => \@{$msg_hash->{macaddress}} ); my $wake_msg = &build_msg("trigger_wake", "GOSA", "KNOWN_SERVER", \%data); + # invoke trigger wake for this gosa-si-server + &main::server_server_com::trigger_wake($msg, $msg_hash, $session_id); + my @out_msg_l = ($wake_msg, $msg); return @out_msg_l; } @@ -671,8 +677,12 @@ sub trigger_action_instant_update { my $res = $main::job_db->exec_statement($sql_statement); } + my %data = ( 'macAddress' => \@{$msg_hash->{macaddress}} ); my $wake_msg = &build_msg("trigger_wake", "GOSA", "KNOWN_SERVER", \%data); + # invoke trigger wake for this gosa-si-server + &main::server_server_com::trigger_wake($msg, $msg_hash, $session_id); + my @out_msg_l = ($wake_msg, $msg); return @out_msg_l; } -- 2.30.2