Code:

<Nor7on> .rehash<)Modo> [04:09] #Nor7on# rehash<)Modo> Rehashing.<)Modo> [04:09] Writing user file...<)Modo> [04:09] Writing channel file...<)Modo> [04:09] Rehashing ...<)Modo> [04:09] Listening at telnet port 3344 (all).<)Modo> [04:09] SCRIPT ERROR:Xbanpurge.tcl: missing close-brace: possible unbalanced brace in comment<)Modo>     while executing<)Modo> "proc rawit {from keyword arg} {<)Modo> global xlistdebug xlistchans xlistaccess xlistuser xlistpass xlistban xlistby xlistlevel xlisttimef<)Modo> if { $from == "X!c..."<)Modo>     (file "scripts/Xbanpurge.tcl" line 215)<)Modo>     invoked from within<)Modo> "source scripts/$script"<)Modo> [04:09] Userfile loaded, unpacking...<Nor7on> .set errorInfo<)Modo> [04:15] #Nor7on# set errorInfo<)Modo> Currently: missing close-brace: possible unbalanced brace in comment<)Modo> Currently:     while executing<)Modo> Currently: "proc rawit {from keyword arg} {<)Modo> Currently: global xlistdebug xlistchans xlistaccess xlistuser xlistpass xlistban xlistby xlistlevel xlisttimef<)Modo> Currently: if { $from == "X!c..."<)Modo> Currently:     (file "scripts/Xbanpurge.tcl" line 215)<)Modo> Currently:     invoked from within<)Modo> Currently: "source scripts/$script"

Code:

