when failing to verify a HTTP server, display what curl said on stderr to

help debugging. (when using ipv6 I fell over this server that didn't have
the ipv6 module loaded)
This commit is contained in:
Daniel Stenberg 2004-12-12 23:31:45 +00:00
Родитель 22a0c57746
Коммит 4b1350e467
1 изменённых файлов: 7 добавлений и 3 удалений

Просмотреть файл

@ -350,15 +350,19 @@ sub runhttpserver {
$pid = checkserver($pidfile);
# verify if our/any server is running on this port
my $cmd = "$CURL -o log/verifiedserver -g \"http://$ip:$port/verifiedserver\" 2>/dev/null";
my $cmd = "$CURL -o log/verifiedserver -g \"http://$ip:$port/verifiedserver\" 2>log/verifystderr";
print "CMD; $cmd\n" if ($verbose);
my $res = system($cmd);
$res >>= 8; # rotate the result
my $data;
print "RUN: curl command returned $res\n" if ($verbose);
if($res && $verbose) {
print "RUN: curl command returned $res\nRUN: ";
open(ERR, "<log/verifystderr");
print <ERR>;
close(ERR);
}
open(FILE, "<log/verifiedserver");
my @file=<FILE>;
close(FILE);