curl/tests/runtests.pl

473     my ($cmd, $pidfile, $timeout, $fake)=@_;
499         if(open(OUT, ">$pidfile")) {
502             logmsg "startnew: $pidfile faked with pid=$child\n" if($verbose);
505             logmsg "startnew: failed to write fake $pidfile with pid=$child\n";
517         if(-f $pidfile && -s $pidfile && open(PID, "<$pidfile")) {
830         my $pidfile = $serverpidfile{$server};
831         my $pid = processexists($pidfile);
836         unlink($pidfile) if(-f $pidfile);
1067     my $pidfile = server_pidfilename($proto, $ipvnum, $idnum);
1069     if(open(FILE, "<$pidfile")) {
1079             unlink($pidfile);
1132     my $pidfile = server_pidfilename($proto, $ipvnum, $idnum);
1183     if($data && ($data =~ /(GNUTLS|GnuTLS)/) && open(FILE, "<$pidfile")) {
1192                 unlink($pidfile);
1216     my $pidfile = server_pidfilename($proto, $ipvnum, $idnum);
1218     if(open(FILE, "<$pidfile")) {
1228             unlink($pidfile);
1438     my $pidfile;
1449     $pidfile = $serverpidfile{$server};
1452     if ($doesntrun{$pidfile}) {
1456     my $pid = processexists($pidfile);
1460     unlink($pidfile) if(-f $pidfile);
1466     $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
1472     my ($http2pid, $pid2) = startnew($cmd, $pidfile, 15, 0);
1478         $doesntrun{$pidfile} = 1;
1499     my $pidfile;
1521     $pidfile = $serverpidfile{$server};
1525     if ($doesntrun{$pidfile}) {
1529     my $pid = processexists($pidfile);
1533     unlink($pidfile) if(-f $pidfile);
1542     $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
1553     my ($httppid, $pid2) = startnew($cmd, $pidfile, 15, 0);
1560         $doesntrun{$pidfile} = 1;
1577         $doesntrun{$pidfile} = 1;
1600     my $pidfile;
1615     $pidfile = $serverpidfile{$server};
1618     if ($doesntrun{$pidfile}) {
1622     my $pid = processexists($pidfile);
1626     unlink($pidfile) if(-f $pidfile);
1635     $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
1657         ($httpspid, $pid2) = startnew($cmd, $pidfile, 15, 0);
1664             $doesntrun{$pidfile} = 1;
1675             $doesntrun{$pidfile} = 1;
1704     my $pidfile;
1714     $pidfile = $serverpidfile{$server};
1717     if ($doesntrun{$pidfile}) {
1721     my $pid = processexists($pidfile);
1725     unlink($pidfile) if(-f $pidfile);
1739     my ($httptlspid, $pid2) = startnew($cmd, $pidfile, 10, 1); # fake pidfile
1746         $doesntrun{$pidfile} = 1;
1757         $doesntrun{$pidfile} = 1;
1780     my $pidfile;
1786     $pidfile = $serverpidfile{$server};
1790     if ($doesntrun{$pidfile}) {
1794     my $pid = processexists($pidfile);
1798     unlink($pidfile) if(-f $pidfile);
1805     $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
1812     my ($ftppid, $pid2) = startnew($cmd, $pidfile, 15, 0);
1819         $doesntrun{$pidfile} = 1;
1835         $doesntrun{$pidfile} = 1;
1896     my $pidfile;
1906     $pidfile = $serverpidfile{$server};
1909     if ($doesntrun{$pidfile}) {
1913     my $pid = processexists($pidfile);
1917     unlink($pidfile) if(-f $pidfile);
1926     $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
1941         ($ftpspid, $pid2) = startnew($cmd, $pidfile, 15, 0);
1948             $doesntrun{$pidfile} = 1;
1958             $doesntrun{$pidfile} = 1;
1985     my $pidfile;
1997     $pidfile = $serverpidfile{$server};
2001     if ($doesntrun{$pidfile}) {
2005     my $pid = processexists($pidfile);
2009     unlink($pidfile) if(-f $pidfile);
2016     $flags .= "--pidfile \"$pidfile\" ".
2023     my ($tftppid, $pid2) = startnew($cmd, $pidfile, 15, 0);
2030         $doesntrun{$pidfile} = 1;
2043         $doesntrun{$pidfile} = 1;
2067     my $pidfile;
2079     $pidfile = $serverpidfile{$server};
2083     if ($doesntrun{$pidfile}) {
2087     my $pid = processexists($pidfile);
2091     unlink($pidfile) if(-f $pidfile);
2098     $flags .= "--pidfile \"$pidfile\" ".
2105     my ($rtsppid, $pid2) = startnew($cmd, $pidfile, 15, 0);
2112         $doesntrun{$pidfile} = 1;
2125         $doesntrun{$pidfile} = 1;
2149     my $pidfile;
2155     $pidfile = $serverpidfile{$server};
2158     if ($doesntrun{$pidfile}) {
2167     my $pid = processexists($pidfile);
2171     unlink($pidfile) if(-f $pidfile);
2180     $flags .= "--pidfile \"$pidfile\" ";
2201         ($sshpid, $pid2) = startnew($cmd, $pidfile, 60, 0);
2211             $doesntrun{$pidfile} = 1;
2225             $doesntrun{$pidfile} = 1;
2246             $doesntrun{$pidfile} = 1;
2289     my $pidfile;
2295     $pidfile = $serverpidfile{$server};
2299     if ($doesntrun{$pidfile}) {
2303     my $pid = processexists($pidfile);
2307     unlink($pidfile) if(-f $pidfile);
2316         " --pidfile $pidfile".
2319     my ($sockspid, $pid2) = startnew($cmd, $pidfile, 30, 0);
2325         $doesntrun{$pidfile} = 1;
2349     my $pidfile;
2355     $pidfile = $serverpidfile{$server};
2359     if ($doesntrun{$pidfile}) {
2363     my $pid = processexists($pidfile);
2367     unlink($pidfile) if(-f $pidfile);
2376         " --pidfile $pidfile".
2380     my ($sockspid, $pid2) = startnew($cmd, $pidfile, 30, 0);
2386         $doesntrun{$pidfile} = 1;
2410     my $pidfile;
2420     $pidfile = $serverpidfile{$server};
2423     if ($doesntrun{$pidfile}) {
2427     my $pid = processexists($pidfile);
2431     unlink($pidfile) if(-f $pidfile);
2438     $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
2444     my ($dictpid, $pid2) = startnew($cmd, $pidfile, 15, 0);
2451         $doesntrun{$pidfile} = 1;
2462         $doesntrun{$pidfile} = 1;
2485     my $pidfile;
2495     $pidfile = $serverpidfile{$server};
2498     if ($doesntrun{$pidfile}) {
2502     my $pid = processexists($pidfile);
2506     unlink($pidfile) if(-f $pidfile);
2513     $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
2519     my ($smbpid, $pid2) = startnew($cmd, $pidfile, 15, 0);
2526         $doesntrun{$pidfile} = 1;
2537         $doesntrun{$pidfile} = 1;
2560     my $pidfile;
2570     $pidfile = $serverpidfile{$server};
2573     if ($doesntrun{$pidfile}) {
2577     my $pid = processexists($pidfile);
2581     unlink($pidfile) if(-f $pidfile);
2588     $flags .= "--pidfile \"$pidfile\" --logfile \"$logfile\" ";
2593     my ($ntelpid, $pid2) = startnew($cmd, $pidfile, 15, 0);
2600         $doesntrun{$pidfile} = 1;
2611         $doesntrun{$pidfile} = 1;
4552         my $pidfile = $serverpidfile{$server};
4553         my $pid = processexists($pidfile);
4558         unlink($pidfile) if(-f $pidfile);