浏览代码

not so verbose pls

Paul Klumpp 12 年之前
父节点
当前提交
6dc65bf4ab
共有 1 个文件被更改,包括 4 次插入5 次删除
  1. 4 5
      putils.tcl

+ 4 - 5
putils.tcl

@@ -82,8 +82,7 @@ proc ::putils::put_bot {target_botnetnick fromdata} {
 		# prepare data ...! encode. send multiple data, if needed.
 		# encode it, base64
 		set data [::base64::encode -wrapchar "" $fromdata]
-		putlog "base64: $data"
-		::putils::filelog "scripts/cims/cims.log" "put_bot to $target_botnetnick: full base64 $data"
+		#::putils::filelog "scripts/cims/cims.log" "put_bot to $target_botnetnick: full base64 $data"
 
 		# make a hash of $data
 		set md5 [::md5::md5 -hex $data]
@@ -112,15 +111,15 @@ proc ::putils::put_bot {target_botnetnick fromdata} {
 #OTA=
 		# cut data into pieces and send!
 		for {set x 0} {$x < $count_parts} {incr x} {
-			putlog "part number is $x"
+			#putlog "part number is $x"
 
 			# get the part
 			set part [string range $data 0 $maxmsglen]
-			putlog "part is $part"
+			putlog "part $x is $part"
 
 			# kill the part out of the original string
 			set data [string replace $data 0 $maxmsglen ""]
-			::putils::filelog "scripts/cims/cims.log" "put_bot to $target_botnetnick: $part"
+			#::putils::filelog "scripts/cims/cims.log" "put_bot to $target_botnetnick: $part"
 			putbot $target_botnetnick [concat "rec_putils " $md5 " " [expr $x + 1] " " $count_parts " " $part]
 		}