diff --git a/lib/admin/Controller/sipanalysis.pm b/lib/admin/Controller/sipanalysis.pm
index afa5e4c..0990a91 100644
--- a/lib/admin/Controller/sipanalysis.pm
+++ b/lib/admin/Controller/sipanalysis.pm
@@ -163,11 +163,17 @@ sub packet : Local {
\$pkg
);
+ my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
+ localtime($pkg->{timestamp});
+ my $tstamp = sprintf("%04i-%02i-%02i %02i:%02i:%02i.%03i",
+ $year+1900, $mon+1, $mday, $hour, $min, $sec, int(($pkg->{timestamp}-int($pkg->{timestamp}))*1000));
$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} = $pkg->{src_ip}.':'.$pkg->{src_port}.' → '. $pkg->{dst_ip}.':'.$pkg->{dst_port}.'
'.$pkg->{payload};
+ $pkg->{payload} = $tstamp.' ('.$pkg->{timestamp}.')
'.
+ $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;
$pkg->{payload} =~ s/\n/
/g;
$c->stash->{current_view} = 'Plain';
diff --git a/lib/admin/Controller/subscriber.pm b/lib/admin/Controller/subscriber.pm
index 1f6ff39..baf0671 100644
--- a/lib/admin/Controller/subscriber.pm
+++ b/lib/admin/Controller/subscriber.pm
@@ -1500,12 +1500,17 @@ sub sipstats_packet : Local {
},
\$pkg
);
-
+ my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
+ localtime($pkg->{timestamp});
+ my $tstamp = sprintf("%04i-%02i-%02i %02i:%02i:%02i.%03i",
+ $year+1900, $mon+1, $mday, $hour, $min, $sec, int(($pkg->{timestamp}-int($pkg->{timestamp}))*1000));
$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} = $pkg->{src_ip}.':'.$pkg->{src_port}.' → '. $pkg->{dst_ip}.':'.$pkg->{dst_port}.'
'.$pkg->{payload};
+ $pkg->{payload} = $tstamp.' ('.$pkg->{timestamp}.')
'.
+ $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;
$pkg->{payload} =~ s/\n/
/g;
$c->stash->{current_view} = 'Plain';