Críticas sempre são bem vindas :-) <br><br>O que acontece é que com esse plugin no Linux as vezes funciona, outras não. E no windows após a execução do mesmo se o "Enter" não for pressionado ele não vai adiante. Ele para depois que dou o primeiro Ping. <br>
<br>Vou começar a escrever usando outro plugin cros-plataform para ping, creio que o Net::Ping seja mais estável. <br><br>O que acham?<br><br><div class="gmail_quote">2010/3/11 Otávio Fernandes <span dir="ltr"><<a href="mailto:otaviof@gmail.com">otaviof@gmail.com</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;">2010/3/10 Esdras Neto <<a href="mailto:esdras@gmail.com">esdras@gmail.com</a>>:<br>
<div><div></div><div class="h5">> Boa noite,<br>
><br>
> To com umas dúvidas e o google não quer me ajudar :/<br>
><br>
> Estou usando o modulo Net::Ping::External pois preciso fazer um script que<br>
> monitore a conexão com a internet que funcione tanto no Windows quanto no<br>
> Linux.<br>
><br>
> O projeto é simples, monitorar um host externo se esse host parar de<br>
> responder testar com outros hosts e caso fique sem resposta muda a rota e<br>
> manda um email pros admin.<br>
><br>
> Mas o net::ping::external parece nem sempre funcionar no Linux e no windows<br>
> ele pede interação. Alguem da uma luz? Segue o script. vlwz!<br>
><br>
> while (<>) {<br>
> $alive = ping(host => $HOST1, timeout => 4);<br>
> print "$HOST1 is alive\n" if $alive;<br>
><br>
> if (!$alive) {<br>
><br>
> my $num_alive = 0;<br>
> foreach (@hosts) {<br>
> $alive = ping(hostname => $_, timeout => 3);<br>
> print "$_ is alive!\n" if $alive;<br>
> $num_alive++ if $alive;<br>
><br>
> }<br>
><br>
> print "$num_alive hosts are alive.\n";<br>
> if ($num_alive == '0') {<br>
><br>
> my %mail = (<br>
> To=>"$mail_destination",<br>
> From=>"$from",<br>
> Subject=>"Network Outage",<br>
> Message=>"This is an automatic alert. The link is down.",<br>
> smtp=>"$smtp_server",<br>
> auth=>{user=>$from, pass=>$password, method=>'PLAIN'}<br>
> );<br>
><br>
> sendmail(%mail) or die $Mail::Sendmail::error;<br>
> }<br>
><br>
> }<br>
> sleep $TBP;<br>
> }<br>
><br>
><br>
><br>
><br>
> --<br>
> <a href="http://www.alvespassos.com" target="_blank">http://www.alvespassos.com</a><br>
> Sharing things that we cannot buy.<br>
> Mobile +353 (0)83 4005868<br>
><br>
</div></div>> _______________________________________________<br>
> SaoPaulo-pm mailing list<br>
> <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
> <a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
<br>
Esdras,<br>
<br>
Você precisa ser mais específico sobre os problemas, com o que foi<br>
descrito fica difícil ir além de críticas ao seu código.<br>
<br>
Atenciosamente,<br>
<font color="#888888"><br>
--<br>
Otávio Fernandes <otaviof at <a href="http://gmail.com" target="_blank">gmail.com</a>><br>
<a href="http://blog.emresumo.com" target="_blank">http://blog.emresumo.com</a><br>
_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
</font></blockquote></div><br><br clear="all"><br>-- <br><a href="http://www.alvespassos.com">http://www.alvespassos.com</a><br>Sharing things that we cannot buy.<br>Mobile +353 (0)83 4005868<br>