Lines Matching refs:pidfile
304 my %doesntrun; # servers that don't work, identified by pidfile
367 # Load serverpidfile hash with pidfile names for all possible servers.
417 my ($cmd, $pidfile, $timeout, $fake)=@_;
443 if(open(OUT, ">$pidfile")) {
446 logmsg "startnew: $pidfile faked with pid=$child\n" if($verbose);
449 logmsg "startnew: failed to write fake $pidfile with pid=$child\n";
461 if(-f $pidfile && -s $pidfile && open(PID, "<$pidfile")) {
466 # otherwise it is just likely to be the _previous_ pidfile or
715 my $pidfile = $serverpidfile{$server};
716 my $pid = processexists($pidfile);
721 unlink($pidfile) if(-f $pidfile);
946 # Verify that the ssh server has written out its pidfile, recovering
953 my $pidfile = server_pidfilename($proto, $ipvnum, $idnum);
955 pidfile")) {
961 # since runsshserver() unlinks previous pidfile
965 unlink($pidfile);
1018 my $pidfile = server_pidfilename($proto, $ipvnum, $idnum);
1069 if($data && ($data =~ /(GNUTLS|GnuTLS)/) && open(FILE, "<$pidfile")) {
1074 # since runhttptlsserver() unlinks previous pidfile
1078 unlink($pidfile);
1102 my $pidfile = server_pidfilename($proto, $ipvnum, $idnum);
1104 if(open(FILE, "<$pidfile")) {
1110 # since runsocksserver() unlinks previous pidfile
1114 unlink($pidfile);
1200 my $pidfile;
1211 $pidfile = $serverpidfile{$server};
1214 if ($doesntrun{$pidfile}) {
1218 my $pid = processexists($pidfile);
1222 unlink($pidfile) if(-f $pidfile);
1228 $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
1233 my ($http2pid, $pid2) = startnew($cmd, $pidfile, 15, 0);
1239 $doesntrun{$pidfile} = 1;
1260 my $pidfile;
1288 $pidfile = $serverpidfile{$server};
1291 if ($doesntrun{$pidfile}) {
1295 my $pid = processexists($pidfile);
1299 unlink($pidfile) if(-f $pidfile);
1308 $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
1318 my ($httppid, $pid2) = startnew($cmd, $pidfile, 15, 0);
1325 $doesntrun{$pidfile} = 1;
1336 $doesntrun{$pidfile} = 1;
1360 my $pidfile;
1370 $pidfile = $serverpidfile{$server};
1373 if ($doesntrun{$pidfile}) {
1377 my $pid = processexists($pidfile);
1381 unlink($pidfile) if(-f $pidfile);
1388 $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
1393 my ($httppid, $pid2) = startnew($cmd, $pidfile, 15, 0);
1400 $doesntrun{$pidfile} = 1;
1411 $doesntrun{$pidfile} = 1;
1436 my $pidfile;
1446 $pidfile = $serverpidfile{$server};
1449 if ($doesntrun{$pidfile}) {
1453 my $pid = processexists($pidfile);
1457 unlink($pidfile) if(-f $pidfile);
1466 $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
1474 my ($httpspid, $pid2) = startnew($cmd, $pidfile, 15, 0);
1481 $doesntrun{$pidfile} = 1;
1492 $doesntrun{$pidfile} = 1;
1520 my $pidfile;
1530 $pidfile = $serverpidfile{$server};
1533 if ($doesntrun{$pidfile}) {
1537 my $pid = processexists($pidfile);
1541 unlink($pidfile) if(-f $pidfile);
1555 my ($httptlspid, $pid2) = startnew($cmd, $pidfile, 10, 1); # fake pidfile
1562 $doesntrun{$pidfile} = 1;
1566 # Server is up. Verify that we can speak to it. PID is from fake pidfile
1573 $doesntrun{$pidfile} = 1;
1598 my $pidfile;
1626 $pidfile = $serverpidfile{$server};
1629 if ($doesntrun{$pidfile}) {
1633 my $pid = processexists($pidfile);
1637 unlink($pidfile) if(-f $pidfile);
1644 $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
1650 my ($ftppid, $pid2) = startnew($cmd, $pidfile, 15, 0);
1657 $doesntrun{$pidfile} = 1;
1668 $doesntrun{$pidfile} = 1;
1694 my $pidfile;
1704 $pidfile = $serverpidfile{$server};
1707 if ($doesntrun{$pidfile}) {
1711 my $pid = processexists($pidfile);
1715 unlink($pidfile) if(-f $pidfile);
1724 $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
1732 my ($ftpspid, $pid2) = startnew($cmd, $pidfile, 15, 0);
1739 $doesntrun{$pidfile} = 1;
1750 $doesntrun{$pidfile} = 1;
1778 my $pidfile;
1791 $pidfile = $serverpidfile{$server};
1794 if ($doesntrun{$pidfile}) {
1798 my $pid = processexists($pidfile);
1802 unlink($pidfile) if(-f $pidfile);
1809 $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
1814 my ($tftppid, $pid2) = startnew($cmd, $pidfile, 15, 0);
1821 $doesntrun{$pidfile} = 1;
1832 $doesntrun{$pidfile} = 1;
1859 my $pidfile;
1872 $pidfile = $serverpidfile{$server};
1875 if ($doesntrun{$pidfile}) {
1879 my $pid = processexists($pidfile);
1883 unlink($pidfile) if(-f $pidfile);
1890 $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
1895 my ($rtsppid, $pid2) = startnew($cmd, $pidfile, 15, 0);
1902 $doesntrun{$pidfile} = 1;
1913 $doesntrun{$pidfile} = 1;
1941 my $pidfile;
1947 $pidfile = $serverpidfile{$server};
1950 if ($doesntrun{$pidfile}) {
1954 my $pid = processexists($pidfile);
1958 unlink($pidfile) if(-f $pidfile);
1966 $flags .= "--pidfile \"$pidfile\" ";
1973 my ($sshpid, $pid2) = startnew($cmd, $pidfile, 60, 0);
1977 # able to read the pidfile and consequently returns a zero pid2 above.
1983 $doesntrun{$pidfile} = 1;
1988 # and gives us the opportunity of recovering the pid from the pidfile, when
1996 $doesntrun{$pidfile} = 1;
2016 $doesntrun{$pidfile} = 1;
2039 my $pidfile;
2045 $pidfile = $serverpidfile{$server};
2048 if ($doesntrun{$pidfile}) {
2052 my $pid = processexists($pidfile);
2056 unlink($pidfile) if(-f $pidfile);
2065 $doesntrun{$pidfile} = 1;
2073 $doesntrun{$pidfile} = 1;
2083 $doesntrun{$pidfile} = 1;
2092 $doesntrun{$pidfile} = 1;
2102 $doesntrun{$pidfile} = 1;
2111 $doesntrun{$pidfile} = 1;
2126 $doesntrun{$pidfile} = 1;
2134 my ($sshpid, $pid2) = startnew($cmd, $pidfile, 30, 1); # fake pidfile
2144 $doesntrun{$pidfile} = 1;
2148 # Ugly hack but ssh doesn't support pid files. PID is from fake pidfile.
2154 $doesntrun{$pidfile} = 1;
3779 my $pidfile = $serverpidfile{$server};
3780 my $pid = processexists($pidfile);
3785 unlink($pidfile) if(-f $pidfile);
4237 my $pidfile = $serverpidfile{$server};
4238 my $pid = processexists($pidfile);
4243 unlink($pidfile) if(-f $pidfile);
