summaryrefslogtreecommitdiff
path: root/bin/client
diff options
context:
space:
mode:
Diffstat (limited to 'bin/client')
-rw-r--r--bin/client15
1 files changed, 8 insertions, 7 deletions
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,