From 447f79cb6ff0b399251ea02099098a2e84136fea Mon Sep 17 00:00:00 2001
From: Richard Fuchs <rfuchs@sipwise.com>
Date: Tue, 24 Jul 2012 16:21:19 +0000
Subject: [PATCH] make call graph much more pretty by using different pretty
 colors for the pretty arrows

---
 lib/admin/Utils.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/admin/Utils.pm b/lib/admin/Utils.pm
index c938f40..3b0f3ba 100644
--- a/lib/admin/Utils.pm
+++ b/lib/admin/Utils.pm
@@ -659,6 +659,7 @@ sub process_callmap {
 
     my $canvas_pkg_line_width = 2;
     my $canvas_pkg_line_color = 'green';
+    my %canvas_pkg_line_colors = (TCP => 'blue');
     my $canvas_pkg_font = 'Courier:bold';
     my $canvas_pkg_font_size = 8;
     my $canvas_pkg_font_color = 'dimgray';
@@ -743,7 +744,8 @@ sub process_callmap {
       my $from_x = $uas_pos_x{$packet->{src_ip}.':'.$packet->{src_port}};
       my $to_x = $uas_pos_x{$packet->{dst_ip}.':'.$packet->{dst_port}};
       #print "arrow from ".$packet->{src_ip}.':'.$packet->{src_port}." to ".$packet->{dst_ip}.':'.$packet->{dst_port}.": $from_x - $to_x\n";
-      draw_arrow($canvas, $from_x, $y_offset, $to_x, $y_offset, $canvas_pkg_line_width, $canvas_pkg_line_color);
+      draw_arrow($canvas, $from_x, $y_offset, $to_x, $y_offset, $canvas_pkg_line_width,
+      	$canvas_pkg_line_colors{$packet->{transport}} || $canvas_pkg_line_color);
       $packet->{payload} =~ /\ncseq:\s*(\d+)\s+[a-zA-Z]+/i;
       my $cseq = $1 ? $1 : '?';
       my $txt = sprintf($i.'. '.$packet->{method}.' ('.$cseq.', +%0.3fs)', $time_offset);