Gentoo Forums
Gentoo Forums
Gentoo Forums
Quick Search: in
[tool] sms da linea di comando per alice e tin
View unanswered posts
View posts from last 24 hours
View posts from last 7 days

Goto page 1, 2, 3, 4, 5  Next  
Reply to topic    Gentoo Forums Forum Index Forum italiano (Italian) Risorse italiane (documentazione e tools)
View previous topic :: View next topic  
Author Message
stuart
Guru
Guru


Joined: 27 Apr 2003
Posts: 552

PostPosted: Sat Jan 01, 2005 7:04 pm    Post subject: [tool] sms da linea di comando per alice e tin Reply with quote

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
View user's profile Send private message
[hammerfall]
Apprentice
Apprentice


Joined: 27 May 2004
Posts: 243

PostPosted: Sat Jan 01, 2005 7:07 pm    Post subject: Reply with quote

:D bello! stasera lo provo ^_^
_________________
--------

Hammerfall ^_^
Back to top
View user's profile Send private message
ProT-0-TypE
Veteran
Veteran


Joined: 20 Dec 2003
Posts: 1624
Location: Cagliari

PostPosted: Sat Jan 01, 2005 8:30 pm    Post subject: Reply with quote

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
View user's profile Send private message
tocas
Apprentice
Apprentice


Joined: 01 Jan 2004
Posts: 280
Location: 43°50'-10°27'

PostPosted: Sat Jan 01, 2005 9:54 pm    Post subject: Reply with quote

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
View user's profile Send private message
socrat3
n00b
n00b


Joined: 10 Jul 2004
Posts: 38

PostPosted: Sun Jan 02, 2005 2:08 am    Post subject: Reply with quote

Ma esiste uno script per l'invio dal servizio gratuito vodafone?

thx

cmq il programma e' ottimo
Back to top
View user's profile Send private message
ProT-0-TypE
Veteran
Veteran


Joined: 20 Dec 2003
Posts: 1624
Location: Cagliari

PostPosted: Sun Jan 02, 2005 5:22 am    Post subject: Reply with quote

tocas wrote:


Ti mancano i moduli del pacchetto libwww-perl, lo trovi anche in portage.



Ora funziona thank you!
Back to top
View user's profile Send private message
Crema83
Apprentice
Apprentice


Joined: 06 Oct 2004
Posts: 207
Location: Settimo Milanese (MI)

PostPosted: Sun Jan 02, 2005 10:23 am    Post subject: Reply with quote

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 :wink: !!!

Appena torna me lo faccio passare...
_________________
Cream

" We live as we dream : ALONE "
Back to top
View user's profile Send private message
Tiro
l33t
l33t


Joined: 14 Feb 2003
Posts: 750
Location: italy

PostPosted: Sun Jan 02, 2005 1:21 pm    Post subject: Reply with quote

veramente interessante! ..stò già emergiando libperl! :)
grazie mille per la segnalazione !
Back to top
View user's profile Send private message
Tiro
l33t
l33t


Joined: 14 Feb 2003
Posts: 750
Location: italy

PostPosted: Sun Jan 02, 2005 1:47 pm    Post subject: Reply with quote

perfetto! :)
Back to top
View user's profile Send private message
Crema83
Apprentice
Apprentice


Joined: 06 Oct 2004
Posts: 207
Location: Settimo Milanese (MI)

PostPosted: Sun Jan 02, 2005 1:54 pm    Post subject: Reply with quote

Veramente grandioso...

Ora provo a fare qlc per lo script x vodafone ... se nel frattempo qualcuno rimedia qlc posti pure !!!

8)
_________________
Cream

" We live as we dream : ALONE "
Back to top
View user's profile Send private message
silverfix
Tux's lil' helper
Tux's lil' helper


Joined: 19 Mar 2003
Posts: 146
Location: born: Foggia - now: Bari

PostPosted: Sun Jan 02, 2005 2:10 pm    Post subject: Reply with quote

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
View user's profile Send private message
neon
l33t
l33t


Joined: 04 Aug 2003
Posts: 759
Location: Catania, Italy, Europe

