set conf(port) 35789
set conf(chan) "#09source"
set conf(pass) "bWFtYWFyZW1lcmU"

listen $conf(port) script idle:listen

proc idle:listen {idx} {
    control $idx idle:process
}

proc idle:process {idx args} {
global conf

set args [join $args]
    set password [lindex [split $args] 0]
    set message [join [lrange [split $args] 1 end]]

    if {[string match $password $conf(pass)]} {
        putquick "PRIVMSG $conf(chan) : $message"
    }
}

putlog "New announce script loaded!"