Something

proc pub_urlsearch {nick uhost handle chan args} {
  global urlfile prefix
  if {[lindex $args 0] != ""}  {
    set in [open $urlfile r]

    while {![eof $in]} {
      set line [gets $in]
	        if {[string match "*[string tolower $args]*" [string tolower $line]]} {
		puthelp "PRIVMSG $chan :$prefix $line"
		return 0
		 } 
		 if { $line == "" } {
		    puthelp "PRIVMSG $chan : Shearch: No Data"
					    }   	 	
			} 
		 putlog " \0034 \[URL\] \017 demande --------> \002\0034 $nick \002 \017  (\0033 $args \017) sur \0037 $chan"
					close $in
						} else {
    puthelp "NOTICE $nick :Syntax: !URL <MOT>"
	  }
  return 1
  }