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