Piekielna maszyna do wysyłania sms'ów
kategorie: Linux/Ubuntu, Techblog
Wczoraj w pracy musiałem jakimś skryptem odczytać numery IMEI modemów GPRS. Kombinowałem na różne sposoby, aż w końcu trafiłem na perlowe ustrojstwo o nazwie Device::Gsm. Krótka zabawa w CPANie, użycie przykładu z dokumentacji i jest - szybko, prosto i przyjemnie.
Przy okazji wpadłem na pomysł, aby to wykorzystać do domowych zastosowań, np. monitorowanie nieplanowanych restartów komputera, czy też wysyłanie informacji o skończonym pobieraniu jakiś plików. Całość uruchomiłem w 5 minut, na starym Simensie S55 i jakimś prepaidzie.
Banalny kod (z dokumentacji) jaki wykorzystuję:
#!/usr/bin/perl
use Device::Gsm;
my $gsm = Device::Gsm->new( port=>'/dev/ttyS1', log=>'syslog' );
$gsm->connect() or die "Błąd połączenia";
$gsm->register();
$gsm->send_sms(
recipient => '+48numer_telefonu',
content => 'tresc_smsa'
);
Takie proste, a działa :-). Teraz czas pomyśleć nad jakimś poważniejszym zastosowaniem :-).
