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

Timestamp:

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

Author:

gah

Message:

 

File:

• branches/blt4/p2p/protocols.tcl (modified) (1 diff)

branches/blt4/p2p/protocols.tcl

@@ -81 +81 @@
             $obj protocol $name
             $obj define $name exception {message} {
-                log error "ERROR from client:  $message"
+                variable cid
+                variable handler
+                log error "ERROR from client [$handler connectionName $cid]:  $message"
+            }
+            $obj define $name identity {name} {
+                variable cid
+                variable handler
+                $handler connectionName $cid $name
+                return ""
             }