From 31fc1fb5ec6e8d1cd3152be3b6cdad37355da62a Mon Sep 17 00:00:00 2001
From: Brad Fitzpatrick <brad@danga.com>
Date: Sun, 20 Jan 2013 14:08:55 -0800
Subject: [PATCH] dev-server: add --verbose flag

Change-Id: I993eac2b036e5cabd1b2152e72fe41d8a85f0825
---
 dev-server | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/dev-server b/dev-server
index 225576ed4..c9af237f7 100755
--- a/dev-server
+++ b/dev-server
@@ -24,6 +24,7 @@ my $opt_offline;   # don't use the network ("airplane mode")
 my $opt_staticres; # use static resources, not those on disk
 my $opt_tls;
 my $opt_wipe;
+my $opt_verbose;
 
 # keep indexes in memory only. often used with --wipe, but not
 # necessarily. if --wipe isn't used, all blobs are re-indexed
@@ -45,6 +46,7 @@ GetOptions("wipe" => \$opt_wipe,
            "KBps=i" => \$opt_KBps,
            "latency_ms=i" => \$opt_latency_ms,
            "fast" => \$opt_fast,
+           "verbose" => \$opt_verbose,
     )
     or usage();
 
@@ -64,6 +66,8 @@ unless ($opt_fast) {
     $ENV{DEV_THROTTLE_LATENCY_MS} = $opt_latency_ms;
 }
 
+$ENV{CAM_HTTP_DEBUG} = 1 if $opt_verbose;
+
 my $camlistored;
 my $camdbinit; # closure to return path
 if ($opt_nobuild) {