bind PUBM - * syntactic_path
setudef flag logscript

proc syntactic_path {nick host hand channel text} {
    #do not log unless channel flag set
    if {![channel get $channel logscript]} {
        return
    }
    set parm0 [string trimright [lindex [split $text] 0] ",:;-"]
    switch -regexp $parm0 {
        "nolog" {
            return
        }
        default {
            # put to file
        }
    }

}