<div dir="ltr">Não.<br><br>O buraco é mais embaixo.<br><br><br> exec LIST<br> exec PROGRAM LIST<br><div style="margin-left: 40px;">The "exec" function executes a system command and never returns-- use "system" instead of "exec" if you want it to return. It fails and returns false only if the command does not exist and it is executed directly instead of via your system's command shell (see below).<br>
</div>ou<br><div style="margin-left: 40px;">A função "exec" executa um comando do sistema e nunca retorna-- use "system" ao invés de "exec" se você quer que ela retorne. Ela falha e retorna false somente se o comando não existir, e ele é executado diretamente, ao invés de usar o shell de comando do seu sistema (veja abaixo). <br>
</div><br>Ou seja, o problema já começa aqui:<br><br>exec ('ping -c4 <a href="http://192.168.0.122/" target="_blank">192.168.0.122</a> > /dev/null 2&1');<br><br>uma vez que a chamada para a função exec() nunca retorna.<br>
<br>[]s,<br>Russo<br><br><div class="gmail_quote">2008/8/11 Thiago Rondon <span dir="ltr"><<a href="mailto:thiago@aware.com.br">thiago@aware.com.br</a>></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<br>
Agustinho,<br>
<br>
Verifique se o 'script' esteja encontrando o comando 'mail', passe o caminho completo do<br>
comando, como por exemplo '/usr/bin/mail', e verifique se está funcionando na linha de<br>
comando também.<br>
<br>
Para não depender da tua máquina, que pode ter outros problemas, utilize o Mail::Sender,<br>
segue um exemplo:<br>
<br>
my $sender = new Mail::Sender { smtp => '<a href="http://mail.servidor.com.br" target="_blank">mail.servidor.com.br</a>',<br>
from => 'Alerta <<a href="mailto:naoresponder@servidor.com.br" target="_blank">naoresponder@servidor.com.br</a>>',<br>
auth => 'LOGIN',<br>
authid => '<a href="mailto:alerta@servidor.com.br" target="_blank">alerta@servidor.com.br</a>',<br>
authpwd => 'senha_do_usuario_alerta',<br>
headers => "MIME-Version: 1.0\r\nContent-type: text/html\r\nContent-Transfer-Encoding: 7bit"<br>
};<br>
<br>
if (ref ($sender->MailMsg( { to=> "<a href="mailto:voce@servidor.com.br" target="_blank">voce@servidor.com.br</a>", subject => "Titulo", msg => "Mensagem", }) {<br>
print "Alerta enviado.";<br>
}<br>
<br>
Abs,<br>
-Thiago Rondon<br>
<br>
Agustinho Coelho escreveu:<div><div></div><div class="Wj3C7c"><br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Boa Tarde Pessoal,<br>
<br>
Estou tentando utilizar a função exec, mas estou enfrentando dificuldades... Eu li o perldoc, tentei utilizar as diversas maneiras aprensentadas, mas sem sucesso. O programa que tento fazer é para verificar se um host da rede está funcionando, se ele não responder, ele me envia um email. (eu tentei utilizar o módulo libemail-simple-perl e libemail-send-perl, mas ainda estou muito cru para isso :S ). Segue o código:<br>
<br>
#/bin/perl -w<br>
<br>
exec ('ping -c4 <a href="http://192.168.0.122" target="_blank">192.168.0.122</a> > /dev/null 2&1');<br>
if ( $? == 0 ); then {<br>
exec ('echo "teste" | mail -s "host $(hostname) is up" <a href="mailto:email@dominio.com.br" target="_blank">email@dominio.com.br</a>');<br>
} else {<br>
exec ('echo "teste" | mail -s "host $(hostname)is down " <a href="mailto:email@dominio.com.br" target="_blank">email@dominio.com.br</a>');<br>
}<br>
<br>
<br>
Obrigado desde já,<br>
<br>
Agustinho.<br>
_______________________________________________<br>
Cascavel-pm mailing list<br>
<a href="mailto:Cascavel-pm@pm.org" target="_blank">Cascavel-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>
<br>
<br>
<br>
</blockquote>
<br>
_______________________________________________<br>
Cascavel-pm mailing list<br>
<a href="mailto:Cascavel-pm@pm.org" target="_blank">Cascavel-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>Alexei Znamensky [russoz_gmail_com] [<a href="http://russoz.wordpress.com">russoz.wordpress.com</a>] [<a href="http://www.flickr.com/photos/alexeiz">www.flickr.com/photos/alexeiz</a>]<br>
"Though we live in trying times, we're the ones who have to try"<br>
</div>