tests:webserver: move parsing of request to its own function.

(Prepare for really parsing the request...)

Michael

1 files changed, 18 insertions, 10 deletions

diff --git a/tests/scripts/webserver.pl b/tests/scripts/webserver.pl
index 1dc1646..a006830 100755
--- a/tests/scripts/webserver.pl
+++ b/tests/scripts/webserver.pl
@@ -75,6 +75,23 @@ sub REAPER {
 	$SIG{CHLD} = \&REAPER;
 }
 
+sub parse_request($) {
+	my $client = shift;
+
+	my $request = "";
+	while (my $request_line = <$client>) {
+		$request .= $request_line;
+		last if ($request_line eq $EOL);
+	}
+
+	logmsg  "request:\n" .
+		"------------------------------\n" .
+		"$request" .
+		"------------------------------";
+
+	return $request;
+}
+
 sub child_action($) {
 	my $client = shift;
 	my $client_ip = shift;
@@ -90,16 +107,7 @@ sub child_action($) {
 		$fortune =~ s/\n/$EOL/g;
 	}
 
-	my $request = "";
-	while (my $request_line = <$client>) {
-		$request .= $request_line;
-		last if ($request_line eq $EOL);
-	}
-
-	logmsg  "request:\n" .
-		"------------------------------\n" .
-		"$request" .
-		"------------------------------";
+	my $request = parse_request($client);
 
 	print $client "HTTP/1.0 200 OK$EOL";
 	print $client "Server: Tinyproxy-Test-Web-Server/$VERSION$EOL";