egghelp/eggheads community

Storing date, nick host and reason of quit

2021-09-29T11:23:53-04:00

thanks SPike^^ and CrazyCat seems to work as desired

Statistics: Posted by simo — Wed Sep 29, 2021 11:23 am

Storing date, nick host and reason of quit

2021-09-29T10:09:30-04:00

after having close the file, before the } closing the if:

Code:

set quitwords {  "G-lined"}bind sign - * quit:checkproc quit:check {nick uhost hand chan reason} {    foreach quitmatch $::quitwords {        if {([string match -nocase *$quitmatch* $reason])} {           set openfile [open quits.log a]           puts $openfile "[ctime [unixtime]] - $nick $uhost $reason"           close $openfile           return      }  }}

Note that you used "global quitwords" but after you use $::quitwords, the global is useless

Statistics: Posted by CrazyCat — Wed Sep 29, 2021 10:09 am

Storing date, nick host and reason of quit

2021-09-29T10:01:02-04:00

tried your suggestion seems to work well thanks Spike^^

just a small idea: add a return after having write: without it, if you have several words matching, you'll have a line per word in your logfile

not sure what you mean CrazyCat ?

u mean : puts $openfile "[ctime [unixtime]] - $nick $uhost $reason" ; return

Statistics: Posted by simo — Wed Sep 29, 2021 10:01 am

Storing date, nick host and reason of quit

2021-09-29T09:51:25-04:00

just a small idea: add a return after having write: without it, if you have several words matching, you'll have a line per word in your logfile

Statistics: Posted by CrazyCat — Wed Sep 29, 2021 9:51 am

Storing date, nick host and reason of quit

2021-09-29T09:42:15-04:00

Code:

set openfile [open quits.log a]puts $openfile "[ctime [unixtime]] - $nick $uhost $reason"close $openfile

Statistics: Posted by SpiKe^^ — Wed Sep 29, 2021 9:42 am

Storing date, nick host and reason of quit

2021-09-29T09:13:32-04:00

greetz gents,

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:

set quitwords {  "G-lined"}bind sign - * quit:checkproc 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

Statistics: Posted by simo — Wed Sep 29, 2021 9:13 am