client server forking wip

zpmorgan · Jul 19, 2011 · 087a395 · 087a395
1 parent 81fde7d
commit 087a395
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 9 deletions.
diff --git a/bin/construder_client b/bin/construder_client
@@ -19,11 +19,8 @@ if ($@) {
    exit 1;
 }
 
-our $in_ex;
 $game->set_exception_cb (sub {
    my ($ex, $ev) = @_;
-   return if $in_ex;
-   local $in_ex = 1;
    vox_log (error => "exception in client (%s): %s", $ev, $ex);
    $game->{front}->msg ("Fatal Error: Exception in client caught: $ev: $ex");
 });

diff --git a/examples/minecrap.pl b/examples/minecrap.pl
@@ -6,8 +6,11 @@
 use Games::VoxEngine::Server;
 use Getopt::Long;
 use IO::Pipe;
+use AnyEvent;
 
-my $spawn_server = 0;
+vox_enable_log_categories ('info', 'error', 'warn', 'chat');
+
+my $spawn_server = 1;
 my $login_name = 'foo';
 GetOptions ('spawn!' => \$spawn_server,
             'name' => \$login_name,
@@ -23,27 +26,29 @@
       vox_enable_log_categories ('info', 'error', 'warn');
       Games::VoxEngine::Debug::init ("server");
 
+      our $CV = AE::cv;
       my $server = Games::VoxEngine::Server->new(
          pipe_to_client => $server_to_client,
          pipe_from_client => $client_to_server, 
          log_categories => ['info', 'error', 'warn'],
          log_file => '/tmp/minecrap_server.log',
       );
-      $server->init;
+      #$server->init;
       #$server->enable_log_categories('info', 'error', 'warn');
       $server->listen;
-
+      $CV->recv;
       exit(0);
    }
 
+   Games::VoxEngine::Debug::init ("client");
    #run client.
    my $client = eval { Games::VoxEngine::Client->new (
       auto_login => $login_name,
       pipe_from_server => $server_to_client,
       pipe_to_server => $client_to_server, 
       log_categories => ['info', 'error', 'warn'],
     #  log_file => '/tmp/minecrap_client.log',
-
+      port => 9364,
    ) };
    if ($@) {
       vox_log (error => "Couldn't initialized client: %s", $@);
@@ -55,9 +60,8 @@
          vox_log (error => "exception in client (%s): %s", $ev, $ex);
          $client->{front}->msg ("Fatal Error: Exception in client caught: $ev: $ex");
          });
-
+sleep(5);
    $client->start;
 
 
-
 }