index 8d4b7e805fb482cc227fdbd5841138a50c759ced..9c2ac1e579b484f8d5eb029e7d2e23e8ec41a9e1 100644 (file)
use Data::Dumper;
use NetAddr::IP;
use Net::LDAP;
+use Net::LDAP::Util;
use Socket;
use Net::hostent;
# import local events
my ($error, $result, $event_hash) = &import_events($event_dir);
-if ($error == 0) {
- foreach my $log_line (@$result) {
+
+foreach my $log_line (@$result) {
+ if ($log_line =~ / succeed: /) {
&main::daemon_log("0 DEBUG: ClientPackages - $log_line", 7);
- }
-} else {
- foreach my $log_line (@$result) {
+ } else {
&main::daemon_log("0 ERROR: ClientPackages - $log_line", 1);
}
-
}
# Unit tag can be defined in config
my $key_lifetime = @{$msg_hash->{key_lifetime}}[0];
# Move forced hostname to heap - if used
- #if ( defined($msg_hash->{'force-hostname'}[0]) &&
- # length($msg_hash->{'force-hostname'}[0]) > 0){
+ #FIXME: move to some global POE namespace - please
+ if ( defined($msg_hash->{'force-hostname'}[0]) &&
+ length($msg_hash->{'force-hostname'}[0]) > 0){
# $heap->{force-hostname}->{$mac_address}= $msg_hash->{'force-hostname'}[0];
- #} else {
+ open (TFILE, ">/var/tmp/$mac_address");
+ print TFILE $msg_hash->{'force-hostname'}[0];
+ close (TFILE);
+ } else {
# $heap->{force-hostname}->{$mac_address}= undef;
- #}
+ if ( -e "/var/tmp/$mac_address") {
+ unlink("/var/tmp/$mac_address")
+ };
+ }
# number of known clients
my $nu_clients= $main::known_clients_db->count_dbentries('known_clients');
# Do we need to look at an object class?
if (not @servers){
+ my $escaped_dn = &escape_dn_value($dn);
$mesg = $ldap_handle->search( base => $ldap_base,
scope => 'sub',
attrs => ['dn', 'gotoLdapServer', 'FAIclass'],
- filter => "(&(objectClass=gosaGroupOfNames)(member=$dn))");
+ filter => "(&(objectClass=gosaGroupOfNames)(member=$escaped_dn))");
if($mesg->code) {
&main::daemon_log("$session_id ERROR: unable to search for '(&(objectClass=gosaGroupOfNames)(member=$dn))': ".$mesg->error, 1);
return;