From: Daniel Stenberg <daniel@haxx.se>
Date: Mon, 12 Mar 2001 12:44:44 +0000 (+0000)
Subject: output the protocol data to stderr when verbose is on
X-Git-Tag: upstream/7.37.1~17012
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=c576e114b93fc669e2a386bcc0ea5870c7f03b39;p=platform%2Fupstream%2Fcurl.git

output the protocol data to stderr when verbose is on
---

diff --git a/tests/httpserver.pl b/tests/httpserver.pl
index b1d6619..1769ac8 100755
--- a/tests/httpserver.pl
+++ b/tests/httpserver.pl
@@ -63,6 +63,8 @@ for ( $waitedpid = 0;
         my ($request, $path, $ver, $left, $cl);
 
         my @headers;
+
+      stdin:
         while(<STDIN>) {
             if($_ =~ /([A-Z]*) (.*) HTTP\/1.(\d)/) {
                 $request=$1;
@@ -135,13 +137,16 @@ for ( $waitedpid = 0;
                 print "HTTP/1.1 200 OK\r\n",
                 "header: yes\r\n",
                 "\r\n",
-                "You must select a test number to get good data back\r\n";
+                "You must enter a test number to get good data back\r\n";
             }
             else {
                 # send a custom reply to the client
                 open(DATA, "<data/reply$testnum.txt");
                 while(<DATA>) {
                     print $_;
+                    if($verbose) {
+                        print STDERR "OUT: $_";
+                    }
                 }
                 close(DATA);
             }