-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
Para obter o IP (uso o 3Com Remote 812 ADSL router), fiz os dois scripts
abaixo, pode fazer algo parecido!
01 - lista_ip_adsl.pl
#------- inicio lista_ip_adsl.pl
#!/usr/bin/perl -w
# by Joao Paulo Limberger Linux User # 196.518
# [EMAIL PROTECTED] 05/2001
# --------------------------------------------
use Expect;
my $timeout = 10; # Time Out de 10 segundos
my $host = "192.168.200.254";
my $passwd = "#####"; # Senha de um usuario do router
my $user = "####"; # Nome de um usuario do router
$telnet = Expect->spawn("/usr/bin/telnet", $host);
$r = $telnet->expect($timeout, 'login');
die "No 'login' prompt" unless defined $r;
$telnet->send_slow(0, "$user\r");
$r = $telnet->expect($timeout, -re => '[Pp]assword');
die "No 'password' prompt" unless defined $r;
$telnet->send_slow(0, "$passwd\r");
$r = $telnet->expect($timeout, '3Com-DSL');
die "Nao localizado promp do modem ADSL (3Com-DSL) " unless defined $r;
$r = $telnet->send_slow(0, "LIST IP ROUTES\r");
$r = $telnet->expect($timeout, '3Com-DSL');
die "Nao localizado promp do modem ADSL (3Com-DSL) " unless defined $r;
$r = $telnet->send_slow(0, "exit\r");
#------- final lista_ip_adsl.pl
02 - get_ip_adsl
#------ inicio get_ip_adsl
#!/bin/bash
# by Joao Paulo Limberger Linux User # 196.518
# [EMAIL PROTECTED] 05/2001
# --------------------------------------------
ip_cheio()
{
/usr/local/scripts/lista_ip_adsl.pl | grep -v "192.168.200" | grep -v
"000.000.000.000" | grep -v "255.255.255.255" | grep -v "254" | grep atm |
cut -c 1-15
}
# deve existir uma solucao melhor para fazer isto...
# mas enquanto eu isso vou usando o bc e o cut mesmo !!!
ip_rec=`ip_cheio`
ip_rec1=`echo -ne $ip_rec | cut -b 1-3 | bc`
ip_rec2=`echo -ne $ip_rec | cut -b 5-7 | bc`
ip_rec3=`echo -ne $ip_rec | cut -b 9-11 | bc`
ip_rec4=`echo -ne $ip_rec | cut -b 13-15 | bc`
echo $ip_rec1.$ip_rec2.$ip_rec3.$ip_rec4
#------ final get_ip_adsl
- --
- -------------------------------------------------------------------
Joao Paulo Limberger Linux User # 196.518
Email: [EMAIL PROTECTED]
http://limberger.2y.net:8080
- --
O que s�o quatro pontos na parede: Four migas. Ugh!
- --
Qui Abr 25 18:31:43 BRT 2002
- -------------------------------------------------------------------
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.6 (GNU/Linux)
Comment: For info see http://www.gnupg.org
iEYEARECAAYFAjzId+8ACgkQdZZu40jRY5kMWQCgsEThzXHSM3s2AbhMFEaB3iL7
qDIAoIUG9LCjMKx5v1eEnJMP/mXEOfHs
=/2pA
-----END PGP SIGNATURE-----
Assinantes em 25/04/2002: 2259
Mensagens recebidas desde 07/01/1999: 164324
Historico e [des]cadastramento: http://linux-br.conectiva.com.br
Assuntos administrativos e problemas com a lista:
mailto:[EMAIL PROTECTED]
