#!/usr/bin/perl -w
use strict;
use BerkeleyDB;
my (%tabla,@tabla);
my ($nombre,$valor);
sub PintaLinea
{
my ($mens,$valor)=@_;
print "| $mens | $valor |
\n";
}
print <
Estadisticas del antivirus CLAM, Universitat de Valencia
Estadísticas del antivirus CLAM
EOH
# Le indica al contadord que salve AHORA los contadores
open (FIFIFO,">/var/run/clamav/contador.fifo") or die;
print FIFIFO "SYNC\n";
close FIFIFO;
# Es lamentable, pero el "use BerkeleyDB"+tie es MUCHO más lento :-(
my $FIDB="/usr/local/etc/contador.db";
tie %tabla, 'BerkeleyDB::Hash',
-Filename => $FIDB,
or die "***Imposible abrir $FIDB: $BerkeleyDB::Error\n";
for ( sort { $tabla{$b} <=> $tabla{$a} } keys %tabla ) {
my $nombre=$_;
my $valor=$tabla{$nombre};
if ($nombre eq "inicio" or
$nombre eq "mensajes" or
$nombre eq "virus" or
$nombre eq "enviados" or
$nombre eq "descartados" or
$nombre eq "arranques" ) { next; }
else {
push @tabla,"$nombre:$valor";
}
}
print "";
if (defined $tabla{inicio} ) {
PintaLinea ("Inicio de la Estadistica: ", $tabla{inicio} );
}
print "
";
my $porcen=sprintf "%2.1f",($tabla{virus}*100)/$tabla{mensajes};
PintaLinea ("Mensajes Procesados", $tabla{mensajes});
PintaLinea ("Mensajes con virus", "$tabla{virus} | ($porcen%) | " );
PintaLinea ("... limpiados", $tabla{enviados});
PintaLinea ("... descartados", $tabla{descartados});
PintaLinea ("Arranques Milter", $tabla{arranques});
print "
-----------
\n";
for (@tabla) {
($nombre,$valor)=split ':';
PintaLinea ($nombre, $valor);
}
print <