CDF ['NOSPAM' -> 'imeil'] wrote:
On Thu, 11 Nov 2004, The Saltydog wrote:
Non ho molto tempo... Mi sto dedicando ad altre cose ora e, sinceramente, la modifica che mi chiedi è di poco conto nella funzionalità del programma. Comunque, ho postato il sorgente nella ML quindi chiunque abbia un po' di pratica con Perl può modificarlo! E' lo sprito dell'Open Source...
Infatti è la pratica in Perl che mi manca, altrimenti l'avrei fatto io ...
Chi si offre volontario? :o)
A me Perl non m'è mai piaciuto, però è potente e questo script fa parecchio comodo anche a me.
Ecco la versione 0.2.1 con il numero di messaggi rimasti
#!/usr/bin/perl -w # SMS da Alice ADSL # --- Rosso Alice --- # # v. 0.2.1 - Fabio Marzocca - novembre 2004 per Debian Italian Mailing List # usage: alicesms prefisso numero "testo da inviare" (es: alicesms 348 1122321 "Buon giorno") # # Maurizio Manetti - 12 novembre 2004 # aggiunto numero di messaggi rimasti # # Inserisci il tuo userid e passwd nelle variabili $userid e $passwd # # Se vuoi inviare caratteri speciali (es: '!' exlamation point), # li devi far precedere da backslash, i.e.: "Ma che cavolo\!"
$userid="INSERISCI TUO NOME UTENTE"; #<---------------------- modificare!!!! $passwd="INSERISCI TUA PASSWORD"; #<---------------------- modificare!!! $ua=""; #the browser $res=""; $LogOff = "http://www.rossoalice.it/alice/portal/service/logout.do"; $OK = 1; $NOTOK= 0; $NUM_MSG = 10; use LWP::UserAgent; use HTTP::Cookies; use LWP::Simple; use HTML::Form; $prefix = $ARGV[0]; $number = $ARGV[1]; $text = $ARGV[2]; &Authenticate(); &InviaSMS(); $ua->get($LogOff); sub Authenticate() { $ua = LWP::UserAgent->new; $ua->cookie_jar(HTTP::Cookies->new('file'=>'aliceck.lwp', 'autosave'=>1,)); $res = $ua->get("http://www.rossoalice.it/alice/portal/login/entry.do?linkParam=true"); my @form = HTML::Form->parse($res); #$form[1]->dump; $form[1]->find_input('login')->readonly(0); $form[1]->find_input('password')->readonly(0); $form[1]->value('login', $userid); $form[1]->value('password', $passwd); $res = $ua->request($form[1]->click); # ------------------------------------------------ } sub InviaSMS() { $res = $ua->get('http://www.rossoalice.it/alice/portal/service/body/entry.do?service=sms'); my @form = HTML::Form->parse($res); $form[2]->find_input('prefisso')->readonly(0); $form[2]->find_input('numDest')->readonly(0); $form[2]->find_input('testo')->readonly(0); $form[2]->value('prefisso',$prefix); $form[2]->value('numDest', $number); $form[2]->value('testo',$text); $NUM_MSG = $form[0]->value('n-msg'); $res = $ua->request($form[2]->click); if ($res->content =~ />OK</) { $NUM_MSG --; print "Messaggio inviato!!\n"; print "Messaggi rimasti: $NUM_MSG\n"; return $OK; } else { print "Il messaggio non è stato inviato!!\n"; print "Messaggi rimasti: $NUM_MSG\n"; return $NOTOK; } }