Return to httpserver.pl CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / curl / tests

curl

    1: #!/usr/bin/env perl
    2: #***************************************************************************
    3: #                                  _   _ ____  _
    4: #  Project                     ___| | | |  _ \| |
    5: #                             / __| | | | |_) | |
    6: #                            | (__| |_| |  _ <| |___
    7: #                             \___|\___/|_| \_\_____|
    8: #
    9: # Copyright (C) 1998 - 2020, Daniel Stenberg, <daniel@haxx.se>, et al.
   10: #
   11: # This software is licensed as described in the file COPYING, which
   12: # you should have received as part of this distribution. The terms
   13: # are also available at https://curl.haxx.se/docs/copyright.html.
   14: #
   15: # You may opt to use, copy, modify, merge, publish, distribute and/or sell
   16: # copies of the Software, and permit persons to whom the Software is
   17: # furnished to do so, under the terms of the COPYING file.
   18: #
   19: # This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
   20: # KIND, either express or implied.
   21: #
   22: #***************************************************************************
   23: 
   24: BEGIN {
   25:     push(@INC, $ENV{'srcdir'}) if(defined $ENV{'srcdir'});
   26:     push(@INC, ".");
   27: }
   28: 
   29: use strict;
   30: use warnings;
   31: 
   32: use serverhelp qw(
   33:     server_pidfilename
   34:     server_logfilename
   35:     );
   36: 
   37: use sshhelp qw(
   38:     exe_ext
   39:     );
   40: 
   41: my $verbose = 0;     # set to 1 for debugging
   42: my $port = 8990;     # just a default
   43: my $unix_socket;     # location to place a listening Unix socket
   44: my $ipvnum = 4;      # default IP version of http server
   45: my $idnum = 1;       # default http server instance number
   46: my $proto = 'http';  # protocol the http server speaks
   47: my $pidfile;         # pid file
   48: my $portfile;        # port number file
   49: my $logfile;         # log file
   50: my $connect;         # IP to connect to on CONNECT
   51: my $srcdir;
   52: my $gopher = 0;
   53: 
   54: my $flags  = "";
   55: my $path   = '.';
   56: my $logdir = $path .'/log';
   57: 
   58: while(@ARGV) {
   59:     if($ARGV[0] eq '--pidfile') {
   60:         if($ARGV[1]) {
   61:             $pidfile = $ARGV[1];
   62:             shift @ARGV;
   63:         }
   64:     }
   65:     elsif($ARGV[0] eq '--portfile') {
   66:         if($ARGV[1]) {
   67:             $portfile = $ARGV[1];
   68:             shift @ARGV;
   69:         }
   70:     }
   71:     elsif($ARGV[0] eq '--logfile') {
   72:         if($ARGV[1]) {
   73:             $logfile = $ARGV[1];
   74:             shift @ARGV;
   75:         }
   76:     }
   77:     elsif($ARGV[0] eq '--srcdir') {
   78:         if($ARGV[1]) {
   79:             $srcdir = $ARGV[1];
   80:             shift @ARGV;
   81:         }
   82:     }
   83:     elsif($ARGV[0] eq '--ipv4') {
   84:         $ipvnum = 4;
   85:     }
   86:     elsif($ARGV[0] eq '--ipv6') {
   87:         $ipvnum = 6;
   88:     }
   89:     elsif($ARGV[0] eq '--unix-socket') {
   90:         $ipvnum = 'unix';
   91:         if($ARGV[1]) {
   92:             $unix_socket = $ARGV[1];
   93:             shift @ARGV;
   94:         }
   95:     }
   96:     elsif($ARGV[0] eq '--gopher') {
   97:         $gopher = 1;
   98:     }
   99:     elsif($ARGV[0] eq '--port') {
  100:         if($ARGV[1] =~ /^(\d+)$/) {
  101:             $port = $1;
  102:             shift @ARGV;
  103:         }
  104:     }
  105:     elsif($ARGV[0] eq '--connect') {
  106:         if($ARGV[1]) {
  107:             $connect = $ARGV[1];
  108:             shift @ARGV;
  109:         }
  110:     }
  111:     elsif($ARGV[0] eq '--id') {
  112:         if($ARGV[1] =~ /^(\d+)$/) {
  113:             $idnum = $1 if($1 > 0);
  114:             shift @ARGV;
  115:         }
  116:     }
  117:     elsif($ARGV[0] eq '--verbose') {
  118:         $verbose = 1;
  119:     }
  120:     else {
  121:         print STDERR "\nWarning: httpserver.pl unknown parameter: $ARGV[0]\n";
  122:     }
  123:     shift @ARGV;
  124: }
  125: 
  126: if(!$srcdir) {
  127:     $srcdir = $ENV{'srcdir'} || '.';
  128: }
  129: if(!$pidfile) {
  130:     $pidfile = "$path/". server_pidfilename($proto, $ipvnum, $idnum);
  131: }
  132: if(!$portfile) {
  133:     $portfile = "$path/". server_portfilename($proto, $ipvnum, $idnum);
  134: }
  135: if(!$logfile) {
  136:     $logfile = server_logfilename($logdir, $proto, $ipvnum, $idnum);
  137: }
  138: 
  139: $flags .= "--pidfile \"$pidfile\" ".
  140:     "--logfile \"$logfile\" ".
  141:     "--portfile \"$portfile\" ";
  142: $flags .= "--gopher " if($gopher);
  143: $flags .= "--connect $connect " if($connect);
  144: if($ipvnum eq 'unix') {
  145:     $flags .= "--unix-socket '$unix_socket' ";
  146: } else {
  147:     $flags .= "--ipv$ipvnum --port $port ";
  148: }
  149: $flags .= "--srcdir \"$srcdir\"";
  150: 
  151: if($verbose) {
  152:     print STDERR "RUN: server/sws".exe_ext('SRV')." $flags\n";
  153: }
  154: 
  155: exec("server/sws".exe_ext('SRV')." $flags");