Kosmetik am Dateiformat

diff --git a/LogRotate/StateFile.pm b/LogRotate/StateFile.pm
index a06d747adef3fdadfa54144919a573535eae1ed8..d501e2b4061dd0d9f0fbff0da9a4a11f3b5669ef 100644 (file)
--- a/LogRotate/StateFile.pm
+++ b/LogRotate/StateFile.pm
@@ -359,7 +359,7 @@ sub write_logfile($$;$) {
   }
 
   my ( @Date );
-  my ( $f, $d );
+  my ( $f, $d, $max );
   my $file = $self->{'file'};
 
   my $files = $self->read();
@@ -367,6 +367,12 @@ sub write_logfile($$;$) {
 
   $files->{$logfile} = $timestamp;
 
+  $max = 1;
+  foreach $f ( keys %$files ) {
+    $max = length($f) if length($f) > $max;
+  }
+  $max += 2;
+
   print $p . "Schreibe Statusdatei '$file' ...\n" if verbose();
 
   unless ( $self->test() ) {
@@ -382,7 +388,7 @@ sub write_logfile($$;$) {
       } else {
         $d = strftime( '%Y-%m-%d_%H:%M:%S', @Date );
       }
-      print FILE '"' . $f . '" ' . $d . "\n";
+      printf FILE "%-*s %s\n", $max, ('"' . $f . '"' ), $d;
     }
     close FILE;
   }