i wanted to store on new line date , nick , host and the quit message on certain
words detected in the quit message in this case spam message
i managed to get the words to search for and all (wich i took from another tcl script that was premade for quit message spam) just the part to store the above info in a text file i struggle with
heres what i have so far:
Code: Select all
set quitwords {
"G-lined"
}
bind sign - * quit:check
proc quit:check {nick uhost hand chan reason} {
global quitwords
foreach quitmatch $::quitwords {
if {([string match -nocase *$quitmatch* $reason])} {
***** store DATE, $nick, $uhost and $reason of quit in a text file *****
}
}
}
the idea is to check for the text file glined-spam.txt if it exists and if it does to write the above info to it and if it doesnt exist to create the file and write above info to it