Srs.,<br>estou querendo redirecionar as mensagens do syslog-ng para um script em perl deverá enviar essas mensagens por email.<br>O script de envio de email já está escrito, só falata agora fazer o redirecionamento das mensagens.
<br>Estou usando um arquivo de pipe, e no syslog-ng.conf adicionei a seguinte regra:<br><br>destination email { pipe("/tmp/email.pipe"); };<br><br>Criei o arquivo de pipe com o seguinte comando:<br><br>mkfifo /tmp/email.pipe
<br><br>Desta forma, quando qualquer mensagem chegar pela porta do syslog será redirecionada para o arquivo de pipe, e o script de email deverá ficar rodando em um laço infinito, lendo por <PIPE> o arquivo /tmp/email.pipe.
<br><br>Estou tentando ler pelo script com o seguinte código:<br><br>/***<br>$msg = <PIPE>;<br><br>while (1)<br>{<br> open PIPE, "/tmp/email.pipe";<br><br> if ($msg)<br> {<br> $sender = new Mail::Sender ... bla bla bla
<br><br>... ***/<br><br>Gostaria de saber se alguém tem uma dica ou se estou no caminho certo.<br>Obrigado.<br><br><br>