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