Anonymous

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  }