tests/webclient: return error when HTTP status > 399
This commit is contained in:
parent
4847d8cdb3
commit
bfe59856b2
@ -122,11 +122,16 @@ foreach my $document (@ARGV) {
|
|||||||
|
|
||||||
print $remote $request;
|
print $remote $request;
|
||||||
|
|
||||||
|
$_ = <$remote>;
|
||||||
|
print; # /* HTTP/1.0 400 Bad Request */
|
||||||
|
my($errn) = ($_ =~ /HTTP\/\d\.\d (\d{3})/);
|
||||||
|
|
||||||
while (<$remote>) {
|
while (<$remote>) {
|
||||||
print;
|
print;
|
||||||
}
|
}
|
||||||
|
|
||||||
close $remote;
|
close $remote;
|
||||||
|
exit($errn - 399) if($errn > 399);
|
||||||
}
|
}
|
||||||
|
|
||||||
exit(0);
|
exit(0);
|
||||||
|
Loading…
Reference in New Issue
Block a user