-#!/usr/bin/perl
+#!/usr/bin/env 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";
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;
}