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);
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;