+sub print_line {
+ my($host,$procname,$pid,$date,$location,$xbt_channel,$message)=@_;
+
+ print $col_norm;
+ printf "[% 10.6f]",$date;
+
+ print pidcolor($pid);
+
+ if(defined($location)) {
+ printf "[%10s:%-10s] %s ",$host,$procname,$location;
+ } else {
+ printf "[%10s:%-10s]",$host,$procname;
+ }
+ print " $message";
+ print $col_norm."\n";
+}
+
+# Read the messages and do the job