You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
28 lines
660 B
28 lines
660 B
2 months ago
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
# LibUCW Utilities -- Rotate logs
|
||
|
|
# (c) 2001--2002 Martin Mares <mj@ucw.cz>
|
||
|
|
|
||
|
|
use File::stat;
|
||
|
|
|
||
|
|
@ARGV >= 3 or die "Usage: ucw-rotate-log <days-to-compress> <date-to-delete> <logs...>";
|
||
|
|
|
||
|
|
$now = time;
|
||
|
|
$cps = shift @ARGV;
|
||
|
|
$del = shift @ARGV;
|
||
|
|
|
||
|
|
$compress_thr = $now - 86400 * $cps;
|
||
|
|
$delete_thr = $now - 86400 * $del;
|
||
|
|
foreach $f (@ARGV) {
|
||
|
|
-f $f or next;
|
||
|
|
$st = stat $f or next;
|
||
|
|
if ($del > 0 && $st->mtime < $delete_thr) {
|
||
|
|
print "Deleting $f\n";
|
||
|
|
unlink $f || die "Delete FAILED: $!";
|
||
|
|
} elsif ($cps > 0 && $st->mtime < $compress_thr && $f !~ /\.(gz|bz2)$/) {
|
||
|
|
print "Compressing $f\n";
|
||
|
|
`gzip -f $f`;
|
||
|
|
$? && die "Compression FAILED: $!";
|
||
|
|
}
|
||
|
|
}
|