egghelp/eggheads community

help with public command

2004-03-13T14:19:44-04:00

Your welcome....

Statistics: Posted by Xpert — Sat Mar 13, 2004 2:19 pm

help with public command

2004-03-13T11:36:50-04:00

i changed some mistakes in the coding and its working fine now. anyways, big thank you to Expert for your help.

Code:

set pass "[lindex $arg 1]"   if {$hand == "*"} {     putserv "privmsg $nick :You are not permitted to use my commands."     return 0

should have been this:

Code:

set pass "[lindex $arg 0]"   if {$hand == "*"} {     putserv "privmsg $nick :You are not permitted to use my commands."     return 0

the whole coding:

Code:

#Usage: /msg $botnick auth  proc auth:auth {nick uhost hand arg} {   global botnick   set found 0   foreach n [channels] {     if {[onchan $nick $n]} {       set found 1     }   }   if {$found == 0} {     return 0   }   if {[llength $arg] < 1} {     putserv "notice $nick :Usage: /msg $botnick auth "     return 0   }   set pass "[lindex $arg 0]"   if {$hand == "*"} {     putserv "privmsg $nick :You are not permitted to use my commands."     return 0   }   if {[getuser $hand XTRA AUTH] == "DEAD"} {     putserv "privmsg $nick :Sorry, but you have been disabled from using my commands."     return 0   }   if {[passwdok $hand $pass]} {     setuser $hand XTRA "AUTH" "1"     putcmdlog "<<$nick>> ($uhost) !$hand! Authenticated"     putserv "notice $nick :Password accepted."     return 0     } else {     putserv "notice $nick :Password denied."   } } proc auth:signcheck {nick uhost hand chan reason} {   if {$hand == "*"} {     return 0   }   set auth "[getuser $hand XTRA "AUTH"]"   if {($auth == "") || ($auth == "0") || ($auth == "DEAD")} {     return 0   }   setuser $hand XTRA "AUTH" "0"   putlog "Auth for $nick has been expired." } proc auth:check {hand} {   set auth "[getuser $hand XTRA "AUTH"]"   if {($auth == "") || ($auth == "0") || ($auth == "DEAD")} {     return 0     } else {     return 1   } } proc auth:deauth {nick uhost hand arg} {   if {[getuser $hand XTRA AUTH] == "DEAD"} {     putserv "privmsg $nick :Sorry, but you have been disabled from using my commands."     return 0   }   if {$hand != "*"} {     setuser $hand XTRA "AUTH" "0"     putlog "<<$nick>> ($uhost) !$hand! De-authenticated"     putserv "notice $nick :Authentication has been removed."   } }

this should work just fine now.

Statistics: Posted by detonated — Sat Mar 13, 2004 11:36 am

help with public command

2004-03-13T11:46:22-04:00

should i change these too?

Code:

if {[passwdok $nick $pass]} {     setuser $nick XTRA "AUTH" "1"

Code:

if {$hand != "*"} {     setuser $nick XTRA "AUTH" "0"     putlog "<<$nick>> ($uhost) !$hand! DEAUTH"

i should change all $nick to $hand right?
i changed only the first $nick n it still produce the same error.

Statistics: Posted by detonated — Sat Mar 13, 2004 10:50 am

help with public command

2004-03-13T10:19:36-04:00

Sorry, it's my mistake.
Change:

Code:

if {[passwdok $nick $pass]} {

to:

Code:

if {[passwdok $hand $pass]} {

Statistics: Posted by Xpert — Sat Mar 13, 2004 10:19 am

help with public command

2004-03-13T10:09:16-04:00

I keep getting the reply "password denied" even though its the correct password.

Statistics: Posted by detonated — Sat Mar 13, 2004 10:09 am

help with public command

2004-03-13T09:56:55-04:00

This should work:

Code:

bind pub n !disable pub:disablebind pub n !enable pub:enablebind msg - auth auth:authbind sign - * auth:signcheckbind msg - deauth auth:deauthbind pub o|o !act pub:actproc pub:act {nick host hand chan arg} {  global botnick  if {![auth:check $nick]} {    return 0  }  if {[llength $arg] < 2} {    notice $nick "Usage: !act  "    return 0  }  set thechan "[lindex $arg 1]"  set what "[lrange $arg 2 end]"  if {![botonchan $thechan]} {    puthelp "NOTICE $nick :I'm not on that channel."    return 0  }  puthelp "PRIVMSG $thechan :\001ACTION\001 $what"  puthelp "NOTICE $nick :Act to $thechan: $what"  putcmdlog "<<$nick>> !$hand! ($thechan) !act $what"}# Usage: /msg $botnick auth  proc auth:auth {nick uhost hand arg} {   global botnick   set found 0   foreach n [channels] {     if {[onchan $nick $n]} {       set found 1     }   }   if {$found == 0} {    return 0  }   if {[llength $arg] < 1} {     putserv "notice $nick :Usage: /msg $botnick auth "     return 0   }   set pass "[lindex $arg 1]"  if {$hand == "*"} {    putserv "privmsg $nick :You are not permitted to use my commands."    return 0  }  if {[getuser $nick XTRA AUTH] == "DEAD"} {     putserv "privmsg $nick :Sorry, but you have been disabled from using my commands."     return 0   }   if {[passwdok $nick $pass]} {     setuser $nick XTRA "AUTH" "1"     putcmdlog "<<$nick>> ($uhost) !$hand! AUTH ..."     putserv "notice $nick :Password accepted."     return 0    } else {     putserv "notice $nick :Password denied."   } } proc auth:signcheck {nick uhost hand chan reason} {  if {$hand == "*"} {    return 0  }  set auth "[getuser $nick XTRA "AUTH"]"  if {($auth == "") || ($auth == "0") || ($auth == "DEAD")} {     return 0  }  setuser $hand XTRA "AUTH" "0"  putlog "Auth for $nick has been expired."}proc auth:check {nick} {  set auth "[getuser $nick XTRA "AUTH"]"  if {($auth == "") || ($auth == "0") || ($auth == "DEAD")} {     return 0     } else {     return 1  } } proc auth:deauth {nick uhost hand arg} {   if {[getuser $nick XTRA AUTH] == "DEAD"} {     putserv "privmsg $nick :Sorry, but you have been disabled from using my commands."     return 0   }   if {$hand != "*"} {     setuser $nick XTRA "AUTH" "0"     putlog "<<$nick>> ($uhost) !$hand! DEAUTH"     putserv "notice $nick :Authentication has been removed."   } }

Try

Statistics: Posted by Xpert — Sat Mar 13, 2004 9:56 am

help with public command

2004-03-13T09:43:57-04:00

oops!

-------------------------------------------------------------------------------------
######binds#########
bind pub n !disable pub:disable
bind pub n !enable pub:enable
bind msg - auth auth:auth
bind sign - * auth:signcheck
bind msg - deauth auth:deauth
-------------------------------------------------------------------------------------

Statistics: Posted by detonated — Sat Mar 13, 2004 9:43 am

help with public command

2004-03-13T08:18:06-04:00

Where are the binds?

Statistics: Posted by Xpert — Sat Mar 13, 2004 8:18 am

help with public command

2004-03-13T06:46:05-04:00

----as follows----
# Usage: /msg $botnick auth
proc auth:auth {nick uhost hand arg} {
global botnick
set found 0
foreach n [channels] {
if {[onchan $nick $n]} {
set found 1
}
}
if {$found == 0} {return 0}
if {[llength $arg] <1} {
notice $nick "Usage: /msg $botnick auth "
return 0
}
set pass [lindex $arg 0]
if {$hand == "*"} {
say $nick "You are not permitted to use my commands."
return 0
}
if {[getuser $hand XTRA AUTH] == "DEAD"} {
say $nick "Sorry, but you have been disabled from using my commands."
return 0
}
if {[passwdok $hand $pass]} {
setuser $hand XTRA "AUTH" "1"
putcmdlog "<<$nick>> ($uhost) !$hand! AUTH ..."
notice $nick "Password accepted."
return 0
} else {
notice $nick "Password denied."
}
}

proc auth:signcheck {nick uhost hand chan reason} {
if {$hand == "*"} {return 0}
if {[getuser $hand XTRA AUTH] == "DEAD"} {
return 0
}
setuser $hand XTRA "AUTH" "0"
putlog "Auth for $hand expired."
}

proc auth:check {hand} {
set auth [getuser $hand XTRA "AUTH"]
if {($auth == "") || ($auth == "0") || ($auth == "DEAD")} {
return 0
} else { return 1}
}

proc auth:deauth {nick uhost hand arg} {
if {[getuser $hand XTRA AUTH] == "DEAD"} {
say $nick "Sorry, but you have been disabled from using my commands."
return 0
}
if {$hand != "*"} {
setuser $hand XTRA "AUTH" "0"
putcmdlog "<<$nick>> ($uhost) !$hand! DEAUTH"
notice $nick "Authentication has been removed."
}
}
-------------------------------------------------------------------------------------

hey thanks a lot man! you're my saviour!

Statistics: Posted by detonated — Sat Mar 13, 2004 6:46 am

help with public command

2004-03-13T06:41:10-04:00

Post here all your commands of the "auth", and i'll try to fix it

Statistics: Posted by Xpert — Sat Mar 13, 2004 6:41 am

help with public command

2004-03-13T06:35:50-04:00

this tcl is totally haywired! even after /msg bot deauth, a notice appears saying the user is now deauth for now, but yet upon typing !command, the bot responded to it. Guess i got to go n look for another tcl. I've tried several, but it always unsuccessful. anyone with really effective public command tcl? anyways, thanks Xpert.

Statistics: Posted by detonated — Sat Mar 13, 2004 6:35 am

help with public command

2004-03-13T05:29:14-04:00

Try this code:

Code:

bind pub o|o !act pub:act proc pub:act {nick host hand chan arg} {   global botnick   if {![auth:check $hand]} {    puthelp "NOTICE $nick :You aren't authorized."     return 0   }   if {[llength $arg] < 2} {     notice $nick "Usage: !act  "     return 0   }   set thechan "[lindex $arg 0]"   set what "[lrange $arg 1 end]"   if {![onchan $botnick $thechan]} {     puthelp "NOTICE $nick :I'm not on that channel."     return 0   }   puthelp "PRIVMSG $thechan :\001ACTION\001 $what"   puthelp "NOTICE $nick :Act to $thechan: $what"   putcmdlog "<<$nick>> !$hand! ($thechan) !act $what" }

And if it send you a notice that your are not authorized, and you are authorized to the bot - then there is problem with the "auth:check" proc.
Check it

Statistics: Posted by Xpert — Sat Mar 13, 2004 5:29 am

help with public command

2004-03-13T05:24:07-04:00

yeap. the public command work if u have either performed a /dcc chat botnick or by doing a public auth.
-----this is the coding----
# Usage: /msg $botnick auth
proc auth:auth {nick uhost hand arg} {
global botnick
set found 0
foreach n [channels] {
if {[onchan $nick $n]} {
set found 1
}
}
if {$found == 0} {return 0}
if {[llength $arg] <1} {
notice $nick "Usage: /msg $botnick auth "
return 0
}
set pass [lindex $arg 0]
if {$hand == "*"} {
say $nick "You are not permitted to use my commands."
return 0
}
if {[getuser $hand XTRA AUTH] == "DEAD"} {
say $nick "Sorry, but you have been disabled from using my commands."
return 0
}
if {[passwdok $hand $pass]} {
setuser $hand XTRA "AUTH" "1"
putcmdlog "<<$nick>> ($uhost) !$hand! AUTH ..."
notice $nick "Password accepted."
return 0
} else {
notice $nick "Password denied."
}
}
-------------------------------------------------------------------------------------

Statistics: Posted by detonated — Sat Mar 13, 2004 5:24 am

help with public command

2004-03-13T05:04:00-04:00

i've just edited the coding n rehashed the bot. and it doesnt seem to have any effect this stupid bot is even defying the bot-owner!

Do you have the "auth:check" proc?

Statistics: Posted by Xpert — Sat Mar 13, 2004 5:04 am

help with public command

2004-03-13T04:53:48-04:00

i've just edited the coding n rehashed the bot. and it doesnt seem to have any effect this stupid bot is even defying the bot-owner!
and the funny thing is, its working for the !banlist.

--------coding as follows for banlist--------

bind pub m|m !banlist pub:banlist
proc pub:banlist {nick host hand chan arg} {
notice $nick "-Global bans-"
if {[banlist] == ""} {
notice $nick "None"
} else {
foreach ig [banlist] {
set what [lindex $ig 0]
set by [lindex $ig 1]
set comment [lindex $ig 4]
notice $nick "$what - $by"
}}
notice $nick "-Bans for $chan-"
if {[banlist $chan] == ""} {
notice $nick "None"
} else {
foreach b [banlist $chan] {
set what [lindex $b 0]
set by [lindex $b 5]
set comment [lindex $b 1]
notice $nick "$what - $by"
}}
}

Statistics: Posted by detonated — Sat Mar 13, 2004 4:53 am