Une aide sur une contrib sendmail, qtool.pl

3 réponses

Ninou

04/03/2004 à 10:23

Bonjour @Tous

J'aurais besoin d'une aide sur une contribution Sendmail écrite en Perl,
qtool.pl, sous Sun Solaris 8.

J'essais d'utiliser 'qtool' avec ces paramètres :

./qtool.pl -e '$msg->{message} = Deferred' /var/spool/mqueueold
/var/spool/mqueue

Bien sur cela ne fonctionne pas et j'obtiens les 'output' suivant:

Global symbol "$msg" requires explicit package name at (eval 1) line 1.
Bareword "Deferred" not allowed while "strict subs" in use at (eval 1)
line
2.
Bareword "Deferred" not allowed while "strict subs" in use at (eval 2)
line
2.
Bareword "Deferred" not allowed while "strict subs" in use at (eval 3)
line
2.
Bareword "Deferred" not allowed while "strict subs" in use at (eval 4)
line
2.
Bareword "Deferred" not allowed while "strict subs" in use at (eval 5)
line
2.

.... et plus encore.

et seulement ce message:

Global symbol "$msg" requires explicit package name at (eval 1) line 1.

Si j'utilise:
perl qtool.pl -e '$msg->{message} = Connection timed out with'
/var/spool/mqueueold /var/spool/mqueue

Quelqu'un serait en mesure de m'aider sur le sujet ??

Merci beaucoup pour toute votre aide, par avance
Ninou

3 réponses

Paul GABORIT

04/03/2004 à 14:06

À (at) Thu, 4 Mar 2004 09:23:55 +0000 (UTC),
Ninou écrivait (wrote):

J'aurais besoin d'une aide sur une contribution Sendmail écrite en Perl,
qtool.pl, sous Sun Solaris 8.

Il existe plusieurs versions de cette contribution.

Laquelle utilisez-vous ?
Avec quelle version de perl ?

Êtes-vous sûr de la syntaxe d'appel de ce script ?

--
Paul Gaborit - <http://www.enstimac.fr/~gaborit/>
Perl en français - <http://www.enstimac.fr/Perl/>

Ninou

04/03/2004 à 16:39

On 04 mars 2004, you wrote in fr.comp.lang.perl:

À (at) Thu, 4 Mar 2004 09:23:55 +0000 (UTC),
Ninou écrivait (wrote):
J'aurais besoin d'une aide sur une contribution Sendmail écrite en
Perl, qtool.pl, sous Sun Solaris 8.

Il existe plusieurs versions de cette contribution.

Laquelle utilisez-vous ?
$Id: qtool.pl,v 8.27 2002/01/29 21:55:49 ca Exp $

Avec quelle version de perl ?
version 5.005_03 built for sun4-solaris

Êtes-vous sûr de la syntaxe d'appel de ce script ?

Oui, je pense mais je ne suis pas sur, je me base aux notes dans le

fichier...;-)

Paul GABORIT

04/03/2004 à 17:03

À (at) Thu, 4 Mar 2004 09:23:55 +0000 (UTC),
Ninou écrivait (wrote):

J'aurais besoin d'une aide sur une contribution Sendmail écrite en Perl,
qtool.pl, sous Sun Solaris 8.

J'essais d'utiliser 'qtool' avec ces paramètres :

./qtool.pl -e '$msg->{message} = Deferred' /var/spool/mqueueold
/var/spool/mqueue

Après un rapide coup d'oeil sur les sources, je tenterais cela (sans garantie
car je n'ai pas de quoi tester) :

./qtool.pl -e '$msg{message} =~ m/Deferred/' /var/spool/mqueueold /var/spool/mqueue

perl qtool.pl -e '$msg->{message} = Connection timed out with'
/var/spool/mqueueold /var/spool/mqueue

Et pour cela :

./qtool.pl -e '$msg{message} =~ m/Connection timed out with/' /var/spool/mqueueold /var/spool/mqueue

En fait, l'argument de l'option '-e' est du code Perl sachant que '%msg' est
une table de hachage lié au fichier de contrôle d'un message. La liste des
champs est donné par :

'A' => 'auth',
'B' => 'body_type',
'C' => 'controlling_user',
'D' => 'data_file_name',
'd' => 'data_file_directory',
'E' => 'error_recipient',
'F' => 'flags',
'H' => 'parse_header',
'G' => 'queue_delay',
'I' => 'inode_number',
'K' => 'next_delivery_time',
'L' => 'content-length',
'M' => 'message',
'N' => 'num_delivery_attempts',
'P' => 'priority',
'Q' => 'original_recipient',
'R' => 'recipient',
'q' => 'quarantine_reason',
'r' => 'final_recipient',
'S' => 'sender',
'T' => 'creation_time',
'V' => 'version',
'Y' => 'current_delay',
'Z' => 'envid',
'!' => 'deliver_by',
'$' => 'macro',

--
Paul Gaborit - <http://www.enstimac.fr/~gaborit/>
Perl en français - <http://www.enstimac.fr/Perl/>

Une aide sur une contrib sendmail, qtool.pl

3 réponses

Veuillez sélectionner un problème