#!/usr/bin/env perl #*************************************************************************** # _ _ ____ _ # Project ___| | | | _ \| | # / __| | | | |_) | | # | (__| |_| | _ <| |___ # \___|\___/|_| \_\_____| # # Copyright (C) Daniel Stenberg, , 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");