Code: Select all
bind dcc m icqlist icq_list
proc icq_list {handle idx args} {
putlog "#$handle# icqlist"
set teller 1
if {$args == "{}"} {
putdcc $idx "[Faze.n] Listing ICQ's for users:"
foreach user [getuser $handle ICQ]
putdcc $idx "$teller. $user"
set teller [expr $teller]
}
putdcc $idx "[Faze.n] End of userlist. Total: [expr $teller] users."
} else {
putdcc $idx "þ Listing users matching your query: $args"
foreach user [getuser $handle $args]
putdcc $idx "$teller. $user {$args}"
set teller [expr $teller]
}
putdcc $idx "[Faze.n] End of icqlist. Total: [expr $teller] users."
}
}
Code: Select all
jedis - bleh@sdfsdfsd.com
sidej - ghost@none.com
Code: Select all
bleh@sdfsdfsd.com, ghost@none.com
<font size=-1>[ This Message was edited by: jedis on 2002-01-27 20:41 ]</font>