Merge branch 'devel' of h1dev:/srv/APKPM/

[APKPM.git] / lib / APKPM.pm

diff --git a/lib/APKPM.pm b/lib/APKPM.pm
index 96760f8..05f5c6b 100644 (file)
--- a/lib/APKPM.pm
+++ b/lib/APKPM.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 ) = @_;
        warn "# search $job ", dump($workload);
 
@@ -37,18 +37,5 @@ sub search : Job : MinProcesses(1) : MaxProcesses(5) : Encode(e_json) {
        return $res;
 }
 
-sub poll : Job : MinProcesses(1) : MaxProcesses(1) : Encode(e_json) {
-       my ( $self, $job, $workload ) = @_;
-
-       $workload ||= 'aa'; # FIXME limit for debugging
-
-       my $entries = $self->do( 'LDAP_search' => "(&(cn=$workload*)(dhcpStatements=*))" );
 
-       my $ip_username;
-       foreach my $entry ( @$entries ) {
-               $ip_username->{ $entry->{cn} } = $1 if $entry->{dhcpStatements} =~ m/fixed-address\s+(\S+)/;
-       }
-
-       return $ip_username;
-}
 1;