Bonjour,
j ai un petit soucis avec un script perl:
je veux utiliser la fonction avq de avmailgate qui permet de retourner les virus qui sont en quarantaine.
donc voici le script:
#!/usr/bin/perl -w
package esmith::FormMagick::Panel::test;
use strict;
use Exporter;
use esmith::FormMagick;
use esmith::cgi;
use esmith::TestUtils;
our @ISA = qw(esmith::FormMagick Exporter);
our @EXPORT = qw(showquarantaine);
sub new
{
shift;
my $self = esmith::FormMagick->new();
$self->{calling_package} = (caller)[0];
bless $self;
return $self;
}
sub showquarantaine
{
my $self = shift;
my $q = $self->{cgi};
$ENV{PATH} = "/bin:/usr/bin:/usr/sbin:/sbin";
delete @ENV{'IFS','CDPATH','ENV','BASH_ENV'};
my $path = $ENV{'PATH'};
system("avq");
return;
}
Le probleme si je l execute sous root dans la console sa me retourne bien le retour de la commande.
Cad que avq va bien lire le rep /var/spool/avmailgate tout seul comme un grand.
Par contre dans l interface web j ai l impression qu il execute le truc dans le repertoire /etc/e-smith/web/functions/ donc sa pose probleme et le soft ne veu pas fonctionner correctement.
Y a t il une solution???