X-Git-Url: https://git.tokkee.org/?a=blobdiff_plain;f=gosa-si%2Fserver%2Fevents%2FsiTriggered.pm;h=2ae7a78bd3e2d54881f4e9ab86a7c6c51c22c5e5;hb=9ab60891c47d98a282baa89c21fe830bcb63c666;hp=9638cca17ab52b50464a5946b6d13d6fa0ba08fd;hpb=8a602762621256c156007524eb7348dea4ba7243;p=gosa.git diff --git a/gosa-si/server/events/siTriggered.pm b/gosa-si/server/events/siTriggered.pm index 9638cca17..2ae7a78bd 100644 --- a/gosa-si/server/events/siTriggered.pm +++ b/gosa-si/server/events/siTriggered.pm @@ -47,7 +47,7 @@ sub read_configfile { my ($cfg_file, %cfg_defaults) = @_; my $cfg; - if( defined( $cfg_file) && ( length($cfg_file) > 0 )) { + if( defined( $cfg_file) && ( (-s $cfg_file) > 0 )) { if( -r $cfg_file ) { $cfg = Config::IniFiles->new( -file => $cfg_file ); } else { @@ -70,7 +70,7 @@ sub reload_ldap_config { my $header = @{$msg_hash->{header}}[0]; my $target = @{$msg_hash->{$header}}[0]; - my $out_msg = &SIPackages::new_ldap_config($target); + my $out_msg = &SIPackages::new_ldap_config($target, $session_id); my @out_msg_l = ( $out_msg ); return @out_msg_l; } @@ -129,7 +129,7 @@ sub detected_hardware { # check hit my $hit_counter = keys %{$res}; if( not $hit_counter == 1 ) { - &main::daemon_log("ERROR: more or no hit found in known_clients_db by query by '$address'", 1); + &main::daemon_log("$session_id ERROR: more or no hit found in known_clients_db by query by '$address'", 1); return; } @@ -137,18 +137,18 @@ sub detected_hardware { my $hostkey = $res->{1}->{hostkey}; if (not defined $macaddress) { - &main::daemon_log("ERROR: no mac address found for client $address", 1); + &main::daemon_log("$session_id ERROR: no mac address found for client $address", 1); return; } # Build LDAP connection - &main::refresh_ldap_handle(); - if( not defined $main::ldap_handle ) { - &main::daemon_log("ERROR: cannot connect to ldap: $ldap_uri", 1); + my $ldap_handle = &main::get_ldap_handle($session_id); + if( not defined $ldap_handle ) { + &main::daemon_log("$session_id ERROR: cannot connect to ldap: $ldap_uri", 1); return; } # Perform search - $mesg = $main::ldap_handle->search( + $mesg = $ldap_handle->search( base => $ldap_base, scope => 'sub', filter => "(&(objectClass=GOhard)(|(macAddress=$macaddress)(dhcpHWaddress=ethernet $macaddress)))" @@ -183,14 +183,14 @@ sub detected_hardware { $entry->add("objectClass" => "gosaAdministrativeUnitTag"); $entry->add("gosaUnitTag" => $main::gosa_unit_tag); } - my $res=$entry->update($main::ldap_handle); + my $res=$entry->update($ldap_handle); if(defined($res->{'errorMessage'}) && length($res->{'errorMessage'}) >0) { &main::daemon_log("ERROR: can not add entries to LDAP: ".$res->{'errorMessage'}, 1); return; } else { # Fill $mesg again - $mesg = $main::ldap_handle->search( + $mesg = $ldap_handle->search( base => $ldap_base, scope => 'sub', filter => "(&(objectClass=GOhard)(|(macAddress=$macaddress)(dhcpHWaddress=ethernet $macaddress)))" @@ -227,7 +227,7 @@ sub detected_hardware { } } - my $res=$entry->update($main::ldap_handle); + my $res=$entry->update($ldap_handle); if(defined($res->{'errorMessage'}) && length($res->{'errorMessage'}) >0) { &main::daemon_log("ERROR: can not add entries to LDAP: ".$res->{'errorMessage'}, 1); @@ -244,7 +244,7 @@ sub trigger_wake { my ($msg, $msg_hash, $session_id) = @_ ; foreach (@{$msg_hash->{macAddress}}){ - &main::daemon_log("INFO: trigger wake for $_", 5); + &main::daemon_log("$session_id INFO: trigger wake for $_", 5); my $host = $_; my $ipaddr = '255.255.255.255'; my $port = getservbyname('discard', 'udp'); @@ -257,7 +257,7 @@ sub trigger_wake { if ($host =~ m/^$hwaddr_re$/) { $hwaddr = $host; } else { - &main::daemon_log("ERROR: trigger_wake called with non mac address", 1); + &main::daemon_log("$session_id ERROR: trigger_wake called with non mac address", 1); } # Generate magic sequence @@ -268,7 +268,7 @@ sub trigger_wake { # Allocate socket and send packet - $raddr = gethostbyname($ipaddr)->addr; + $raddr = gethostbyname($ipaddr); $them = pack_sockaddr_in($port, $raddr); $proto = getprotobyname('udp');