J'aimerai récupérer ces lignes pour pouvoir me les envoyer par mail. S'il n'est pas nécessaire que ce soit beau (écrit à la volée, donc à
corriger, mais l'idée est là) :
open STDERR, "|/usr/sbin/sendmail -t"; print STDERR "To: "; print STDERR "From: n". print STDERR "Subject: Zut il y a une erreurn"; print STDERR "Mime-Version: 1.0nContent-Typetext/plain; (...)"
Le programme à la suite et un close à la fin.
-- Denis
Stephane Chazelas
2003/10/28, 11:39(+01), Denis -esp2008-:
J'aimerai récupérer ces lignes pour pouvoir me les envoyer par mail. S'il n'est pas nécessaire que ce soit beau (écrit à la volée, donc à
corriger, mais l'idée est là) :
open STDERR, "|/usr/sbin/sendmail -t"; print STDERR "To: "; print STDERR "From: n". print STDERR "Subject: Zut il y a une erreurn"; print STDERR "Mime-Version: 1.0nContent-Typetext/plain; (...)"
Mais ça enverra le message meme s'il n'y a pas d'erreur.
On peut réouvrir STDERR en mémoire:
# au début: close STDERR; open STDERR, '>', $variable;
# ...
# À la fin: if (length $variable) { open MAIL "|sendmail -t"; print MAIL "To: "; print MAIL "From: n". print MAIL "Subject: Zut il y a une erreurnn"; print MAIL $variable; close MAIL; }
J'aimerai récupérer ces lignes pour pouvoir me les envoyer par mail.
S'il n'est pas nécessaire que ce soit beau (écrit à la volée, donc à
corriger, mais l'idée est là) :
open STDERR, "|/usr/sbin/sendmail -t";
print STDERR "To: moi@moi.comn";
print STDERR "From: erreurs@localhost>n".
print STDERR "Subject: Zut il y a une erreurn";
print STDERR "Mime-Version: 1.0nContent-Typetext/plain; (...)"
Mais ça enverra le message meme s'il n'y a pas d'erreur.
On peut réouvrir STDERR en mémoire:
# au début:
close STDERR;
open STDERR, '>', $variable;
# ...
# À la fin:
if (length $variable) {
open MAIL "|sendmail -t";
print MAIL "To: moi@moi.comn";
print MAIL "From: erreurs@localhost>n".
print MAIL "Subject: Zut il y a une erreurnn";
print MAIL $variable;
close MAIL;
}
J'aimerai récupérer ces lignes pour pouvoir me les envoyer par mail. S'il n'est pas nécessaire que ce soit beau (écrit à la volée, donc à
corriger, mais l'idée est là) :
open STDERR, "|/usr/sbin/sendmail -t"; print STDERR "To: "; print STDERR "From: n". print STDERR "Subject: Zut il y a une erreurn"; print STDERR "Mime-Version: 1.0nContent-Typetext/plain; (...)"
Mais ça enverra le message meme s'il n'y a pas d'erreur.
On peut réouvrir STDERR en mémoire:
# au début: close STDERR; open STDERR, '>', $variable;
# ...
# À la fin: if (length $variable) { open MAIL "|sendmail -t"; print MAIL "To: "; print MAIL "From: n". print MAIL "Subject: Zut il y a une erreurnn"; print MAIL $variable; close MAIL; }
