Changeset 5822

Timestamp:

07/04/09 07:26:06 (3 years ago)

Author:

submersible_toaster

Message:

cleanup

Location:

trunk/Padre-Plugin-Swarm/lib/Padre

Files:

• Service/Swarm.pm (modified) (1 diff)
• Swarm/Service/Chat.pm (modified) (2 diffs)
• Wx/Swarm/Chat.pm (modified) (1 diff)

trunk/Padre-Plugin-Swarm/lib/Padre/Service/Swarm.pm

@@ -65 +65 @@
     my $self = shift;
     my $message = shift;
-    my $data = Storable::freeze($message);
+    #my $data = Storable::freeze($message);
     my $ev = $self->task_event;
     $self->post_event( 
         $self->task_event, 
-        $data,
+        #$data,
+        $message
     );
 }

trunk/Padre-Plugin-Swarm/lib/Padre/Swarm/Service/Chat.pm

@@ -72 +72 @@
         Padre::Util::debug( 'Requested shutdown of service' );
         return unless $self->running;
-        $self->send( { user => getlogin , goodbye=>1 } );
         $self->transport->shutdown;
+}
+
+sub hangup {
+    my ($self,$running) = @_;
+    $self->transport->shutdown;
+    $$running = 0;
+}
+
+sub terminate {
+    my ($self,$running) = @_;
+    $self->transport->shutdown;
+    $$running = 0;
 }
 
@@ -84 +95 @@
 }
 
-sub serialize {
-    my ($self) = shift;
-    warn "SERIALIZE ! " . Dumper $self;
-    $self->SUPER::serialize(@_);
-    
-}
 
 sub chat {

trunk/Padre-Plugin-Swarm/lib/Padre/Wx/Swarm/Chat.pm

@@ -130 +130 @@
     
     my $payload = $evt->GetData;
+    # Hack - the alive should be via service poll event ?
+    return if $payload eq 'ALIVE';
+    
     my $message = Storable::thaw($payload);
-
+    #my $message = $evt->GetData;
     return unless Params::Util::_HASH( $message );