PostPosted: Sun Jan 02, 2005 2:47 pm    Post subject: Reply with quote

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 :wink: !!!

Appena torna me lo faccio passare...


http://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
View user's profile Send private message
Tiro
l33t
l33t


Joined: 14 Feb 2003
Posts: 750
Location: italy

PostPosted: Sun Jan 02, 2005 3:11 pm    Post subject: Reply with quote

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
View user's profile Send private message
Tiro
l33t
l33t


Joined: 14 Feb 2003
Posts: 750
Location: italy

PostPosted: Sun Jan 02, 2005 3:14 pm    Post subject: Reply with quote

anche se riconosco che è una soluzione molto limitata... ;)
Back to top
View user's profile Send private message
Crema83
Apprentice
Apprentice


Joined: 06 Oct 2004
Posts: 207
Location: Settimo Milanese (MI)

PostPosted: Sun Jan 02, 2005 3:29 pm    Post subject: Reply with quote

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
View user's profile Send private message
Tiro
l33t
l33t


Joined: 14 Feb 2003
Posts: 750
Location: italy

PostPosted: Sun Jan 02, 2005 4:03 pm    Post subject: Reply with quote

provare per credere... ;)
Back to top
View user's profile Send private message
GhePeU
Guru
Guru


Joined: 12 Aug 2003
Posts: 549
Location: Mestre, Italy

PostPosted: Sun Jan 02, 2005 5:04 pm    Post subject: Reply with quote

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
View user's profile Send private message
Dece
Apprentice
Apprentice


Joined: 23 Nov 2004
Posts: 291
Location: Bologna/Rimini Italy

PostPosted: Sun Jan 02, 2005 5:06 pm    Post subject: Reply with quote

funziona perfettamente :)
e io che non sapevo neanche di avere sms gratis.... :roll:
Back to top
View user's profile Send private message
Crema83
Apprentice
Apprentice


Joined: 06 Oct 2004
Posts: 207
Location: Settimo Milanese (MI)

PostPosted: Sun Jan 02, 2005 6:29 pm    Post subject: Reply with quote

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ì !!!!!!!! 8)
_________________
Cream

" We live as we dream : ALONE "
Back to top
View user's profile Send private message
GhePeU
Guru
Guru


Joined: 12 Aug 2003
Posts: 549
Location: Mestre, Italy

PostPosted: Sun Jan 02, 2005 6:45 pm    Post subject: Reply with quote

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
View user's profile Send private message
Tiro
l33t
l33t


Joined: 14 Feb 2003
Posts: 750
Location: italy

PostPosted: Sun Jan 02, 2005 7:11 pm    Post subject: Reply with quote

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
View user's profile Send private message
GhePeU
Guru
Guru


Joined: 12 Aug 2003
Posts: 549
Location: Mestre, Italy

PostPosted: Sun Jan 02, 2005 7:28 pm    Post subject: Reply with quote

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
View user's profile Send private message
Dece
Apprentice
Apprentice


Joined: 23 Nov 2004
Posts: 291
Location: Bologna/Rimini Italy

PostPosted: Sun Jan 02, 2005 7:56 pm    Post subject: Reply with quote

Ma dato che i messaggi sono gratuiti, perchè non splittare un testo troppo lungo in più sms? :wink:
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
View user's profile Send private message
shev
Bodhisattva
Bodhisattva


Joined: 03 Feb 2003
Posts: 4084
Location: Italy

PostPosted: Sun Jan 02, 2005 9:29 pm    Post subject: Reply with quote

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 :D
_________________
Se per vivere ti dicono "siediti e stai zitto" tu alzati e muori combattendo
Back to top
View user's profile Send private message
stuart
Guru
Guru


Joined: 27 Apr 2003
Posts: 552

PostPosted: Sun Jan 02, 2005 9:58 pm    Post subject: Reply with quote

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
View user's profile Send private message
Display posts from previous:   
Reply to topic    Gentoo Forums Forum Index Forum italiano (Italian) Risorse italiane (documentazione e tools) All times are GMT
Goto page 1, 2, 3, 4, 5  Next
Page 1 of 5

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum