From: Daniel Kahn Gillmor <dkg@fifthhorseman.net>
Date: Sat, 13 Mar 2010 18:00:47 +0000 (-0500)
Subject: get rid of noisy spew when MSVA_PORT is set (resolving MS #2003)
X-Git-Tag: msva-perl/0.2~1
X-Git-Url: http://git.tremily.us/gitweb.cgi?a=commitdiff_plain;h=1fae02bac841da557fe53f783109f44054b796f9;p=monkeysphere-validation-agent.git

get rid of noisy spew when MSVA_PORT is set (resolving MS #2003)
---

diff --git a/msva-perl b/msva-perl
index 6a9f60e..b7b6706 100755
--- a/msva-perl
+++ b/msva-perl
@@ -99,7 +99,7 @@ use strict;
       $port = $ENV{MSVA_PORT} + 0;
       die sprintf("not a reasonable port %d", $port) if (($port >= 65536) || $port <= 0);
     }
-    # start the server on port 8901
+    # start the server on requested port
     my $self = $class->SUPER::new($port);
     if (! exists $ENV{MSVA_PORT}) {
       # we can't pass port 0 to the constructor because it evaluates
@@ -483,8 +483,8 @@ use strict;
 my $server = MSVA->new();
 $server->run(host=>'localhost',
              log_level=>MSVA::get_log_level(),
-             user => $>,  # explicitly choose regular user and group (avoids spew)
-             group => $),
+             user => POSIX::geteuid(),  # explicitly choose regular user and group (avoids spew)
+             group => POSIX::getegid(),
              msva=>$server);
 __END__