output to channel when fetch occurs

bash.tcl

@@ -2,6 +2,8 @@
 # June 26 2010
 # by horgh
 #
+# bash.org quote fetcher
+#
 # Requires Tcl 8.5+ and tcllib
 #
 # Must .chanset #channel +bash
@@ -18,7 +20,7 @@ package require htmlparse
 
 namespace eval bash {
 	variable trigger !bash
-	variable line_length 400
+	variable line_length 399
 	variable max_lines 10
 
 	variable useragent "Mozilla/5.0 (compatible; Y!J; for robot study; keyoshid)"
@@ -54,7 +56,7 @@ proc bash::quote_output {chan quote} {
 			break
 		} else {
 			foreach subline [bash::split_line $bash::line_length $line] {
-				$bash::output_cmd "PRIVMSG $chan :$subline"
+				$bash::output_cmd "PRIVMSG $chan : $subline"
 			}
 		}
 	}
@@ -79,7 +81,7 @@ proc bash::handler {nick uhost hand chan argv} {
 	}
 }
 
-proc bash::random {} {
+proc bash::random {chan} {
 	if {![llength $bash::random_quotes]} {
 		$bash::output_cmd "PRIVMSG $chan :Fetching new random quotes..."
 		set bash::random_quotes [bash::fetch ${bash::url}random1]
@@ -89,7 +91,7 @@ proc bash::random {} {
 	return $quote
 }
 
-proc bash::search {query} {
+proc bash::search {query chan} {
 	if {![dict exists $bash::search_quotes $query]} {
 		$bash::output_cmd "PRIVMSG $chan :Fetching results..."
 		set url ${bash::url}[http::formatQuery search $query sort 0 show 25]
@@ -110,8 +112,6 @@ proc bash::search {query} {
 }
 
 proc bash::fetch {url} {
-	putlog "Fetching new bash.org quotes: $url"
-
 	http::config -useragent $bash::useragent
 	set token [http::geturl $url -timeout 10000]
 	set data [http::data $token]