use do_high for CRM_search
[APKPM.git] / lib / APKPM / DSLAM.pm
index 3a99340..287dd81 100644 (file)
@@ -37,7 +37,7 @@ sub search : Job : Encode(e_json_encode) {
                return { error => 'invalid workload', expected => 'OPT_82:%' };
        }
 
-       my $crm_results = $self->do('CRM_search' => $workload);
+       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)
@@ -45,22 +45,9 @@ sub search : Job : Encode(e_json_encode) {
 
        warn "# crm ",dump $crm;
 
-       my $time = $self->datetime_now;
+       my $hash = $self->do_high( $crm->{TIP_UREDJAJA} . '_' . $crm->{IP_UREDAJA}, $self->e_json( $crm ) );
 
-       my $module = 'H1::' . $crm->{TIP_UREDJAJA};
-
-       warn "# eval $module";
-       my $hash;
-       eval { $hash = $module->hash( $crm->{IP_UREDAJA}, $crm->{SHELF_SLOT_PORT} ) };
-       return { error => $@ } if $@;
-
-       $self->do_background_json( 'Store_insert', {
-               _table => 'dslam_h',
-               ip => $crm->{IP_MANAGEMENT}, # FIXME IP_UREDAJA ?
-               username => $crm->{USERNAME},
-               timestamp => $time,
-               h => $self->to_hstore($hash),
-       });
+       warn "# hash ",dump $hash;
 
        return $hash;
 }