[Pkg-privacy-commits] [msva-perl] 65/356: enable concurrent connections to the validation agent by forking the server

[Ximin Luo]

This is an automated email from the git hooks/post-receive script.

infinity0 pushed a commit to branch debian
in repository msva-perl.

commit b2e7372eda5f0a30d149474299366e34554a6a7e
Author: Daniel Kahn Gillmor <dkg at fifthhorseman.net>
Date:   Mon Mar 8 20:16:04 2010 -0500

    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');

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-privacy/packages/msva-perl.git