La respuesta de Ignacio me intrigó, así que investigué un poco y encontré el guión de Perl a continuación. Si su servicio escribirá en una tubería con nombre, debería funcionar y ser utilizable con logrotate.
Para que funcione, debe convertir su archivo de registro en una tubería con nombre. Cambie el nombre del archivo existente y luego
mkfifo /var/log/something.log
y para editar los 3 nombres de archivo para cumplir con sus requisitos. Ejecute su servicio y luego este demonio que debería leer la tubería con nombre y escribirla en un nuevo archivo de registro.
Si cambia el nombre /var/log/somethingrotateable.log
, envíe un HUP al demonio, se generará y creará un nuevo somethingrotateable.log
para escribir. Si usa logrotate, un 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;
}
}