From 3455aeb9ce949949538bad75e81e7b6d14e2ed97 Mon Sep 17 00:00:00 2001
From: Andreas Granig <agranig@sipwise.com>
Date: Wed, 30 May 2012 16:43:21 +0000
Subject: [PATCH] Show timestamp in SIP packet details.

---
 lib/admin/Controller/sipanalysis.pm | 8 +++++++-
 lib/admin/Controller/subscriber.pm  | 9 +++++++--
 2 files changed, 14 insertions(+), 3 deletions(-)

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<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';
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<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';