diff options
Diffstat (limited to 'bin')
-rw-r--r-- | bin/client | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/bin/client b/bin/client new file mode 100644 index 0000000..26eae71 --- /dev/null +++ b/bin/client @@ -0,0 +1,48 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use FindBin::libs; +use DeWeave::Storage; +use DeWeave::Crypto; +use DeWeave::EDO; +use Getopt::Long; + +my ($server,$username,$password,$sync_key); + +{ +my $p = Getopt::Long::Parser->new( + config => [qw( + no_auto_abbrev + no_getopt_compat + no_gnu_compat + require_order + no_ignore_case + )], +); +die unless $p->getoptions( + 'h|host=s' => \$server, + 'u|user=s' => \$username, + 'p|pass|password=s' => \$password, + 'k|key|sync-key=s' => \$sync_key, +); +} + +my $storage = DeWeave::Storage->new({ + ($server ? (server_uri => $server) : () ), + username => $username, + password => $password, +}); + +my $crypto = DeWeave::Crypto->new({ + storage => $storage, + sync_key => $sync_key, +}); + +use Data::Dump 'pp'; + +my $foo = DeWeave::EDO->from_json( + $storage->get_item('storage/tabs'), + $crypto, +); + +print pp $foo; |