Code: Select all
bind notc - "*\[VERBOSE\]*" verbose
proc verbose {nick uhost hand text dest} {
putlog "Verbose logged by $nick and was $text"
set file "verb.txt"
set fs [open $file w]
puts $fs "$nick $text"
close $fs
}
Code: Select all
bind notc - "*\[VERBOSE\]*" verbose
proc verbose {nick uhost hand text dest} {
putlog "Verbose logged by $nick and was $text"
set file "verb.txt"
set fs [open $file w]
puts $fs "$nick $text"
close $fs
}
Code: Select all
bind notc - "*\[VERBOSE\]*" verbose
proc verbose {nick uhost hand text dest} {
putlog "Verbose logged by $nick and was $text"
set file "verb.txt"
set fs [open $file a+]
puts $fs "$nick $text"
close $fs