Como todos ustedes, yo dependo de conocer exactamente cual es mi direccion IP publica, Mail, VPN, FTP, etc.. Debido a este ultimo cambio de PRTC, ya no puedo depender de servicios como "http://www.whatismyipaddress.com" o "http://checkip.dyndns.org/" para obtenerlo. Sin embargo, como ya hablado en este tema, todavia el modem brinda su IP publico, entrando a el directamente. Mi modem es el original que me brindaba PRTC, el Zyxel Prestige 642ME (por suerte, desde el primer dia supe el password para entrar a el, el famoso "1 2 3 4").
Yo estoy subscrito a servicios de "http://www.dyndns.org" y actualizo constantemente mi direccion IP con ellos. Debido a este ultimo cambio de PRTC, me vi obligado a buscar una solucion inmediata.
Como conozco el password de mi modem, puedo entrar a el y verificar mi direccion de WAN al entrar al menu "24", luego escoger la opcion "8" y llegar al CLI del equipo. En ella ejectuto el comando "ip ifconfig wanif0" y me brinda la direccion IP, "66.50.x.x".
Facil si estas pendiente 24/7 para actualizarlo, cosa que no es muy factible ya que hay mejores cosas que hacer.
Como ya ustedes saben, hay varias herramientas (Windows,Mac y Unix) para actualizarlo automaticamente. Entre las herramientas que me ayudaban a actualizarlo manualmente es "ddclient" (http://freshmeat.net/projects/ddclient/), cual depende de servicios como "http://checkip.dyndns.org/" para conocer el IP.
Bueno, para no reinventar la rueda, quise utilizar esa misma herramienta para actualizar mis servicios de DynDNS, pero que no busque el IP a un servidor en el exterior, si no que lo busque en el mismo modem Zyxel.
Lo logre de la siguiente manera:
Como la unica forma que puedo interactuar con el modem es por telnet busque por el Internet un script que pueda interactuar con el de esa manera. Encontre un modulo de Perl llamado Net::Telnet, cual trabaja bien similar a la interaccion manual que normalmente usamos para ejectuar comandos en Telnet. Tambien encontre ejemplos de interaccion con este mismo modulo y un modem Zyxel, que suerte verdad : )
Aqui les brindo el script que modifique, lo pueden usar en una instalacion de Apache local y apuntar el programa "ddclient" a el. El ouput es similar a el que te brinda "http://checkip.dyndns.org/", espero que esto les ayude a encontrar a mejores soluciones...
#!/usr/local/bin/perl
use Net::Telnet;
my $router_ip = "192.168.1.1";
my $router_password = "xxxxxxx";
my $cli_prompt = "/PRTC.net>/";
my $cli_wan_ip_cmd = "ip ifconfig wanif0";
my $wan_ip_address;
&get_wan_ip_address;
print <<HTML;
<html>
<head>
<title>Current IP Check</title>
</head>
<body>
Current IP Address: $wan_ip_address
</body>
</html>
HTML
sub get_wan_ip_address {
my $ip;
my $data;
my $host = new Net::Telnet (Timeout => 10);
$host->open($router_ip);
$host->waitfor('/Password: /');
$host->print($router_password);
$host->waitfor('/Number:/');
$host->print("24");
$host->waitfor('/Number:/');
$host->print("8");
$host->waitfor($cli_prompt);
# sleep(1);
$host->print($cli_wan_ip_cmd);
($data) = $host->waitfor($cli_prompt);
$host->print("exit");
$host->waitfor('/Number:/');
$host->print("99");
$host->close();
my ($ip) = $data =~ /inet (\d+\.\d+\.\d+\.\d+)/;
$wan_ip_address = $ip;
}
A quien le pueda interesar...
Obviamente... yo tengo el mismo problema, pero con un servidor que corre Windows2kSrv (ISA, Exchange, VPN y webmail).
Tienes alguna idea de como usar la pagina de Coqui.net de detectar IPs para este fin? O alguna idea/manera de usar un metodo similar al que propones en Windows?
La verdad es que estoy extremadamente molesto con PRTC
Tienes alguna idea de como usar la pagina de Coqui.net de detectar IPs para este fin? O alguna idea/manera de usar un metodo similar al que propones en Windows?
La verdad es que estoy extremadamente molesto con PRTC
