diff options
Diffstat (limited to 'bin/client')
-rw-r--r-- | bin/client | 15 |
1 files changed, 8 insertions, 7 deletions
@@ -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, |