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;
}
$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;