A resposta de Ignacio me intrigou, então eu fiz algumas pesquisas e criei o script Perl abaixo. Se o seu serviço gravar em um pipe nomeado, ele deverá funcionar e ser usado com o logrotate.
Para que ele funcione, você precisa transformar seu arquivo de log em um pipe nomeado. Renomeie o arquivo existente e
mkfifo /var/log/something.log
e editar os três nomes de arquivos para atender aos seus requisitos. Execute seu serviço e, em seguida, este daemon, que deve ler o pipe nomeado e gravá-lo em um novo arquivo de log.
Se você renomear, em /var/log/somethingrotateable.log
seguida, envie um HUP para o daemon, ele será gerado automaticamente e criará um novo somethingrotateable.log
para o qual gravar. Se estiver usando logrotate, um postrotate
script dekill -HUP 'cat /var/run/yourpidfile.pid'
#!/usr/bin/perl -w
use POSIX ();
use FindBin ();
use File::Basename ();
use File::Spec::Functions;
#
$|=1;
#
# Change the 3 filenames and paths below to meet your requirements.
#
my $FiFoFile = '/var/log/something.log';
my $LogFile = '/var/log/somethingrotateable.log';
my $PidFile = '/var/run/yourpidfile.pid';
# # make the daemon cross-platform, so exec always calls the script
# # itself with the right path, no matter how the script was invoked.
my $script = File::Basename::basename($0);
my $SELF = catfile $FindBin::Bin, $script;
#
# # POSIX unmasks the sigprocmask properly
my $sigset = POSIX::SigSet->new();
my $action = POSIX::SigAction->new('sigHUP_handler',$sigset,&POSIX::SA_NODEFER);
POSIX::sigaction(&POSIX::SIGHUP, $action);
sub sigHUP_handler {
# print "Got SIGHUP";
exec($SELF, @ARGV) or die "Couldn't restart: $!\n";
}
#open the logfile to write to
open(LOGFILE, ">>$LogFile") or die "Can't open $LogFile";
open(PIDFILE, ">$PidFile") or die "Can't open PID File $PidFile";
print PIDFILE "$$\n";
close PIDFILE;
readLog();
sub readLog {
sysopen(FIFO, $FiFoFile,0) or die "Can't open $FiFoFile";
while ( my $LogLine = <FIFO>) {
print LOGFILE $LogLine;
}
}