Newsgroup: it.comp.lang.perl
Titolo: Invio di più mail con Perl/CGI

Salve a tutti!
Dunque, il problema che mi capita quando tento di inviare due
mail diverse con FormMail (sto adattando quello) è un
"internal error" e l'interruzione dello script.
Ciò che voglio fare è inviare un form in mailbox (e questo
funziona) e una mail di sottoscrizione (quindi mi servono
semplicemente le variabili della mail di chi compila il
form) che punti alla mia mailing list.
Per far ciò ho pensato di dover aprire due sessioni di
mail e scrivere quello che mi serve separatamente (in
Cold Fusion funziona così, ma sono poco pratico di CGI).
Vi allego parte del codice:
-----------------------------------------------------------------------------
sub send_subscribe {
    # Open The Mail Program
    open(SUBSCRIBE,"|$mailprog -t");
    # Localize variables used in this subroutine.                            #
    local($env_report);
 
    print SUBSCRIBE "To: 
indirizz...@server.it
\n";
    print SUBSCRIBE "From: $Config{'email'}\n";
	print SUBSCRIBE "subscribe $Config{'email'}\n";
    # Send any specified Environment Variables to recipient.                 #
    foreach $env_report (@Env_Report) {
        if ($ENV{$env_report}) {
            print MAIL "$env_report: $ENV{$env_report}\n";
        }
    }
    close (SUBSCRIBE);
}
sub send_mail {
    # Localize variables used in this subroutine.                            #
    local($print_config,$key,$sort_order,$sorted_field,$env_report);
    # Open The Mail Program
    open(MAIL,"|$mailprog -t");
    print MAIL "To: $Config{'recipient'}\n";
    print MAIL "From: $Config{'email'} ($Config{'realname'})\n";
    # Check for Message Subject
    if ($Config{'subject'}) { print MAIL "Subject: $Config{'subject'}\n\n" }
    else                    { print MAIL "Subject: WWW Form Submission\n\n" }
    print MAIL "*" x 72 . "\n\n";
-----------------------------------------------------------------------------
Cosa sbaglio?
Grazie a chi mi vuole aiutare!
Bai!
-- 
((( Bazzmann Site Labs©  -- "Sounds Good, Go Better." )))
..: Internet & Comunicazione  :::  Grafica & Immagine :..
..: 
http://bazzmann.xs3.com
   :::  bazzmann(at)
tin.it
 :..
______________________________________________________________________
Leggenda narra che...
"Vi sono degli stati sociali in cui governano i piu' intelligenti:
 e' il caso dei babbuini".
( Konrad Lorenz )

     print SUBSCRIBE "To: 
indirizz...@server.it
\n";
      print SUBSCRIBE "To: indirizzo_mailing\@
server.it
\n"
Nota la backslash.
Casomai, per vedere gli errori del codice, fallo girare direttamente
dall'interprete prima di implementarlo come CGI.
Ciao
M.

 dall'interprete prima di implementarlo come CGI.
Lo script gira direttamente con estensione .pl, il CHMOD è 755
e lo copio come ASCII e non binario...
Non capisco...


 Non capisco...
Ti suggerivo di non utilizzarlo come CGI, ma di testarlo in locale sulla
tua macchina come normale script Perl. L'interprete ti dirà gli
(eventuali) errori presenti nello script.
Ciao

 Ti suggerivo di non utilizzarlo come CGI, ma di testarlo in locale sulla
Purtroppo lavoro su un portatilino con PWS montato, se ci monto anche
il Perl scoppia! ;c) Mi tocca testarlo online...
-- 
((( Bazzmann Site LabsŠ  -- "Sounds Good, Go Better." )))
..: Internet & Comunicazione  :::  Grafica & Immagine :..
..: 
http://bazzmann.xs3.com
   :::  bazzmann(at)
tin.it
 :..
______________________________________________________________________
Leggenda narra che... "MANUALE DI AUTOSTIMA"
"Sono un mirabile incrocio tra Tarzan e Giacomo Leopardi. 
 In me convivono tutte le doti intellettuali di Tarzan e
 tutta la prestanza fisica di Giacomo Leopardi". 
(Ambrogio Borsani)