Obsługa routera w perlu

Jako, że mój nowy routerek posiada interfejs www, nie wygodne jest momentami wykonanie kilku potrzebnych czynności, takich jak np. reset połączenia ADSL-owego. Trzeba uruchomić przeglądarkę, zalogować się, itd… zdecydowanie za dużo roboty.

Dlatego napisałem sobie prosty skrypt w perlu ułatwiający obsługę routera, czyli wykonanie kilku poleceń oraz wyświetlenie niektórych przydatnych informacji, oczywiście wprost z linii poleceń.

Możliwości skryptu:

C:\Documents and Settings\MalCom>perl c:\router.pl --help
 
Prosta obsluga routera ADW-4301A firmy Planet
 
router.pl [-c] [-d] [-st] [-cd] [-ad]
 
 -c    Connect ADSL
 -d    Disconnect ADSL
 -st   Status
 -cd   Connection Detalis
 -ad   Attached Devices
 
C:\Documents and Settings\MalCom>

Podstawowe opcje, czyli połączenie i rozłączenie z Internetem, a także, wyświetlanie kilku przydatnych informacji ;)

Status routera:

C:\Documents and Settings\MalCom>perl c:\router.pl -st
 
 ADSL
   Modem Status:                 Connected
   DownStream Connection Speed:  640 kbps
   UpStream Connection Speed:    160 kbps
 
 Internet
   Connection Method:            PPPoA
   Connection Status:            Active
   Internet IP Address:          83.5.70.156
 
 LAN
   IP Address:                   192.168.0.1
   Network Mask:                 255.255.255.0
   DHCP Server:                  Off
   MAC Address:                  00:30:4F:3F:45:0C
 
 Wireless
   Name (SSID):                  malcom's wireless
   Region:                       Europe
   Channel:                      3
   Wireless AP:                  enable
   Broadcast Name:               enable
 
 System
   Device Name:                  ADW-4301A
   Firmware Version:             2.00.01
 
C:\Documents and Settings\MalCom>

Informacje o połączeniu:

C:\Documents and Settings\MalCom>perl c:\router.pl -cd
 
 Connection Time:        04:13:37
 Connection to Server:   Connected
 Negotiation:            Success
 Authentication:         Success
 IP Address:             83.5.70.156
 Network Mask:           255.255.255.255
 
C:\Documents and Settings\MalCom>

Podłączone urządzenia:

C:\Documents and Settings\MalCom>perl c:\router.pl -ad
 
 #      IP Address      MAC Address             Device Name
 1      192.168.0.2     00:0E:A6:CE:35:A2       MALCOM-P4
 2      192.168.0.3     00:30:4F:37:43:75       LUKIMAL
 3      192.168.0.4     00:16:E3:7E:A7:A3       ELA
 
C:\Documents and Settings\MalCom>

Dziwne, że czasem roueter nie zwróci wymaganych danych, dopiero powtórne wywołanie da efekt, o tyle to dziwne, bo w przeglądarce zawsze wszystko działa poprawnie.

Tak samo przy POSCIE dla dis/connect LWP::UserAgent czeka bardzo długo (~30s. i więcej) na HTTP::Response, które i tak nie jest mi potrzebne, a nie wiem jak wymusisz tylko wysłanie requesta.

Skrypt można pobrać tutaj. Może komuś się przyda. Testowany na planetce AWD-4301A.

3 przemyślenia nt. „Obsługa routera w perlu”

  1. Router dzial ok, zadnych problemow, w calym domu i okolicach lepszy badz gorszy zasieg WLANu ;)
    Nie mam na co narzekac, procz konfoiguracji via www, bo wolabym cos ala telnet lub OpenWrt.

    I pewnie taki router z mozliwoscia zaladowania linuksa zainteresowalby Cie bardziej ;)

  2. Na razie interesuje mnie router, który starczał by po ok. 100 m2 i 2 pietra (parter i 1 piętro). Może przyszłościowo poszukam takiego, który da się mocno przekombinować (np uruchomić klienty p2p).

Dodaj komentarz

Twój adres email nie zostanie opublikowany. Pola, których wypełnienie jest wymagane, są oznaczone symbolem *