From e19c0f0b0213d6eab5866dfbe2191a3b9c6e1e5c Mon Sep 17 00:00:00 2001
From: Jakov Curic <jcuric@realtime.hr>
Date: Sat, 19 Mar 2011 21:43:15 +0100
Subject: [PATCH] use correct LDAP base to pull just clientnetVoD

---
 lib/APKPM/LDAP.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/APKPM/LDAP.pm b/lib/APKPM/LDAP.pm
index 6d73d2e..31cf529 100644
--- a/lib/APKPM/LDAP.pm
+++ b/lib/APKPM/LDAP.pm
@@ -31,7 +31,8 @@ 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 = [];
 	for ( my $i = 0; $i < $mesg->count; $i++ ) {
-- 
2.20.1