utiliser une procédure d'un script A dans un script B

[Ark]

bonjour,

tout ou presque est dans le titre.

j'ai un script A.tcl avec une procédure de scan qui se lance sur les utilisateurs qui entrent sur le chan, et que je peux lancer manuellement en party line

je veux éviter de modifier le script A.tcl

je veux créer dans un script B.tcl une procédure qui lance toutes les heures la procédure de scan. pour l'instant j'ai le timer, mais je ne sais pas comment appeler la procédure dans l'autre script?

j'imagine avec "global", mais comme j'ai jamais utilisé...

merci d'avance.

[CrazyCat]

Il y a deux possibilités:
- soit le script A est "simple" et du moment qu'il est chargé avant B (par sécurité), tu peux appeler la procédure depuis B,
- soit le script A possède un namespace, il te faut donc appeler la procédure en la "nommant" complètement.

Exemple 1:

tclcopier

# script A
bind - join "#toto *" scan
proc scan {nick uhost handle chan} {
   ...
}

#script B
proc timed {
   scan
   timer 60 timed
}

Exemple 2:

tclcopier

# script A
namespace eval Scan {
   bind - join "#toto *" Scan::scan
   proc scan {nick uhost handle chan} {
      ...
   }

#script B
proc timed {
   Scan::scan 
   timer 60 timed
}

Bien entendu, je n'ai pas mis dans l'exemple la boucle qui va faire scanner chaque utilisateur du canal

[Ark]

Merci de la rapidité de la réponse,
et désolé pour mon silence.

J'ai testé mais sans succès

J'essaye autre chose,
encore merci