17 lines
357 B
Perl
Executable File
17 lines
357 B
Perl
Executable File
#!/usr/bin/perl -w -I.
|
|
use strict;
|
|
|
|
use Getopt::Long;
|
|
|
|
my %args;
|
|
$args{uncompressed_hours} = 24;
|
|
GetOptions(\%args, "uncompressed_hours:i");
|
|
|
|
foreach my $file (glob("xml/logs/*/*.log")) {
|
|
my @file_stat = stat($file);
|
|
my $file_mtime = $file_stat[9];
|
|
if ((time - $file_mtime) >= $args{uncompressed_hours}*60*60) {
|
|
system("gzip", "-9", $file);
|
|
}
|
|
}
|