egghelp/eggheads community

ohm

2003-02-22T14:59:49-04:00

had to fix some fatal bugs (bad expression), which caused the script to not work on tcl 8.3.4 or unix in gernal.

02-26: 1 more fix...

Statistics: Posted by De Kus — Sat Feb 22, 2003 2:59 pm

Banning Scripts

2003-02-19T11:05:30-04:00

Danke

Statistics: Posted by caesar — Wed Feb 19, 2003 11:05 am

Translation

2003-02-19T10:37:58-04:00

An english translation? ;]

na gut
eh... i meant: ok

Statistics: Posted by De Kus — Wed Feb 19, 2003 10:37 am

Banning Scripts

2003-02-19T10:05:15-04:00

An english translation? ;]

Statistics: Posted by caesar — Wed Feb 19, 2003 10:05 am

Banning Scripts

2003-02-25T19:25:48-04:00

Code:

#Script for adding and removing bans to and from the bots intern banlist by privileged persons.#v1.0.4: 26.02.03 fixed logical error in the if expression for -userbans - still unknown why no -b comes tried to fix with ""#v1.0.3: 22.02.03 fixed problems somehow only occuring on unix eggdrops with variables and newchanban return#v1.0.2: 19.02.03 changed texts to be configurable#v1.0.1: 16.02.03 changed priority of other bots bans#v1.0  : 15.02.03 first releaseset banmanagerbanreason "bis zu ${ban-time}min - requested by"#up toset banmanagerillegal "Sorry, diesen Ban kann ich nicht annehmen!"#Sorry, I can't accept this ban!set banmanagernorights "Sorry, ich kenn dich nicht mit irgendwelchen Rechten, die dir das Hinzufügen von Bans gestatten würden."#Sorry, I don't know you having any rights to add a ban.set banmanagernoperm "Sorry, du hast nicht die Rechte den Ban zu entfernen"#Sorry, your don't have the rights to remove this ban#only configuration you'd like to make could be to change german feedback ^-^#no more configuration needed, tried to hold script flexible using global variables## begin of Code - change on your own risk :)#bind mode - "*+b" banmanager:addbind mode - "*-b" banmanager:remproc banmanager:add {nick uhost hand chan mode newban} {  global botnick banmanagerbanreason banmanagerillegal banmanagernorights  if { [matchban $newban $chan] || $nick == "" || $nick == $botnick } { return 0 }#ban is already registered? fine, what else would we want?#till now server bans will be ignored until i figure out how to add them as flagged op, not master  if { [matchattr $hand m|m $chan] || [matchattr $hand o|o $chan] || [matchattr $hand l|l $chan] } {    newchanban $chan $newban $hand "$banmanagerbanreason $hand"    if { [isban $newban $chan] } {      putcmdlog "<$nick@$chan> !$hand! added Channelban $newban"    } else {      pushmode $chan -b $newban      puthelp "NOTICE $nick :$banmanagerillegal"    }#creates the ban with the handle as creator and with standard banlifetime    return 1  } elseif { [lsearch -exact [channel info $chan] -userbans] > -1} {#removing ban if no userbans are allowed on channel and telling the user this    pushmode $chan -b "$newban"    puthelp "NOTICE $nick :$banmanagernorights"  } else { return 2 }}proc banmanager:rem {nick uhost hand chan mode oldban} {  global botnick banmanagernoperm  if { $nick == $botnick && [lsearch -exact [channel info $chan] +dynamicbans] > -1} { return 0 }#do nothing if ban gets removed by a bot on channels with dynamic bans  set banowner [getbanowner $oldban $chan]  if { $banowner == "*" } {    return 0#ban not registered? who cares... now its away  } elseif { ![validuser $banowner] } { set banowner [finduser -telnet!*@*] }#owner doenst exist? must be from a script. and i hope everyone has the autocreated account with host this host  if { [matchattr $banowner m|m $chan] && ![matchattr $banowner b] } {#i mean... any owner is master, isnt it?    set ownerrank 3  } elseif { [matchattr $banowner o|o $chan] } {    set ownerrank 2  } elseif { [matchattr $banowner l|l $chan] } {    set ownerrank 1  } else { set ownerrank 0 }  if { [matchattr $hand m|m $chan] && ![matchattr $banowner b] } {    set handrank 3  } elseif { [matchattr $hand o|o $chan] || $nick == "" } {#nick can only be empty on server mode changes, so lets say server is op    set handrank 2  } elseif { [matchattr $hand l|l $chan] } {    set handrank 1  } else { set handrank 0 }  if { $handrank >= $ownerrank } {    if { ![killchanban $chan $oldban] } {      if {(([matchattr $hand o] || [matchattr $hand n|n $chan]) && ![isbansticky $oldban]) || [matchattr $hand m]} {#only global ops and channel owner may remove a global ban and non sticky bans        killban $oldban        putcmdlog "<$nick@$chan> !$hand! removed global ban $oldban"        return 1      }    } else {      putcmdlog "<$nick@$chan> !$hand! removed Channelban $oldban"      return 1    }  }  pushmode $chan +b $oldban  if { !($nick == "") } { puthelp "NOTICE $nick :$banmanagernoperm" }  return 1}#this code is sponsered by StormLord @ egghelp.orgproc getbanowner {oldban chan} {  foreach list_of_bans [banlist] {    foreach {ban comment expire created lastact owner} $list_of_bans {      if { $ban == $oldban } {        return $owner      }    }  }  foreach list_of_bans [banlist $chan] {    foreach {ban comment expire created lastact owner} $list_of_bans {      if { $ban == $oldban } {        return $owner      }    }  }  return *}

