Lines Matching refs:pid
116 my %serverpidfile; # all server pid file names, identified by server id
280 if($tryhandle =~ /^(\S+)\s+pid:\s+(\d+)\s+type:\s+(\w+)\s+([0-9A-F]+):\s+(.+)\r\r/) {
299 my $pid = $_[0];
300 if((not defined $pid) || $pid <= 0) {
304 my $rc = pidwait($pid, &WNOHANG);
305 return ($rc == $pid)?1:0;
385 # Ugly hack but ssh client and gnutls-serv don't support pid files
390 logmsg "startnew: $pidfile faked with pid=$child\n" if($verbose);
393 logmsg "startnew: failed to write fake $pidfile with pid=$child\n";
408 # if $pid2 is valid, then make sure this pid is alive, as
491 # we must prepend a space since $pidlist may already contain a pid
499 # cleanup server pid files
504 my $pid = processexists($pidfile);
505 if($pid > 0) {
514 killpid($verbose, $pid);
599 my $pid = 0;
601 $pid = 0+$1;
612 return $pid;
657 my $pid = 0;
660 # this is our test server with a known pid!
661 $pid = 0+$1;
665 if($pid <= 0 && @data && $data[0]) {
679 return $pid;
742 my $pid = 0;
744 $pid = 0+$1;
755 return $pid;
760 # the pid from the file and returning it if a process with that pid is
767 my $pid = processexists($pidfile);
768 if($pid < 0) {
771 return $pid;
874 my $pid = 0;
875 if($data && ($data =~ /(GNUTLS|GnuTLS)/) && ($pid = processexists($pidfile))) {
876 if($pid < 0) {
879 return $pid;
890 return $pid;
900 my $pid = processexists($pidfile);
901 if($pid < 0) {
904 return $pid;
943 my $pid = 0;
946 # this is our test server with a known pid!
947 $pid = 0+$1;
951 if($pid <= 0 && @data && $data[0]) {
964 return $pid;
1003 my $pid = 0;
1006 # this is our test server with a known pid!
1007 $pid = 0+$1;
1011 if($pid <= 0 && @data && $data[0]) {
1024 return $pid;
1064 my $pid;
1069 $pid = &$fun($proto, $ipvnum, $idnum, $ip, $port);
1071 if($pid > 0) {
1074 elsif($pid < 0) {
1080 return $pid;
1093 my $pid = &$fun($proto, $ipvnum, $idnum, $ip, $port);
1096 if($pid > 0) {
1142 my $pid = processexists($pidfile);
1143 if($pid > 0) {
1144 stopserver($server, "$pid");
1226 my $pid = processexists($pidfile);
1227 if($pid > 0) {
1228 stopserver($server, "$pid");
1287 my $pid = processexists($pidfile);
1288 if($pid > 0) {
1289 stopserver($server, "$pid");
1353 my $pid = processexists($pidfile);
1354 if($pid > 0) {
1355 stopserver($server, "$pid");
1431 my $pid = processexists($pidfile);
1432 if($pid > 0) {
1433 stopserver($server, "$pid");
1494 my $pid = processexists($pidfile);
1495 if($pid > 0) {
1496 stopserver($server, "$pid");
1569 my $pid = processexists($pidfile);
1570 if($pid > 0) {
1571 stopserver($server, "$pid");
1640 my $pid = processexists($pidfile);
1641 if($pid > 0) {
1642 stopserver($server, "$pid");
1717 my $pid = processexists($pidfile);
1718 if($pid > 0) {
1719 stopserver($server, "$pid");
1797 my $pid = processexists($pidfile);
1798 if($pid > 0) {
1799 stopserver($server, "$pid");
1909 my $pid = processexists($pidfile);
1910 if($pid > 0) {
1911 stopserver($server, "$pid");
1965 my $pid = processexists($pidfile);
1966 if($pid > 0) {
1967 stopserver($server, "$pid");
2037 my $pid = processexists($pidfile);
2038 if($pid > 0) {
2039 stopserver($server, "$pid");
2098 my $pid = processexists($pidfile);
2099 if($pid > 0) {
2100 stopserver($server, "$pid");
2159 my $pid = processexists($pidfile);
2160 if($pid > 0) {
2161 stopserver($server, "$pid");
2325 my ($pid, $pid2);
2348 ($serr, $pid, $pid2) = runpingpongserver($what, "", $verbose);
2349 if($pid <= 0) {
2352 logmsg sprintf("* pid $what => %d %d\n", $pid, $pid2) if($verbose);
2353 $run{$what}="$pid $pid2";
2364 ($serr, $pid, $pid2) = runpingpongserver("ftp", "", $verbose, "ipv6");
2365 if($pid <= 0) {
2368 logmsg sprintf("* pid ftp-ipv6 => %d %d\n", $pid,
2370 $run{'ftp-ipv6'}="$pid $pid2";
2382 ($serr, $pid, $pid2, $PORT{'gopher'}) =
2384 if($pid <= 0) {
2387 logmsg sprintf ("* pid gopher => %d %d\n", $pid, $pid2)
2389 $run{'gopher'}="$pid $pid2";
2401 ($serr, $pid, $pid2, $PORT{"gopher6"}) =
2403 if($pid <= 0) {
2406 logmsg sprintf("* pid gopher-ipv6 => %d %d\n", $pid,
2408 $run{'gopher-ipv6'}="$pid $pid2";
2413 ($serr, $pid, $pid2, $PORT{"http3"}) = runhttp3server($verbose);
2414 if($pid <= 0) {
2417 logmsg sprintf ("* pid http/3 => %d %d\n", $pid, $pid2)
2419 $run{'http/3'}="$pid $pid2";
2424 ($serr, $pid, $pid2, $PORT{"http2"}, $PORT{"http2tls"}) =
2426 if($pid <= 0) {
2429 logmsg sprintf ("* pid http/2 => %d %d\n", $pid, $pid2)
2431 $run{'http/2'}="$pid $pid2";
2442 ($serr, $pid, $pid2, $PORT{'http'}) =
2444 if($pid <= 0) {
2447 logmsg sprintf ("* pid http => %d %d\n", $pid, $pid2)
2449 $run{'http'}="$pid $pid2";
2461 ($serr, $pid, $pid2, $PORT{"httpproxy"}) =
2463 if($pid <= 0) {
2466 logmsg sprintf ("* pid http-proxy => %d %d\n", $pid, $pid2)
2468 $run{'http-proxy'}="$pid $pid2";
2480 ($serr, $pid, $pid2, $PORT{"http6"}) =
2482 if($pid <= 0) {
2485 logmsg sprintf("* pid http-ipv6 => %d %d\n", $pid, $pid2)
2487 $run{'http-ipv6'}="$pid $pid2";
2498 ($serr, $pid, $pid2, $PORT{'rtsp'}) = runrtspserver($verbose);
2499 if($pid <= 0) {
2502 logmsg sprintf("* pid rtsp => %d %d\n", $pid, $pid2) if($verbose);
2503 $run{'rtsp'}="$pid $pid2";
2514 ($serr, $pid, $pid2, $PORT{'rtsp6'}) = runrtspserver($verbose, "ipv6");
2515 if($pid <= 0) {
2518 logmsg sprintf("* pid rtsp-ipv6 => %d %d\n", $pid, $pid2)
2520 $run{'rtsp-ipv6'}="$pid $pid2";
2542 ($serr, $pid, $pid2) = runpingpongserver($cproto, "", $verbose);
2543 if($pid <= 0) {
2546 logmsg sprintf("* pid $cproto => %d %d\n", $pid, $pid2) if($verbose);
2547 $run{$cproto}="$pid $pid2";
2550 ($serr, $pid, $pid2, $PORT{$what}) =
2553 if($pid <= 0) {
2556 logmsg sprintf("* pid $what => %d %d\n", $pid, $pid2)
2558 $run{$what}="$pid $pid2";
2583 ($serr, $pid, $pid2, $PORT{'http'}) =
2585 if($pid <= 0) {
2588 logmsg sprintf("* pid http => %d %d\n", $pid, $pid2) if($verbose);
2589 $run{'http'}="$pid $pid2";
2592 ($serr, $pid, $pid2, $PORT{'https'}) =
2594 if($pid <= 0) {
2597 logmsg sprintf("* pid https => %d %d\n", $pid, $pid2)
2599 $run{'https'}="$pid $pid2";
2622 ($serr, $pid, $pid2, $port) =
2625 if($pid <= 0) {
2628 logmsg sprintf("* pid gopher => %d %d\n", $pid, $pid2) if($verbose);
2630 $run{'gopher'}="$pid $pid2";
2634 ($serr, $pid, $pid2, $port) =
2637 if($pid <= 0) {
2640 logmsg sprintf("* pid gophers => %d %d\n", $pid, $pid2)
2643 $run{'gophers'}="$pid $pid2";
2667 ($serr, $pid, $pid2, $PORT{"httpsproxy"}) =
2669 if($pid <= 0) {
2672 logmsg sprintf("* pid https-proxy => %d %d\n", $pid, $pid2)
2674 $run{'https-proxy'}="$pid $pid2";
2689 ($serr, $pid, $pid2, $PORT{'httptls'}) =
2691 if($pid <= 0) {
2694 logmsg sprintf("* pid httptls => %d %d\n", $pid, $pid2)
2696 $run{'httptls'}="$pid $pid2";
2711 ($serr, $pid, $pid2, $PORT{"httptls6"}) =
2713 if($pid <= 0) {
2716 logmsg sprintf("* pid httptls-ipv6 => %d %d\n", $pid, $pid2)
2718 $run{'httptls-ipv6'}="$pid $pid2";
2729 ($serr, $pid, $pid2, $PORT{'tftp'}) =
2731 if($pid <= 0) {
2734 logmsg sprintf("* pid tftp => %d %d\n", $pid, $pid2) if($verbose);
2735 $run{'tftp'}="$pid $pid2";
2746 ($serr, $pid, $pid2, $PORT{'tftp6'}) =
2748 if($pid <= 0) {
2751 logmsg sprintf("* pid tftp-ipv6 => %d %d\n", $pid, $pid2) if($verbose);
2752 $run{'tftp-ipv6'}="$pid $pid2";
2757 ($serr, $pid, $pid2, $PORT{'ssh'}) = runsshserver("", $verbose);
2758 if($pid <= 0) {
2761 logmsg sprintf("* pid ssh => %d %d\n", $pid, $pid2) if($verbose);
2762 $run{'ssh'}="$pid $pid2";
2767 ($serr, $pid, $pid2, $PORT{"socks"}) = runsocksserver("", $verbose);
2768 if($pid <= 0) {
2771 logmsg sprintf("* pid socks => %d %d\n", $pid, $pid2) if($verbose);
2772 $run{'socks'}="$pid $pid2";
2777 ($serr, $pid, $pid2) = runsocksserver("2", $verbose, "", "unix");
2778 if($pid <= 0) {
2781 logmsg sprintf("* pid socks5unix => %d %d\n", $pid, $pid2) if($verbose);
2782 $run{'socks5unix'}="$pid $pid2";
2787 ($serr, $pid, $pid2) = runmqttserver("", $verbose);
2788 if($pid <= 0) {
2791 logmsg sprintf("* pid mqtt => %d %d\n", $pid, $pid2) if($verbose);
2792 $run{'mqtt'}="$pid $pid2";
2804 ($serr, $pid, $pid2, $unused) =
2806 if($pid <= 0) {
2809 logmsg sprintf("* pid http-unix => %d %d\n", $pid, $pid2)
2811 $run{'http-unix'}="$pid $pid2";
2816 ($serr, $pid, $pid2, $PORT{"dict"}) = rundictserver($verbose, "");
2817 if($pid <= 0) {
2820 logmsg sprintf ("* pid DICT => %d %d\n", $pid, $pid2)
2822 $run{'dict'}="$pid $pid2";
2827 ($serr, $pid, $pid2, $PORT{"smb"}) = runsmbserver($verbose, "");
2828 if($pid <= 0) {
2831 logmsg sprintf ("* pid SMB => %d %d\n", $pid, $pid2)
2833 $run{'smb'}="$pid $pid2";
2838 ($serr, $pid, $pid2, $PORT{"telnet"}) =
2840 if($pid <= 0) {
2843 logmsg sprintf ("* pid neg TELNET => %d %d\n", $pid, $pid2)
2845 $run{'telnet'}="$pid $pid2";
2877 foreach my $pid (split(' ', $pids)) {
2878 if($pid != $prev) {
2879 logmsg sprintf("* kill pid for %s => %d\n",
2880 $server, $pid);
2881 $prev = $pid;
2892 # cleanup all server pid files
2897 my $pid = processexists($pidfile);
2898 if($pid > 0) {
2907 killpid($verb, $pid);