Bonjour,
Je veux de l'aide, j'ai fait un script perl qui prend un fichier log fait des traitement et a la fin du traitement il doit prendre le resultat et l'envoyer par email (avec SENDMAIL) a l'adresse courier contenu dans la variable d'environnement SYSADMIN.
Je sais comment envoyer un courier normal avec sendmail en specifiant l'adresse de To ... , From... et les subjects,
Mais quel code pour recuperer l'adresse de SYSADMIN pour que l'envoie se fasse automatique et speciant ds le message la date te l'heure de l'enoie.

Merci


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/perl -w
 
 
$LOGFILE = "access.log";
open(LOGFILE) or die("Could not open log file.");
foreach $line (<LOGFILE>) {
 
    ($site, $logName, $fullName, $date, $gmt,
         $req, $file, $proto, $status, $length) = split(' ',$line);
    $time = substr($date, 13);
    $date = substr($date, 1, 11);
    $req  = substr($req, 1);
    chop($gmt);
    chop($proto);
    # do line-by-line processing.
}
close(LOGFILE);