Topic: A propos de perl dans linterface web

[julos]

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???

[MasterSleepy]

Salut,

Essaye de modifier ton script pour qu'il aye les droit 4750.
Et modifie aussi l'appele

Code: [Select]


system("avq");


Pour inclure le chemin.

A+