From 75aa29074f273164a8029d2fd8c963f8de5aea49 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Fri, 25 Mar 2011 21:43:42 +0000
Subject: it might even complie

---
 bin/client | 48 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 bin/client

(limited to 'bin')

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;
-- 
cgit v1.2.3