diff --git a/lib/NGCP/Panel/Controller/Callflow.pm b/lib/NGCP/Panel/Controller/Callflow.pm index 00e79b9432..d94ace378b 100644 --- a/lib/NGCP/Panel/Controller/Callflow.pm +++ b/lib/NGCP/Panel/Controller/Callflow.pm @@ -125,17 +125,14 @@ sub get_packet :Chained('callflow_base') :PathPart('packet') :Args() { my $pkg = { $packet->get_inflated_columns }; - my $t = DateTime->from_epoch( - epoch => $pkg->{timestamp}, - time_zone => DateTime::TimeZone->new(name => 'local'), - ); - my $tstamp = $t->ymd('-') . ' ' . $t->hms(':') . '.' . $t->millisecond; + my $t = $packet->timestamp; + my $tstamp = $t->ymd('-') . ' ' . $t->hms(':') . '.' . $t->microsecond; $pkg->{payload} = encode_entities($pkg->{payload}); $pkg->{payload} =~ s/\r//g; $pkg->{payload} =~ s/([^\n]{120})/$1/g; $pkg->{payload} =~ s/^([^\n]+)\n/$1<\/b>\n/; - $pkg->{payload} = $tstamp .' ('.$pkg->{timestamp}.')
'. + $pkg->{payload} = $tstamp .' ('.$t->hires_epoch.')
'. $pkg->{src_ip}.':'.$pkg->{src_port}.' → '. $pkg->{dst_ip}.':'.$pkg->{dst_port}.'

'. $pkg->{payload}; $pkg->{payload} =~ s/\n([a-zA-Z0-9\-_]+\:)/\n$1<\/b>/g; diff --git a/lib/NGCP/Panel/Controller/Subscriber.pm b/lib/NGCP/Panel/Controller/Subscriber.pm index 2f9d652a4e..5c0bb9a60c 100644 --- a/lib/NGCP/Panel/Controller/Subscriber.pm +++ b/lib/NGCP/Panel/Controller/Subscriber.pm @@ -2465,17 +2465,14 @@ sub get_packet :Chained('callflow_base') :PathPart('packet') :Args() { my $pkg = { $packet->get_inflated_columns }; - my $t = DateTime->from_epoch( - epoch => $pkg->{timestamp}, - time_zone => DateTime::TimeZone->new(name => 'local'), - ); - my $tstamp = $t->ymd('-') . ' ' . $t->hms(':') . '.' . $t->millisecond; + my $t = $packet->timestamp; + my $tstamp = $t->ymd('-') . ' ' . $t->hms(':') . '.' . $t->microsecond; $pkg->{payload} = encode_entities($pkg->{payload}); $pkg->{payload} =~ s/\r//g; $pkg->{payload} =~ s/([^\n]{120})/$1/g; $pkg->{payload} =~ s/^([^\n]+)\n/$1<\/b>\n/; - $pkg->{payload} = $tstamp .' ('.$pkg->{timestamp}.')
'. + $pkg->{payload} = $tstamp .' ('.$t->hires_epoch.')
'. $pkg->{src_ip}.':'.$pkg->{src_port}.' → '. $pkg->{dst_ip}.':'.$pkg->{dst_port}.'

'. $pkg->{payload}; $pkg->{payload} =~ s/\n([a-zA-Z0-9\-_]+\:)/\n$1<\/b>/g; diff --git a/lib/NGCP/Panel/Utils/Callflow.pm b/lib/NGCP/Panel/Utils/Callflow.pm index e9ce473d83..c2053ee8f1 100644 --- a/lib/NGCP/Panel/Utils/Callflow.pm +++ b/lib/NGCP/Panel/Utils/Callflow.pm @@ -175,7 +175,7 @@ sub process_callmap { my $y_offset = $canvas_margin + $canvas_pkg_distance; $i = 1; foreach my $packet(@{$packets}) { - my $time_offset = defined $last_timestamp ? ($packet->timestamp - $last_timestamp) : 0; + my $time_offset = defined $last_timestamp ? ($packet->timestamp->hires_epoch - $last_timestamp->hires_epoch) : 0; $last_timestamp = $packet->timestamp; my $from_x = $uas_pos_x{$packet->src_ip.':'.$packet->src_port}; my $to_x = $uas_pos_x{$packet->dst_ip.':'.$packet->dst_port}; diff --git a/share/templates/widgets/admin_topmenu_settings.tt b/share/templates/widgets/admin_topmenu_settings.tt index 9dde4a17e4..16b5aaadaa 100644 --- a/share/templates/widgets/admin_topmenu_settings.tt +++ b/share/templates/widgets/admin_topmenu_settings.tt @@ -16,7 +16,7 @@
  • NCOS Levels
  • Sound Sets
  • Security Bans
  • -
  • SIP Call Flows
  • +
  • SIP Call Flows
  • [% # vim: set tabstop=4 syntax=html expandtab: -%]