egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2001-10-17T02:28:00-04:00 https://forum.eggheads.org/app.php/feed/topic/158 2001-10-17T02:28:00-04:00 2001-10-17T02:28:00-04:00 https://forum.eggheads.org/viewtopic.php?p=723#p723 <![CDATA[Why isn't this working...]]>

Statistics: Posted by Guest — Wed Oct 17, 2001 2:28 am

]]> 2001-10-14T21:55:00-04:00 2001-10-14T21:55:00-04:00 https://forum.eggheads.org/viewtopic.php?p=592#p592 <![CDATA[Why isn't this working...]]>
putlog $idx "[Faze.n] Password successfully set for users lacking one."

Change it to:
putdcc $idx "[Faze.n] Password successfully set for users lacking one."

Statistics: Posted by stdragon — Sun Oct 14, 2001 9:55 pm

]]> 2001-10-14T18:29:00-04:00 2001-10-14T18:29:00-04:00 https://forum.eggheads.org/viewtopic.php?p=589#p589 <![CDATA[Why isn't this working...]]>
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>

Statistics: Posted by Guest — Sun Oct 14, 2001 6:29 pm

]]>