gopher tests: use sws and adjusted to more standard style

1 files changed, 5 insertions, 0 deletions

diff --git a/tests/httpserver.pl b/tests/httpserver.pl
index 98d62cd0e..37161f061 100755
--- a/tests/httpserver.pl
+++ b/tests/httpserver.pl
@@ -42,6 +42,7 @@ my $pidfile;         # http server pid file
 my $logfile;         # http server log file
 my $srcdir;
 my $fork;
+my $gopher = 0;
 
 my $flags  = "";
 my $path   = '.';
@@ -72,6 +73,9 @@ while(@ARGV) {
     elsif($ARGV[0] eq '--ipv6') {
         $ipvnum = 6;
     }
+    elsif($ARGV[0] eq '--gopher') {
+        $gopher = 1;
+    }
     elsif($ARGV[0] eq '--port') {
         if($ARGV[1] =~ /^(\d+)$/) {
             $port = $1;
@@ -106,6 +110,7 @@ if(!$logfile) {
     $logfile = server_logfilename($logdir, $proto, $ipvnum, $idnum);
 }
 
+$flags .= "--gopher " if($gopher);
 $flags .= "--fork " if(defined($fork));
 $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
 $flags .= "--ipv$ipvnum --port $port --srcdir \"$srcdir\"";