modify schema for new CPE stats

[APKPM.git] / lib / APKPM / LDAP.pm

diff --git a/lib/APKPM/LDAP.pm b/lib/APKPM/LDAP.pm
index 0be5e56..3002d5f 100644 (file)
--- a/lib/APKPM/LDAP.pm
+++ b/lib/APKPM/LDAP.pm
@@ -19,7 +19,7 @@ sub process_name {
        return "$orig ($job_name)";
 }
 
-sub search : Job : MinProcesses(1) : MaxProcesses(5) : Encode(e_json) {
+sub search : Job : Encode(e_json) : MinProcesses(0) {
        my ( $self, $job, $workload ) = @_;
 
        my $filter =
@@ -31,9 +31,10 @@ sub search : Job : MinProcesses(1) : MaxProcesses(5) : Encode(e_json) {
 
        my $ldap = Net::LDAP->new($self->config('ldaphost')) or die $@;
        my $mesg = $ldap->bind($self->config('ldapusername'),Password => $self->config('ldappasswd'));
-       $mesg = $ldap->search(base => $self->config('ldapbase'), filter => $filter);
+#      $mesg = $ldap->search(base => $self->config('ldapbase'), filter => $filter);
+       $mesg = $ldap->search(base => 'cn=clientnetVoD,cn=Dhcp,ou=Servers,dc=portus,dc=isp' , filter => $filter);
        warn "# found ", $mesg->count, " entries";
-       my $entries;
+       my $entries = [];
        for ( my $i = 0; $i < $mesg->count; $i++ ) {
                my $entry = $mesg->entry($i);
                my $e = { dn => $entry->dn };