135/netdisco
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

#740 more robust log rotation

Browse Source
This commit is contained in:
Oliver Gorwits
2021-02-10 13:25:55 +00:00
parent 1fc44220cb
commit b7ac3a3bd5
3 changed files with 12 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
bin/netdisco-web
View File

@@ -182,9 +182,9 @@ sub rotate_logs {
return unless (-f $log_file) and
((-s $log_file) > ($logsize * 1024768));
my @files = glob file($log_dir, '*');
foreach my $f (reverse sort @files) {
next unless $f =~ m/$log_file\.(\d)$/;
my @files = grep { /$log_file\.\d+/ } glob file($log_dir, '*');
foreach my $f (sort { $b <=> $a } @files) {
next unless $f =~ m/$log_file\.(\d+)$/;
my $pos = $1;
unlink $f if $pos == ($logfiles - 1);
my $next = $pos + 1;