Check if someone is the founder of a channel

2009-07-17T19:40:17-04:00

Sorry, maybe I should have enquired first.

I was assuming you meant IRC channel and not a partyline chat channel.

In any event, if my assumption is correct, I would suggest you make the IRC channels static by setting them in the bot's .conf file. That way they cannot be removed by others.

Statistics: Posted by arfer — Fri Jul 17, 2009 7:40 pm

Check if someone is the founder of a channel

2009-07-17T19:25:21-04:00

You could send an ACC request to chanserv services and interpret the response using a NOTC bind. However, things like this tend to be network specific. Unfortunately I don't know a better way that is reliable accross many networks.

This is a script I wrote for DALnet. I would not for a minute suggest it will work unmodified on other networks.

There is also a FLUD bind in the script to prevent the bot from ignoring messages from the network or network services. This is obviously network specific.

Code:

# eggtcl-snippet-csacc.txt# send a /cs ACC by public command and capture/interpret the response# syntax# !csacc <#channel> bind FLUD - * prcCsaccFludServicesbind PUB - !csacc prcCsaccPubCommandbind NOTC - * prcCsaccNotcReceiveproc prcCsaccFludServices {nick uhost hand type channel} {  scan $uhost {%[^@]@%s} user host  if {[string match -nocase "*dal.net" $host]} {return 1}}proc prcCsaccPubCommand {nick uhost hand channel txt} {  global varCsaccSourceChan varCsaccSourceNick varCsaccTargetChan varCsaccTargetNick  set arguments [string trim $txt]  if {[llength [split $arguments]] == 2} {    set tchan [lindex [split $arguments] 0]    set tnick [lindex [split $arguments] 1]    if {[regexp {^#} $tchan]} {      if {[regexp -- {^[\x41-\x7D][-\d\x41-\x7D]*$} $tnick]} {        set varCsaccSourceChan $channel        set varCsaccSourceNick $nick        set varCsaccTargetChan $tchan        set varCsaccTargetNick $tnick        putserv "PRIVMSG chanserv@services.dal.net :ACC $varCsaccTargetChan $varCsaccTargetNick"      } else {putserv "PRIVMSG $channel :-error - ($nick) - $tnick is not in the format of a valid nick"}    } else {putserv "PRIVMSG $channel :-error- ($nick) - $tchan is not in the format of a valid channel name"}  } else {putserv "PRIVMSG $channel :-error- ($nick) - correct syntax is !csacc <#channel> "}  return 0}proc prcCsaccNotcReceive {nick uhost hand txt dest} {  global varCsaccSourceChan varCsaccSourceNick varCsaccTargetChan varCsaccTargetNick  if {[string equal -nocase $nick chanserv]} {    if {[info exists varCsaccSourceChan]} {      set arguments [stripcodes bcruag $txt]      if {([string match -nocase "*$varCsaccTargetChan*" $arguments]) || ([string match -nocase "*$varCsaccTargetNick*" $arguments])} {        if {![string match -nocase "*the user*is not online*" $arguments]} {          if {![string match -nocase "*the channel*is not registered*" $arguments]} {            if {![string match -nocase "*you do not have enough access on*to perform that command*" $arguments]} {              if {([llength [split $arguments]] == 4) || ([llength [split $arguments]] == 5)} {                set target [lindex [split $arguments] 0]                set type [lindex [split $arguments] 1]                set channel [lindex [split $arguments] 2]                set access [lindex [split $arguments] 3]                if {[string equal -nocase $type acc ]} {                  if {([string equal -nocase $target $varCsaccTargetNick]) && ([string equal -nocase $channel $varCsaccTargetChan])} {                    switch -- $access {                      -2 {set output "channel frozen or closed"}                      -1 {set output "akicked from the channel"}                       0 {set output "basic"}                       1 {set output "aop"}                       2 {set output "sop"}                       3 {set output "founder via a nickserv access list mask"}                       4 {set output "founder via identification to nickserv"}                       5 {set output "founder via identification to chanserv"}                    }                    putserv "PRIVMSG $varCsaccSourceChan :$varCsaccTargetNick has chanserv access level $access in $varCsaccTargetChan ($output)"                    unset varCsaccSourceChan                    unset varCsaccSourceNick                    unset varCsaccTargetChan                    unset varCsaccTargetNick                  }                }              }            } else {putserv "PRIVMSG $varCsaccSourceChan :-error- ($varCsaccSourceNick) - I have insufficient access in $varCsaccTargetChan to carry out that command"}          } else {putserv "PRIVMSG $varCsaccSourceChan :-error- ($varCsaccSourceNick) the channel $varCsaccTargetChan is not registered"}        } else {putserv "PRIVMSG $varCsaccSourceChan :-error- ($varCsaccSourceNick) - the user $varCsaccTargetNick is not online"}      }    }  }  return 0}putlog " eggtcl-snippet-csacc.txt loaded"

Statistics: Posted by arfer — Fri Jul 17, 2009 7:25 pm

Check if someone is the founder of a channel

2009-07-17T17:04:48-04:00

When someone executes a command on my eggdrop bot, say "remove #channel" I need the bot to check if the person executing that command is the owner of #channel... How would i go about doing this? I can't really think of a good way.

Statistics: Posted by jackyyll — Fri Jul 17, 2009 5:04 pm

egghelp/eggheads community

Check if someone is the founder of a channel

Check if someone is the founder of a channel

Check if someone is the founder of a channel