passage automatique de l'an...

#!/usr/bin/perl

use strict;

use Linux::Inotify2;
use Desktop::Notify;

# remplacer $HOME par le répertoire à utiliser
use constant NAME_CONFDIR => '$HOME/download';

# Creation d'une instance inotify
my $inotify = new Linux::Inotify2 or &error("Impossible de creer une nouvelle instance inotify : %m");
my $notify = new Desktop::Notify or  &error("Impossible de creer une nouvelle instance Desktop::Notify : %m");
# Mise sous surveillance du repertoire

my $watch = $inotify->watch(NAME_CONFDIR, IN_CREATE | IN_DELETE ) or &error("La creation de l'observateur a echoue : %m");

# Sera appele a la fin du programme
sub fin {
    $watch->cancel;
    exit 0;
}

# Logue les erreurs graves et met fin au programme
sub error {
    &fin;
}

#envoid d'un mail en cas de problème
sub avertir {
    ( my $action)=@_;
    
    if (!open(MAIL,"|mail -s ' ($action)' adresse@e.mail")){
	print "Erreur : Probleme pour l'envoi du mail";
	die "Suicide" ;
    }
    printf MAIL "$action ankou\n";
    close (MAIL);
}

# Les signaux pour intercepter la fin du programme et la rendre effective proprement
$SIG{'TERM'} = \&fin;

avertir("Lancement du programme virusautoscan");

# Boucle infinie ayant pour but de recuperer les evenements
while (1) {
    my @events = $inotify->read;
    unless (@events > 0) {
        #syslog LOG_WARNING, "erreur sur read: %m";
        last;
    }
    foreach (@events) {
	if($_->mask == IN_CREATE){
	    my $fichier = $_->fullname;
	    my $scanreport = "scan du fichier : $fichier\n";
	    
	    open SCANREPORT, "clamscan $fichier |";
	    while( my $ligne = <SCANREPORT>){
		$scanreport .= "$ligne";
	    }
	    
	    close SCANREPORT;
	    my $note = $notify->create(
		timeout => 30000,
		body => "$scanreport"
	    );
	    $note->show;
	    $scanreport = "";
        }
    }
}

avertir("Arret du programme notify");