egghelp/eggheads community

Script containing some abuse.

2003-08-05T07:19:30-04:00

because its not the whole script. I just pasted some lines from the script.

anyway its very raire for that error to appear, I never saw it again after my last post in this thread.

Statistics: Posted by Sir_Fz — Tue Aug 05, 2003 7:19 am

Script containing some abuse.

2003-08-04T18:39:11-04:00

i would test this script on eggdrop 1.6.15 but the bot go off

[00:28:37] [00:30] Tcl error in file 'pferd.conf':
[00:28:37] [00:30] can't read "cp_chans": no such variable
[00:28:37] while executing
[00:28:37] "string tolower $cp_chans"
[00:28:37] invoked from within
[00:28:37] "set cp_chans [string tolower $cp_chans] "
[00:28:37] (file "scripts/clonepro.tcl" line 76)
[00:28:37] invoked from within
[00:28:37] "source scripts/clonepro.tcl"
[00:28:37] (file "pferd.conf" line 1384)
[00:28:37] [00:30] * KONFIGURATIONSDATEI NICHT GELADEN (NICHT GEFUNDEN ODER FEHLER)
-
DCC session closed

[00:35] Tcl error in file 'pferd.conf':
[00:35] can't read "cp_chans": no such variable
while executing
"string tolower $cp_chans"
invoked from within
"set cp_chans [string tolower $cp_chans] "
(file "scripts/clonepro.tcl" line 76)
invoked from within
"source scripts/clonepro.tcl"
(file "pferd.conf" line 1384)
[00:35] * KONFIGURATIONSDATEI NICHT GELADEN (NICHT GEFUNDEN ODER FEHLER)
pferd@server1$

Statistics: Posted by Volume — Mon Aug 04, 2003 6:39 pm

Script containing some abuse.

2003-07-11T14:28:01-04:00

found these in a script:

Code:

