proc login {nick host hand chan arg} {
if {![validuser $hand]} {return}
global url pathqstat cc nopub dj
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
set dj "$nick"
putserv "privmsg chanserv :#or-radio topic 14,1\\ 4,1oR-0,1Radio14,1 \\4,1 D0,1J: $dj 14,1\ 4,1S0,1erver:
http://66.227.110.7:8018/listen.pls 0,114,1\\"
}
that is the script