Paul Klumpp 12 年之前
父節點
當前提交
17e6e600fe
共有 2 個文件被更改,包括 2 次插入2 次删除
  1. 1 1
      cims.tcl
  2. 1 1
      putils.tcl

+ 1 - 1
cims.tcl

@@ -603,7 +603,6 @@ proc ::cims::kill_delaytimer {prefix chan} {
 proc ::cims::put_bot {botnetnick data} {
 	set testlink [islinked $botnetnick]
 	if {$testlink == 1} {
-		putlog "::cims:: put_bot: + a message delivered to $botnetnick."
 		
 		if {[string length $data] > 335} {
 			#::putils::filelog "scripts/cims/cims.log" "alldata put_bot to $botnetnick: $data"
@@ -611,6 +610,7 @@ proc ::cims::put_bot {botnetnick data} {
 		} else {
 			putbot $botnetnick $data
 		}
+		putlog "::cims:: put_bot: + a message delivered to $botnetnick."
 	} else {
 		putlog "::cims:: put_bot: + a message couldn't be delivered. Bot $botnetnick is not linked"
 	}

+ 1 - 1
putils.tcl

@@ -253,7 +253,7 @@ proc ::putils::rec_bot {sender_botnetnick cmd rec_data} {
 				if {$cmd == [join [lindex $original_data 0]]} {
 					putlog "::putils::rec_bot: execute procedure: $procedure $sender_botnetnick [join [lindex $original_data 0]] [join [lrange $original_data 1 end]]"
 					#execute procedure
-					$procedure $sender_botnetnick [join [lindex $original_data 0]] [join [lrange $original_data 1 end]]
+					$procedure $sender_botnetnick [join [lindex $original_data 0]] [lrange $original_data 1 end]
 				}
 			}
 		}