Re: IP+ST510+telnet

[klupek@klupek.pl]

On Wed, Nov 03, 2004 at 11:04:52PM +0100, darek wrote:
> Witam!
> Mam ruter ST510 z neostradą i za min debiana. Nijak z automatu
> nie moge przeczytać IP które mi zmienia tepsa.
> Piszą (ci z tepsy), że po telnecie można se przeczytać -
> i to ręcznie mi działa - ale z crona
> przez telnet nie mogę, bo woła interaktywnie passworda.
> O .telnetrc nic mądrego nie znlazłem. NO-IP mi nie pasuje.
> Przez lokalne www pisze żebym se włączył jave, a i tak woła hasła.
> 
> Czy ktoś z grupowiczów taki problem miał/rozwiązał?
> 
> Na razie zrobiłem wgetem ze strony która wyświetla moje IP,
> ale to mało eleganckie... tym bardziej że ruter jest
> pół metra od serwera...
> 

Ja mialem taki sam problem. Rozwiazanie poniezej.

==> ip.pl <==

#!/usr/bin/perl

use strict;
use Socket;
use IO::Handle; # ja chce tylko autoflush :(
my ($router,$user,$pass) = ("192.168.1.1","user","haslo");
my ($paddr,$proto,$line,$ip,$iaddr,$port);
$proto = getprotobyname('tcp');
$iaddr = inet_aton($router);
$port = getservbyname("telnet","tcp");
$paddr = sockaddr_in($port,$iaddr);
socket(SOCK,AF_INET, SOCK_STREAM, $proto);
SOCK->autoflush(1);
connect(SOCK,$paddr);
print SOCK "$user\r\n";
print SOCK "$pass\r\n";
print SOCK "ip aplist\r\n";
while(<SOCK>)
{
        chop;
                # neostrada czyli ip =~ m/^83\.29\./
        if(m/ip-addr:(83\.29\.[0-9\.]+)/)
        {
                $ip = $1;
                last;
        }
}
print SOCK "exit\r\n";
close SOCK;
print "$ip\n";
exit;

==> koniec <==
Ten skrypt loguje sie, bierze ip z aplist-a i wypisuje na stdout. Domyslam sie ze to jest neostrada wiec ip 83.29.x.x.
Starczy podmienic 192.168.1.1,user,haslo na adres ip, nazwe usera i haslo.

Powinno dzialac. Jak nie to poprawie(teraz mam jako bridge, dziala pieknie, bez zadnych problemow, ale nie mam jak przetestowac).

,,W perlu kazda rzecz mozna zrobic na wiele sposobow. Wybierz ten najbardziej czytelny"

-- 
+-------------------------+--------------------------------+
| Rafal ,,Klupek'' Klupa  | Proszę, nie pisz listow w HTML |
| /add gg:3243180 Klupek  | ja NIE jestem przeglądarką     |
| http://klupek.pl 	  | Pas d'HTML, je ne suis pas     |
| http://uq.pl		  | un navigateur		   |
+-------------------------+--------------------------------+