set line $remain
if {[regexp {^([^!]+)!} $prefix dummy maybenick]} {
set calling_nick $maybenick
- if {"[irctolower $maybenick]" == "[irctolower $nick]"} return
+ if {![ircnick_compare $maybenick $nick]} return
}
} else {
set prefix {}
log "junk at end: $org"
return
}
- if {"$command" == "PRIVMSG" && \
+ if {![string compare $command "PRIVMSG"] && \
[privmsg_unlogged $prefix [ischan [lindex $params 0]] $params]} {
return
}
return [string tolower $v]
}
+proc ircnick_compare {a b} {
+ return [string compare [irctolower $a] [irctolower $b]]
+}
+
proc prefix_none {} {
upvar 1 p p
if {[string length $p]} { error "prefix specified" }
upvar 1 n n
if {![regexp {^([^!]+)!} $p dummy n]} { error "not from nick" }
check_nick $n
- if {"[irctolower $n]" == "[irctolower $nick]"} {
+ if {![ircnick_compare $n $nick]} {
error "from myself" {} {}
}
}