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

#769 Numeric sort error for logfile rotation

Browse Source
This commit is contained in:
Oliver Gorwits
2021-02-24 10:46:34 +00:00
parent 6a714c43c8
commit 9816bb5148
3 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Changes
View File

@@ -1,3 +1,9 @@
2.047005 - 2021-02-24
[BUG FIXES]
* #769 Numeric sort error for logfile rotation
2.047004 - 2021-02-15 2.047004 - 2021-02-15
[BUG FIXES] [BUG FIXES]

2
bin/netdisco-backend
View File

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

2
bin/netdisco-web
View File

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