-+  Associazione
-+  Documenti
 |-  Modern Perl
 |-  Bibliografia
 |-  Articoli
 |-  Talk
 |-  Perlfunc
 |-  F.A.Q.
 |-  F.A.Q. iclp
-+  Eventi
-+  Community
-+  Blog
-+  Link
Corso di Perl



 


CGI

[4] Come si fa, usando sendmail, a mettere un file in attach ad una mail?

Sui sistemi unix un modo E questo:

#!/usr/bin/perl

use strict;

my $sendmail="/usr/bin/sendmail"; #percorso di sendmail

open(MAIL, "| $sendmail ") or die "$!";

my $nome_allegato="mioallegato.dat"; #nome dell'allegato
my $type = "APPLICATION/octet-stream" #tipo dell'allegato;
my $path = "/home/utente/"; #percorso
my $text = "Testo dell'email"; #testo dell'email

open (ATTACH, "cat $path$nome_allegato | mimencode |") or die "$!";

print MAIL "To: to@sito.net\n";
print MAIL "Cc: cc@sito.net\n";
print MAIL "From: from@sito.net\n";
print MAIL "Subject: oggetto\n";

print MAIL "MIME-Version: 1.0\n";
print MAIL "Content-Type: multipart/mixed; boundary="8=--"\n";
print MAIL "\n";
print MAIL "--8=--\n";
print MAIL "\n";
print MAIL "$text\n";
print MAIL "\n";
print MAIL "--8=--\n";
print MAIL "Content-Type: $type\n";
print MAIL "Content-Transfer-Encoding: BASE64\n";
print MAIL "Content-Disposition: attachment; filename=\"$nome_allegato\"\n";
print MAIL "\n";

while () {print MAIL} close ATTACH;

print MAIL "\n";
print MAIL "\n";
print MAIL "--8=----\n"

close( MAIL );

indietro

AUTORE E COPYRIGHT

Copyright (©) 2000 -> 2003 Nordest Perl Mongers.

Questa documentazione è libera; puoi ridistribuirla e/o modificarla secondo gli stessi termini applicati al Perl.

Indipendentemente dalle modalità di distribuzione, tutti gli esempi di codice in questo file sono rilasciati al pubblico dominio. Potete, e siete incoraggiati a farlo, utilizzare il presente codice o qualunque forma derivata da esso nei vostri programmi per divertimento o per profitto. Un semplice commento nel codice che dia riconoscimento alle FAQ sarebbe cortese ma non è obbligatorio.

D:
Progetti e documenti in rilievo
Corso di Perl Progetto pod2it
D:
La ML di Perl.it
mongers@perl.it è la lista ufficiale di Perl Mongers Italia per porre quesiti di tipo tecnico, per rimanere aggiornato su meeting, incontri, manifestazioni e novità su Perl.it.
Iscriviti!
D:
Annunci Google