#!/usr/bin/perl -w
#Script que agafa de $config un llistat de paquets
#i ens envia a un e-mail via un servidor smtp 
#el seu md5sum junt amb un md5sum general
#IMPORTANT que al fitxer de $config no tingui cap linia
#en blanc

use Mail::Sendmail;

$config='importants';
$from='is08139@salleurl.edu';
$to='is08139@salleurl.edu';
$smtp='columba.salleurl.edu';


$maquina="$ENV{HOSTNAME}"; 

(my $sec, my $min, my $hour, my $mday, my $mon, my $year, my $wday, my $yday, my $isdst)=localtime (time);
open (FITXER,$config) or die "No puc obrir $config";
open (TEMP,">/tmp/$0.$$");
$var="";
while (<FITXER>) {
	$temp=`md5sum $_`;
	print TEMP $var;
	$var.=$temp;
}
close TEMP;

$var.="\nEnviat: $hour:$min:$sec $mday/$mon/$year\n";
$general=`md5sum /tmp/$0.$$`;
@gen=split /\ / ,$general;

$mail{From}="<".$from.">";
$mail{To}=$to;
$mail{Subject}="Mail de seguretat de $maquina. ".$gen[0];
$mail{smtp}=$smtp;
$mail{Message}=$var;

Mail::Sendmail::sendmail(%mail) or die "No puc enviar mail";

unlink "/tmp/$0.$$";