Return to httpserver.pl CVS log

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

Annotation of embedaddon/curl/tests/httpserver.pl, revision 1.1

1.1     ! misho       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");