egghelp/eggheads community

Only bot can set channel mode lock (Dalnet network)

2011-08-22T12:39:28-04:00

Minor typo, lost the "eval" subcommand during copy/paste. Post updated now

Statistics: Posted by nml375 — Mon Aug 22, 2011 12:39 pm

Only bot can set channel mode lock (Dalnet network)

2011-08-22T09:09:53-04:00

Hi sir there is an error on the script how to fix this:

Unknown subcommand "modecontrol" to "namespace"

Thanks in advance.

Statistics: Posted by Sydneybabe — Mon Aug 22, 2011 9:09 am

Only bot can set channel mode lock (Dalnet network)

2011-08-21T06:18:16-04:00

Then I am either confused of the intended behaviour, or you've got some other script or feature enabled that is interfering.

The way the script was written, is to enforce the modes set in lockModes - that is, do not let people remove the modes set from the channel, and do not let people add other modes to the channel.

I've now updated the previous post in order to separate enforced and restricted modes. I've also moved the code to a separate namespace, so make sure you restart your eggdrop (not just .rehash) to make sure the old code does not persist.

Statistics: Posted by nml375 — Sun Aug 21, 2011 6:18 am

Only bot can set channel mode lock (Dalnet network)

2011-08-21T00:51:55-04:00

Hello sir with the help of speechles the error found on this part:

bind mode - "MODE" raw:modeCheck

and now the script is working but opposite of what i requested:

User sets mode +m
User sets mode -m
Eggdrop sets mode +m

User sets mode +M
User sets mode -M
Eggdrop sets mode +M

It keep the settings that offender set that not added to the masters, owners, and other bots.

Statistics: Posted by Sydneybabe — Sun Aug 21, 2011 12:51 am

Only bot can set channel mode lock (Dalnet network)

2011-08-20T18:02:52-04:00

What did you set lockModes to?
Also, did you get any error messages in your logs or dcc chat?

Statistics: Posted by nml375 — Sat Aug 20, 2011 6:02 pm

Only bot can set channel mode lock (Dalnet network)

2011-08-20T13:36:51-04:00

I test the script this time sir but nothing happens:

* User sets mode: +R

the bot did not -R the channel :s

Statistics: Posted by Sydneybabe — Sat Aug 20, 2011 1:36 pm

Only bot can set channel mode lock (Dalnet network)

2012-03-19T12:34:54-04:00

