Untitled

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]]} > 4 } {
		puthelp "PRIVMSG $chan :$prefix $line"
		}
		 } 
	putlog " \0034 \[URL\] \017 demande --------> \002\0034 $nick \002 \017  (\0033 $args \017) sur \0037 $chan"
} else {
		    puthelp "NOTICE $nick :$arg: No Data"
			return 0
		    }
		   close $in
				    } else {
    puthelp "NOTICE $nick :Syntax: !URL <MOT>"
	  }
  return 1
  
}