# Description: adds support for ircd CallerID features

procs command_accept raw_281 raw_282 raw_457 raw_458

proc command_accept {window line} {
    if {[string trim $line] == ""} {
        Send "ACCEPT *"
    } else {
        Send "ACCEPT $line"
    }
}

proc raw_281 {header line} {
    Echo .0 "\[ accept \] Accepting messages from: [rele [lrange $header 3 end]]" accept default
}

proc raw_282 {header line} {}

proc raw_457 {header line} {
    Echo .0 "\[ accept \] [lindex $header end] $line" accept default
}

proc raw_458 {header line} {
    Echo .0 "\[ accept \] [lindex $header end] $line" accept default
}

proc unload {} {}