adw4301a.pl
dodano 09/09/2009
Prosta obsługa routera ADW-4301A firmy Planet w Perlu.
Perlowy skrypt do prostej obsługi routera ADW-4301A firmy Planet, umożliwiający wykonanie podstawowych poleceń, i wysiedlenia stanu połączenia i innych przydatnych informacji.
Skrypt napisem w celu ułatwienia sobie życia z nowym routerem, który posiadał tylko interfejs webowy, przez co niewygodne stawało się wykonanie kilku czynności, jak np. reset połączenia. Wymagało to zbyt dużo pracy - uruchomienia przeglądarki, zalogowania się, itd. ;)
Możliwości
Możliwości bardzo małe, acz wystarczające.
Lista dostępnych funkcji w helpie, standardowo pod --help:
Prosta obsluga routera ADW-4301A firmy Planet</p>
<p>adw4301a.pl [-c] [-d] [-st] [-cd] [-ad]</p>
<p>-c Connect ADSL
-d Disconnect ADSL
-st Status
-cd Connection Detalis
-ad Attached Devices</p>
<p>Strona projektu:
http://projects.malcom.pl/scripts/adw4301a.xhtmlLicencja
Licencja GPL.
Download
Źródła skryptu dostępne są na moim GitHubie jako gist 183709.
Instalacja i konfiguracja
Konfiguracja skryptu odnosi się do ustawienia poprawnego adresu IP routera i danych autoryzacyjnych w kilku zmiennych na początku skryptu.
Dla ułatwienia można zmienić nazwę skryptu oraz nadać prawa wykonywalności lub napisać prosty skrypt powłoki do uruchamiania perlowego skryptu.
Dla systemu Windows mógłby on wyglądać tak:
@perl C:\scripts\adw4301a.pl %1Po zapisaniu pod nazwą router.cmd, w katalogu, którego ścieżka objęta jest przeszukiwaniem (znajduje się w zmiennej PATH środowiska), uruchamianie skryptu ograniczałoby się do wydania polecenia router [-opcja] w Wierszu poleceń w dowolnym miejscu systemu.
Uwaga
Przy wysłaniu POSTa dla dis/connect LWP::UserAgent czeka bardzo długo, około 30s. na odpowiedź, która i tak nie jest mi potrzebna. Może odpowiednia wartość timeout pozwoliłaby wymusić tylko wysłanie zapytania, bez oczekiwania na HTTP::Response.
Linki
Changelog
Wersja 0.4 (30/08/3007):
- poprawiono problemy z autoryzacją
Wersja 0.3 (22/08/2007):
- pierwsza działająca wersja
aktualizacja 09/09/2009