- } else {
- set prefix {}
- }
- if {![string length $line]} { return }
- if {![regexp -nocase {^([0-9a-z]+) *(.*)} $line dummy command line]} {
- log "bad command: $org"
- return
- }
- set command [string toupper $command]
- set params {}
- while {[regexp {^([^ :]+) *(.*)} $line dummy thisword line]} {
- lappend params $thisword
- }
- if {[regexp {^:(.*)} $line dummy thisword]} {
- lappend params $thisword
- } elseif {[string length $line]} {
- log "junk at end: $org"
- return
- }
- if {"$command" == "PRIVMSG" &&
- [regexp {^[&#+!]} [lindex $params 0]] &&
- ![regexp {^![a-z][-a-z]*[a-z]( .*)?$} [lindex $params 1]]} {
- # on-channel message, ignore
- set chan [lindex $params 0]
- upvar #0 chan_lastactivity([irctolower $chan]) la
- set la [clock seconds]
- catch { recordlastseen_p $prefix "talking on $chan" 1 }
- return
- }
- log "[clock seconds] <- $org"
- set procname msg_$command
- if {[catch { info body $procname }]} { return }
- if {[catch {
- eval [list $procname $prefix $command] $params
- } emsg]} {
- logerror "error: $emsg ($prefix $command $params)"
- saveeic
- }
-}
-
-proc sendprivmsg {dest l} {
- foreach v [split $l "\n"] {
- sendout [expr {[ischan $dest] ? "PRIVMSG" : "NOTICE"}] $dest $v
- }
-}
-proc sendaction_priority {priority dest what} {
- sendout_priority $priority PRIVMSG $dest "\001ACTION $what\001"
-}
-proc msendprivmsg {dest ll} { foreach l $ll { sendprivmsg $dest $l } }
-proc msendprivmsg_delayed {delay dest ll} { after $delay [list msendprivmsg $dest $ll] }
-
-proc prefix_none {} {
- upvar 1 p p
- if {[string length $p]} { error "prefix specified" }
-}
-
-proc msg_PING {p c s1} {
- global musthaveping_after
- prefix_none
- sendout PONG $s1
- if {[info exists musthaveping_after]} connected
-}
-
-proc check_nick {n} {
- if {[regexp -nocase {[^][\\`_^{|}a-z0-9-]} $n]} { error "bad char in nick" }
- if {[regexp {^[-0-9]} $n]} { error "bad nick start" }
-}
-
-proc ischan {dest} {
- return [regexp {^[&#+!]} $dest]
-}
-
-proc irctolower {v} {
- foreach {from to} [list "\\\[" "{" \
- "\\\]" "}" \
- "\\\\" "|" \
- "~" "^"] {
- regsub -all $from $v $to v
- }
- return [string tolower $v]
-}
-
-proc prefix_nick {} {
- global nick
- upvar 1 p p
- upvar 1 n n
- if {![regexp {^([^!]+)!} $p dummy n]} { error "not from nick" }
- check_nick $n
- if {"[irctolower $n]" == "[irctolower $nick]"} {
- error "from myself" {} {}