diff options
author | dakkar <dakkar@thenautilus.net> | 2012-01-13 15:48:15 +0000 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2012-01-13 15:48:15 +0000 |
commit | 8cef751b634694a1b86b95dda1db81a2fee7d15c (patch) | |
tree | c74ec7036d691f71d3c711b37316513456420b3e | |
parent | apparently some required fields aren't (diff) | |
download | DeWeave-8cef751b634694a1b86b95dda1db81a2fee7d15c.tar.gz DeWeave-8cef751b634694a1b86b95dda1db81a2fee7d15c.tar.bz2 DeWeave-8cef751b634694a1b86b95dda1db81a2fee7d15c.zip |
"verbose" cmdline switch
-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, |