From e1872c5028937753e0ecbebcded8a312d5eb7ce4 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Fri, 25 Mar 2011 23:54:14 +0000
Subject: very broken, can't decrypt

---
 lib/DeWeave/Storage.pm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'lib/DeWeave/Storage.pm')

diff --git a/lib/DeWeave/Storage.pm b/lib/DeWeave/Storage.pm
index 0786b7c..d8e62c9 100644
--- a/lib/DeWeave/Storage.pm
+++ b/lib/DeWeave/Storage.pm
@@ -1,4 +1,4 @@
-package DeWeave::Crypto;
+package DeWeave::Storage;
 use Moose;
 use namespace::autoclean;
 use MooseX::Types::Moose qw(Str);
@@ -34,9 +34,12 @@ has _useragent => (
 sub _build__useragent {
     my ($self) = @_;
 
-    my $ua = LWP::UserAgent->new();
+    my $ua = LWP::UserAgent->new(
+        ssl_opts => { SSL_verify_mode => 0 },
+    );
     $ua->env_proxy;
     $ua->credentials($self->server_uri->host_port,
+                     'Weave',
                      $self->username,
                      $self->password);
     $ua->protocols_allowed(['https']);
@@ -47,10 +50,11 @@ sub _build__useragent {
 sub get_item {
     my ($self,$path) = @_;
 
-    my $relative = sprintf '1.0/%s/storage/%s',
+    my $relative = sprintf '1.0/%s/%s',
         $self->username,$path;
     my $uri = URI->new_abs($relative,$self->server_uri);
     $uri->query_param(full => 1);
+warn $uri;
     my $response = $self->_useragent->get($uri);
 
     if ($response->is_success) {
-- 
cgit v1.2.3