Probléme de code en tcl Anti spam

Bonjour,

Je suis debutant dans le domaine du tcl, mon probléme est le suivant, mon code fonctionne parfaitement, sauf pour une chose, il detecte le bout de mot exemple " www " mais ne va pas detecter un spam complet exemple : " www.ton-site.com " j’aurais besoin d’un petit coup de pouce car àprés avoir tout retourner dans tout les sens… Je ne vois pas…

Voici le code ci dessous :

bind pub - http pub_http
bind pub - www. pub_www.

http

proc pub_http {nick host hand chan arg} {
puthelp "PRIVMSG $nick : Spam interdit vous risquez d’être banni !"
puthelp "PRIVMSG #secure : $nick : Spam détecté sur $chan"
puthelp “PRIVMSG #Services : Open Source Spam : http : détecté sur $chan”
}

www

proc pub_www {nick host hand chan arg} {
puthelp "PRIVMSG $nick : Spam interdit vous risquez d’être banni !"
puthelp "PRIVMSG #secure : $nick : Spam détecté sur $chan"
puthelp “PRIVMSG #Services : Open Source Spam : www. : détecté sur $chan”
}