warn "# crm ",dump $crm;
- my $time = $self->datetime_now;
-
- 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 => $hash,
- });
+ my $hash = $self->do_high( $crm->{TIP_UREDJAJA} . '_' . $crm->{IP_UREDAJA}, $self->e_json( $crm ) );
+
+ warn "# hash ",dump $hash;
return $hash;
}