search line

[kozpt]

___________________________________________________________
bind pubm - "*teste*" pubm:teste
proc pubm:teste { nick uhost handle channel arg } {
global bla
set file logs/ipc.log
set textf [open $file r]
set data [read $textf]
foreach line [split $data \n] {
if {[string match *word* $line]} {
set text $line
putserv "PRIVMSG $chan :I found word in line $text"
}
}
catch {close $file}
}
___________________________________________________________________

whats wrong in this code?? i want that eggdrop searchs for a word in a logfile and say the lines of the file he found the word

[^DooM^]

if {[string match *word* $line]} {

How does it know what *word* is?

that should be the argument passed in ($arg).

[caesar]

Either check Basic File Operations or user's post.

[awyeah]

And 'close $file' simply should be okay. I don't find a need to use "catch" in this case.