[Pkg-privacy-commits] [msva-perl] 67/356: enable use of MSVA_PORT environment variable to choose the port

[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 794f312541057eac59a4274822987407fafcc54d
Author: Daniel Kahn Gillmor <dkg at fifthhorseman.net>
Date:   Mon Mar 8 22:58:46 2010 -0500

    enable use of MSVA_PORT environment variable to choose the port
---
 msva | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/msva b/msva
index 3b5ce80..fec119c 100755
--- a/msva
+++ b/msva
@@ -85,8 +85,14 @@ use strict;
 
   sub new {
     my $class = shift;
+
+    my $port = 8901;
+    if (exists $ENV{MSVA_PORT}) {
+      $port = $ENV{MSVA_PORT} + 0;
+      die sprintf("not a reasonable port %d", $port) if (($port >= 65536) || $port <= 0);
+    }
     # start the server on port 8901
-    my $self = $class->SUPER::new(8901);
+    my $self = $class->SUPER::new($port);
 
     $self->{allowed_uids} = {};
     if (exists $ENV{MSVA_ALLOWED_USERS}) {

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