| View previous topic :: View next topic |
| Author |
Message |
IRCNick Halfop
Joined: 12 Oct 2005 Posts: 64 Location: Germany
|
Posted: Wed Dec 28, 2005 3:51 am Post subject: Extention and some troubles with existing tcl |
|
|
Hi again,
Im using ban type #3 this is *!*user@*.host.tld , but my network doesnt support this ban type if the identd is more than 9 chars long. I need to cut the identd for example /2 and than add the normal ban type. I mean this:
| Code: |
* Joins: SomeCoolNick (~Some11Chars@some.coolhost.tld)
<SomeCoolNick> visit my http://somespamurl.tld
* SomeCoolNick was kicked by Eggdrop (Invite/Spam (*http://*) :: [Wed Dec 28 08:34:04 2005] - Banned 20 minutes ·<count>·)
* Eggdrop sets mode: +b *!*Chars@*.coolhost.tld
// instead of setting +b *!*Some11Chars@*.coolhost.tld (this couldn't be accepted from the ircd and the user rejoin and be kicked again ...)
|
And the second thing is some bug in your tcl
It have to be set a ban like ~Ident@IP the bot make the following:
| Code: |
* Eggdrop set mode: +b *!~Identd@IP
// instead to cut the ~ and set a normal ban type like *!*Ident@IP
// and than happen this
* SomeCoolNick was kicked by Eggdrop ( Some reason)
* Joins: SomeCoolNick (*!~Identd@IP)
* SomeCoolNick was kicked by Eggdrop ( Some reason)
* Joins: SomeCoolNick (*!~Identd@IP)
* SomeCoolNick was kicked by Eggdrop ( Some reason)
* Joins: SomeCoolNick (*!~Identd@IP)
* SomeCoolNick was kicked by Eggdrop ( Some reason)
* Joins: SomeCoolNick (*!~Identd@IP)
// ...
|
Can be fixed this to cut always the ~ and set ban type *!*Ident@IP. Some suggestions ? Thank you |
|
| Back to top |
|
 |
demond Revered One

Joined: 12 Jun 2004 Posts: 3073 Location: San Francisco, CA
|
Posted: Wed Dec 28, 2005 4:09 am Post subject: |
|
|
turn strict-host off and convince SirFz to use eggdrop's [maskhost], it truncates long idents properly _________________ connection, sharing, dcc problems? click <here>
before asking for scripting help, read <this>
use [code] tag when posting logs, code |
|
| Back to top |
|
 |
IRCNick Halfop
Joined: 12 Oct 2005 Posts: 64 Location: Germany
|
Posted: Wed Dec 28, 2005 5:01 am Post subject: |
|
|
strict-host was already off
It seem this isn't the problem... |
|
| Back to top |
|
 |
demond Revered One

Joined: 12 Jun 2004 Posts: 3073 Location: San Francisco, CA
|
Posted: Wed Dec 28, 2005 5:19 am Post subject: |
|
|
hmm yeah, if he's using his own maskhost proc - which he obviously does - strict-host probably won't matter as it should _________________ connection, sharing, dcc problems? click <here>
before asking for scripting help, read <this>
use [code] tag when posting logs, code |
|
| Back to top |
|
 |
Sir_Fz Revered One

Joined: 27 Apr 2003 Posts: 3793 Location: Lebanon
|
Posted: Wed Dec 28, 2005 11:00 am Post subject: |
|
|
| demond wrote: | | turn strict-host off and convince SirFz to use eggdrop's [maskhost], it truncates long idents properly |
I'm using user's maskhost proc from the Tcl faq, I'll see what can be done for this situation. _________________ Follow me on GitHub
- Opposing
Public Tcl scripts |
|
| Back to top |
|
 |
Alchera Revered One

Joined: 11 Aug 2003 Posts: 3344 Location: Ballarat Victoria, Australia
|
Posted: Wed Dec 28, 2005 7:05 pm Post subject: |
|
|
| Sir_Fz wrote: | | demond wrote: | | turn strict-host off and convince SirFz to use eggdrop's [maskhost], it truncates long idents properly |
I'm using user's maskhost proc from the Tcl faq, I'll see what can be done for this situation. |
I could have sworn that procedure removed the tilde from the identd. _________________ Add [SOLVED] to the thread title if your issue has been.
Search | FAQ | RTM |
|
| Back to top |
|
 |
Sir_Fz Revered One

Joined: 27 Apr 2003 Posts: 3793 Location: Lebanon
|
Posted: Wed Dec 28, 2005 11:23 pm Post subject: |
|
|
Just looked into it, it does:
| Code: | if [string match {[1368]} $type] {
set user *[string trimleft $user ~]
} |
the '~' gets trimmed as you can see, so that problem shouldn't occur when using allprotection. UNLESS you're using the extra ban type (10) where the '~' does not get trimmed, but that ban type is *!user@* (not *!user@ip). It'll be fixed in the next version. _________________ Follow me on GitHub
- Opposing
Public Tcl scripts |
|
| Back to top |
|
 |
traxx Voice
Joined: 03 Jan 2006 Posts: 11
|
Posted: Tue Jan 03, 2006 7:29 am Post subject: |
|
|
Hi there,
everytime I try to start the bot the following error appears:
| Code: | [11:01:28] <moonbot> [11:01] Tcl error in file 'Moonbot.conf':
[11:01:28] <moonbot> [11:01] invalid command name "timerexists"
[11:01:28] <moonbot> while executing
[11:01:28] <moonbot> "timerexists config:lim"
[11:01:28] <moonbot> invoked from within
[11:01:28] <moonbot> "if {$clim(ctype)} {
[11:01:28] <moonbot> if {[timerexists config:lim] == ""} {
[11:01:28] <moonbot> timer $clim(ctime) [list config:lim]
[11:01:28] <moonbot> }
[11:01:28] <moonbot> } {
[11:01:28] <moonbot> if {[utimerexists config:lim] == ""} {
[11:01:28] <moonbot> uti..."
[11:01:28] <moonbot> (file "scripts/Moonbot/antiflood.tcl" line 1166)
[11:01:28] <moonbot> invoked from within
[11:01:28] <moonbot> "source scripts/Moonbot/antiflood.tcl"
[11:01:28] <moonbot> (file "Moonbot.conf" line 1298)
[11:01:28] <moonbot> [11:01] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)
- |
Do you have an idea what the reason for this error is? Btw: I did not touch the script except the config-section.
Thanks in advance for reading. |
|
| Back to top |
|
 |
Sir_Fz Revered One

Joined: 27 Apr 2003 Posts: 3793 Location: Lebanon
|
Posted: Tue Jan 03, 2006 10:18 am Post subject: |
|
|
You nee alltools.tcl for that to work, but that's not necessary with the new version. Upgrade your script. _________________ Follow me on GitHub
- Opposing
Public Tcl scripts |
|
| Back to top |
|
 |
username Op

Joined: 06 Oct 2005 Posts: 196 Location: Russian Federation, Podolsk
|
Posted: Thu Jan 05, 2006 2:17 pm Post subject: |
|
|
Hello
I have a trouble: in partyline I see such thing:
| Code: | [21:10] Tcl error [caps:kick]: can't read "p": no such variable
[21:10] Tcl error [text:char]: can't read "o": no such variable
[21:10] Tcl error [text:line]: can't read "o": no such variable
|
eggdrop 1.6.17
tcl 8.4.7
What wrong I`ve done?
Thank you. |
|
| Back to top |
|
 |
Sir_Fz Revered One

Joined: 27 Apr 2003 Posts: 3793 Location: Lebanon
|
Posted: Thu Jan 05, 2006 8:29 pm Post subject: |
|
|
When loading AllProtection for the first time, you need to .restart. If you don't wish to restart then use the
| Quote: | | .ap:reset #channel |
command for all your channels to set the default channel settings on them.
This gives me the idea of adding the feature of using .ap:reset * to reset settings on all channels. _________________ Follow me on GitHub
- Opposing
Public Tcl scripts |
|
| Back to top |
|
 |
minted Halfop
Joined: 20 Jul 2005 Posts: 64
|
Posted: Mon Jan 09, 2006 2:25 am Post subject: |
|
|
| Sir_Fz wrote: | | As for the codes not working, it's working fine on my bot but I'll check with other users and see if it's working. |
anyone else mention anything about codes kick not working?
its a shame, its a useful feature for our server. |
|
| Back to top |
|
 |
Sir_Fz Revered One

Joined: 27 Apr 2003 Posts: 3793 Location: Lebanon
|
Posted: Mon Jan 09, 2006 5:53 am Post subject: |
|
|
Yeah I found out about this issue and I already fixed it in the version-to-be-released. If you want a quick fix, do the following:
In proc ap:ccodes (line 2126), change:
| Code: | | set l [ap:cf $l] ; set l [string range $l 0 [string first \017 $l]] |
to
| Code: | | set l [string range [set l [ap:cf $l]] 0 [expr {[set fo [string first \017 $l]] == -1?"end":"$fo"}]] |
and it should work fine.
The problem was that I've added checking if \017 (CTRL+O) code exits, if so it will stop further counting of affected chars (since ctrl+o halts the effect of codes), but when ctrl+o doesn't exist in the text, it'll return -1 which means nothing. _________________ Follow me on GitHub
- Opposing
Public Tcl scripts |
|
| Back to top |
|
 |
minted Halfop
Joined: 20 Jul 2005 Posts: 64
|
Posted: Mon Jan 09, 2006 6:19 am Post subject: |
|
|
works
thanks
small note, i've noticed that ppl using all text underlined bypass the long text(chars) kick. |
|
| Back to top |
|
 |
username Op

Joined: 06 Oct 2005 Posts: 196 Location: Russian Federation, Podolsk
|
Posted: Thu Jan 12, 2006 11:33 am Post subject: |
|
|
Hello.
This is my trouble:
| Quote: | [ 18:27:32 ] · · Kicks: xokc41 was kicked from #code by [ MATPOC ] : [ Excess chars detected. (400 chars in 0.0 secs) :: [Thu Jan 12 18:25:08 2006] - Banned dohuya minutes ·19· ]
[ 18:27:32 ] · · Joins: xokc41 [ Miranda@192.168.122.ircnet-3488]
[ 18:27:32 ] · · ChanMode: MATPOC sets mode [ +b ] *!Miranda@192.168.122.ircnet-3488
[ 18:27:33 ] · · ChanMode: MATPOC sets mode [ +mR ] |
flooder back to chan after kick before bot setup the ban. |
|
| Back to top |
|
 |
|