[08:56] missing close-brace: possible unbalanced brace in comment    while executing"proc rawit {from keyword arg} {global xlistdebug xlistchans xlistaccess xlistuser xlistpass xlistban xlistby xlistlevel xlisttimefif { $from == "X!c..."    (file "/home/nor7on/Modo/current/Xbanpurge.tcl" line 215)    invoked from within"source $files"    ("foreach" body line 3)    invoked from within"foreach files $qload(filelist) {                        if {$files == ""} {return 0}                        source $files                        }"    ("foreach" body line 3)    invoked from within"foreach type $qload(types) {        set qload(filelist) [glob -directory $qload(datadir) -nocomplain -- $type]                foreach files $qload(filelist) {                        if {$fi..."    (file "scripts/quickload.tcl" line 36)    invoked from within"sourc[08:56] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

Code:

###### Xbanpurge v1.0 by HigH# 1. What does it do ?#   - it authenticates to X#   - it unbans the eggdrop if banned, treating <75 bans as well #   - it invites the bot through X to channel, if set +i#   - it ops the bot through X if autoop is not set#   - takes the bans from X banlist and places them inside#   - removes them if it finds them again in X's banlist# 2. How does it work? #   - it adds X as a user internally, with flags +fX, f(friend) and X for bind raw procedures#   - it provides some commands#        - dcc command .xauth which does authentication ( for o|o )#        - dcc command .xlist which does ban purging from X ( for o|o )#        - msg command xbans which returns bans from X by /msging back ( for everybody )#        - msg command bans which returns internal banlist by /msging back ( only for owners )# 3. What does it NOT do (yet) ?#   - it can be only used on one channel#   - can not clear limit if it's set, because it is a 400 level or more privilege, and i think that #     a little too much for an eggdrop#   - it has some problems when displaying special characters in bans, like *}*@* .. i will fix that soon ## 4. Installation#    Place it into /home/of/eggdrop/scripts and add "source scripts/xbanpurge.tcl" at the end of #    config file## For problems, suggestions and complains please mail to solics@yahoo.com or contact me as HigH on undernet# channel #bucuresti###### Set is as the channel you want to monitorset xlistchans "#Madrid"# Set its user to Xset xlistuser "username"# Set its pass to Xset xlistpass "Password"# Set this to 0 if the bot does not have autoop to Xset xlistautoop 1# Set its access to Xset xlistaccess 100# Set this to how many minutes do you want between checkingset xlisttimer 20# Set this if you want X to be ignoredset xlistxignore 1# Set this to 0 if you want some extra infos printed in partylineset xlistdebug 1######### Do not modify, unless you know what you are doing #######set xlistban ""set xlistlevel ""set xlistby ""set xlisttimef ""set xlistauthed 0# This analyzes the raw NOTICEs coming from Xproc xlistraw { from keyword text } {global xlistauthed xlistautoop xlistchans xlistuser xlistpass botnick xlistdebugif { $from == "X!cservice@undernet.org" } {if { [string match "*You must be logged in to use this command*" $text] } {if { $xlistdebug == "1" } {putlog "We are not logged in to X."}putquick "ISON X"set xlistauthed 0return 2}if { [string match "*AUTHENTICATION SUCCESSFUL as*" $text] } {if { $xlistdebug == "1" } {putlog "We are just authenticated."}set xlistauthed 1return 3}if { [string match "*are not authorised with me anymo*" $text] } {if { $xlistdebug == "1" } {putlog "Somebody has just used our pass to X, reauthenticating ..."}putquick "ISON X"set xlistauthed 0return 4}if { [string match "*Ban List for channel*" $text] } {if { $xlistdebug == "1" } {putlog "Analizing banlist for $xlistchans."}return 5}if { [string match "*Channel *" $text] } {if { $xlistdebug == "1" } {putlog "Analizing status for $xlistchans."}return 6}if { [string match "*are not allowed to be opped on*" $text] } {if { $xlistdebug == "1" } {putlog "We are banned with level less than 75 on $xlistchans."}return 7}if { [string match "*You are already authenticated as*" $text] } {if { $xlistdebug == "1" } {putlog "We are already authenticated."}set xlistauthed 1return 8}} {return 0}}# This does the auth and oping, if xlistautoop is not setproc xlistxauth { hand idx arg } {putquick "ISON X"}# this is the dcc command to start analizing the banlistproc xlistlist { hand idx arg } {global xlistdebug xlistchansif { $xlistdebug == "1" } {putlog "Msging X for banlist ..."}putquick "PRIVMSG X :lbanlist $xlistchans *"}# this is for xbans pub commandproc xlistbans { nick uhost handle text } {global xlistchans xlistdebugif { $xlistdebug == "1" } {putlog "$nick is asking for X banlist ..." } putserv "PRIVMSG $nick :\037Some bans may not be displayed correctly, but that will be fixed in the next version."foreach ban [banlist $xlistchans] {if { [string match "*Xbanpurge*" $ban] } {set list [split $ban]set length [llength $list]putserv "PRIVMSG $nick :Banning [charfilter [lrange $list 0 [expr $length-5]]]"}}}#this is for bans pub commandproc xlistbans2 { nick uhost handle text } {global xlistchans xlistdebugputserv "PRIVMSG $nick :\037Some bans may not be displayed correctly, but that will be fixed in the next version."if { $xlistdebug == "1" } {putlog "$nick is asking for banlist ..." }foreach ban [banlist $xlistchans] {set list [split $ban]set length [llength $list]putserv "PRIVMSG $nick :Banning [charfilter [lrange $list 0 [expr $length-5]]]"}}# This is executed when X joins the channelproc xlistjoin { nick uhost handle channel } {global xlistautoop xlistdebug xlistchans xlistuser xlistpass botnick xlistauthedif { $xlistdebug == "1" } {putlog "X just joined the channel, authenticating ..."}putquick "PRIVMSG X@channels.undernet.org :login $xlistuser $xlistpass"if { $xlistdebug == "1" } {putlog "Authenticating ... "}set xlistauthed 1if { $xlistautoop == 0 } { putquick "PRIVMSG X :op $botnick $xlistchans"} return 0}# ison parsing and authentication### With compliments for Wcc :>proc ison_parse {from key text} {global xlistdebug xlistauthed xlistautoop xlistchans xlistuser xlistpass botnickif { [lrange [split $text :] 1 1] == "X" } {if { $xlistauthed == "0" } {if { $xlistdebug == "1" } {putlog "Authenticating ... "}set xlistauthed 1putquick "PRIVMSG X@channels.undernet.org :login $xlistuser $xlistpass"if { $xlistautoop == 0 } {putquick "PRIVMSG X :op $botnick $xlistchans"if { $xlistdebug == "1" } {putlog "Oping ourself ..."}}putquick "PRIVMSG X :lbanlist #Madrid *"return 2} {putquick "PRIVMSG X :lbanlist #Madrid *"return 2}} {if { $xlistdebug == "1" } {putlog "X is not online."}set xlistauthed 0}return 0}# this is done when connecting to the serverproc xlistinit { init-server } {global xlistdebug xlistxignoreif { [validuser X] } {if { $xlistdebug == "1" } {putlog "X is already added as a user"}} else {if { $xlistdebug == "1" } {putlog "Adding X as a user"}adduser X *!*@undernet.orgchattr X +X}if { $xlistxignore=="1" } {if { [isignore *!*@undernet.org] } { if { $xlistdebug == "1" } {putlog "Notices from X are already ignored."}} {newignore *!*@undernet.org Xbanpurge "leave this untouched" 0if { $xlistdebug == "1" } {putlog "Ignoring notices coming from X."} }}putquick "ISON X"return 0}# this does the banlist analizingproc rawit {from keyword arg} { global xlistdebug xlistchans xlistaccess xlistuser xlistpass xlistban xlistby xlistlevel xlisttimefif { $from == "X!cservice@undernet.org" } { set ctamea [split $arg]set bufferus [lrange [split [lrange $ctamea 1 1] :] 1 1]if { [string match "*No Match*" $arg] } {if { $xlistdebug == "1" } {putlog "No bans on $xlistchans."}return 0}if { [string match "*END*" $arg] } {if { $xlistdebug == "1" } {putlog "End of banlist."}return 0}if { $bufferus == $xlistchans } {set xlistban [lrange $ctamea 2 2] set xlistlevel [lrange $ctamea 4 4]if { $xlistlevel > $xlistaccess } { if { $xlistdebug == "1" } {putlog "The $xlistban ban is placed by a higher level user."}set xlistlevel "" return 0} }if { $bufferus == "ADDED" } {set xlistby [lrange $ctamea 3 end]}if { $bufferus == "EXP" } {set xlisttime [lrange $ctamea 2 end]set xlisttimedays [lrange [split $xlisttime] 0 0]set onething [split [lrange [split $xlisttime] 2 2] :]set xlisttimehours [lrange $onething 0 0]set xlisttimemins [lrange $onething 1 1]set xlisttimef [expr $xlisttimedays*24*60+[string index $xlisttimehours 0]*600+[string index $xlisttimehours 1]*60+[string index $xlisttimemins 0]*10+[string index $xlisttimemins 1]]if { $xlistban != "" && $xlistby !="" && $xlistlevel!="" && $xlisttimef!=""} {if { [isban $xlistban $xlistchans]} {foreach ban [banlist $xlistchans] {if { [string match "*Xbanpurge*" $ban] && [string match "*$xlistban*" $ban] } {killchanban $xlistchans $xlistban  putquick "PRIVMSG X :unban $xlistchans $xlistban"if { $xlistdebug == "1" } {putlog "Removing chanban $xlistban on $xlistchans"}break}}if { $xlistdebug == "1" } {putlog "Removing chanban $xlistban on $xlistchans, it was found on general banlist too"putquick "PRIVMSG X :unban $xlistchans $xlistban"} { set user [lrange $xlistby 0 0] set reason [lrange $xlistby 1 end]                                 set by "by $user with reason $reason for $xlisttime since [strftime %d%h] [time]"                                newchanban $xlistchans $xlistban Xbanpurge $by $xlisttimefif { $xlistdebug == "1" } {putlog "Banning $xlistban $by"}   putquick "PRIVMSG X :unban $xlistchans $xlistban"set xlistban ""set xlistlevel ""set xlistby ""set xlisttimef ""return 0}}}}return 0}# timers management and starting procedureproc xlistkill {} {   foreach j [timers] {if {[string compare [lindex $j 1] xlistdoitnow ] == 0} {   killtimer [lindex $j 2] }  }  return 0}proc xliststart {} {  global xlisttimer  timer $xlisttimer xlistdoitnow  return 0}proc xlistdoitnow {} {putquick "ISON X"xlistkillxliststartreturn 0}# for need-unbanproc xlistunban { channel type } {global xlistdebug username botnick xlistchansif { $xlistdebug == "1" } {putlog "We need unban on $xlistchans."}putquick "PRIVMSG X :unban $xlistchans $botnick"return 0}# for need-opproc xlistop { channel type } {global xlistdebug username botnick xlistchansif { $xlistdebug == "1" } {putlog "We need op on $xlistchans."}putquick "PRIVMSG X :op $xlistchans $botnick"return 0}# for need-inviteproc xlistinvite { channel type } {global username xlistdebug botnick xlistchansif { $xlistdebug == "1" } {putlog "We need invite on $xlistchans."}putquick "PRIVMSG X :invite $xlistchans $botnick"return 0}# this does some filtering on special chars like {}proc charfilter {x {y ""} } {for {set i 0} {$i < [string length $x]} {incr i} {switch -- [string index $x $i] {"\\" {append y ""}"\}" {append y ""}"\{" {append y ""}default {append y [string index $x $i]}}}return $y}# Finnalyxlistkillxliststart# bindsbind RAW X|X NOTICE xlistrawbind RAW X|X NOTICE rawitbind dcc o|o xauth xlistxauthbind dcc o|o xlist xlistlistbind msg o|o xbans xlistbansbind msg n|n bans xlistbans2bind JOIN X|X "$xlistchans X!cservice@undernet.org" xlistjoinbind JOIN X|X "$xlistchans $botnick!$username@*" xlistjoinbind evnt - init-server xlistinitbind raw - 303 ison_parsebind need X|X "$xlistchans unban" xlistunbanbind need X|X "$xlistchans op" xlistopbind need X|X "$xlistchans invite" xlistinviteputlog "X authentication and ban purger by HigH loaded and timer set at $xlisttimer minute(s)."