[svn:p5ee] r10192 - p5ee/trunk/App-Context/lib/App/Context/POE

[spadkins]

Author: spadkins
Date: Wed Nov  7 14:16:58 2007
New Revision: 10192

Modified:
   p5ee/trunk/App-Context/lib/App/Context/POE/Server.pm

Log:
added some log messages to poe_remote_async_event_finished

Modified: p5ee/trunk/App-Context/lib/App/Context/POE/Server.pm
==============================================================================
--- p5ee/trunk/App-Context/lib/App/Context/POE/Server.pm        (original)
+++ p5ee/trunk/App-Context/lib/App/Context/POE/Server.pm        Wed Nov  7 
14:16:58 2007
@@ -1033,8 +1033,17 @@
 
         if ($callback_event) {
             $callback_event->{args} = $callback_args;
+            if ($runtime_event_token && $callback_event && $callback_args && 
$callback_args->[0]) {
+                $self->log({level=>2},"NOTE: poe_remote_async_event_finished 
calling send_event: runtime_event_token[$runtime_event_token] 
callback_event[$callback_event->{method}] 
subrequest_id[$callback_args->[0]{subrequest_id}]\n");
+            }
+            else {
+                $self->log({level=>2},"NOTE: poe_remote_async_event_finished 
calling send_event: cannot print extra vars\n");
+            }
             $self->send_event($callback_event);
         }
+        else {
+            $self->log({level=>2},"NOTE: poe_remote_async_event_finished 
called without callback_event : runtime_event_token[$runtime_event_token]\n");
+        }
     }
     else {
         $self->log({level=>2},"POE: poe_remote_async_event_finished 
($runtime_event_token)\n") if $self->{options}{poe_trace};