From: Daniel Kahn Gillmor <dkg@fifthhorseman.net>
Date: Mon, 8 Mar 2010 22:23:29 +0000 (-0500)
Subject: force binding to loopback so that our peer identification is legitimate
X-Git-Tag: msva-perl/0.1~14
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=5435ebaa4ae712a72aaa531a4e5dc5c72210c082;p=monkeysphere-validation-agent.git

force binding to loopback so that our peer identification is legitimate
---

diff --git a/msva b/msva
index 67bb931..ff75909 100755
--- a/msva
+++ b/msva
@@ -82,6 +82,7 @@ use strict;
     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}) {