A resposta de Ignacio me intrigou, então fiz algumas pesquisas e encontrei o script Perl abaixo. Se o seu serviço irá gravar em um pipe nomeado, ele deve funcionar e ser utilizável com o logrotate.
Para funcionar, você precisa transformar seu arquivo de log em um pipe nomeado. Renomeie o arquivo existente e, em seguida,
mkfifo /var/log/something.log
e para editar os 3 nomes de arquivos para atender às suas necessidades. Execute seu serviço, em seguida, este daemon que deve ler o pipe nomeado e gravá-lo em um novo arquivo de log.
Se você renomear /var/log/somethingrotateable.log
, envie um HUP para o daemon e ele criará um novo somethingrotateable.log
para gravar. Se estiver usando logrotate, um script postrotate
de kill -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;
}
}