help whit this tcl

[devilsoulblack]

this its the error

<(DeVilSoulBlacK> [17:34] Tcl error in file 'eggdrop.conf':
<(DeVilSoulBlacK> [17:34] missing close-brace: possible unbalanced brace in comment
<(DeVilSoulBlacK> while executing
<(DeVilSoulBlacK> "proc rlssearchpub {nick uhost handle chan arg} {
<(DeVilSoulBlacK> global rlsmaxsearch cd_release
<(DeVilSoulBlacK> if {$arg == ""} {puthelp "privmsg $chan :$nick ,search syntax is: \0..."
<(DeVilSoulBlacK> (file "scripts/findxpx.tcl" line 5)
<(DeVilSoulBlacK> invoked from within
<(DeVilSoulBlacK> "source scripts/findxpx.tcl"
<(DeVilSoulBlacK> (file "eggdrop.conf" line 264)
<(DeVilSoulBlacK> [17:34] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)
<(DeVilSoulBlacK> [11] Chat closed

this its the code

Code: Select all

set cmdsearch "@find" 
set rlsmaxsearch 2 
set cd_release "{/home/devilsoul/eggdrop/scripts/passsearch.txt}" 
bind pub - @find rlssearchpub 
proc rlssearchpub {nick uhost handle chan arg} { 
global rlsmaxsearch cd_release 
if {$arg == ""} {puthelp "privmsg $chan :$nick ,search syntax is: \002\0034@find <search string>" ;return 0} 
regsub -all -- " " ${arg} "*" rlsarg 
set totrlsfound 0 
foreach database $cd_release { 
set rlsfile [open $database r] 
while {![eof $rlsfile]} { 
set rlsline [gets $rlsfile] 
if {[string match "*$rlsarg*" [string tolower $rlsline]]} { 
incr totrlsfound 1 
if {$totrlsfound < $rlsmaxsearch} { 

set rlsline2 $rlsline 
set lurl [lindex $rlsline2 0] 
set lfrom [lindex $rlsline2 1] 
set lpoints [lrange $rlsline2 2 end] 
#putserv "Privmsg $chan :\0034$nick\003 , \0032Found:\002 \0034'$rlsarg'\003\002 \0033.. sending the pass to you in privmsg " 
puthelp "PRIVMSG $nick : \002Found:\002 $lurl ..... type --> \002\0034url - $lurl\002\003 in \0034THIS WINDOW\003 to remove a bad pass!!-- posted by $lfrom" 
} 
} 
} 
close $rlsfile 
} 
#if {$totrlsfound > $rlsmaxsearch} {puthelp "PRIVMSG $nick :There are over 
#if {$totrlsfound > $rlsmaxsearch} {puthelp "PRIVMSG $nick :There are over $rlsmaxsearch matches. Please be more specific"} 
#puthelp "PRIVMSG $nick :There was a total of $totrlsfound entries matching your query." 

}

[greenbear]

missing close-brace: possible unbalanced brace in comment

remove any commented lines with braces in them, and it should work

[CtrlAltDel]

Code: Select all

#if {$totrlsfound > $rlsmaxsearch} {puthelp "PRIVMSG $nick :There are over 
$rlsmaxsearch matches. Please be more specific"}

It appears that this is on 2 lines. If it is, comment out the second line. If it's not on 2 lines, disregard my comment

[greenbear]

yea i thought so too at first, but when i pasted it into a txtfile it came on 1 line, so its just word-wrapping on the forum doing it.

[Papillon]

delete this line:

Code: Select all

#if {$totrlsfound > $rlsmaxsearch} {puthelp "PRIVMSG $nick :There are over 

[devilsoulblack]

thanks guys