Merge branch 'devel' of h1dev:/srv/APKPM/
[APKPM.git] / lib / APKPM.pm
index ecaf568..05f5c6b 100644 (file)
@@ -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,15 +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 ) = @_;
-
-       my $entries = $self->do( 'LDAP_search' => '(&(cn=aa*)(dhcpStatements=*))' ); # FIXME
-       my $ip_username;
-       foreach my $entry ( @$entries ) {
-               $ip_username->{ $entry->{cn} } = $1 if $entry->{dhcpStatements} =~ m/fixed-address\s+/;
-       }
 
-       return $ip_username;
-}
 1;