[Cascavel-pm] Duvida com exec
Thiago Rondon
thiago em aware.com.br
Segunda Agosto 11 14:32:10 PDT 2008
Agustinho,
Verifique se o 'script' esteja encontrando o comando 'mail', passe o
caminho completo do
comando, como por exemplo '/usr/bin/mail', e verifique se está
funcionando na linha de
comando também.
Para não depender da tua máquina, que pode ter outros problemas, utilize
o Mail::Sender,
segue um exemplo:
my $sender = new Mail::Sender { smtp => 'mail.servidor.com.br',
from => 'Alerta
<naoresponder em servidor.com.br>',
auth => 'LOGIN',
authid => 'alerta em servidor.com.br',
authpwd => 'senha_do_usuario_alerta',
headers => "MIME-Version:
1.0\r\nContent-type: text/html\r\nContent-Transfer-Encoding: 7bit"
};
if (ref ($sender->MailMsg( { to=> "voce em servidor.com.br", subject =>
"Titulo", msg => "Mensagem", }) {
print "Alerta enviado.";
}
Abs,
-Thiago Rondon
Agustinho Coelho escreveu:
> Boa Tarde Pessoal,
>
> 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:
>
> #/bin/perl -w
>
> exec ('ping -c4 192.168.0.122 > /dev/null 2&1');
> if ( $? == 0 ); then {
> exec ('echo "teste" | mail -s "host $(hostname) is up"
> email em dominio.com.br');
> } else {
> exec ('echo "teste" | mail -s "host $(hostname)is down "
> email em dominio.com.br');
> }
>
>
> Obrigado desde já,
>
> Agustinho.
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>
>
Mais detalhes sobre a lista de discussão Cascavel-pm