Verbosity level added

shafiev · Jun 12, 2010 · f95af15 · f95af15
1 parent 9807c21
commit f95af15
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/benchmark.pl b/benchmark.pl
@@ -53,7 +53,7 @@ sub parse_command_line {
         "url=s"       => \$url,
         "n=i"         => \$count,
         "c=i"         => \$concurency,
-        "verbose!"    => \$verbose,
+        "verbose|v+"  => \$verbose,
         "debug"       => \$DEBUG,
         "proxy=s"     => \$proxy,
         "useragent=s" => \$useragent
@@ -86,6 +86,11 @@ sub add_request {
         push @reqs_time, $req_time;
         $done++;
 
+	if ($verbose >= 2) {
+	    print "=========== HTTP RESPONCE ===========\n";
+	    print @_[0];
+	}
+
         my $hdr = @_[1];
 
         if ( $hdr->{Status} =~ /^2/ ) {