$font
Le téléchargement d\'un ou plusieurs fichiers à échoué. Les raisons retournées par le script sont:
$failed
~;
if($success[0]){
# envoi un email si une adresse email est disponible ($notify)
if(check_email($notify)){
# le message qui sera envoyé :
my $message = qq~
Les fichiers suivants ont été téléchargés sur le serveur :
~;
$folder =~ s/(\/|\\)$//ig;
foreach(@success){
$message .= qq~
$folder/$_
~;
}
$CONFIG{mailprogram} = $send_mail_path;
# (from e-mail, from name, to e-mail, to name, subject, body)
&send_mail($notify, 'ResooUpload serveur', $notify, 'ResooUpload admin', 'Rapport ResooUpload', $message);
}
print qq~
Les fichiers suivants ont été téléchargés avec succès sur le serveur :
~;
foreach(@success){
print qq~
$_~;
}
}
print qq~
$finfont |