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