egghelp/eggheads community

script for unban all

2003-10-18T05:05:15-04:00

Is working fine @ me..

Statistics: Posted by caesar — Sat Oct 18, 2003 5:05 am

script for unban all

2003-10-17T17:23:21-04:00

dude caesar! you're talking about something completely different from the issue, okay i tested the correct code, but pasted a wrong code used $channel instead of $chan (oh God please forgive me), comeon let it go.

also Jag used the correct code, and it should work.

Statistics: Posted by Sir_Fz — Fri Oct 17, 2003 5:23 pm

script for unban all

2003-10-17T13:10:41-04:00

Doh! It's impossible not to work with #channel in bouth places as in [banlist #channel] and in killchanban #channel.. Test this and tell me if it's working:

Code:

.tcl set $chan #channel ; foreach thisban [banlist $chan] { set banhost [lindex $thisban 0] ; killchanban $channel $banhost }

Statistics: Posted by caesar — Fri Oct 17, 2003 1:10 pm

script for unban all

2003-10-17T08:37:11-04:00

i added some bans into #channel and in partyline:

.tcl foreach thisban [banlist #channel] { set banhost [lindex $thisban 0] ; killchanban #channel $banhost }

the bot removed all bans from the channel.

if it didn't work for you, then the ban is probably a global ban not a channel specific ban.

Statistics: Posted by Sir_Fz — Fri Oct 17, 2003 8:37 am

script for unban all

2003-10-17T07:24:24-04:00

didn't work

Code:

bind pub - !unbanall unban:allproc unban:all {nick uhost hand chan arg} {  foreach thisban [banlist $chan] {    set banhost [lindex $thisban 0]    killchanban $chan $banhost  }}

Statistics: Posted by Jag — Fri Oct 17, 2003 7:24 am

script for unban all

2003-10-17T00:59:01-04:00

And how did it worked fine if you had $channel instead of $chan?

Statistics: Posted by caesar — Fri Oct 17, 2003 12:59 am

script for unban all

2003-10-16T16:08:11-04:00

yeah :p I copied it from crazycat and forgot to change it to $chan

Statistics: Posted by Sir_Fz — Thu Oct 16, 2003 4:08 pm

script for unban all

2003-10-16T13:11:53-04:00

Probably you mean killchanban $chan $banhost not $channel

Statistics: Posted by caesar — Thu Oct 16, 2003 1:11 pm

script for unban all

2003-10-16T08:46:04-04:00

i see that the syntax is correct.

Code:

bind pub mo|mo !unbanall unban:allproc unban:all {nick uhost hand chan arg} {foreach thisban [banlist $chan] {   set banhost [lindex $thisban 0]    killchanban $channel $banhost  }}

Tested, works fine.

Statistics: Posted by Sir_Fz — Thu Oct 16, 2003 8:46 am

script for unban all

2003-10-15T13:11:00-04:00

Hey master
can't you say if my syntax was good or, if no, wich is the good?
I think that killchanban prefers the id of ban, not the host.
If yes, how to get the ID ?

Statistics: Posted by CrazyCat — Wed Oct 15, 2003 1:11 pm

script for unban all

2003-10-15T11:31:38-04:00

there must be scripts for

And by reading docs/tcl-commands.doc and http://www.suninet.nl plus the information already given you should be able to make it yourself.

Statistics: Posted by egghead — Wed Oct 15, 2003 11:31 am

script for unban all

2003-10-15T11:24:00-04:00

there must be scripts for

Statistics: Posted by MINImi — Wed Oct 15, 2003 11:24 am

script for unban all

2003-10-15T09:38:46-04:00

learn tcl-command.doc

Code:

set channel "#mychan"foreach thisban [banlist $channel] {   set banhost [lindex $thisban 0]   killchanban $channel $banhost}

But I'm not sure of the killchanban syntax (argument used???) and I've no time to spend to test it

Statistics: Posted by CrazyCat — Wed Oct 15, 2003 9:38 am

script for unban all

2003-10-15T08:07:50-04:00

i think i better need a complete script

Statistics: Posted by MINImi — Wed Oct 15, 2003 8:07 am

script for unban all

2003-10-15T03:58:54-04:00

something like:

Code:

foreach thisban [bans] {unban $thisban}

This is totally false, but the principe is this
just adapt it

Statistics: Posted by CrazyCat — Wed Oct 15, 2003 3:58 am