It seems I introduced a new bug in my last fix (should'nt have added -- to the lsearch commands, that part was working just fine as it was).
The following have been successfully simulated in tclsh, and should work.
It will allow bots and masters/owners to override the lock.

Code:

namespace eval modecontrol {  variable enforceModes ""  #Always keep these set  variable restrictModes "" #Never permit these to be set  proc raw:modeCheck {from key text} {    variable enforceModes    variable restrictModes    set from [split $from "!"]    set nick [lindex $from 0]    set handle [nick2hand $nick]    #Sanity check    if {[isbotnick $nick] || [matchattr $handle "+mnb"]} {      return 0    }    set items [split $text]    set enforce [split $enforceModes ""]    set restrict [split $restrictModes ""]    set target [lindex $items 0]    set add 1    set act 0    foreach mode [split [lindex $items 1] ""] {      switch -- $mode {        "+" {          set add 1        }        "-" {          set add 0        }        "I" -        "e" -        "b" {          set items [lreplace $items 2 2]        }        "k" {          if {$add} {            set key [lindex $items 2]            set items [lreplace $items 2 2]          }        }        "l" {          if {$add} {            set limit [lindex $items 2]            set items [lreplace $items 2 2]          }        }        default {          if {[lsearch $enforce $mode] >= 0 && !$add} {            pushmode $target "+$mode"            set act 1          } elseif {[lsearch $restrict $mode] >= 0 && $add} {            pushmode $target "-$mode"            set act 1          }        }      }      #Uncomment this to bounce key and limits      #if {[info exists key]} {      #  pushmode $target -k $key      #}      #if {[info exists limit]} {      #  pushmode $target -l      #}    }    if {$act && [llength $from] > 1} {      puthelp "NOTICE $nick :Please let me handle the channel mode settings."    }    return 0  }  bind raw - "MODE" [namespace current]::modeCheck}

Edit: Fixed incorrect binding type
Edit: Placed code in separate namespace, separated enforced and restricted modes
Edit: Fixed missing "eval" subcommand for namespace
Edit: Incorrect lsearch order and pattern.

Statistics: Posted by nml375 — Sat Aug 20, 2011 9:04 am

Only bot can set channel mode lock (Dalnet network)

2011-08-20T07:59:40-04:00

Hello sir i try the script but still no luck.

Statistics: Posted by Sydneybabe — Sat Aug 20, 2011 7:59 am

Only bot can set channel mode lock (Dalnet network)

2011-08-16T02:28:16-04:00

Is this the huge chunk of code are you referring sir nml375?

Code:

set lockModes "mRsC"bind raw - "MODE" raw:modeCheckproc raw:modeCheck {from key text} {  set nick [lindex [split $from "!"] 0]  #Sanity check  if {[isbotnick $nick]} {    return 0  }  set items [split $text]  set lock [split $::lockModes ""]  set target [lindex $items 0]  set add 1  set act 0  foreach mode [split [lindex $items 1] ""] {    switch -- $mode {      "+" {        set add 1      }      "-" {        set add 0      }      "I" -      "e" -      "b" {        set items [lreplace $items 2 2]      }      "k" {        if {$add} {          set key [lindex $items 2]          set items [lreplace $items 2 2]        }      }      "l" {        if {$add} {          set limit [lindex $items 2]          set items [lreplace $items 2 2]        }      }      default {        if {[lsearch -- $lock $mode] >= 0 && !$add} {          pushmode $target "+$mode"          set act 1        } elseif {[lsearch -- $lock $mode] < 0 && $add} {          pushmode $target "-$mode"          set act 1        }      }    }    #Uncomment this to bounce key and limits    #if {[info exists key]} {    #  pushmode $target -k $key    #}    #if {[info exists limit]} {    #  pushmode $target -l    #}    if {$act} {      puthelp "NOTICE $nick :Please let me handle the channel mode settings."    }  }  return 0}

I will try this one and post the result later thanks.

Statistics: Posted by Sydneybabe — Tue Aug 16, 2011 2:28 am

Only bot can set channel mode lock (Dalnet network)

2011-08-13T08:43:20-04:00

The last piece of code I posted is a patch, which is applied to the sourcecode of eggdrop prior compiling. The simplest way of applying it is to write it to a file (say modelock.patch), and from within the eggdrop source directory, issue this command:

Code:

nml375@linux:~/eggdrop1.6.20$ patch -p1 modelock.patch

You should then see some output similar to this:

Code:

patching file src/mod/irc.mod/mode.cHunk #1 succeeded at 1323 with fuzz 1.nml375@linux:~/eggdrop1.6.20$

At this point, you continue with the compiling as usual: ie ./configure; make config; make; make install

Otherwize, I've corrected the huge chunk of code I posted earlier, so that "should" work

Statistics: Posted by nml375 — Sat Aug 13, 2011 8:43 am

Only bot can set channel mode lock (Dalnet network)

2011-08-13T08:34:56-04:00

Yep sir but i don't understand the code you provide how to make it works and i just make a script that i think on that flow i could understand i hope you help me sir with something like that or do i have to make it a new topic.

Statistics: Posted by Sydneybabe — Sat Aug 13, 2011 8:34 am

Only bot can set channel mode lock (Dalnet network)

2011-08-13T08:15:28-04:00

I'm afraid that piece of code does not make much sense at all..
No variable named "nick" is ever defined within your "snowbotchk" proc, so you will get an error about that. Even if $nick would've been defined, I don't see the sense in matching it against the string "Eggdrop"...

The foreach-command does not accept any "elseif" options; your braces are mis-aligned.

Finally, if you were to correct the above issues, all your code would do, is to check each channel every 30 minutes, and remove any mMR modes (regardless of who set it initially). As I understood your earlier post, you wanted your eggdrop to permit other bots to change locked modes (override).

Statistics: Posted by nml375 — Sat Aug 13, 2011 8:15 am

Only bot can set channel mode lock (Dalnet network)

2011-08-13T02:58:58-04:00

It seems i'm having difficulty how to do that thing i just made something like this but just wanted to know you sir if this is correct:

Code:

set timechks 30timer $timechks snowbotchkproc snowbotchk {} {global timechksforeach chan [channels] {if {[botisop $chan] && [isbotnick $nick] && ![string equal "Eggdrop" $nick]} {if {[string match +*m* [lindex [getchanmode $chan] 0]]} {pushmode #bot -m}} elseif {[string match +*M* [lindex [getchanmode $chan] 0]]} {pushmode #bot -M}} elseif {[string match +*R* [lindex [getchanmode $chan] 0]]} {pushmode #bot -R}}timer $timechks snowbotchk

Thanks in advance.

Statistics: Posted by Sydneybabe — Sat Aug 13, 2011 2:58 am

Only bot can set channel mode lock (Dalnet network)

2011-08-12T12:17:42-04:00

Unfortunately, it would seem that the built-in modelock only allows overrides from masters, owners, and the bot itself, but not other bots. As for the tcl-script, it does none of the mode enforcements, but merely notifies the offender not to change modes.

You should, however, get away with granting your bots master privileges on the individual channels:

Code:

.chattr otherbot +m #thechannel

You could also apply this patch to the source, in order to permit bots and friends (+f) to override the modelock:

Code:

--- eggdrop1.6.20/src/mod/irc.mod/mode.c        2010-07-01 18:10:49.000000000 +0200+++ eggdrop1.6.20+modelock/src/mod/irc.mod/mode.c       2011-08-12 18:16:15.256931403 +0200@@ -1323,7 +1323,8 @@             if ((((ms2[0] == '+') && (chan->mode_mns_prot & todo)) ||                 ((ms2[0] == '-') && (chan->mode_pls_prot & todo))) &&                 !glob_master(user) && !chan_master(user) &&-                !match_my_nick(nick))+                !glob_friend(user) && !chan_friend(user) &&+                !glob_bot(user) && !match_my_nick(nick))               add_mode(chan, ms2[0] == '+' ? '-' : '+', *chg, "");             else if (reversing && ((ms2[0] == '+') ||                      (chan->mode_pls_prot & todo)) && ((ms2[0] == '-') ||

Statistics: Posted by nml375 — Fri Aug 12, 2011 12:17 pm

Only bot can set channel mode lock (Dalnet network)

2011-08-12T02:51:36-04:00

Hello sir i add this script of into my bot

Code:

bind raw - "MODE" raw:noticeModeproc raw:noticeMode {from key text} {  set nick [lindex [split $from "!"] 0]  set handle [nick2hand $nick]  set channel [lindex [split $text] 0]  #Don't bug owners or bots  if {![matchattr $handle "+nb"]} {    puthelp "NOTICE $nick :Please let me handle the channel mode settings."  }  return 0}

and what i did is i added the other bot to +b flags and test but when the bot i added sets mode +M the channel .. the bot that loaded of the script -M the mode.

Statistics: Posted by Sydneybabe — Fri Aug 12, 2011 2:51 am