proc ::addspam::addspam {nick host hand chan text} {
    if {$chan ne $::addspam::chanback} { putnow "NOTICE $nick :Accès refusé"; return}
    set type [string range $text 0 [string first " " $text]]
    set text [string range $text [expr [string first " " $text] + 1] end]
    set motif [string first "-motif" $text]
    if { $motif == -1 } {
        set lienspamcmd [string map {" " "_"} $text]
        set raisonspam "Default_spam_reason"
    } else {
        set lienspamcmd [string map {" " "_"} [string range $text 0 [expr $motif - 1]]]
        set raisonspam [string map {" " "_"} [string range $text [expr $motif + 7] end]]
    }
    putlog "lienspamcmd => $lienspamcmd"
    putlog "raison => $raisonspam"
    if {$lienspamcmd == ""} {
        putnow "NOTICE $nick :\002Syntaxe:\002 !addspam <gline/shun/block> <test.fr>"
        return 0
    }
}