From 2df8c9ebe8e3870f25b423da98013d99f89e72fc Mon Sep 17 00:00:00 2001
From: blackwind <admin@blackwind.org>
Date: Mon, 16 Apr 2012 06:31:53 -0600
Subject: [PATCH] puthelp is no longer restricted to channels.

---
 modules/modtcl/modtcl.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/modules/modtcl/modtcl.tcl b/modules/modtcl/modtcl.tcl
index 254e43cb..f1f3bfc8 100644
--- a/modules/modtcl/modtcl.tcl
+++ b/modules/modtcl/modtcl.tcl
@@ -32,7 +32,7 @@ proc puthelp {text {option ""}} {
 	if {[regexp -nocase {^(?:privmsg|notice) (\S+) :(.*)} $text . target line]} {
 		if {$target == "*modtcl"} {PutModule $line; return}
 		if {$target == "*status"} {PutStatus $line; return}
-		if {[botonchan $target]} {PutUser ":$::botnick![getchanhost $::botnick] $text"}
+		if {[string index $target 0] != "#" || [botonchan $target]} {PutUser ":$::botnick![getchanhost $::botnick] $text"}
 	}
 	PutIRC $text
 }
@@ -83,7 +83,7 @@ proc botisvoice {{channel ""}} {return [isvoice $::botnick $channel]}
 
 proc PermCheck {nick perm channel} {
 	if {$channel == ""} {set channel [channels]}
-	if {[ModuleLoaded crypt]} {regsub {^¤} $nick {} nick}
+	if {[ModuleLoaded crypt]} {regsub {^�} $nick {} nick}
 	foreach c $channel {
 		foreach u [GetChannelUsers $c] {
 			if {[string match -nocase $nick [lindex $u 0]] && [string match *$perm* [lindex $u 3]]} {