summaryrefslogtreecommitdiff
path: root/lib/Multi/Maintenance.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Multi/Maintenance.pm')
-rw-r--r--lib/Multi/Maintenance.pm9
1 files changed, 5 insertions, 4 deletions
diff --git a/lib/Multi/Maintenance.pm b/lib/Multi/Maintenance.pm
index 3739af1f..4281ff67 100644
--- a/lib/Multi/Maintenance.pm
+++ b/lib/Multi/Maintenance.pm
@@ -10,6 +10,7 @@ use warnings;
use Multi::Core;
use PerlIO::gzip;
use VNDBUtil 'normalize_titles';
+use VNDB::Config;
my $monthly;
@@ -134,20 +135,20 @@ my %monthlies = (
sub logrotate {
- my $dir = sprintf '%s/old', $VNDB::M{log_dir};
+ my $dir = sprintf '%s/old', config->{Multi}{Core}{log_dir};
mkdir $dir if !-d $dir;
- for (glob sprintf '%s/*', $VNDB::M{log_dir}) {
+ for (glob sprintf '%s/*', config->{Multi}{Core}{log_dir}) {
next if /^\./ || /~$/ || !-f;
my $f = /([^\/]+)$/ ? $1 : $_;
my $n = sprintf '%s/%s.%04d-%02d-%02d.gz', $dir, $f, (localtime)[5]+1900, (localtime)[4]+1, (localtime)[3];
return if -f $n;
- open my $I, '<', sprintf '%s/%s', $VNDB::M{log_dir}, $f;
+ open my $I, '<', sprintf '%s/%s', config->{Multi}{Core}{log_dir}, $f;
open my $O, '>:gzip', $n;
print $O $_ while <$I>;
close $O;
close $I;
- open $I, '>', sprintf '%s/%s', $VNDB::M{log_dir}, $f;
+ open $I, '>', sprintf '%s/%s', config->{Multi}{Core}{log_dir}, $f;
close $I;
}
AE::log info => 'Logs rotated.';