curl/tests/runtests.pl

428     my ($cmd, $pidfile, $timeout, $fake)=@_;
454         if(open(OUT, ">$pidfile")) {
457             logmsg "startnew: $pidfile faked with pid=$child\n" if($verbose);
460             logmsg "startnew: failed to write fake $pidfile with pid=$child\n";
472         if(-f $pidfile && -s $pidfile && open(PID, "<$pidfile")) {
753         my $pidfile = $serverpidfile{$server};
754         my $pid = processexists($pidfile);
759         unlink($pidfile) if(-f $pidfile);
990     my $pidfile = server_pidfilename($proto, $ipvnum, $idnum);
992     if(open(FILE, "<$pidfile")) {
1002             unlink($pidfile);
1055     my $pidfile = server_pidfilename($proto, $ipvnum, $idnum);
1106     if($data && ($data =~ /(GNUTLS|GnuTLS)/) && open(FILE, "<$pidfile")) {
1115                 unlink($pidfile);
1139     my $pidfile = server_pidfilename($proto, $ipvnum, $idnum);
1141     if(open(FILE, "<$pidfile")) {
1151             unlink($pidfile);
1361     my $pidfile;
1372     $pidfile = $serverpidfile{$server};
1375     if ($doesntrun{$pidfile}) {
1379     my $pid = processexists($pidfile);
1383     unlink($pidfile) if(-f $pidfile);
1389     $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
1395     my ($http2pid, $pid2) = startnew($cmd, $pidfile, 15, 0);
1401         $doesntrun{$pidfile} = 1;
1422     my $pidfile;
1444     $pidfile = $serverpidfile{$server};
1447     if ($doesntrun{$pidfile}) {
1451     my $pid = processexists($pidfile);
1455     unlink($pidfile) if(-f $pidfile);
1464     $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
1474     my ($httppid, $pid2) = startnew($cmd, $pidfile, 15, 0);
1481         $doesntrun{$pidfile} = 1;
1492         $doesntrun{$pidfile} = 1;
1517     my $pidfile;
1527     $pidfile = $serverpidfile{$server};
1530     if ($doesntrun{$pidfile}) {
1534     my $pid = processexists($pidfile);
1538     unlink($pidfile) if(-f $pidfile);
1547     $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
1555     my ($httpspid, $pid2) = startnew($cmd, $pidfile, 15, 0);
1562         $doesntrun{$pidfile} = 1;
1573         $doesntrun{$pidfile} = 1;
1601     my $pidfile;
1611     $pidfile = $serverpidfile{$server};
1614     if ($doesntrun{$pidfile}) {
1618     my $pid = processexists($pidfile);
1622     unlink($pidfile) if(-f $pidfile);
1636     my ($httptlspid, $pid2) = startnew($cmd, $pidfile, 10, 1); # fake pidfile
1643         $doesntrun{$pidfile} = 1;
1654         $doesntrun{$pidfile} = 1;
1679     my $pidfile;
1707     $pidfile = $serverpidfile{$server};
1710     if ($doesntrun{$pidfile}) {
1714     my $pid = processexists($pidfile);
1718     unlink($pidfile) if(-f $pidfile);
1725     $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
1731     my ($ftppid, $pid2) = startnew($cmd, $pidfile, 15, 0);
1738         $doesntrun{$pidfile} = 1;
1749         $doesntrun{$pidfile} = 1;
1775     my $pidfile;
1785     $pidfile = $serverpidfile{$server};
1788     if ($doesntrun{$pidfile}) {
1792     my $pid = processexists($pidfile);
1796     unlink($pidfile) if(-f $pidfile);
1805     $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
1813     my ($ftpspid, $pid2) = startnew($cmd, $pidfile, 15, 0);
1820         $doesntrun{$pidfile} = 1;
1831         $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 ($tftppid, $pid2) = startnew($cmd, $pidfile, 15, 0);
1902         $doesntrun{$pidfile} = 1;
1913         $doesntrun{$pidfile} = 1;
1940     my $pidfile;
1953     $pidfile = $serverpidfile{$server};
1956     if ($doesntrun{$pidfile}) {
1960     my $pid = processexists($pidfile);
1964     unlink($pidfile) if(-f $pidfile);
1971     $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
1976     my ($rtsppid, $pid2) = startnew($cmd, $pidfile, 15, 0);
1983         $doesntrun{$pidfile} = 1;
1994         $doesntrun{$pidfile} = 1;
2021     my $pidfile;
2027     $pidfile = $serverpidfile{$server};
2030     if ($doesntrun{$pidfile}) {
2034     my $pid = processexists($pidfile);
2038     unlink($pidfile) if(-f $pidfile);
2046     $flags .= "--pidfile \"$pidfile\" ";
2053     my ($sshpid, $pid2) = startnew($cmd, $pidfile, 60, 0);
2063         $doesntrun{$pidfile} = 1;
2076         $doesntrun{$pidfile} = 1;
2096         $doesntrun{$pidfile} = 1;
2119     my $pidfile;
2125     $pidfile = $serverpidfile{$server};
2128     if ($doesntrun{$pidfile}) {
2132     my $pid = processexists($pidfile);
2136     unlink($pidfile) if(-f $pidfile);
2145         " --pidfile $pidfile".
2148     my ($sockspid, $pid2) = startnew($cmd, $pidfile, 30, 0);
2154         $doesntrun{$pidfile} = 1;
2176     my $pidfile;
2186     $pidfile = $serverpidfile{$server};
2189     if ($doesntrun{$pidfile}) {
2193     my $pid = processexists($pidfile);
2197     unlink($pidfile) if(-f $pidfile);
2204     $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
2210     my ($dictpid, $pid2) = startnew($cmd, $pidfile, 15, 0);
2217         $doesntrun{$pidfile} = 1;
2228         $doesntrun{$pidfile} = 1;
2253     my $pidfile;
2263     $pidfile = $serverpidfile{$server};
2266     if ($doesntrun{$pidfile}) {
2270     my $pid = processexists($pidfile);
2274     unlink($pidfile) if(-f $pidfile);
2281     $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
2287     my ($smbpid, $pid2) = startnew($cmd, $pidfile, 15, 0);
2294         $doesntrun{$pidfile} = 1;
2305         $doesntrun{$pidfile} = 1;
2330     my $pidfile;
2340     $pidfile = $serverpidfile{$server};
2343     if ($doesntrun{$pidfile}) {
2347     my $pid = processexists($pidfile);
2351     unlink($pidfile) if(-f $pidfile);
2358     $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
2363     my ($ntelpid, $pid2) = startnew($cmd, $pidfile, 15, 0);
2370         $doesntrun{$pidfile} = 1;
2381         $doesntrun{$pidfile} = 1;
3823             my $pidfile = $serverpidfile{$server};
3824             my $pid = processexists($pidfile);
3829             unlink($pidfile) if(-f $pidfile);
4340         my $pidfile = $serverpidfile{$server};
4341         my $pid = processexists($pidfile);
4346         unlink($pidfile) if(-f $pidfile);