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

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};