From 1998eabc30055f7bff66dccec0eced22434a5f0a Mon Sep 17 00:00:00 2001
From: Andreas Granig <agranig@sipwise.com>
Date: Wed, 23 May 2012 16:52:03 +0000
Subject: [PATCH] Wrap lines in sip packet detail view at 120 chars.

---
 lib/admin/Controller/sipanalysis.pm | 4 +++-
 lib/admin/Controller/subscriber.pm  | 4 +++-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/lib/admin/Controller/sipanalysis.pm b/lib/admin/Controller/sipanalysis.pm
index 32120ff..afa5e4c 100644
--- a/lib/admin/Controller/sipanalysis.pm
+++ b/lib/admin/Controller/sipanalysis.pm
@@ -164,10 +164,12 @@ sub packet : Local {
                                                       );
 
     $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} =~ s/\n([a-zA-Z0-9\-_]+\:)/\n<b>$1<\/b>/g;
-    $pkg->{payload} =~ s/\r?\n/<br\/>/g;
+    $pkg->{payload} =~ s/\n/<br\/>/g;
     $c->stash->{current_view} = 'Plain';
     $c->stash->{content_type} = 'text/html';
     $c->stash->{content} = eval { $pkg->{payload} };
diff --git a/lib/admin/Controller/subscriber.pm b/lib/admin/Controller/subscriber.pm
index 7cf6f25..1f6ff39 100644
--- a/lib/admin/Controller/subscriber.pm
+++ b/lib/admin/Controller/subscriber.pm
@@ -1502,10 +1502,12 @@ sub sipstats_packet : Local {
                                                       );
 
     $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} =~ s/\n([a-zA-Z0-9\-_]+\:)/\n<b>$1<\/b>/g;
-    $pkg->{payload} =~ s/\r?\n/<br\/>/g;
+    $pkg->{payload} =~ s/\n/<br\/>/g;
     $c->stash->{current_view} = 'Plain';
     $c->stash->{content_type} = 'text/html';
     $c->stash->{content} = eval { $pkg->{payload} };