Mais um blog inútil.

Ora viva!

No natal passado a minha fc ofereceu-me um “Vodafone Vita Net”. Que inclui este modem USB. A malandrice é que em OSX (onde costumo usar) e OpenBSD não há maneira de ler as sms que nos são enviadas pela Vodafone a dizer ate quando dura o serviço, quantos megabytes temos, etc. Já andava com esta fisgada há muito tempo então decidi fazer um programinha que se ligasse ao modem por serie, mandasse os comandos AT que listam as sms, e mostrasse duma forma pipi.

Decidi usar perl, porque já vem por default no OSX e no OpenBSD. Tive foi de usar um modulo extra do perl que não vem na base, o Device::Modem para conseguir comunicar com o modem.

Para instalar este modulo em OpenBSD basta instalar o comms/p5-Device-Modem. E no OSX o mais facil é chamar a shell do CPAN “perl -MCPAN -e shell” e depois lá “install Device::Modem” e responder que sim ao que ele pergunta.

Também uso o comando “stty”, mas existe em OpenBSD como em OSX portanto não há dramas. Uso-o para apanhar o numero de colunas do terminal, para o output se adaptar à largura.

No inicio do ficheiro estão duas variáveis que devem ser preenchidas correctamente, o $pin e o $device. Ah… e tem que ser corrido como root, ou então dar permissão ao device de alguma forma, eu não sei como.

Futuramente, talvez adicione opções para eliminar sms e também para enviar.

Sem mais demoras, aqui está o sms.pl - Licença BSD.

Aqui vão os screenshots obrigatórios.