Tools: import allows fractions in output timestamps

files2config

@@ -28,7 +28,7 @@ exists $opts{x} and $xlog = '\+';
 my %file_info = ();
 
 while(<>) {
-    s/^\d{4,}-\d\d-\d\dT\d\d:\d\d:\d\d: //; # Remove log time stamps
+    s/^\d{4,}-\d\d-\d\dT\d\d:\d\d:\d\d(?:[,.]\d+)?: //; # Remove log time stamps
     if(my ($mtd, undef, $src, $dst) =
        m{^$xlog\s*((cdo|cp|ln)\s.*)\s+(\S+)\s+(\S+)\s*$}) {
          #DEBUG# warn($_, join(':', $mtd, $src, $dst), "\n"); #DEBUG#

namelist2config

@@ -113,7 +113,7 @@ my $namelist_group = {};
 my $namelist_variable = [];
 
 while(<>) {
-    s/^\d{4,}-\d\d-\d\dT\d\d:\d\d:\d\d: //; # Remove log time stamps
+    s/^\d{4,}-\d\d-\d\dT\d\d:\d\d:\d\d(?:[,.]\d+)?: //; # Remove log time stamps
     if($in_doc && m/^EOF/) {
         if($open_value) {
             $direct and print("\n");