| View previous topic :: View next topic |
| Author |
Message |
stuart
Guru
Joined: 27 Apr 2003
Posts: 552
|
 Posted: Sat Jan 01, 2005 7:04 pm Post subject: [tool] sms da linea di comando per alice e tin |
 |
|
bazzicando per i newsgroup ho trovato questo programmino per mandare sms da linea di comando per chi ha un abbonamento alice o tin (visto che ci sono 10 sms gratis al giorno per gli utenti delle adsl in questione)
è molto comodo, fate il conto che io non ne inviavo mai (pigrizia, non avevo voglia di andare sul sito ecc), ora basta aprire una shell
ho chiesto il permesso all'autore per postarlo sul forum e visto che era contento ecco la home page dove potrete scaricarlo e provarlo:
http://www.marzocca.net/linux/alicetinsms.html
_________________
Pochissime persone crescono. La maggior parte della gente invecchia. |
|
| Back to top |
|
 |
[hammerfall]
Apprentice
Joined: 27 May 2004
Posts: 243
|
| Posted: Sat Jan 01, 2005 7:07 pm Post subject: |
|
|
 bello! stasera lo provo ^_^
_________________
--------
Hammerfall ^_^ |
|
| Back to top |
|
|
ProT-0-TypE
Veteran
Joined: 20 Dec 2003
Posts: 1624
Location: Cagliari
|
| Posted: Sat Jan 01, 2005 8:30 pm Post subject: |
|
|
ufff non mi funziona :'(
Errore restituito:
| Code: | $ alicesms 34* ******* 'prova'
Can't locate LWP/UserAgent.pm in @INC (@INC contains: /etc/perl /usr/lib/perl5/site_perl/5.8.5/i686-linux /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl/5.8.4 /usr/lib/perl5/site_perl/5.8.4/i686-linux /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.5/i686-linux /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4 /usr/lib/perl5/vendor_perl/5.8.4/i686-linux /usr/lib/perl5/vendor_perl /usr/lib/perl5/5.8.5/i686-linux /usr/lib/perl5/5.8.5 /usr/local/lib/site_perl /usr/lib/perl5/site_perl/5.8.4 /usr/lib/perl5/site_perl/5.8.4/i686-linux .) at /usr/bin/alicesms line 40.
BEGIN failed--compilation aborted at /usr/bin/alicesms line 40.
|
|
|
| Back to top |
|
|
tocas
Apprentice
Joined: 01 Jan 2004
Posts: 280
Location: 43°50'-10°27'
|
| Posted: Sat Jan 01, 2005 9:54 pm Post subject: |
|
|
| ProT-0-TypE wrote: | ufff non mi funziona :'(
Errore restituito:
| Code: | $ alicesms 34* ******* 'prova'
Can't locate LWP/UserAgent.pm in @INC (@INC contains: /etc/perl /usr/lib/perl5/site_perl/5.8.5/i686-linux /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl/5.8.4 /usr/lib/perl5/site_perl/5.8.4/i686-linux /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.5/i686-linux /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4 /usr/lib/perl5/vendor_perl/5.8.4/i686-linux /usr/lib/perl5/vendor_perl /usr/lib/perl5/5.8.5/i686-linux /usr/lib/perl5/5.8.5 /usr/local/lib/site_perl /usr/lib/perl5/site_perl/5.8.4 /usr/lib/perl5/site_perl/5.8.4/i686-linux .) at /usr/bin/alicesms line 40.
BEGIN failed--compilation aborted at /usr/bin/alicesms line 40.
|
|
Ti mancano i moduli del pacchetto libwww-perl, lo trovi anche in portage.
| Code: | # emerge -s libwww-perl
Searching...
[ Results for search key : libwww-perl ]
[ Applications found : 1 ]
* dev-perl/libwww-perl
Latest version available: 5.79
Latest version installed: 5.79
Size of downloaded files: 219 kB
Homepage: http://cpan.org/modules/by-module/WWW/libwww-perl-5.79.readme
Description: A collection of Perl Modules for the WWW
License: || ( Artistic GPL-2 )
|
Oppure puoi scaricarlo direttamente da cpan.org e seguire la procedura standard di installazione dei moduli perl.
Antonio
---- |
|
| Back to top |
|
|
socrat3
n00b
Joined: 10 Jul 2004
Posts: 38
|
| Posted: Sun Jan 02, 2005 2:08 am Post subject: |
|
|
Ma esiste uno script per l'invio dal servizio gratuito vodafone?
thx
cmq il programma e' ottimo |
|
| Back to top |
|
|
ProT-0-TypE
Veteran
Joined: 20 Dec 2003
Posts: 1624
Location: Cagliari
|
| Posted: Sun Jan 02, 2005 5:22 am Post subject: |
|
|
| tocas wrote: |
Ti mancano i moduli del pacchetto libwww-perl, lo trovi anche in portage.
|
Ora funziona thank you! |
|
| Back to top |
|
|
Crema83
Apprentice
Joined: 06 Oct 2004
Posts: 207
Location: Settimo Milanese (MI)
|
| Posted: Sun Jan 02, 2005 10:23 am Post subject: |
|
|
| socrat3 wrote: | Ma esiste uno script per l'invio dal servizio gratuito vodafone?
thx
cmq il programma e' ottimo |
Anche io sto cercando uno script del genere... Un mio amico l'aveva creato xò ora è in ferie  !!!
Appena torna me lo faccio passare...
_________________
Cream
" We live as we dream : ALONE " |
|
| Back to top |
|
|
Tiro
l33t
Joined: 14 Feb 2003
Posts: 752
Location: italy
|
| Posted: Sun Jan 02, 2005 1:21 pm Post subject: |
|
|
veramente interessante! ..stò già emergiando libperl! 
grazie mille per la segnalazione ! |
|
| Back to top |
|
|
Tiro
l33t
Joined: 14 Feb 2003
Posts: 752
Location: italy
|
| Posted: Sun Jan 02, 2005 1:47 pm Post subject: |
|
|
| perfetto! |
|
| Back to top |
|
|
Crema83
Apprentice
Joined: 06 Oct 2004
Posts: 207
Location: Settimo Milanese (MI)
|
| Posted: Sun Jan 02, 2005 1:54 pm Post subject: |
|
|
Veramente grandioso...
Ora provo a fare qlc per lo script x vodafone ... se nel frattempo qualcuno rimedia qlc posti pure !!!
_________________
Cream
" We live as we dream : ALONE " |
|
| Back to top |
|
|
silverfix
Tux's lil' helper
Joined: 19 Mar 2003
Posts: 146
Location: born: Foggia - now: Bari
|
| Posted: Sun Jan 02, 2005 2:10 pm Post subject: |
|
|
davvero praticissimo!
solo una cosa, qualcuno sa come modificare lo script per omettere il +39 davanti al numero ?
_________________
SilverFix - a happy Linux user! |
|
| Back to top |
|
|
neon
l33t
Joined: 04 Aug 2003
Posts: 759
Location: Catania, Italy, Europe
|
| Posted: Sun Jan 02, 2005 2:47 pm Post subject: |
|
|
| Crema83 wrote: | | socrat3 wrote: | Ma esiste uno script per l'invio dal servizio gratuito vodafone?
thx
cmq il programma e' ottimo |
Anche io sto cercando uno script del genere... Un mio amico l'aveva creato xò ora è in ferie !!!
Appena torna me lo faccio passare... |
https://forums.gentoo.org/viewtopic.php?p=1769701#1769701
_________________
Io credo che le tecnologie siano moralmente neutrali fino a quando non le utilizziamo - William Gibson
LINEE GUIDA DEL FORUM |
|
| Back to top |
|
|
Tiro
l33t
Joined: 14 Feb 2003
Posts: 752
Location: italy
|
| Posted: Sun Jan 02, 2005 3:11 pm Post subject: |
|
|
| Quote: |
solo una cosa, qualcuno sa come modificare lo script per omettere il +39 davanti al numero ? |
io ho risolto così:
| Code: | $number = $ARGV[0];
$text = $ARGV[1];
$pre = "+39";
$number = $pre.$number;
|
|
|
| Back to top |
|
|
Tiro
l33t
Joined: 14 Feb 2003
Posts: 752
Location: italy
|
| Posted: Sun Jan 02, 2005 3:14 pm Post subject: |
|
|
| anche se riconosco che è una soluzione molto limitata... |
|
| Back to top |
|
|
Crema83
Apprentice
Joined: 06 Oct 2004
Posts: 207
Location: Settimo Milanese (MI)
|
| Posted: Sun Jan 02, 2005 3:29 pm Post subject: |
|
|
| Tiro wrote: |
io ho risolto così:
| Code: | $number = $ARGV[0];
$text = $ARGV[1];
$pre = "+39";
$number = $pre.$number;
|
|
Sicuro che ti vada??? Scusa ma il prefisso +39 non va anteposto a $prefix ???
_________________
Cream
" We live as we dream : ALONE " |
|
| Back to top |
|
|
Tiro
l33t
Joined: 14 Feb 2003
Posts: 752
Location: italy
|
| Posted: Sun Jan 02, 2005 4:03 pm Post subject: |
|
|
| provare per credere... |
|
| Back to top |
|
|
GhePeU
Guru
Joined: 12 Aug 2003
Posts: 549
Location: Mestre, Italy
|
| Posted: Sun Jan 02, 2005 5:04 pm Post subject: |
|
|
modifica per modifica, io ho aggiunto questa condizione
| Code: | if (length($text) > 142) {
print STDERR "Testo troppo lungo! rimuovere ", length($text) - 142, " caratteri", "\n";
exit 1;
} |
che segnala quando si mandano sms troppo lunghi (nel mio caso max 142 caratteri), altrimenti partivano lo stesso e arrivavano troncati
il mio numero massimo risulterebbe 160 - (lunghezza dell'indirizzo email + 3), se è così per tutti e non è invece fisso a 142 caratteri (ovviamente non ho altri indirizzi tin.it a pagamento per verificare ) ci vuol poco a generalizzare la cosa
_________________
That is not dead which can eternal lie,
and with strange aeons even death may die.
Last edited by GhePeU on Sun Jan 02, 2005 5:30 pm; edited 3 times in total |
|
| Back to top |
|
|
Dece
Apprentice
Joined: 23 Nov 2004
Posts: 291
Location: Bologna/Rimini Italy
|
| Posted: Sun Jan 02, 2005 5:06 pm Post subject: |
|
|
funziona perfettamente
e io che non sapevo neanche di avere sms gratis....  |
|
| Back to top |
|
|
Crema83
Apprentice
Joined: 06 Oct 2004
Posts: 207
Location: Settimo Milanese (MI)
|
| Posted: Sun Jan 02, 2005 6:29 pm Post subject: |
|
|
| GhePeU wrote: | modifica per modifica, io ho aggiunto questa condizione
| Code: | if (length($text) > 142) {
print STDERR "Testo troppo lungo! rimuovere ", length($text) - 142, " caratteri", "\n";
exit 1;
} |
che segnala quando si mandano sms troppo lunghi (nel mio caso max 142 caratteri), altrimenti partivano lo stesso e arrivavano troncati
il mio numero massimo risulterebbe 160 - (lunghezza dell'indirizzo email + 3), se è così per tutti e non è invece fisso a 142 caratteri (ovviamente non ho altri indirizzi tin.it a pagamento per verificare ) ci vuol poco a generalizzare la cosa |
Quoto in pieno... il numero max di caratteri = 160 - (lunghezza dell'indirizzo email + 3) !!!
Anche da me è così !!!!!!!!
_________________
Cream
" We live as we dream : ALONE " |
|
| Back to top |
|
|
GhePeU
Guru
Joined: 12 Aug 2003
Posts: 549
Location: Mestre, Italy
|
| Posted: Sun Jan 02, 2005 6:45 pm Post subject: |
|
|
| Code: |
--- tinsms 2005-01-02 20:18:03.638265368 +0100
+++ tinsms 2005-01-02 20:22:22.113971088 +0100
@@ -25,6 +25,11 @@
# inserita compatibilita' debian woody-sarge-sid
#
#
+# v.1.2.1b (forums.gentoo.org) - 02 gennaio 2004
+# inseriti prefisso +39 automatico e controllo sulla lunghezza
+# massima del messaggio
+#
+#
#Please change $userid and $password variables with your data!
#
# -----------------------------------------------------------------
@@ -32,7 +37,7 @@
$userid='...........@tin.it'; #<---------modificare!!! es: 'mario@tin.it'
$password='...........'; #<-----------modificare!!!
-$version = '1.2.1';
+$version = '1.2.1b';
$ua=""; #the browser
$res="";
$LogOff = "http://communicator.virgilio.it/AAA/sign_out.htm";
@@ -40,6 +45,7 @@
$NOTOK= 0;
$number ="";
$text = "";
+$maxtext ="";
use LWP::UserAgent;
@@ -51,12 +57,15 @@
$usage = 'tinsms v. '.$version.'
uso: tinsms numero \'messaggio da inviare\'
-NOTA: il numero deve essere comprensivo di prefisso internazionale.
-Esempio: tinsms +3934011111111 \'Arrivo fra 10 minuti.\'
+NOTA: il numero deve essere comprensivo di prefisso.
+Esempio: tinsms 34011111111 \'Arrivo fra 10 minuti.\'
';
$number = $ARGV[0];
$text = $ARGV[1];
+$pre = "+39";
+$number = $pre.$number;
+$maxtext = 160 - (length($userid) + 3);
if (@ARGV < 2) {
@@ -64,6 +73,11 @@
exit 1;
}
+if (length($text) > $maxtext) {
+ print STDERR "Testo troppo lungo! rimuovere ", length($text) - $maxtext, " caratteri", "\n";
+ exit 1;
+}
+
&Authenticate();
if (&InviaSMS() == $NOTOK)
{ print "Messaggio non inviato...\n"; }
|
_________________
That is not dead which can eternal lie,
and with strange aeons even death may die.
Last edited by GhePeU on Sun Jan 02, 2005 7:28 pm; edited 1 time in total |
|
| Back to top |
|
|
Tiro
l33t
Joined: 14 Feb 2003
Posts: 752
Location: italy
|
| Posted: Sun Jan 02, 2005 7:11 pm Post subject: |
|
|
| Quote: |
che segnala quando si mandano sms troppo lunghi (nel mio caso max 142 caratteri), altrimenti partivano lo stesso e arrivavano troncati |
sms + indirizzo mail (troncato)
sms (troncato) + indirizzo mail
 |
|
| Back to top |
|
|
GhePeU
Guru
Joined: 12 Aug 2003
Posts: 549
Location: Mestre, Italy
|
| Posted: Sun Jan 02, 2005 7:28 pm Post subject: |
|
|
testo troncato al X carattere + spazio + indirizzo email completo
_________________
That is not dead which can eternal lie,
and with strange aeons even death may die. |
|
| Back to top |
|
|
Dece
Apprentice
Joined: 23 Nov 2004
Posts: 291
Location: Bologna/Rimini Italy
|
| Posted: Sun Jan 02, 2005 7:56 pm Post subject: |
|
|
Ma dato che i messaggi sono gratuiti, perchè non splittare un testo troppo lungo in più sms?
Premetto una cosa: io non conosco per niente il perl, ho solo guardato un attimo il man e aggiunto due righe di codice, se ho scritto qualche cavolata chiedo scusa in anticipo:
| Code: | $prefix = "+39";
$number = $prefix.$ARGV[0];
$text = $ARGV[1];
$len = length($text);
$maxtext = 160 - (length($userid) + 3);
if (@ARGV < 2) {
print STDERR $usage, "\n";
exit 1;
}
&Authenticate();
while ( $len > 0 ) {
if (&InviaSMS() == $NOTOK) {
print "Messaggio non inviato...\n";
$len=0;
}
else {
print "Messaggio inviato con successo!\n";
if ( $len > $maxtext ) {
$len -= $maxtext;
$s = substr($text,$maxtext,$len);
$text = $s;
}
else {
$len=0;
}
}
}
$ua->get($LogOff); |
Da me ha funzionato, solo che il secondo messaggio mi è arrivato dopo mezzora... forse bisogna inserire nel ciclo anche &Authenticate() e l'ultima riga... |
|
| Back to top |
|
|
shev
Bodhisattva
Joined: 03 Feb 2003
Posts: 4084
Location: Italy
|
| Posted: Sun Jan 02, 2005 9:29 pm Post subject: |
|
|
Ovviamente state mandando le vostre patch all'autore originale, giusto? Così ci guadagna tutta la comunità
p.s.: utilissimo questo programmino, nemmeno sapevo di avere sms gratuiti con la mia adsl. Ora ho il programmino su ogni pc e risparmio un po' di centesimi al giorno, funziona benissimo
_________________
Se per vivere ti dicono "siediti e stai zitto" tu alzati e muori combattendo |
|
| Back to top |
|
|
stuart
Guru
Joined: 27 Apr 2003
Posts: 552
|
| Posted: Sun Jan 02, 2005 9:58 pm Post subject: |
|
|
| shev wrote: | Ovviamente state mandando le vostre patch all'autore originale, giusto? Così ci guadagna tutta la comunità
|
non appena ho postato il messaggio gli ho mandato il link del thread via email
_________________
Pochissime persone crescono. La maggior parte della gente invecchia. |
|
| Back to top |
|
|
|
Forum italiano (Italian) 
