diff options
Diffstat (limited to 'lib/DeWeave/Storage.pm')
| -rw-r--r-- | lib/DeWeave/Storage.pm | 10 |
1 files changed, 7 insertions, 3 deletions
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) { |