summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
authordakkar <dakkar@thenautilus.net>2011-03-25 21:43:42 +0000
committerdakkar <dakkar@thenautilus.net>2011-03-25 21:43:42 +0000
commit75aa29074f273164a8029d2fd8c963f8de5aea49 (patch)
tree7dca22b15aa45172a36c3bf83035bb610e9ff109 /bin
parentbroken first stab (diff)
downloadDeWeave-75aa29074f273164a8029d2fd8c963f8de5aea49.tar.gz
DeWeave-75aa29074f273164a8029d2fd8c963f8de5aea49.tar.bz2
DeWeave-75aa29074f273164a8029d2fd8c963f8de5aea49.zip
it might even complie
Diffstat (limited to 'bin')
-rw-r--r--bin/client48
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;