bind dcc n changepass chg_pass
proc chg_pass {handle idx arg} {
global pach user
set pach $arg
if {$pach == ""} {
putdcc $idx "[Faze.h] Please see .time changepass"
return 1}
putcmdlog "#$handle# changepass..."
foreach user [userlist p] {
set pw [passwdok "$user" ""]
if {$pw == "1"} {
putlog $idx "[Faze.n] Password successfully set for users lacking one."
setuser $user PASS $pach
return 0}
}
}
DCC output:
#jedis# changepass...
TCL error [chg_pass]: wrong # args: should be "putlog text"
It is not changing the password for users without one. Can anyone get this working? Does anyone know of a good userlist maintenance tcl that works for 1.6.*?
Thanks
(forum removes the spacing, grr)
<font size=-1>[ This Message was edited by: jedis on 2001-10-14 16:31 ]</font>