suggestions and bug reports are welcome of course .

Statistics: Posted by De Kus — Wed Feb 19, 2003 9:56 am

Banning Scripts

2003-02-19T09:43:00-04:00

Thanks guys. I dont think I will attempt a script at it yet, as I am too new, I will start with some simplier scripts, and some tutorials and work my way up. I already like the ease of getting information and help on here. Much appreciated.

Statistics: Posted by Viper359 — Wed Feb 19, 2003 9:43 am

Re: StormLord

2003-02-14T22:17:46-04:00

thank you, i think ill create the script within the next days based on your code.

if my suggestion sounds interessting for someone else ill post it after it has passed by own beta test and fit requirements .

Statistics: Posted by De Kus — Fri Feb 14, 2003 10:17 pm

Banning Scripts

2003-02-14T18:43:16-04:00

hehe yes.. but that would probably just be more work than creating a new file and put all bans in it .. and he wanted EVERY ban logged ... that means that if he was supposed to pull it from the logs he would have to have one BIG log .. or look through ALOT of files...

Statistics: Posted by Papillon — Fri Feb 14, 2003 6:43 pm

Banning Scripts

2003-02-14T17:44:56-04:00

the problem with caches is that it dissapears if the bot goes down ... of course you can store it all in cache but then I would make sure the complete cache is written to a file before rehash, restart, sighterm, kill ..... etc

but... when the bot starts again, script is runover which reads bot's log file and searches for last bans

Statistics: Posted by Guest — Fri Feb 14, 2003 5:44 pm

Re: hmmm

2003-02-14T17:48:07-04:00

i dunno what he exactly wants, but sounds similar to that i would really like to make. but i am laking knowledge about using tables.

not even quite

---snip---
and here is my problem. id need a way finding the ban in the bots banlist, if not found returning doing nothing, and if found returning creator handle. in case creator handle is invalid it suggest it is created by script, means
by the bot equilant to ban is made by a master.
---snip---

well, you can use (for the good start) something next code for searching banlist *$newban is new ban string from `bind mode'*:

Code:

foreach list_of_bans [banlist] {  foreach {ban comment expire created lastact owner} $list_of_bans {     if {[string match $ban $newban]} {         return ($owner)     }  }}

at this moment i don't have time to write down all script, but you can ask for more help if you get lost in scripting

Statistics: Posted by Guest — Fri Feb 14, 2003 5:42 pm

Banning Scripts

2003-02-14T17:32:31-04:00

the problem with caches is that it dissapears if the bot goes down ... of course you can store it all in cache but then I would make sure the complete cache is written to a file before rehash, restart, sighterm, kill ..... etc

Statistics: Posted by Papillon — Fri Feb 14, 2003 5:32 pm

Banning Scripts

2003-02-14T17:08:04-04:00

well... if he wants every ban to be recorded and logged he will have to work with files.. and that's really not hard

well it depens how often does he want to 'use' the ban data.
if it's occasionaly then he can simple use bot's log file to dig into...
but, anything more than that I'd advice to keep bans into some kind of cache

Statistics: Posted by Guest — Fri Feb 14, 2003 5:08 pm

hmmm

2003-02-14T12:04:37-04:00

i dunno what he exactly wants, but sounds similar to that i would really like to make. but i am laking knowledge about using tables.

i thought i would bind mode +b and -b. on +b it will be checked by handle if this one is half-op, op or higher. then newchanban will be called adding the ban with handle as creator.
the -b binding shall check via banlist if the user of -b is same or more privileged than the creator. and here is my problem. id need a way finding the ban in the bots banlist, if not found returning doing nothing, and if found returning creator handle. in case creator handle is invalid it suggest it is created by script, means by the bot equilant to ban is made by a master.

bonus would be a kick bind which changes the ban reason if the kicked matchs a ban created by him or more privilleged .

because im scripting is not my job only a small hobby i would prefer a german howto or a simple script which i can copy&paste and change for this job .

Statistics: Posted by De Kus — Fri Feb 14, 2003 12:04 pm

Banning Scripts

2003-02-14T11:46:49-04:00

well... if he wants every ban to be recorded and logged he will have to work with files.. and that's really not hard

Statistics: Posted by Papillon — Fri Feb 14, 2003 11:46 am

Banning Scripts

2003-02-14T10:02:35-04:00

Huh. I dunno is there any such tcl script, but if you are novice in tcl it will be a little harder unless you can manage with arrays.

Statistics: Posted by Guest — Fri Feb 14, 2003 10:02 am