Lines Matching +full:srv +full:- +full:ipv4 +full:- +full:simple +full:- +full:service +full:- +full:config
21 # SPDX-License-Identifier: curl
124 my %PORT = (nolisten => 47); # port we use for a local non-listening service
147 our $SOCKSIN="socksd-request.log"; # what curl sent to the SOCKS proxy
168 if( -x "$_/$cmd" . exe_ext('SYS') && ! -d "$_/$cmd" . exe_ext('SYS')) {
182 my $server = IO::Socket->new(LocalPort => 0,
189 return $server->sockport();
197 my ($fh, $socks) = tempfile("curl-socksd-XXXXXXXX", TMPDIR => 1);
200 my ($f2, $http) = tempfile("curl-http-XXXXXXXX", TMPDIR => 1);
288 my $cmd = "$handle $dir -accepteula -nobanner";
293 … if($tryhandle =~ /^(\S+)\s+pid:\s+(\d+)\s+type:\s+(\w+)\s+([0-9A-F]+):\s+(.+)\r\r/) {
299 … my $cmd = "taskkill.exe -f -t -fi \"IMAGENAME eq $1\" -fi \"PID eq $2\" >nul 2>&1";
344 for(my $i = scalar(@what) - 1; $i >= 0; $i--) {
351 if($server =~ /^(httptls)(\+)(ext|srp)(\d*)(-ipv6|)$/) {
353 $tlsext = uc("TLS-${3}");
386 return (-1,-1);
404 # Ugly hack but ssh client and gnutls-serv don't support pid files
418 return (-1,-1);
424 while($count--) {
436 # return (-1,-1);
472 if($server =~ /^(ftp|imap|pop3|smtp)s?(\d*)(-ipv6|)$/) {
482 if($server =~ /^(ftp|http|imap|pop3|smtp)s((\d*)(-ipv6|-unix|))$/) {
483 # given a stunnel based ssl server, also kill non-ssl underlying one
486 elsif($server =~ /^(ftp|http|imap|pop3|smtp)((\d*)(-ipv6|-unix|))$/) {
487 # given a non-ssl server, also kill stunnel based ssl piggybacking one
490 elsif($server =~ /^(socks)((\d*)(-ipv6|))$/) {
494 elsif($server =~ /^(ssh)((\d*)(-ipv6|))$/) {
524 unlink($pidfile) if(-f $pidfile);
533 "$LOGDIR/$LOCKDIR/$server-IPv$ipvnum.lock",
534 "$LOGDIR/$LOCKDIR/sws-".uc($server)."-IPv$ipvnum.lock"
537 if(-f $lockfile) {
552 return " --proxy $proxy_address ";
571 unlink($verifyout) if(-f $verifyout);
575 unlink($verifylog) if(-f $verifylog);
582 my $flags = "--max-time $server_response_maxtime ";
583 $flags .= "--output $verifyout ";
584 $flags .= "--silent ";
585 $flags .= "--verbose ";
586 $flags .= "--globoff ";
587 $flags .= "--unix-socket '$port_or_path' " if $ipvnum eq "unix";
588 $flags .= "--insecure " if($proto eq 'https');
592 $flags .= "--http3-only " if($do_http3);
604 return -1;
633 return -1;
637 return -1;
656 unlink($verifylog) if(-f $verifylog);
659 $extra .= "--insecure --ftp-ssl-control ";
662 my $flags = "--max-time $server_response_maxtime ";
663 $flags .= "--silent ";
664 $flags .= "--verbose ";
665 $flags .= "--globoff ";
681 return -1;
699 my $took = int(0.5+time()-$time);
721 unlink($verifyout) if(-f $verifyout);
725 unlink($verifylog) if(-f $verifylog);
727 my $flags = "--max-time $server_response_maxtime ";
728 $flags .= "--output $verifyout ";
729 $flags .= "--silent ";
730 $flags .= "--verbose ";
731 $flags .= "--globoff ";
747 return -1;
776 return -1;
780 return -1;
803 # with generated config and key files and run a simple remote pwd.
813 return -1;
819 return -1;
823 …my $cmd = "\"$sftp\" -b $LOGDIR/$PIDDIR/$sftpcmds -F $LOGDIR/$PIDDIR/$sftpconfig -S \"$ssh\" $ip >…
839 # Verify that the non-stunnel HTTP TLS extensions capable server that runs
852 unlink($verifyout) if(-f $verifyout);
856 unlink($verifylog) if(-f $verifylog);
858 my $flags = "--max-time $server_response_maxtime ";
859 $flags .= "--output $verifyout ";
860 $flags .= "--verbose ";
861 $flags .= "--globoff ";
862 $flags .= "--insecure ";
863 $flags .= "--tlsauthtype SRP ";
864 $flags .= "--tlsuser jsmith ";
865 $flags .= "--tlspassword abc ";
880 return -1;
911 return -1;
915 return -1;
962 unlink($verifylog) if(-f $verifylog);
964 my $flags = "--max-time $server_response_maxtime ";
965 $flags .= "--silent ";
966 $flags .= "--verbose ";
967 $flags .= "--globoff ";
968 $flags .= "-u 'curltest:curltest' ";
981 return -1;
999 my $took = int(0.5+time()-$time);
1022 unlink($verifylog) if(-f $verifylog);
1024 my $flags = "--max-time $server_response_maxtime ";
1025 $flags .= "--silent ";
1026 $flags .= "--verbose ";
1027 $flags .= "--globoff ";
1028 $flags .= "--upload-file - ";
1041 return -1;
1059 my $took = int(0.5+time()-$time);
1077 # and 'httptls' is used for non-stunnel https test servers.
1108 while($count--) {
1156 my $exe = "$perl $srcdir/http-server.pl";
1157 my $verbose_flag = "--verbose ";
1188 unlink($pidfile) if(-f $pidfile);
1196 $flags .= "--gopher " if($proto eq "gopher");
1197 $flags .= "--connect $HOSTIP " if($alt eq "proxy");
1198 $flags .= "--keepalive $keepalive_secs ";
1200 $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
1201 $flags .= "--logdir \"$LOGDIR\" ";
1202 $flags .= "--portfile $portfile ";
1203 $flags .= "--config $LOGDIR/$SERVERCMD ";
1204 $flags .= "--id $idnum " if($idnum > 1);
1206 $flags .= "--unix-socket '$port_or_path' ";
1208 $flags .= "--ipv$ipvnum --port 0 ";
1210 $flags .= "--srcdir \"$srcdir\"";
1256 my $exe = "$perl $srcdir/http2-server.pl";
1257 my $verbose_flag = "--verbose ";
1272 unlink($pidfile) if(-f $pidfile);
1278 $flags .= "--nghttpx \"$ENV{'NGHTTPX'}\" ";
1279 $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
1280 $flags .= "--logdir \"$LOGDIR\" ";
1281 $flags .= "--connect $HOSTIP:" . protoport("http") . " ";
1286 my $aflags = "--port $port --port2 $port2 $flags";
1302 "http-port $port https-port $port2 ".
1317 my $exe = "$perl $srcdir/http3-server.pl";
1318 my $verbose_flag = "--verbose ";
1333 unlink($pidfile) if(-f $pidfile);
1339 $flags .= "--nghttpx \"$ENV{'NGHTTPX'}\" ";
1340 $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
1341 $flags .= "--logdir \"$LOGDIR\" ";
1342 $flags .= "--connect $HOSTIP:" . protoport("http") . " ";
1343 $flags .= "--cert \"$cert\" " if($cert);
1347 my $aflags = "--port $port $flags";
1378 # the https-proxy runs as https2
1399 unlink($pidfile) if(-f $pidfile);
1406 $flags .= "--verbose " if($debugprotocol);
1407 $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
1408 $flags .= "--logdir \"$LOGDIR\" ";
1409 $flags .= "--id $idnum " if($idnum > 1);
1410 $flags .= "--ipv$ipvnum --proto $proto ";
1411 $flags .= "--certfile \"$certfile\" " if($certfile ne 'stunnel.pem');
1412 $flags .= "--stunnel \"$stunnel\" --srcdir \"$srcdir\" ";
1414 $flags .= "--connect " . protoport("gopher");
1417 $flags .= "--connect " . protoport("http");
1420 # for HTTPS-proxy we connect to the HTTP proxy
1421 $flags .= "--connect " . protoport("httpproxy");
1425 my $options = "$flags --accept $port";
1451 # start the non-stunnel HTTP TLS extensions capable server
1477 unlink($pidfile) if(-f $pidfile);
1483 $flags .= "--http ";
1484 $flags .= "--debug 1 " if($debugprotocol);
1485 $flags .= "--priority NORMAL:+SRP ";
1486 $flags .= "--srppasswd $srcdir/certs/srp-verifier-db ";
1487 $flags .= "--srppasswdconf $srcdir/certs/srp-verifier-conf";
1490 my $allflags = "--port $port $flags";
1540 unlink($pidfile) if(-f $pidfile);
1546 $flags .= "--verbose " if($debugprotocol);
1547 $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
1548 $flags .= "--logdir \"$LOGDIR\" ";
1549 $flags .= "--portfile \"$portfile\" ";
1550 $flags .= "--srcdir \"$srcdir\" --proto $proto ";
1551 $flags .= "--id $idnum " if($idnum > 1);
1552 $flags .= "--ipv$ipvnum --port 0 --addr \"$ip\"";
1615 unlink($pidfile) if(-f $pidfile);
1622 $flags .= "--verbose " if($debugprotocol);
1623 $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
1624 $flags .= "--logdir \"$LOGDIR\" ";
1625 $flags .= "--id $idnum " if($idnum > 1);
1626 $flags .= "--ipv$ipvnum --proto $proto ";
1627 $flags .= "--certfile \"$certfile\" " if($certfile ne 'stunnel.pem');
1628 $flags .= "--stunnel \"$stunnel\" --srcdir \"$srcdir\" ";
1629 $flags .= "--connect $clearport";
1632 my $options = "$flags --accept $port";
1686 unlink($pidfile) if(-f $pidfile);
1693 $flags .= "--verbose " if($debugprotocol);
1694 $flags .= "--pidfile \"$pidfile\" ";
1695 $flags .= "--portfile \"$portfile\" ";
1696 $flags .= "--logfile \"$logfile\" ";
1697 $flags .= "--logdir \"$LOGDIR\" ";
1698 $flags .= "--id $idnum " if($idnum > 1);
1699 $flags .= "--ipv$ipvnum --port 0 --srcdir \"$srcdir\"";
1763 unlink($pidfile) if(-f $pidfile);
1769 $flags .= "--verbose " if($debugprotocol);
1770 $flags .= "--pidfile \"$pidfile\" ";
1771 $flags .= "--portfile \"$portfile\" ";
1772 $flags .= "--logfile \"$logfile\" ";
1773 $flags .= "--logdir \"$LOGDIR\" ";
1774 $flags .= "--id $idnum " if($idnum > 1);
1775 $flags .= "--ipv$ipvnum --port 0 --srcdir \"$srcdir\"";
1843 unlink($pidfile) if(-f $pidfile);
1849 $flags .= "--verbose " if($verb);
1850 $flags .= "--debugprotocol " if($debugprotocol);
1851 $flags .= "--pidfile \"$pidfile\" ";
1852 $flags .= "--logdir \"$LOGDIR\" ";
1853 $flags .= "--id $idnum " if($idnum > 1);
1854 $flags .= "--ipv$ipvnum --addr \"$ip\" ";
1855 $flags .= "--user \"$USER\"";
1862 my $options = "$flags --sshport $port";
1882 # and performing a very simple remote command. This verification is
1908 ($SSHSRVMD5 !~ /^[a-f0-9]{32}$/i))
1955 unlink($pidfile) if(-f $pidfile);
1960 # start our MQTT server - on a random port!
1961 my $cmd="server/mqttd".exe_ext('SRV').
1962 " --port 0 ".
1963 " --pidfile $pidfile".
1964 " --portfile $portfile".
1965 " --config $LOGDIR/$SERVERCMD".
1966 " --logfile $logfile".
1967 " --logdir $LOGDIR";
2010 unlink($pidfile) if(-f $pidfile);
2019 $cmd="server/socksd".exe_ext('SRV').
2020 " --pidfile $pidfile".
2021 " --reqfile $LOGDIR/$SOCKSIN".
2022 " --logfile $logfile".
2023 " --unix-socket $SOCKSUNIXPATH".
2024 " --backend $HOSTIP".
2025 " --config $LOGDIR/$SERVERCMD";
2027 $cmd="server/socksd".exe_ext('SRV').
2028 " --port 0 ".
2029 " --pidfile $pidfile".
2030 " --portfile $portfile".
2031 " --reqfile $LOGDIR/$SOCKSIN".
2032 " --logfile $logfile".
2033 " --backend $HOSTIP".
2034 " --config $LOGDIR/$SERVERCMD";
2082 unlink($pidfile) if(-f $pidfile);
2088 $flags .= "--verbose 1 " if($debugprotocol);
2089 $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
2090 $flags .= "--id $idnum " if($idnum > 1);
2091 $flags .= "--srcdir \"$srcdir\" ";
2092 $flags .= "--host $HOSTIP";
2095 my $aflags = "--port $port $flags";
2143 unlink($pidfile) if(-f $pidfile);
2149 $flags .= "--verbose 1 " if($debugprotocol);
2150 $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
2151 $flags .= "--id $idnum " if($idnum > 1);
2152 $flags .= "--srcdir \"$srcdir\" ";
2153 $flags .= "--host $HOSTIP";
2156 my $aflags = "--port $port $flags";
2204 unlink($pidfile) if(-f $pidfile);
2210 $flags .= "--verbose 1 " if($debugprotocol);
2211 $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
2212 $flags .= "--id $idnum " if($idnum > 1);
2213 $flags .= "--srcdir \"$srcdir\"";
2216 my $aflags = "--port $port $flags";
2347 # Single shot non-stunnel HTTP TLS extensions capable server
2384 $what =~ s/[^a-z0-9\/-]//g;
2387 if($what =~ /^(ftp|gopher|http|imap|pop3|smtp)s((\d*)(-ipv6|-unix|))$/) {
2410 elsif($what eq "ftp-ipv6") {
2411 if($run{'ftp-ipv6'} &&
2413 if(stopserver('ftp-ipv6')) {
2414 return ("failed stopping unresponsive FTP-IPv6 server", 3);
2417 if(!$run{'ftp-ipv6'}) {
2420 return ("failed starting FTP-IPv6 server", $serr);
2422 logmsg sprintf("* pid ftp-ipv6 => %d %d\n", $pid,
2424 $run{'ftp-ipv6'}="$pid $pid2";
2446 elsif($what eq "gopher-ipv6") {
2447 if($run{'gopher-ipv6'} &&
2450 if(stopserver('gopher-ipv6')) {
2451 return ("failed stopping unresponsive GOPHER-IPv6 server", 3);
2454 if(!$run{'gopher-ipv6'}) {
2458 return ("failed starting GOPHER-IPv6 server", $serr);
2460 logmsg sprintf("* pid gopher-ipv6 => %d %d\n", $pid,
2462 $run{'gopher-ipv6'}="$pid $pid2";
2484 elsif($what eq "http-proxy") {
2485 if($run{'http-proxy'} &&
2488 if(stopserver('http-proxy')) {
2489 return ("failed stopping unresponsive HTTP-proxy server", 3);
2492 if(!$run{'http-proxy'}) {
2496 return ("failed starting HTTP-proxy server", $serr);
2498 logmsg sprintf ("* pid http-proxy => %d %d\n", $pid, $pid2)
2500 $run{'http-proxy'}="$pid $pid2";
2503 elsif($what eq "http-ipv6") {
2504 if($run{'http-ipv6'} &&
2507 if(stopserver('http-ipv6')) {
2508 return ("failed stopping unresponsive HTTP-IPv6 server", 3);
2511 if(!$run{'http-ipv6'}) {
2515 return ("failed starting HTTP-IPv6 server", $serr);
2517 logmsg sprintf("* pid http-ipv6 => %d %d\n", $pid, $pid2)
2519 $run{'http-ipv6'}="$pid $pid2";
2538 elsif($what eq "rtsp-ipv6") {
2539 if($run{'rtsp-ipv6'} &&
2541 if(stopserver('rtsp-ipv6')) {
2542 return ("failed stopping unresponsive RTSP-IPv6 server", 3);
2545 if(!$run{'rtsp-ipv6'}) {
2548 return ("failed starting RTSP-IPv6 server", $serr);
2550 logmsg sprintf("* pid rtsp-ipv6 => %d %d\n", $pid, $pid2)
2552 $run{'rtsp-ipv6'}="$pid $pid2";
2775 elsif($what eq "https-proxy") {
2777 # we can't run https-proxy tests without stunnel
2780 if($runcert{'https-proxy'} &&
2781 ($runcert{'https-proxy'} ne $certfile)) {
2783 if(stopserver('https-proxy')) {
2784 return ("failed stopping HTTPS-proxy with different cert", 3);
2788 # we front the http-proxy with stunnel so we need to make sure the
2790 my ($f, $e) = startservers("http-proxy");
2795 if(!$run{'https-proxy'}) {
2799 return ("failed starting HTTPS-proxy (stunnel)", $serr);
2801 logmsg sprintf("* pid https-proxy => %d %d\n", $pid, $pid2)
2803 $run{'https-proxy'}="$pid $pid2";
2808 # for now, we can't run http TLS-EXT tests without gnutls-serv
2809 return ("no gnutls-serv (with SRP support)", 4);
2812 !responsive_httptls_server($verbose, "IPv4")) {
2819 runhttptlsserver($verbose, "IPv4");
2821 return ("failed starting HTTPTLS server (gnutls-serv)", $serr);
2828 elsif($what eq "httptls-ipv6") {
2830 # for now, we can't run http TLS-EXT tests without gnutls-serv
2831 return ("no gnutls-serv", 4);
2833 if($run{'httptls-ipv6'} &&
2835 if(stopserver('httptls-ipv6')) {
2836 return ("failed stopping unresponsive HTTPTLS-IPv6 server", 3);
2839 if(!$run{'httptls-ipv6'}) {
2843 return ("failed starting HTTPTLS-IPv6 server (gnutls-serv)", $serr);
2845 logmsg sprintf("* pid httptls-ipv6 => %d %d\n", $pid, $pid2)
2847 $run{'httptls-ipv6'}="$pid $pid2";
2867 elsif($what eq "tftp-ipv6") {
2868 if($run{'tftp-ipv6'} &&
2870 if(stopserver('tftp-ipv6')) {
2871 return ("failed stopping unresponsive TFTP-IPv6 server", 3);
2874 if(!$run{'tftp-ipv6'}) {
2878 return ("failed starting TFTP-IPv6 server", $serr);
2880 logmsg sprintf("* pid tftp-ipv6 => %d %d\n", $pid, $pid2) if($verbose);
2881 $run{'tftp-ipv6'}="$pid $pid2";
2930 elsif($what eq "http-unix") {
2931 if($run{'http-unix'} &&
2933 if(stopserver('http-unix')) {
2934 return ("failed stopping unresponsive HTTP-unix server", 3);
2937 if(!$run{'http-unix'}) {
2942 return ("failed starting HTTP-unix server", $serr);
2944 logmsg sprintf("* pid http-unix => %d %d\n", $pid, $pid2)
2946 $run{'http-unix'}="$pid $pid2";
3036 $result = -1;
3044 unlink($pidfile) if(-f $pidfile);
3098 $$thing =~ s/${prefix}CLIENT6IP-NB/$nb/g;
3127 if ($sshdid && $sshdid =~ /OpenSSH-Windows/) {
3141 # used for time-out tests and that would work on most hosts as these