egghelp/eggheads community

Can some one changs this where it wite to

2007-03-05T13:44:41-04:00

# insert this (all except the lines noted for the particular procs)
# after the lines with 'newchanban'

# set your filename here:
set kblog "/path/to/filename.txt"

the /path/to/ is the full path not just /scripts or /files

Statistics: Posted by fayettemat — Mon Mar 05, 2007 1:44 pm

Can some one changs this where it wite to

2007-03-05T04:09:46-04:00

Code:

# insert this (all except the lines noted for the particular procs)# after the lines with 'newchanban'  # set your filename here:set kblog "/path/to/filename.txt"set klog [open $kblog a]# this line goes in proc badwhois:checkputs $klog "[ctime [unixtime] New BadWhois:check Ban on $chan\: $mask"# this line goes in proc badwhois:chansputs $klog "[ctime [unixtime]] New BadWhois:chans Ban on $chan\: [lindex $t 2]"catch [close $klog]

Statistics: Posted by rosc2112 — Mon Mar 05, 2007 4:09 am

Can some one changs this where it wite to

2007-03-02T20:05:46-04:00

no i want the bans go to blacklist.txt

Statistics: Posted by sdays — Fri Mar 02, 2007 8:05 pm

Can some one changs this where it wite to

2007-03-02T19:41:43-04:00

write what? The names/hostmasks of people who got kicked?

Statistics: Posted by rosc2112 — Fri Mar 02, 2007 7:41 pm

Can some one changs this where it wite to

2007-03-02T18:57:10-04:00

write to blacklist.db

Statistics: Posted by sdays — Fri Mar 02, 2007 6:57 pm

Can some one changs this where it wite to

2007-03-02T18:36:28-04:00

Change what? what's wrong? write the specifics, don't expect us to inspect them.

Statistics: Posted by Sir_Fz — Fri Mar 02, 2007 6:36 pm

Can some one changs this where it wite to

2007-03-02T17:57:35-04:00

Can some one changs this where it wite to a txt file thx

Code:

set bwhois(list) {"meh""[censored]"}# .2. What bad channels should be banned?set bwhois(chans) {#sus}# .3. Specify the ban reason and the ban time (in minutes) for a bad realname:set bwhois(br) {"changs realname thx!" 600}# .4. Specify the ban reason and the ban time (in minutes) for a bad channel:set bwhois(bc) {"Wrong channel boy!" 60}# .4. Number of joins in seconds do a delayed whois.set bwhois(flud) "5:3:10"### ¤ Don't edit past here unless you know TCL! ¤#set bwhois(version) "0.1"setudef flag badwhois### ¤ bindsbind join * * badwhois:joinbind part - * badwhois:partbind raw - 311 badwhois:checkbind raw - 319 badwhois:chans### ¤ whois on joinproc badwhois:join {nick uhost hand chan} {   global bflud bwhois  if {![channel get $chan badwhois] || [isbotnick $nick ] || [matchattr $hand f|f $chan]} {    return  }   if {![info exists bflud($chan)]} {    set bflud($chan) 0  }  incr bflud($chan)  utimer [lindex [set bla [split $bwhois(flud) ":"]] 1] [list incr bflud($chan) -1]  if {$bflud($chan) >= [lindex $bla 0]} {    puthelp "WHOIS $nick"    } else {    utimer [lindex $bla 2] [puthelp "WHOIS $nick"]  }  lappend bwhois(whois) "$nick:$chan:*!*@[lindex [split $uhost @] 1]"}### ¤ realname checkproc badwhois:check {from key txt} {   global bwhois  if {![info exists bwhois(whois)]} {    set bwhois(whois) ""  }  if {[isbotnick [set nick [lindex [split $txt] 1]]] || [validuser [nick2hand $nick]]} {    return  }  set realname [stripcodes bcruag [string range [join [lrange [split $txt] 5 end]] 1 end]]  foreach bla $bwhois(list) {    if {[string match -nocase $bla $realname]} {      set position [lsearch $bwhois(whois) "*:[set mask *!*@[lindex $txt 3]]*"]      if {[botisop [set chan [lindex [set t [split [lindex $bwhois(whois) $position] :]] 1]]]} {        putquick "KICK $chan $nick :[lindex $bwhois(br) 0]" -next      }      newchanban $chan $mask BadWhois [lindex $bwhois(br) 0] [lindex $bwhois(br) 1]      set bwhois(whois) [lreplace $bwhois(whois) $position $position]      break    }  }}### ¤ channels checkproc badwhois:chans {from key txt} {   global bwhois  if {[isbotnick [set nick [lindex [split $txt] 1]]] || [validuser [nick2hand $nick]]} {    return  }  if {[set position [lsearch $bwhois(whois) "*$nick:*"]] != -1} {    foreach bla [lrange $txt 2 e] {      if {[string match -nocase "*[string trimleft $bla ":@+"]*" $bwhois(chans)]} {        if {[botisop [set chan [lindex [set t [split [lindex $bwhois(whois) $position] :]] 1]]]} {          putquick "KICK $chan [lindex $t 0] :[lindex $bwhois(bc) 0]" -next        }        newchanban $chan [lindex $t 2] BadWhois [lindex $bwhois(bc) 0] [lindex $bwhois(bc) 1]        set bwhois(whois) [lreplace $bwhois(whois) $position $position]        break      }    }  }}### ¤ array removeproc badwhois:part {nick uhost hand chan msg} {  global bflud  if {[isbotnick $nick] && [string match -nocase "*$chan*" [array names bflud]]} {    array unset bflud $chan  }}putlog "badwhois v$bwhois(version) loaded.."

Statistics: Posted by sdays — Fri Mar 02, 2007 5:57 pm