Permalink
Browse files

useless debug informations

  • Loading branch information...
1 parent c8efad4 commit 8e3e8f00e26ff8e6ac85b23175ec85c7062edb28 @dlgg committed Feb 15, 2012
Showing with 0 additions and 3 deletions.
  1. +0 −3 controller.tcl
View
@@ -384,11 +384,8 @@ proc ::irc::socket_control {} {
set params [lindex [split [string range $arg 1 end] :] 1]
set chmodes "[lindex $part0 4]"
- #puts "parsing : $params"
foreach p $params {
- #puts "analyzing $p"
regexp -all -- {([\&\"\']*)([*~@%+]*)([\w!*@~]+$)} $p "" chmodes chrights param
- #puts "chmodes : $chmodes | chrights : $chrights | param : $param"
set isnick true
foreach chmode [::tools::charfilter $chmodes] {
switch $chmode {

0 comments on commit 8e3e8f0

Please sign in to comment.