egghelp/eggheads community

Trap Bot: delete word on file

2009-05-21T17:29:10-04:00

try:

Code:

proc logip {ip} {        if {$ip == "0.0.0.0"} {                return        }        set db_get [open iplog.txt r]        set all_ips [split [read $db_get] "\n"]        close $db_get        if {[lsearch $all_ips $ip] != -1} {                return        }        set file [open iplog.txt a+]        puts $file "$ip"        close $file}

or, if want with "a+" without extra file reading:

Code:

proc logip {ip} {        if {$ip == "0.0.0.0"} {                return        }        set file [open iplog.txt a+]        seek $file 0        set all_ips [split [read $file] "\n"]        if {[lsearch $all_ips $ip] != -1} {                close $file                return        }        seek $file 0 end        puts $file "$ip"        close $file}

Statistics: Posted by tomekk — Thu May 21, 2009 5:29 pm

Trap Bot: delete word on file

2009-05-21T17:19:32-04:00

try something like this

Code:

proc logip {ip} {set file [open iplog.txt a+]set info [split [read $file] \n]]if {$ip != "0.0.0.0" && [string equal [lsearch -exact $info $ip] "-1"]} {puts $file "$ip"}close $file}

Statistics: Posted by Papillon — Thu May 21, 2009 5:19 pm

Another Issue

2009-05-21T14:47:04-04:00

Thanks! I edited the script and it works fine now. Here's the next thing i need help with.

Code:

proc logip {ip} {  set file [open iplog.txt a+]  if {$ip != "0.0.0.0"} {    puts $file "$ip"  } close $file }

But I would like to know how I can make it search if $ip exists in the file, and if it does, it doesnt write $ip to the file twice.

Statistics: Posted by Rapfnny — Thu May 21, 2009 2:47 pm

Re: Trap Bot: error with # of args

2009-05-21T14:09:00-04:00

Here's my script:
[13:53] Tcl error [userip]: wrong # args: should be "userip nick uhost hand channel txt"
When its already there. >:\ What can I do to fix this?

from tcl-commands.txt:

(8) JOIN (stackable)
bind join
procname

Description: triggered by someone joining the channel. The mask in
the bind is matched against "#channel nick!user@host" and can
contain wildcards.
Module: irc

change

Code:

proc userip { nick uhost hand channel txt } {

Code:

proc userip { nick uhost hand channel } {

Statistics: Posted by tomekk — Thu May 21, 2009 2:09 pm

Trap Bot: delete word on file

2009-05-23T22:35:43-04:00

Never mind I decided to finish it. Here's what i need help on next:
I decided to make it go by nicks. I wan't the nick to be removed from nicklog.db if it is kicked from the channel heres my current code which isn't working.

Code:

bind kick - "#DontJoinItsATrap" unlogproc unlog {nick uhost hand chan reason} {  set input [open nicklog.db]  set output [open nicklog.tmp w]  while {[gets $input line] >= 0} { if {[lsearch $line [string tolower $nick]] < 0} { puts $output $line } }  close $input  close $output  file rename -force nicklog.tmp nicklog.db  putserv "NOTICE $nick You have escaped ^_^"}

It doesnt do anything at all when i kick someone.

Statistics: Posted by Rapfnny — Thu May 21, 2009 2:02 pm