Changeset 2170 for branches/blt4/p2p/worker.tcl

Timestamp:

Mar 30, 2011, 12:34:02 PM (14 years ago)

Author:

gah

Message:

 

File:

• branches/blt4/p2p/worker.tcl (modified) (9 diffs)

branches/blt4/p2p/worker.tcl

@@ -118 +118 @@
     # ------------------------------------------------------------------
     define solicit {args} {
-log debug "SOLICIT from foreman: $args"
         variable cid
         log debug "solicitation request from foreman: $args"
@@ -161 +160 @@
     # ------------------------------------------------------------------
     define solicit {args} {
-log debug "SOLICIT from peer: $args"
         variable cid
         log debug "solicitation request from peer: $args"
@@ -177 +175 @@
     # ------------------------------------------------------------------
     define proffer {token details} {
-log debug "PROFFER from peer: $token $details"
         Solicitation::proffer $token $details
         return ""
@@ -226 +223 @@
     # ------------------------------------------------------------------
     define solicit {args} {
-log debug "SOLICIT from peer: $args"
         variable cid
         log debug "solicitation request from peer: $args"
@@ -242 +238 @@
     # ------------------------------------------------------------------
     define proffer {token details} {
-log debug "PROFFER from peer: $token $details"
         Solicitation::proffer $token $details
         return ""
@@ -636 +631 @@
             set mesg [list solicit -job $job -path $path -avoid "$avoid @RECIPIENTS" -token $_serial]
             set _waitfor [broadcast_to_peers $mesg $avoid]
-log debug "WAIT FOR: $_waitfor"
 
             if {$_waitfor > 0} {
@@ -643 +637 @@
             }
         }
-log debug "TIMEOUT: $delay"
         set _timeout [after $delay [itcl::code $this finalize]]
     }
@@ -656 +649 @@
         append _response $details "\n"
         if {[incr _waitfor -1] <= 0} {
-log debug "ALL RESPONSES"
             finalize
         }
@@ -676 +668 @@
         # add details about this client to the message
         append block "$myaddress -job $job -cost 1 -wonks [p2p::wonks::current]"
-log debug "FINALIZE {$block}"
 
         # send the composite results back to the caller