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(&quot;/tmp/email.pipe&quot;); };<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 &lt;PIPE&gt; o arquivo /tmp/email.pipe.
<br><br>Estou tentando ler pelo script com o seguinte código:<br><br>/***<br>$msg = &lt;PIPE&gt;;<br><br>while (1)<br>{<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; open PIPE, &quot;/tmp/email.pipe&quot;;<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if ($msg)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; {<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $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>