Newsgroup: it.comp.lang.perl
Titolo: Invio E-mail

Tempo fa qualcuno aveva postato un metodo per inviare e-mail
attraverso le form con un cgi, purtroppo il mio HD è stato colpito da
"mal di testine" e ho perso tutti i messaggi del ng! :-(
Devo mandare una mail di conferma quando una persona compila una form.
Ho provato a scrivere un programma del tipo:
require HTTP::Request;
use LWP::UserAgent;
$ua = LWP::UserAgent->new();
$req = POST "mailto:$EMAIL" ,
[ From => "\"Servizio ML\" <a\@b.c>", Subject => "Comunicazione ML",
Messaggio => "$TESTO_MESSAGGIO_EMAIL" ];
$content = $ua->request($req)->as_string;	
Ma, nonostante non dia errori il messaggio non arriva mai.
Chi mi può aiutare spiegandomi dov'è l'errore o dicendomi come devo
fare?
Grazie
Andrea Busia

piu' semplicemente io farei...
open (MAIL, "| mail -s $subject $recipient") || die .....
print MAIL "\nTesto del messaggio di conferma\n";
close MAIL;

piu' semplicemente io farei...
Scusami, ma non hodetto che non ho accesso ai comandi di sistema.
Niente mail, sendmail et similia
Devo per forza usare una form.
Qualcuno mi puņ aiutare?
Ciao
Andrea

 Qualcuno mi puņ aiutare?
Se hai a disposizione un server SMTP, puoi collegarti direttamente a lui,
senza passare per sendmail.
Pare che il modulo Mail::Mailer possa fare al caso tuo, permettendo di
mandare messaggi usando quanto a disposizione (sendmail, mail o SMTP)
Prova a dargli un'occhiata.
Altrimenti vai sul brutale e comunica direttamente sulla socket (brrr!!!)
Maurizio
-- 
Maurizio M. Munafo' / 
mmmu...@usa.net
"Consider Phlebas, who was once handsome and tall as you" (T.S.Eliot)

...

Scusa, ma sul sito 
http://www.worldwidemart.com/scripts/
 puoi trovare un prg
FormMail che dovrebbe fare al caso tuo, o no ?
Salutoni
Nextto

FormMail che dovrebbe fare al caso tuo, o no ?
No perchč usa sendmail!
Il problema č questo: c'č qualcuno che mi sa dire come posso, con uno
script simile a questo o in altro modo, inviare una e-mail senza usare
i comandi mail-sendmail ecc. Non ho accesso a server smtp ecc. ecc.
oppure, in alternativa, come posso inviare dati a una form su internet
da uno script.
--------------------------------------------------
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
$ua = LWP::UserAgent->new();
my $req = POST "mailto\:$EMAIL" ,
[ From => "$FROM", Subject => "Comunicazione", Messaggio =>
"$TESTO_MESSAGGIO_EMAIL" ];
$content = $ua->request($req)->as_string;
--------------------------------------------------
Grazie
Andrea Busia

 No perchč usa sendmail!



Se puoi mandare gli e-mail da casa tua o dall'ufficio, allora dovresti
aver accesso ad un server smtp e poter usare Mail::Mailer
Il mio problema con il tuo approccio e' che sono abbastanza sicuro che 
mailto: sia un metodo eseguito dal client, non dal server, quindi non serve a
nulla spedire tale richiesta al server HTML.


am...@tin.it
 wrote:
 >Il problema è questo: c'è qualcuno che mi sa dire come posso, con uno
 >script simile a questo o in altro modo, inviare una e-mail senza usare
 >i comandi mail-sendmail ecc. Non ho accesso a server smtp ecc. ecc.
Se non hai accesso ha un server smtp e non puoi usare un MTA locale
allora devi necessariamente implementare un MTA completo in perl con
tanto di coda e ricerche nel DNS.
-- 
ciao, | [Per rispondere togli "toglimi" dal mio indirizzo.]
Marco | * The Internet is full. Go away.  -- Joel Furr *

: Il mio problema con il tuo approccio e' che sono abbastanza sicuro che 
: mailto: sia un metodo eseguito dal client, non dal server, quindi non serve a
: nulla spedire tale richiesta al server HTML.
Certo, il mailto e` un URL ed e` "seguito" dal client.
-- 
Nando Santagata: Telemastica & infornatica
Key fingerprint = C2 D9 C0 8E D5 B7 04 97  AF E8 3F 3E AF 4E 7F 9E
finger nando (at) ns (dot) ipers (dot) net   for my PGP public key
Home: 
http://www.ipers.net/~nandos

 tanto di coda e ricerche nel DNS.
se avesse accesso ad un SMTP remoto dall'ip del server non potrebbe
semplicemente creare un client? se il messaggio da spedire e' solo testo
sarebbe complesso farlo?


Si, ma mi sembra che non sia possibile.
 >sarebbe complesso farlo?
No, dovrebbero esserci almeno un paio di moduli gia` pronti.


Si, ma mi sembra che non sia possibile.
Ho risolto il rpoblema in maniera poco ortodossa, mando via
HTTP::Request il messaggio a una form per inviare messaggi. L'unico
problema è che la form risiede su un altro server e il programma è un
po' rallentato! Pazienza
Ciao
Andrea


		attenzione: rispondere solo a questo indirizzo!
 
	An NT server can be run by an idiot, and usually _is_.