no Q, more red!

cims_admin.tcl

@@ -139,9 +139,9 @@ proc ::cims::admin::channelinfo {nick mask hand chan text} {
 		set userlist [chanlist ${_try_chan}]
 		set usercount [llength ${userlist}]
 
-		if {[lsearch -exact ${userlist} Q] == -1} {
+		if {[lsearch -exact ${userlist} Q]} {
 			#Q missing
-			set q_missing_s "\002"
+			set q_missing_s ",5\002"
 			set q_missing_e "\002"
 		}
 
@@ -150,13 +150,13 @@ proc ::cims::admin::channelinfo {nick mask hand chan text} {
 			set output "${output}\00313${_try_chan} ${usercount}\003, "
 		} elseif {${usercount} <= 3} {
 			# toooo few users .. channel dead?
-			set output "${output}${q_missing_s}\00304${_try_chan} ${usercount}\003${q_missing_e}, "
+			set output "${output}\00304${q_missing_s}${_try_chan} ${usercount}\003${q_missing_e}, "
 		} elseif {${usercount} <=5} {
 			# puh .. a bit more..
-			set output "${output}${q_missing_s}\00308${_try_chan} ${usercount}\003${q_missing_e}, "
+			set output "${output}\00308${q_missing_s}${_try_chan} ${usercount}\003${q_missing_e}, "
 		} else {
 			# a healthy channel .. > 5 users
-			set output "${output}${q_missing_s}\00303${_try_chan} ${usercount}\003${q_missing_e}, "
+			set output "${output}\00303${q_missing_s}${_try_chan} ${usercount}\003${q_missing_e}, "
 		}
  	}