- update README for short descriptions of each script

- clean up autoop.tcl a bit

README

@@ -1 +1,9 @@
-miscellaneous tcl eggdrop scripts
+bash.tcl - bash.org quote fetcher
+calc.tcl - provides !calc <expression> calculator function
+google.tcl - query the Google API for searching/news/images. also use regular google search for google converting/calculating
+horgh_autoop.tcl - auto op all users in a channel which is set +horgh_autoop
+irb.tcl - unsafe public ruby interpreter
+isgd.tcl - provide function that shortens a given url using http://is.gd
+latoc.tcl - queries yahoo commodity listings for: energy, metals, grains, livestock, softs
+slang.tcl - urbandictionary.com definition fetcher
+wiki.tcl - wikipedia.org synopsis fetcher

horgh_autoop.tcl

@@ -6,18 +6,16 @@
 # Created Thu Oct 23 18:32:36 PDT 2008
 # By horgh
 
-setudef flag horgh_autoop
-
-bind join -|- * horgh_autoop::horgh_autoop
-
 namespace eval horgh_autoop {
+	variable output_cmd putserv
+
+	setudef flag horgh_autoop
+	bind join -|- * horgh_autoop::horgh_autoop
 }
 
 proc horgh_autoop::horgh_autoop {nick host hand chan} {
 	if {![channel get $chan horgh_autoop]} { return }
-	if {[string match -nocase "GoodOne*" $nick]} { return }
-	if {[string match -nocase "*.fr" $host]} { return }
-	quote::putnow "MODE $chan +o $nick"
+	$horgh_autoop::output_cmd "MODE $chan +o $nick"
 }
 
 putlog "horgh_autoop.tcl loaded"