| View previous topic :: View next topic |
| Author |
Message |
xcoldfyrex
Voice
Joined: 27 Jun 2005
Posts: 4
|
 Posted: Sat Jul 01, 2006 4:26 pm Post subject: need to rehash bot to change log files for custom tcl? |
 |
|
im sure the coding can be better
in order for it to start writing to a different file, the bot needs to be rehashed, and i dont want this, it should just log to a file based on the realtime date
| Code: | ###########################THIS TCL BY COLDFYRE
bind pubm - "*" save_message
bind join - "*" save_join
bind part - "*" save_part
bind sign - "*" save_sign
bind topc - "*" save_topc
bind kick - "*" save_kick
bind nick - "*" save_nick
bind mode - "*" save_mode
set date [clock format [clock seconds] -format "%d_%m_%y"]
set times [clock format [clock seconds] -format "%T"]
set thechan "#dialtone"
set joins "/www/htdocs/dialtone_radio/logs/irc_$date.log"
proc save_message {nick uhost handle chan text} {
set date [clock format [clock seconds] -format "%d_%m_%y"]
set times [clock format [clock seconds] -format "%T"]
if {$chan == "#dialtone"} {
set file [open $::joins a]
puts $file "$times $nick: $text (00)"
catch {close $file}
}
}
proc save_join {nick uhost handle chan} {
set date [clock format [clock seconds] -format "%d_%m_%y"]
set times [clock format [clock seconds] -format "%T"]
if {$chan == "#dialtone"} {
set file [open $::joins a]
puts $file "$times JOIN $nick ($uhost)(00)"
catch {close $file}
}
}
proc save_part {nick uhost handle chan msg} {
set date [clock format [clock seconds] -format "%d_%m_%y"]
set times [clock format [clock seconds] -format "%T"]
if {$chan == "#dialtone"} {
set file [open $::joins a]
puts $file "$times PART $nick ($uhost)(00)"
catch {close $file}
}
}
proc save_sign {nick uhost handle chan msg} {
set date [clock format [clock seconds] -format "%d_%m_%y"]
set times [clock format [clock seconds] -format "%T"]
if {$chan == "#dialtone"} {
set file [open $::joins a]
puts $file "$times QUIT $nick ($uhost) REASON: $msg (00)"
catch {close $file}
}
}
proc save_topc {nick uhost handle chan topic} {
set date [clock format [clock seconds] -format "%d_%m_%y"]
set times [clock format [clock seconds] -format "%T"]
if {$chan == "#dialtone"} {
set file [open $::joins a]
puts $file "$times $nick ($uhost) sets topic: $topic (00)"
catch {close $file}
}
}
proc save_kick {nick uhost handle chan target reason} {
set times [clock format [clock seconds] -format "%T"]
if {$chan == "#dialtone"} {
set file [open $::joins a]
puts $file "$times $nick ($uhost) kicked $target because $reason (00)"
catch {close $file}
}
}
proc save_nick {nick uhost handle chan newnick} {
set date [clock format [clock seconds] -format "%d_%m_%y"]
set times [clock format [clock seconds] -format "%T"]
if {$chan == "#dialtone"} {
set file [open $::joins a]
puts $file "$times $nick changed nick to $newnick (00)"
catch {close $file}
}
}
proc save_mode {nick uhost handle chan mode victim} {
set date [clock format [clock seconds] -format "%d_%m_%y"]
set times [clock format [clock seconds] -format "%T"]
if {$chan == "#dialtone"} {
set file [open $::joins a]
if {$victim == "" } {
puts $file "$times $nick sets mode: $mode (00)"
} else {
puts $file "$times $nick sets mode $mode on $victim (00)"
}
catch {close $file}
}
} |
|
|
| Back to top |
|
 |
SaPrOuZy
Halfop
Joined: 24 Mar 2004
Posts: 75
Location: Lebanon
|
| Posted: Thu Jul 06, 2006 2:10 am Post subject: |
|
|
put
| Code: | | set joins "/www/htdocs/dialtone_radio/logs/irc_$date.log" |
before every
| Code: | | set file [open $::joins a] |
|
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
