Permalink
Browse files

Verbosity level added

  • Loading branch information...
1 parent 9807c21 commit f95af152c2fc5b9380f1227bad3a4c7ff5e8c176 @despairr despairr committed Jun 12, 2010
Showing with 6 additions and 1 deletion.
  1. +6 −1 benchmark.pl
View
@@ -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/ ) {

0 comments on commit f95af15

Please sign in to comment.