dev-server: add --verbose flag

Change-Id: I993eac2b036e5cabd1b2152e72fe41d8a85f0825
This commit is contained in:
Brad Fitzpatrick 2013-01-20 14:08:55 -08:00
parent 63348983d1
commit 31fc1fb5ec
1 changed files with 4 additions and 0 deletions

View File

@ -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_staticres; # use static resources, not those on disk
my $opt_tls; my $opt_tls;
my $opt_wipe; my $opt_wipe;
my $opt_verbose;
# keep indexes in memory only. often used with --wipe, but not # keep indexes in memory only. often used with --wipe, but not
# necessarily. if --wipe isn't used, all blobs are re-indexed # necessarily. if --wipe isn't used, all blobs are re-indexed
@ -45,6 +46,7 @@ GetOptions("wipe" => \$opt_wipe,
"KBps=i" => \$opt_KBps, "KBps=i" => \$opt_KBps,
"latency_ms=i" => \$opt_latency_ms, "latency_ms=i" => \$opt_latency_ms,
"fast" => \$opt_fast, "fast" => \$opt_fast,
"verbose" => \$opt_verbose,
) )
or usage(); or usage();
@ -64,6 +66,8 @@ unless ($opt_fast) {
$ENV{DEV_THROTTLE_LATENCY_MS} = $opt_latency_ms; $ENV{DEV_THROTTLE_LATENCY_MS} = $opt_latency_ms;
} }
$ENV{CAM_HTTP_DEBUG} = 1 if $opt_verbose;
my $camlistored; my $camlistored;
my $camdbinit; # closure to return path my $camdbinit; # closure to return path
if ($opt_nobuild) { if ($opt_nobuild) {