- my $cli = RPC::XML::Client->new($self->config('crmxml'));
- warn "RPC::XML $field $value";
- my $resp = $cli->send_request('ports',RPC::XML::array->new( $field => $value ));
- return ref $resp ? $resp->value->[0] : { error => $resp };
-}
+ my $crm_results = $self->do_high('CRM_search' => $workload);
+
+ my $crm = $crm_results->[0];
+ warn "ERROR: more than one result from CRM, using first ", dump($crm_results)
+ if $#$crm_results > 0;
+
+ warn "# crm ",dump $crm;
+
+ my $hash = $self->do_high( $crm->{TIP_UREDJAJA} . '_' . $crm->{IP_UREDAJA}, $self->e_json( $crm ) );
+
+ warn "# hash ",dump $hash;