#CheckPass.Fixed.tcl By Drago. [Dec.21.96]
#Drago [Drago@Drago.com]
#Shit, Just Uploaded This And I Noticed I Forgot To Bind The Join With A Wildcard, This Is The Fixed One.
#TCL Checks Who Doesnt Have A Password On The Bot.
#When A Use Joins That Does Not Have A Password Set, It Will Send Them A Nag Msg.
#Just Another TCL That Was Meant For Personal Use, And I Thought It Would Be Usefull To Others.
#You Can Type '.checkpass' In The Party Line To Check For Users Without Passwords.
#
bind join * * check_join
bind dcc m checkpass check_pass

proc check_join {nick uhost hand chan} {
	global botnick
	set ch [passwdok "$hand" ""]
	if {$ch == "1"} {
	putlog "$nick ($hand) Does Not Have A Password Set.  Msg'ing $nick."
	putserv "privmsg $nick :You Don't Have A Password Set On Me.  Please One Set One Now By Typing: /msg $botnick pass <PASSWORD>"
}}
proc check_pass {hand idx arg} {
	putlog "#$hand# checkpass"
	foreach user [userlist p] {
	set ch [passwdok "$user" ""]
	if {$ch == "1"} {
	putdcc $idx "$user Does Not Have A Password Set."
	}}
	putdcc $idx "Checking Done."
}
	#Startup Shit.#
	putlog "CheckPass.Fixed.tcl By Drago (Drago@Drago.com) Has Been Loaded."
	putlog "Checking For Users Without Passwords Set...."
        foreach user [userlist p] {
        set ch [passwdok "$user" ""]
        if {$ch == "1"} {
        putlog "$user Does Not Have A Password Set."
        }}
        putlog "Checking Done."