| #!/usr/bin/env perl |
| #*************************************************************************** |
| # _ _ ____ _ |
| # Project ___| | | | _ \| | |
| # / __| | | | |_) | | |
| # | (__| |_| | _ <| |___ |
| # \___|\___/|_| \_\_____| |
| # |
| # Copyright (C) Daniel Stenberg, <daniel@haxx.se>, et al. |
| # |
| # This software is licensed as described in the file COPYING, which |
| # you should have received as part of this distribution. The terms |
| # are also available at https://curl.se/docs/copyright.html. |
| # |
| # You may opt to use, copy, modify, merge, publish, distribute and/or sell |
| # copies of the Software, and permit persons to whom the Software is |
| # furnished to do so, under the terms of the COPYING file. |
| # |
| # This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY |
| # KIND, either express or implied. |
| # |
| # SPDX-License-Identifier: curl |
| # |
| #*************************************************************************** |
| |
| # This script invokes nghttpx properly to have it serve HTTP/3 for us. |
| # nghttpx runs as a proxy in front of our "actual" HTTP/1 server. |
| |
| use Cwd; |
| use Cwd 'abs_path'; |
| use File::Basename; |
| |
| my $logdir = "log"; |
| my $pidfile = "$logdir/nghttpx.pid"; |
| my $logfile = "$logdir/http3.log"; |
| my $nghttpx = "nghttpx"; |
| my $listenport = 9017; |
| my $connect = "127.0.0.1,8990"; |
| my $cert = "Server-localhost-sv"; |
| my $conf = "nghttpx.conf"; |
| |
| #*************************************************************************** |
| # Process command line options |
| # |
| while(@ARGV) { |
| if($ARGV[0] eq '--verbose') { |
| $verbose = 1; |
| } |
| elsif($ARGV[0] eq '--pidfile') { |
| if($ARGV[1]) { |
| $pidfile = $ARGV[1]; |
| shift @ARGV; |
| } |
| } |
| elsif($ARGV[0] eq '--nghttpx') { |
| if($ARGV[1]) { |
| $nghttpx = $ARGV[1]; |
| shift @ARGV; |
| } |
| } |
| elsif($ARGV[0] eq '--port') { |
| if($ARGV[1]) { |
| $listenport = $ARGV[1]; |
| shift @ARGV; |
| } |
| } |
| elsif($ARGV[0] eq '--connect') { |
| if($ARGV[1]) { |
| $connect = $ARGV[1]; |
| $connect =~ s/:/,/; |
| shift @ARGV; |
| } |
| } |
| elsif($ARGV[0] eq '--cert') { |
| if($ARGV[1]) { |
| $cert = $ARGV[1]; |
| shift @ARGV; |
| } |
| } |
| elsif($ARGV[0] eq '--logfile') { |
| if($ARGV[1]) { |
| $logfile = $ARGV[1]; |
| shift @ARGV; |
| } |
| } |
| elsif($ARGV[0] eq '--logdir') { |
| if($ARGV[1]) { |
| $logdir = $ARGV[1]; |
| shift @ARGV; |
| } |
| } |
| elsif($ARGV[0] eq '--conf') { |
| if($ARGV[1]) { |
| $conf = $ARGV[1]; |
| shift @ARGV; |
| } |
| } |
| else { |
| print STDERR "\nWarning: http3-server.pl unknown parameter: $ARGV[0]\n"; |
| } |
| shift @ARGV; |
| } |
| |
| my $srcdir = dirname(__FILE__); |
| $certfile = "$srcdir/certs/$cert.pem"; |
| $keyfile = "$srcdir/certs/$cert.key"; |
| $certfile = abs_path($certfile); |
| $keyfile = abs_path($keyfile); |
| |
| my $cmdline="$nghttpx --http2-proxy --backend=$connect ". |
| "--frontend=\"*,$listenport\" ". |
| "--frontend=\"*,$listenport;quic\" ". |
| "--log-level=INFO ". |
| "--pid-file=$pidfile ". |
| "--errorlog-file=$logfile ". |
| "--conf=$conf ". |
| "$keyfile $certfile"; |
| print "RUN: $cmdline\n" if($verbose); |
| system("$cmdline 2>/dev/null"); |