Changeset 9664

Timestamp:

12/13/09 03:48:34 (2 years ago)

Author:

submersible_toaster

Message:

hacks to relay

File:

• trunk/Padre-Plugin-Swarm/junkyard/relay.pl (modified) (5 diffs)

trunk/Padre-Plugin-Swarm/junkyard/relay.pl

@@ -8 +8 @@
 use IO::Socket::Multicast;
 use JSON::XS;
+use Carp qw( cluck );
+
 $|++;
 
@@ -40 +42 @@
 ) or die $!;
 
-$local_relay->push_write( json => {
-    type => 'promote',
-    service => 'relay',
-}
-);
 
 tcp_connect 'swarm.perlide.org' => 12000 ,
@@ -53 +50 @@
 
 my $runtime = AnyEvent->condvar;
+our $swarm_ready = AnyEvent->condvar;
+$swarm_ready->recv;
+
+$local_relay->push_write( json => {
+    type => 'promote',
+    service => 'relay',
+}
+);
+
+
 $runtime->recv;
 
@@ -98 +105 @@
     } );
     $handle->on_read( \&swarm_read );
+    $swarm_ready->send;
+    
     
 }
@@ -150 +159 @@
         return;
     }
+    
+warn ref $swarm , "Send message , " , $message->{type};
     $message->{_relay} = $swarm->{token};
-    $swarm->push_write( json => $message );
+    $swarm->push_write( json => $message )
+        if ref  $swarm;
 }