Amélioration d'un script pour le rendre plus performant

[CrazyCat]

Autre petite optimisation proposée:

tclcopier

# On envoie à la proc de traitement
::checkpays::traitement $SESSION
...
proc ::checkpays::traitement {SESSION} {
   lassign $::checkpays::DB($SESSION) ip ipdns codepays asn asname reputation sslco webirc websocket unknow account
   set ALLEXCEPTIONS [list {*}$::checkpays::PAYSINTERDIT {*}$::checkpays::PAYSINTERDITNWSI {*}$::checkpays::PAYSINTERDITNW {*}$::checkpays::PAYSIPAPI {*}$::checkpays::PAYSEXCEPTION]

Et idem pour ::checkpays::infoAPI