Code:

if {[string match -nocase *$searchstring* [join $line]]} { 

Code:

## Add new models like this: !addtuto Name|Description|Link# !addtuto command works only for chan operators.##bind pub o|o !addtuto modemaddbind pub -|- !search modemsearchproc modemadd {nck uhost hand chan text} {# The new line.set line_to_add "$text"# Name of file to append to.set fname "yourfile.txt"# Open the file in append mode.set fp [open $fname "a"]# Add the line.puts $fp $line_to_add# We're done!close $fpputserv "PRIVMSG $chan :\00314Router: \002\00310[lindex [split $text "|"] 0]\002\00314, Description: \00310[lindex [split $text "|"] 1]\00314, Link manual: \00312\037[lindex [split $text "|"] 2]\037\00314. Added successfully!\003"} proc modemsearch {nick uhost hand chan text} {set searchstring $text# File name to read.set fname "yourfile.txt"# Open file for read access (note we're not catching errors, you might# want to use catch {} if the file might not exist.set fp [open $fname "r"]# Here we read in all of the data.set data [read -nonewline $fp]# Close the file, since we're done reading.close $fp# Now we split the data into lines.set lines [split $data "\n"]set searchresult ""foreach line $lines {if {[string match *$searchstring* [join $line]]} {lappend searchresult $line}}if {$searchresult == ""} {putserv "PRIVMSG $chan :\00310$nick\00314, nothing found for \00310\002$searchstring\002\00314..."return 0}if {[llength $searchresult] < "2"} {putserv "PRIVMSG $chan :\00314I found one result:\003"putserv "PRIVMSG $chan :\00314Router: \002\00310[lindex [split [join $searchresult] "|"] 0]\002\00314, Description: \00310[lindex [split [join $searchresult] "|"] 1]\00314, Link manual: \00312\037[lindex [split [join $searchresult] "|"] 2]\037\003."return 0} else {putserv "PRIVMSG $chan :\00314I found \00310[llength $searchresult] \00314results:\003"foreach line $searchresult {lappend models \00310[lindex [split $line "|"] 0]}putserv "PRIVMSG $chan :\00314Models: [join $models "\00314, "]\00314.\003"}}putlog "modem.tcl loaded..."