X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/156e136f01b023610253de9a5ce4e38c1a1ad0b9..45c3f1cfee86fb48c96d53f8267f99b6db6e3d7a:/tools/MSG_visualization/colorize.pl

diff --git a/tools/MSG_visualization/colorize.pl b/tools/MSG_visualization/colorize.pl
index 2c7cc4e048..b3c567189d 100755
--- a/tools/MSG_visualization/colorize.pl
+++ b/tools/MSG_visualization/colorize.pl
@@ -1,5 +1,11 @@
 #!/usr/bin/perl
 
+# Copyright (c) 2005, 2007, 2010, 2014. The SimGrid Team.
+# All rights reserved.
+
+# This program is free software; you can redistribute it and/or modify it
+# under the terms of the license (GNU LGPL) which comes with this package.
+
 $col_white    = "\033[00m";
 $col_black    = "\033[30m";
 $col_red      = "\033[31m";
@@ -70,12 +76,12 @@ sub print_line {
     my($host,$procname,$pid,$date,$location,$xbt_channel,$message)=@_;
 
     print $col_norm;
-    printf "[% 10.3f]",$date;
+    printf "[% 10.6f]",$date;
 
     print pidcolor($pid);
 
     if(defined($location)) {
-	printf "[%10s:%-10s %s ]",$host,$procname,$location;
+	printf "[%10s:%-10s] %s ",$host,$procname,$location;
     } else {
 	printf "[%10s:%-10s]",$host,$procname;
     }
@@ -88,7 +94,7 @@ while (<>) {
     $orgline = $thisline = $_;
 
     # Typical line  [Gatien:slave:(9) 11.243148] msg/gos.c:137: [msg_gos/DEBUG] Action terminated
-    if ($thisline =~ /^\[([^:]+):([^:]+):\((\d+)\) ([\d\.]*)\] ([^\[]*) \[([^\[]*)\] (.*)$/) {
+    if ($thisline =~ /^\[(.+):([^:]+):\((\d+)\) ([\d\.]*)\] ([^\[]*) \[([^\[]*)\] (.*)$/) {
 	$host=$1;
 	$procname=$2;
 	$pid=$3;