From b2e7372eda5f0a30d149474299366e34554a6a7e Mon Sep 17 00:00:00 2001
From: Daniel Kahn Gillmor <dkg@fifthhorseman.net>
Date: Mon, 8 Mar 2010 20:16:04 -0500
Subject: [PATCH] enable concurrent connections to the validation agent by
 forking the server

---
 msva | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/msva b/msva
index ff75909..3b5ce80 100755
--- a/msva
+++ b/msva
@@ -29,6 +29,7 @@ use strict;
   use IO::Socket;
   use IO::File;
   use Socket;
+  use Net::Server::Fork;
 
   use JSON;
   use POSIX qw(strftime);
@@ -78,11 +79,14 @@ use strict;
     }
   };
 
+  sub net_server {
+    return 'Net::Server::Fork';
+  };
+
   sub new {
     my $class = shift;
     # start the server on port 8901
     my $self = $class->SUPER::new(8901);
-    $self->host('localhost');
 
     $self->{allowed_uids} = {};
     if (exists $ENV{MSVA_ALLOWED_USERS}) {
@@ -375,4 +379,4 @@ use strict;
 }
 
 my $server = MSVA->new();
-$server->run();
+$server->run(host=>'localhost');
-- 
2.26.2