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

[spadkins]

Author: spadkins
Date: Wed Oct 24 11:09:56 2007
New Revision: 10114

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

Log:
removed POE state information that required POE::API::Peek because it didn't 
add much value, and that module is a pain to install on 45 po machines

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 Oct 24 
11:09:56 2007
@@ -21,7 +21,9 @@
 use POE;
 use POE::Component::Server::SimpleHTTP;
 use POE::Component::IKC::Server;
-use POE::API::Peek;
+### This doesn't help us much, and is a pain with
+### a lot of CPAN dependencies, so commenting it out
+#use POE::API::Peek;
 use HTTP::Status qw/RC_OK/;
 use Socket qw(INADDR_ANY);
 use Data::Dumper;
@@ -330,7 +332,7 @@
 
     $state .= "\n";
 
-    $state .= $self->_state_poe();
+    #$state .= $self->_state_poe();
 
     ### THIS DOESN'T WORK YET
     #$state .= $self->_state_q();
@@ -345,20 +347,21 @@
     my $self = @_;
     my $state = "";
 
-    ### POE state dumping
-    my $api = POE::API::Peek->new();
-    my @queue = $api->event_queue_dump();
-    $state .= "POE event_queue_dump\n";
-    my $first = 1;
-    my $poe_stuff = [qw(ID index priority event type source destination)];
-    for my $item (@queue) {
-        if ($first) {
-            $state .= sprintf("%7s %6s %20s %30s %15s %30s %30s\n", 
@$poe_stuff);
-            $first = 0;
-        }
-        $state .= sprintf("%7d %6d %20f %30s %15s %30s %30s\n", @[EMAIL 
PROTECTED]);
-    }
-    $state .= "\n";
+    ### POE state dumping - Currently commented out because it doesn't gain us 
much
+    ### in the way of visibility, and POE::API::Peek is a CPAN pain
+    #my $api = POE::API::Peek->new();
+    #my @queue = $api->event_queue_dump();
+    #$state .= "POE event_queue_dump\n";
+    #my $first = 1;
+    #my $poe_stuff = [qw(ID index priority event type source destination)];
+    #for my $item (@queue) {
+    #    if ($first) {
+    #        $state .= sprintf("%7s %6s %20s %30s %15s %30s %30s\n", 
@$poe_stuff);
+    #        $first = 0;
+    #    }
+    #    $state .= sprintf("%7d %6d %20f %30s %15s %30s %30s\n", @[EMAIL 
PROTECTED]);
+    #}
+    #$state .= "\n";
 
     return $state;
 }