Show timestamp in SIP packet details.

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<br\/>/g;
     $pkg->{payload} =~ s/^([^\n]+)\n/<b>$1<\/b>\n/;
-    $pkg->{payload} = $pkg->{src_ip}.':'.$pkg->{src_port}.' &rarr; '. $pkg->{dst_ip}.':'.$pkg->{dst_port}.'<br/><br/>'.$pkg->{payload};
+    $pkg->{payload} = $tstamp.' ('.$pkg->{timestamp}.')<br/>'.
+      $pkg->{src_ip}.':'.$pkg->{src_port}.' &rarr; '. $pkg->{dst_ip}.':'.$pkg->{dst_port}.'<br/><br/>'.
+      $pkg->{payload};
     $pkg->{payload} =~ s/\n([a-zA-Z0-9\-_]+\:)/\n<b>$1<\/b>/g;
     $pkg->{payload} =~ s/\n/<br\/>/g;
     $c->stash->{current_view} = 'Plain';

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<br\/>/g;
     $pkg->{payload} =~ s/^([^\n]+)\n/<b>$1<\/b>\n/;
-    $pkg->{payload} = $pkg->{src_ip}.':'.$pkg->{src_port}.' &rarr; '. $pkg->{dst_ip}.':'.$pkg->{dst_port}.'<br/><br/>'.$pkg->{payload};
+    $pkg->{payload} = $tstamp.' ('.$pkg->{timestamp}.')<br/>'.
+      $pkg->{src_ip}.':'.$pkg->{src_port}.' &rarr; '. $pkg->{dst_ip}.':'.$pkg->{dst_port}.'<br/><br/>'.
+      $pkg->{payload};
     $pkg->{payload} =~ s/\n([a-zA-Z0-9\-_]+\:)/\n<b>$1<\/b>/g;
     $pkg->{payload} =~ s/\n/<br\/>/g;
     $c->stash->{current_view} = 'Plain';