#!/usr/bin/perl
#
#
# surveille si un fichier existe, si oui l'envoir par email, en fait une copie 
# et l'efface
#
#
$version="1.00b";
#
# (c) 1998 Emmanuel PIERRE
#          epierre@e-nef.com
#          http://www.e-nef.com/users/Emmanuel.PIERRE
#
$fic	= "/var/spool/mail/toto";
$email	= "root@localhost";
#
# quelques variables pour la date:
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
@semaine=qw(Lundi Mardi Mercredi Jeudi Vendredi Samedi Dimanche);
@annee=qw(Janvier Fevrier Mars Avril Mai Juin Juillet Aout Septembre Octobre Novembre Decembre);
if ($year<97) { 	
	$siecle="20";
} else { 
	$siecle="19";
}

if ($min<10) { 
	$lezero="0";
} else { 
	$lezero="";
}

# a-t-on des demandes ??
if (-e "$fic") {

	open(FIC,"$fic");
	open(MAIL,"|/usr/sbin/sendmail $email");
	print MAIL "Subject: Demandes de documentation au $mday $annee[$mon] $siecle$year\n\n";
	while (<FIC>) {
		print MAIL $_;
	}
	print MAIL "\n\n\t\t l'equipe Web\n";
	close(FIC);
	close(MAIL);
}

`cat $fic >> $fic.old`;
`rm -f $fic`;