foreach chan [channels] {  if {![info exists tslines([strlwr $chan])]} {    set tslines([strlwr $chan]) 0  }  if {![info exists tsnotc([strlwr $chan])]} {    set tsnotc([strlwr $chan]) 0  }} proc tsunami:pub {nick uhost hand chan text} {  global tslines lineblist[snip]if {![info exists tslines([strlwr $chan])]} { set tslines([strlwr $chan]) 0 }[snip]incr tslines([strlwr $chan])[snip]if {$tslines([strlwr $chan]) >= $lines} {       putquick "MODE [strlwr $chan] +$::linemds" -next[snip]proc tsreset {args} {  global tslines tsnotc  switch -- [lindex $args 0] {    "tlines" {      incr tslines([strlwr [lindex $args 1]]) -1      return    }[snip]proc tsunami:part {nick uhost hand chan msg} {  global tslines tsnotc  if {$nick != $::botnick} {      return  }  foreach arr_part [array names tslines] {[snip]

Statistics: Posted by Sir_Fz — Fri Jul 11, 2003 2:28 pm

Script containing some abuse.

2003-07-11T14:19:53-04:00

now the following error appears when the bot parts then joins the channel:
[11:12] Bot joined #channel.
[11:13] Tcl error in script for 'timer32806':
[11:13] can't read "tslines(#channel)": no such element in array
now what's the problem ?? :p

this seems not related to the code you posted earlier, but to some other code. Check for the word "tslines" in the tcl scripts you loaded.

Statistics: Posted by egghead — Fri Jul 11, 2003 2:19 pm

Script containing some abuse.

2003-08-12T07:01:52-04:00

Edit:nothing. (mistake reply) sorry

Statistics: Posted by Sir_Fz — Fri Jul 11, 2003 2:16 pm

Script containing some abuse.

2003-07-11T12:51:46-04:00

ok, thanx again
this time it works very well with no errors and no such abuse.

Statistics: Posted by Sir_Fz — Fri Jul 11, 2003 12:51 pm

Script containing some abuse.

2003-07-11T12:28:06-04:00

ok thanx again. I did as u told me, but this new error appears:

[09:17] Tcl error in script for 'timer28022':
[09:17] wrong # args: should be "upvar ?level? otherVar localVar ?otherVar localVar ...?"

Yeah, my bad.

replace

Code:

utimer [lindex $cp_jp_flood 1] "cp_expire cp_uh_count($uhost:$chan)"

Code:

utimer [lindex $cp_jp_flood 1]  [list cp_expire cp_uh_count($uhost:$chan)]

This will send the name of the array to the cp_expire proc and not the value.

Aren't there any other clone detection scripts out there? This is kind of an odd script which will show interesting behaviour under serious flood conditions.

Statistics: Posted by egghead — Fri Jul 11, 2003 12:28 pm

Script containing some abuse.

2003-07-11T12:19:21-04:00

ok thanx again. I did as u told me, but this new error appears:

[09:17] Tcl error in script for 'timer28022':
[09:17] wrong # args: should be "upvar ?level? otherVar localVar ?otherVar localVar ...?"

Statistics: Posted by Sir_Fz — Fri Jul 11, 2003 12:19 pm

Script containing some abuse.

2003-07-11T12:12:24-04:00

ok thank you
but now this error appears:
[08:58] Tcl error [clone_pro_join]: can't read "cp_uh_count(ident@xx.xx.xxx.xxx:#channel)": no such variable

Note:I replaced all cp_uh_count($uhost:$chan) with $cp_uh_count($uhost:$chan) except the set cp_uh_count($uhost:$chan)

You only need to replace it in the utimers, not everywhere.

Statistics: Posted by egghead — Fri Jul 11, 2003 12:12 pm

Script containing some abuse.

2003-07-11T12:00:11-04:00

ok thank you
but now this error appears:
[08:58] Tcl error [clone_pro_join]: can't read "cp_uh_count(ident@xx.xx.xxx.xxx:#channel)": no such variable

Note:I replaced all cp_uh_count($uhost:$chan) with $cp_uh_count($uhost:$chan) except the set cp_uh_count($uhost:$chan)

Statistics: Posted by Sir_Fz — Fri Jul 11, 2003 12:00 pm

Script containing some abuse.

2003-07-11T12:13:22-04:00

I got it from the TCL archieve of this site (http://www.egghelp.org), Clonepro.tcl.

so all i have to do is replace from cp_uh_count($uhost:$chan) to $cp_uh_count($uhost:$chan) and it won't have this problem ?

Yes. Note that that line occurs a couple of times in the code you pasted.

Edit: only replace it in the utimers lines. NOT everywhere.

Statistics: Posted by egghead — Fri Jul 11, 2003 11:43 am

Script containing some abuse.

2003-07-11T11:29:03-04:00

I got it from the TCL archieve of this site (http://www.egghelp.org), Clonepro.tcl.

so all i have to do is replace from cp_uh_count($uhost:$chan) to $cp_uh_count($uhost:$chan) and it won't have this problem ?

Statistics: Posted by Sir_Fz — Fri Jul 11, 2003 11:29 am

Script containing some abuse.

2003-07-11T06:49:08-04:00

how about this one ?

Code:

proc clone_pro_join {nick uhost handl chan} {[snip]proc clone_pro_leave {nick uhost handl chan {reason "Left channel"}} {

That is a good candidate.

Code:

utimer [lindex $cp_jp_flood 1] "cp_expire cp_uh_count($uhost:$chan)"

This is the offending line, which appears multiple times in the snippet you pasted. Note that this script makes a call to the proc "cp_expire" with "cp_uh_count($uhost:$chan)" as its argument. It appears this is a mistake and should be "$cp_uh_count($uhost:$chan)"

It is appreciated if you let us know what script this is and where you got it. If you got it from the egghelp.org tcl scripts repository, please inform slennox on it.

Statistics: Posted by egghead — Fri Jul 11, 2003 6:49 am

Script containing some abuse.

2003-07-11T06:23:11-04:00

how about this one ?

Code:

proc clone_pro_join {nick uhost handl chan} {global cp_chans cp_j_flood cp_jp_flood cp_btime cp_host_count cp_uh_count cp_notifyset uhost [string tolower $uhost]set host [lindex [split $uhost @] 1]set chan [string tolower $chan]if {[lsearch -exact $cp_chans $chan] == -1} {return 0}if {![info exists cp_host_count($host:$chan)]} {set cp_host_count($host:$chan) 1} else {incr cp_host_count($host:$chan)}utimer [lindex $cp_j_flood 1] "cp_expire cp_host_count($host:$chan)"if {$cp_host_count($host:$chan) > [lindex $cp_j_flood 0]} {newchanban $chan *!*@$host ClonePro "Join Flood detected from your host - Banned 10mins." $cp_btime          sendnote ClonePro $cp_notify "÷ banned *!*@$host (massjoin) on $chan, [ctime [unixtime]] ÷"if {[botisop $chan] && [onchan $nick $chan]} {    putserv "mode $chan +MR"putquick "KICK $chan $nick :Join Flood detected from your host - Banned 10mins."    utimer 15 "pushmode $chan -R"    utimer 30 "pushmode $chan -M" }    }if {![info exists cp_uh_count($uhost:$chan)]} {set cp_uh_count($uhost:$chan) 1} else {incr cp_uh_count($uhost:$chan)}utimer [lindex $cp_jp_flood 1] "cp_expire cp_uh_count($uhost:$chan)"if {$cp_uh_count($uhost:$chan) >= [expr [lindex $cp_jp_flood 0]*2]} {newchanban $chan *!*@$host ClonePro "eXcess Join/Part detected from your host - Banned 10mins." $cp_btime          sendnote ClonePro $cp_notify "÷ banned *!*@$host (join/part flood) on $chan, [ctime [unixtime]] ÷"if {[botisop $chan] && [onchan $nick $chan]} {    putserv "mode $chan +R"putquick "KICK $chan $nick :eXcess Join/Part detected from your host - Banned 10mins."   utimer 15 "pushmode $chan -R"}    }}proc clone_pro_leave {nick uhost handl chan {reason "Left channel"}} {global cp_chans cp_jp_flood cp_btime cp_uh_count cp_notifyset uhost [string tolower $uhost]set host [lindex [split $uhost @] 1]set chan [string tolower $chan]if {[lsearch -exact $cp_chans $chan] == -1} {return 0}if {![info exists cp_uh_count($uhost:$chan)]} {set cp_uh_count($uhost:$chan) 1} else {incr cp_uh_count($uhost:$chan)}utimer [lindex $cp_jp_flood 1] "cp_expire cp_uh_count($uhost:$chan)"if {$cp_uh_count($uhost:$chan) >= [expr [lindex $cp_jp_flood 0]*2]} {newchanban $chan *!*@$host ClonePro "eXcess Join/Part detected from your host - Banned 10mins." $cp_btime          sendnote ClonePro $cp_notify "÷ banned *!*@$host (join/part flood) on $chan, [ctime [unixtime]] ÷"if {[botisop $chan] && [onchan $nick $chan]} {putserv "mode $chan +R"putquick "KICK $chan $nick :eXcess Join/Part detected from your host - Banned 10mins."   utimer 15 "pushmode $chan -R"}    }}proc cp_expire var_exp {upvar $var_exp var_pointer  if {$var_pointer > 1} {incr var_pointer -1} else {unset var_pointer}}set cp_chans [string tolower $cp_chans]set cp_j_flood [split $cp_j_flood :]set cp_jp_flood [split $cp_jp_flood :]# clear variables and timers on rehashif {[array exists cp_host_count]} {unset cp_host_count}if {[array exists cp_uh_count]} {unset cp_uh_count}foreach check_utimer [utimers] {if {[string match cp_*_count* [lindex $check_utimer 1]]} {killutimer [lindex $check_utimer 2]}}

Statistics: Posted by Sir_Fz — Fri Jul 11, 2003 6:23 am

Script containing some abuse.

2003-07-11T05:54:15-04:00

it's not that script... it only has one utimer which is perfectly ok..

Statistics: Posted by Papillon — Fri Jul 11, 2003 5:54 am