badnick with database problem

2006-08-30T14:46:44-04:00

ok, tnx.I will search for HOWTOs in this forum, if you want, can post for me here the links.If not..i will continue with my search.

Statistics: Posted by e-force — Wed Aug 30, 2006 2:46 pm

badnick with database problem

2006-08-29T23:58:24-04:00

you haven't tried hard enough (looking up the forum for solution); if you had, you'd find my countless HOWTOs on the subject, which essentially say that you need to: (1) open the file on loading the script, (2) read the entire contents into memory (list) and then close the file, (3) manipulate that list only, not the file itself and (4) periodically save the list into file

Statistics: Posted by demond — Tue Aug 29, 2006 11:58 pm

badnick with database problem

2006-08-29T10:28:34-04:00

Hello there, i`ve search most of the topics here but i didn`t find any desicion on my problem. There it is:
I want to make my egg tcl which kickban user on join in channel with a list of badnicks,which will be add from some operators. The problem is in the joining procedure, can i set the "black list" from file somwhere in eggdrop memory? Here is the code i`ve writen

Code:

set ul(dbfile) "scripts/badnick-list.db"set bchan ""bind join - * join:badnickbind pub l .addbnick save:nickbind pub l .badnickload load:resultsproc save:nick { nick uhost hand chan txt } { global botnick ul set msg [lrange $txt 0 end]        if { $txt == "" } {         putserv "PRIVMSG $chan :$nick, Please define bad nickname!"         return 0        } else {        putserv "PRIVMSG $chan :$msg Shte vi shiba za zakuska!!"         set file [open $ul(dbfile) "a"]          puts $file "$msg"          close $file          return 0          }}proc load:results { nick uhost hand chan txt } { global botnick prefix ul        if {![file exist $ul(dbfile)]} {         putserv "PRIVMSG $chan :I have NO results for this request."         return 0        }           set file [open $ul(dbfile) r]            while {![eof $file]} {             set line [gets $file]              if {([string match "*" $line])} {               set bnick "[string range $line 0 end]"                putserv "PRIVMSG $chan :$bnick"              }            }        close $file}proc join:badnick {nick uhost hand chan} {global bnick bchan kickreason tempif {(([lsearch -exact [string tolower $bchan] [string tolower $chan]] != -1)  || ($bchan == ""))} {  set temp 0        foreach i [string tolower $bnick] {        if {[string match *$i* [string tolower $nick]]} {        set temp 1        }        }}        if {!$temp} { return } {putquick "MODE $chan +b $nick"putquick "KICK $chan $nick :$kickreason" }}

I`m afraid that if bot read the database.db file everytime when someone joining the channel it will load a bit. That`s why i`m searching for other way to slove the problem. Tnx in advice!

Statistics: Posted by e-force — Tue Aug 29, 2006 10:28 am

egghelp/eggheads community

badnick with database problem

badnick with database problem

badnick with database problem