Return to http2-server.pl CVS log

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

Annotation of embedaddon/curl/tests/http2-server.pl, revision 1.1

1.1     ! misho       1: #!/usr/bin/env perl
        !             2: #***************************************************************************
        !             3: #                                  _   _ ____  _
        !             4: #  Project                     ___| | | |  _ \| |
        !             5: #                             / __| | | | |_) | |
        !             6: #                            | (__| |_| |  _ <| |___
        !             7: #                             \___|\___/|_| \_\_____|
        !             8: #
        !             9: # Copyright (C) 2016 - 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: # This script invokes nghttpx properly to have it serve HTTP/2 for us.
        !            25: # nghttpx runs as a proxy in front of our "actual" HTTP/1 server.
        !            26: 
        !            27: my $pidfile = "log/nghttpx.pid";
        !            28: my $logfile = "log/http2.log";
        !            29: my $nghttpx = "nghttpx";
        !            30: my $listenport = 9015;
        !            31: my $connect = "127.0.0.1,8990";
        !            32: 
        !            33: #***************************************************************************
        !            34: # Process command line options
        !            35: #
        !            36: while(@ARGV) {
        !            37:     if($ARGV[0] eq '--verbose') {
        !            38:         $verbose = 1;
        !            39:     }
        !            40:     elsif($ARGV[0] eq '--pidfile') {
        !            41:         if($ARGV[1]) {
        !            42:             $pidfile = $ARGV[1];
        !            43:             shift @ARGV;
        !            44:         }
        !            45:     }
        !            46:     elsif($ARGV[0] eq '--nghttpx') {
        !            47:         if($ARGV[1]) {
        !            48:             $nghttpx = $ARGV[1];
        !            49:             shift @ARGV;
        !            50:         }
        !            51:     }
        !            52:     elsif($ARGV[0] eq '--port') {
        !            53:         if($ARGV[1]) {
        !            54:             $listenport = $ARGV[1];
        !            55:             shift @ARGV;
        !            56:         }
        !            57:     }
        !            58:     elsif($ARGV[0] eq '--connect') {
        !            59:         if($ARGV[1]) {
        !            60:             $connect = $ARGV[1];
        !            61:             $connect =~ s/:/,/;
        !            62:             shift @ARGV;
        !            63:         }
        !            64:     }
        !            65:     elsif($ARGV[0] eq '--logfile') {
        !            66:         if($ARGV[1]) {
        !            67:             $logfile = $ARGV[1];
        !            68:             shift @ARGV;
        !            69:         }
        !            70:     }
        !            71:     else {
        !            72:         print STDERR "\nWarning: http2-server.pl unknown parameter: $ARGV[0]\n";
        !            73:     }
        !            74:     shift @ARGV;
        !            75: }
        !            76: 
        !            77: my $cmdline="$nghttpx --backend=$connect ".
        !            78:     "--frontend=\"*,$listenport;no-tls\" ".
        !            79:     "--log-level=INFO ".
        !            80:     "--pid-file=$pidfile ".
        !            81:     "--errorlog-file=$logfile";
        !            82: print "RUN: $cmdline\n" if($verbose);
        !            83: system("$cmdline 2>/dev/null");