Posts

Showing posts from 2012

Howto build deb package with Perl module (Lingua::Identify)

What is Lingua::Identify?Lingua::Identify is Perl module used for text language identification - remember that language identification is not 100% accurate. Why use Lingua::Identify? Here is list of most important (for me) features of this module it's free and it's open-source;it has unicode support in standard;it's a module, which means you can easily write your own applicationit supports big inputsit's maintainedHow to create deb package of Lingua::Identify? # Install packages required to build *.deb apt-get install dh-make-perl devscripts apt-file apt-file update # Install Lingua::Identify dependences from packages apt-get install libclass-factory-util-perl libtext-affixes-perl # Lingua::identify depends on Text::Ngram (but this is not packaged) # http://search.cpan.org/~ambs/Text-Ngram-0.14/lib/Text/Ngram.pm wget http://search.cpan.org/CPAN/authors/id/A/AM/AMBS/Text/Text-Ngram-0.14.tar.gz # http://search.cpan.org/~ambs/Lingua-Identify-0.51/lib/Lingua/Identify…

TP-LINK TD-8910G - restart połączenia

Ponad dwa lata temu opisywałem router TP-LINK TD-W8910G urządzenie wciąż sprawuje się wyśmienicie.

Ostatnimi czasy chciałem dokonać zmiany adresu IP w regularnych odstępach czasu, oczywiście jak się można łatwo domyślić router TP-LINK nie posiada wbudowanej takiej opcji. Ale nic straconego, jako że urządzenie ma dosyć prosty interfejs do zarządzania dostępny poprzez telnet oraz www, napisałem dwa proste skrypty resetujące połączenie z moim ISP.

Pierwszy z nich dokonuje tylko restartu połączenia - do poprawnego działania wymaga zainstalowanego narzędzia expect (apt-get install expect).

Drugi natomiast służy do wykonania pełnego restartu routera i wymaga narzędzia curl (apt-get install curl). Skrypt restartujący połączenie w TP-LINK #!/usr/bin/expect # variables set router 192.168.1.1 set username admin set password xxxxx # code set timeout 100 spawn telnet "$router" expect "Login:" send "$username\r" expect "Password:" send "$passw…