1#!/usr/local/bin/perl 2 3sub { 4 my ($filename) = @_; 5 my $rotated_filename=""; 6 if (-e "$filename.0" && -e "$filename.1.gz" && (mtime("$filename.0") > mtime("$filename.1.gz")) ) { 7 # assume the log is rotated by savelog(8) 8 # syslog-ng leaves old files here 9 $rotated_filename="$filename.0"; 10 } 11 return $rotated_filename; 12} 13