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 się uruchomić browsera, zalogować się, itd., czyli za dużo roboty:P
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.
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, ze czasem roueter nie zwróci wymaganych danych, dopiero powtórne wywołanie da efekt, dziwne, bo w przeglądarce zawsze wszystko działa.
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.
Marcin Malich, szerzej znany jako Malcom. Programista i elektronik, kochający C++ i Perla.
Interesujący się również militariami, szczególnie wywiadem, szeroko po- jętym bezpieczeństwem narodowym i służbami specjalnymi.
zwierzak:
27/08/2007 @ 20:50:45 | #1
I jak się sprawdza ruter? Mam zamiar kupić sobie coś do domu (za niedługo w końcu podłączą internet typu ADSL!) i szukam czegoś na cały dom.
MalCom:
27/08/2007 @ 21:06:11 | #2
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 ;)
zwierzak:
28/08/2007 @ 21:34:14 | #3
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).