Re: rossoalice e debian

[Maurizio Manetti <maurizio@manetti.homelinux.com>]

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;
	}

}