Obsługa routera w Perlu

Jako, że mój nowy router 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 jego obsługę 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 router nie zwróci wymaganych danych, dopiero powtórne wywołanie daje efekt. O tyle to dziwne, bo w przeglądarce zawsze wszystko działa poprawnie.

Tak samo przy POST 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 wymusić tylko wysłanie requesta i olanie odpowiedzi.

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