From 8cef751b634694a1b86b95dda1db81a2fee7d15c Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Fri, 13 Jan 2012 15:48:15 +0000
Subject: "verbose" cmdline switch

---
 bin/client | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

(limited to 'bin/client')

diff --git a/bin/client b/bin/client
index da41f14..a22692e 100644
--- a/bin/client
+++ b/bin/client
@@ -9,13 +9,7 @@ use Getopt::Long;
 use Class::MOP;
 use Log::Log4perl;
 
-Log::Log4perl->easy_init({
-    level => 'WARN',
-    utf8 => 1,
-    layout => '%c %M %m',
-});
-
-my ($server,$username,$password,$sync_key,$what);
+my ($server,$username,$password,$sync_key,$what,$verbose);
 
 {
 my $p = Getopt::Long::Parser->new(
@@ -32,9 +26,16 @@ die unless $p->getoptions(
     'u|user=s' => \$username,
     'p|pass|password=s' => \$password,
     'k|key|sync-key=s' => \$sync_key,
+    'v|verbose!' => \$verbose,
 );
 }
 
+Log::Log4perl->easy_init({
+    level => ( $verbose ? 'DEBUG' : 'WARN' ),
+    utf8 => 1,
+    layout => "%c %M %m\n",
+});
+
 my $storage = DeWeave::Storage->new({
     ($server ? (server_uri => $server) : () ),
     username => $username,
-- 
cgit v1.2.3