egghelp.org community :: View topic - Can some one changs this where it wite to

[ egghelp.org home | forum home ]

egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.

FAQ

Memberlist

Usergroups

Profile

Can some one changs this where it wite to

egghelp.org community Forum Index -> Script Requests

View previous topic :: View next topic

Author

Message

sdays
Halfop

Joined: 21 Oct 2006
Posts: 98

Posted: Fri Mar 02, 2007 5:57 pm Post subject: Can some one changs this where it wite to

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

##
# ¤ binds

bind join * * badwhois:join
bind part - * badwhois:part
bind raw - 311 badwhois:check
bind raw - 319 badwhois:chans

##
# ¤ whois on join

proc 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 check

proc 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 check

proc 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 remove

proc 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.."

Sir_Fz
Revered One

Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon

Posted: Fri Mar 02, 2007 6:36 pm Post subject:

Change what? what's wrong? write the specifics, don't expect us to inspect them. _________________ Follow me on GitHub - Opposing Public Tcl scripts

sdays
Halfop

Joined: 21 Oct 2006
Posts: 98

Posted: Fri Mar 02, 2007 6:57 pm Post subject:

write to blacklist.db

rosc2112
Revered One

Joined: 19 Feb 2006
Posts: 1454
Location: Northeast Pennsylvania

Posted: Fri Mar 02, 2007 7:41 pm Post subject:

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

sdays
Halfop

Joined: 21 Oct 2006
Posts: 98

Posted: Fri Mar 02, 2007 8:05 pm Post subject:

no i want the bans go to blacklist.txt

rosc2112
Revered One

Joined: 19 Feb 2006
Posts: 1454
Location: Northeast Pennsylvania

Posted: Mon Mar 05, 2007 4:09 am Post subject:

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:check
puts $klog "[ctime [unixtime] New BadWhois:check Ban on $chan\: $mask"

# this line goes in proc badwhois:chans
puts $klog "[ctime [unixtime]] New BadWhois:chans Ban on $chan\: [lindex $t 2]"

catch [close $klog]

fayettemat
Voice

Joined: 09 Jan 2007
Posts: 27

Posted: Mon Mar 05, 2007 1:44 pm Post subject:

Quote:

# 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
Smile

Display posts from previous:

	egghelp.org community Forum Index -> Script Requests	All times are GMT - 4 Hours
Page 1 of 1

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum