[Demande] Soucis avec expr

[aliasangelius]

Bonjour,

Je viens demander une explication concernant expr.
Dans un code j'aimerais inclure cette fonctionnalité, pour un calcul sur millisecondes.

Donc lorsque je rehash l'eggdrop y'a aucun soucis sa fonctionne bien.
Mais lorsque je tape par exemple !tcl pushmode je n'es aucun retour.

le rehash :

.[13:49:31] <alias_angelius> .rehash
.[13:49:31] <Talk-Me> [13:50:30] #alias_angelius# rehash
.[13:49:31] <Talk-Me> Rehashing.
.[13:49:31] <Talk-Me> [13:50:30] Rehashing ...
.[13:49:31] <Talk-Me> [13:50:30] Listening at telnet port 3334 (all).
.[13:49:31] <Talk-Me> [13:50:30] TCL public chargé.
.[13:49:31] <Talk-Me> [13:50:30] Userfile loaded, unpacking...

La commande sur le salon :

.[13:50:12] <@alias_angelius> !tcl pushmode

Aucune erreur en PL à ce moment là.

Je pense que mon soucis provient de expr, je l'ai mal interpréter dans le code.
Je veux pas une solution toute offerte.. Car sa n'aurais aucun sens, juste quelques explication me forçant à réfléchir.

Voici le code :

tclcopier

#############################
#                           #
# Tcl Eval commande public. #
#                           #
#############################
 
namespace eval ::tcleval {
   
   # Nous vérifions si ya le package requis pour le msgcat. Vous pouvez vérifier en PL avec la commande : .tcl info patchlevel
   package require msgcat
   # Nous mettons la langue de msgcat en français.
   ::msgcat::mclocale fr
   # Commandes chars Exemple "." ou "!" Ce qui donnera par exemple : .tcl/!tcl
   set cmds(char) "!"
    # Les messages msgcat.
    ::msgcat::mcset fr tc1 "\002TCL ->\002"
    ::msgcat::mcset fr tc2 "\002Done.\002"
    
    # Le code TCL.
    set ::tcleva_timeout 5
    
    bind pub - "$::tcleval::cmds(char)tcle" [namespace current]::tcle
    proc tcle {nick host hand chan arg} {
    catch [list uplevel 0 $arg] error
    foreach line [split $error "\n"] {
       if {$line!=""} {
           putserv "PRIVMSG $chan :[::msgcat::mc tc1] $line"
       }
       variable version 1.0
    }
    putserv "PRIVMSG $chan :[::msgcat::mc tc2] [expr $::tcleva_timeout * 1000]"
    }
}
putlog "\0034TCL public chargé.\0034"