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 thoughts on “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).

Pozostaw odpowiedź MalCom Anuluj pisanie odpowiedzi

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