q missing

cims_admin.tcl

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