foreach $file ( sort { lc($a) cmp lc($b) } keys %{$self->{'c'}{'logfiles'}} ) {
- print "\n" . $p . "Bearbeite Logdatei '$file' ...\n" if verbose() > 1;
+ print( "\n" . ("-" x 20) . "\n\n") if verbose() > 1;
+ print $p . "Bearbeite Logdatei '$file' ...\n" if verbose() > 1;
$should_rotate = $self->test_for_rotate( $file );
my ( $omode, $ouid, $ogid, $nmode, $nuid, $ngid, $atime, $mtime );
my ( @Stats );
+ print "\n";
+
my $ce = $self->{'c'}->compressext();
if ( not defined($ce) or $ce =~ /^\s*$/ ) {
$ce = ".gz";
carp( $p . "Keine Logdatei uebergeben!\n" );
return undef;
}
- print "\n";
- print( ("-" x 20) . "\n\n") if verbose() > 1;
print $p . "Rotiere Logdatei '$file'.\n" if verbose();
my $f = $self->{'c'}{'logfiles'}{$file};