<div>Um pouco atrasado, mas ainda útil. Victor, este tipo de código é o sonho de todos os administradore de rede sério e preocudos com o 'gerênciamento de mudanças' do ambiente computacional. Se for possível disponibilizar este códigos eu tenho todo interesse.
</div>
<div> </div>
<div>Abraços,</div>
<div> </div>
<div>Solli<br><br> </div>
<div><span class="gmail_quote">On 2/3/07, <b class="gmail_sendername">vict0r</b> <<a href="mailto:vgdias@gmail.com">vgdias@gmail.com</a>> wrote:</span>
<blockquote class="gmail_quote" style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">Igor,<br>muito obrigado pela resposta.<br>Eu tenho módulos em desenvolvimento para administrar e monitorar os
<br>roteadores e switches de diversos fabricantes, q costumam fazer isso<br>extraindo informações através de comandos no próprio terminal,<br>especificamente este se refere a um switch de conteúdo Alteon que eu<br>preciso extrair relatórios de estado de diversos servidores que
<br>possuem tráfego balanceado por este equipamento, mas não fiquei<br>satisfeito com o q consegui através dos comandos disponíveis e resolvi<br>usar uma estratégia diferente, descobri q através da interface web<br>dele é possível gerar os relatórios q eu preciso já prontinhos.
<br>A minha idéia então era executar essas chamadas via web e obter os relatórios.<br>Depois eu vi q não conseguiria com o wget pq se trata de uma interface<br>em Javascript, e os relatórios são gerados por chamadas, e agora não
<br>tenho certeza se conseguirei em perl tb, pois preciso executar essas<br>chamadas remotamente, e não tenho as API's dessa interface web em Java<br>pra isso..<br>A solução q estou conseguindo implementar com sucesso agora é extrair
<br>localmente as informações q preciso do arquivo de salva da<br>configuração do equipamento, que é um dump de tudo q está configurado<br>nele, exportado via tftp por outro módulo já em produção, mas terei q<br>correlacionar os dados e formatar o relatório.
<br>Em um primeiro momento será uma salva local para envio por email, mas<br>a idéia é depois popular o banco.<br>Os relatórios são gerados em html, e o número de links depende do<br>tamanho do relatório.<br>Bom, acho q é isso. :-)
<br><br>Agradeço a ajuda de todos, e na segunda vou testar a sua dica.<br>Abração.<br><br>On 2/2/07, BOO <<a href="mailto:mayakuuri@bol.com.br">mayakuuri@bol.com.br</a>> wrote:<br>> Olá vict0r,<br>><br>> Acho que o problema é que tu não definiu onde guardar cookies e não
<br>> passou as credenciais...<br>> Tenta algo tipo:<br>><br>> <code><br>><br>> use strict;<br>> use warnings;<br>> use Carp qw(croak);<br>> use WWW::Mechanize;<br>><br>> my $web = WWW::Mechanize->new(timeout => 30);
<br>><br>> my $url = "<a href="http://10.0.1.2">http://10.0.1.2</a>";<br>><br>> ######## ACHO QUE FOI ISSO QUE FALTOU ########<br>><br>> $web->cookie_jar({ file => "./.cookies.txt" });
<br>> $web->credentials('vict0r', 'senha_do_vict0r');<br>><br>> ########################################<br>><br>> my $ret = $web->get($url);<br>><br>> if ($ret->code != 200){
<br>> croak "Deu algo errado... Poste isso em cascavel-pm para ser ajudado !";<br>> }<br>><br>> my $html = $ret->content;<br>><br>> faz_algo_que_preste_com($html);<br>><br>> </code>
<br>><br>><br>> Bem, isso não responde completamente a tua pergunta, pois faltam<br>> elementos importantes...<br>><br>> 1) Tu ta usando que tipo de autenticação (form+sessão, basic, digest,<br>> session-token, et cetera) ?
<br>> 2) Precisa gravar o que foi coletado em disco ou vai passar para um<br>> banco de dados ?<br>> 3) Qual o nível de recursividade para ir seguindo os links ?<br>> 4) Qualé o propósito principal do script que tu queres desenvolver ?
<br>><br>> Por favor, responda essas perguntas e poste novos problemas que tu<br>> esteja tendo para que possamos<br>> te ajudar melhor, ok ?<br>><br>> Abraço.<br>><br>> Igor Garcia<br>><br>>
<br>> vict0r wrote:<br>> > Srs.,<br>> > gostaria de pedir a ajuda de vocês se possível.<br>> > Preciso fazer o download de páginas HTML incluindo seus links<br>> > internos, essa páginas estão em um servidor web de um switch da minha
<br>> > rede, portanto terei que autenticar para ter acesso.<br>> > Pesquisei no cpan e encontrei o modulo WWW::Mechanize, que parece<br>> > fazer o q preciso, incluindo autenticação e follow_link.<br>> > Gostaria de saber se essa é a melhor opção nesse caso, pois escrevi um
<br>> > pequeno script só pra testar as funções do módulo e estou tendo<br>> > problemas.<br>> > ####<br>> > #!/usr/bin/perl<br>> ><br>> ><br>> > use WWW::Mechanize;<br>> ><br>
> > my $mech = WWW::Mechanize->new();<br>> > my $url = <a href="http://10.0.1.2">http://10.0.1.2</a>;<br>> > $mech->get( $url );<br>> > my $res = $mech->status();<br>> > print "$res\n";
<br>> > ####<br>> ><br>> > Retorno: 501<br>> ><br>> > Se tentar usar outros métodos diferentes do status(), o resultado é sempre:<br>> ><br>> > 501 Protocol scheme ' ' is not supported
<br>> ><br>> > Está parecendo q falta algum parâmetro, alguém saberia dizer ?<br>> ><br>> > Obrigado.<br>> > _______________________________________________<br>> > Cascavel-pm mailing list
<br>> > <a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>> > <a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>> ><br>> >
<br>><br>> _______________________________________________<br>> Cascavel-pm mailing list<br>> <a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>> <a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">
http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>><br><br><br>--<br>Java é portável? Não, Java é insuportável!<br><br>#!/usr/bin/perl<br>use perl;<br>_______________________________________________<br>Cascavel-pm mailing list
<br><a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div><br>