St�phane Teletch�a a �crit :
>
> > Lancer un batch qui envoie ses r�sultats par mail, par exemple
> >
> D�sol� de m'introduire subrepticement dans la conversation, mais je suis
> int�ress� par le script qui envoie le mail ...
La liste n'est pas faite pour des conversations entre 4 zyeux
#!/usr/bin/perl
$mailprog= $Config{MailerProgram}; #"/usr/lib/sendmail";
sub envoi_batch {
myOpen(FBATCH,"> $fbatch");
print FBATCH @batch;
close(FBATCH);
chmod(0755,$fbatch);
system("echo '$fbatch |$mailprog -t'|batch" );
}
unless ($averti) {
print "$tr{'averti'}\n" ;
$averti=1;
push(@batch,"#!/bin/sh\n");
foreach $adresse (@Adresses) {
push(@batch,"echo 'To: $adresse'\n");
}
push(@batch,"echo 'From: $myemail'\n");
push(@batch,"echo 'Subject:Resultat du batch'\n");
} # Avertissement affich�
push(@batch,"echo '$tr{'zip-compres'} ${produit}'\n");
push(@batch,"$ZPATH/zip -r $fname ${produit}*\n");
Vous souhaitez acquerir votre Pack ou des Services MandrakeSoft?
Rendez-vous sur "http://www.mandrakestore.com";
