diff options
author | dakkar <dakkar@thenautilus.net> | 2011-03-25 23:54:14 +0000 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2011-03-25 23:54:14 +0000 |
commit | e1872c5028937753e0ecbebcded8a312d5eb7ce4 (patch) | |
tree | 38cfdbbf3cda37cc23bb760b39d478e9c29a6676 /lib/DeWeave/Storage.pm | |
parent | it might even complie (diff) | |
download | DeWeave-e1872c5028937753e0ecbebcded8a312d5eb7ce4.tar.gz DeWeave-e1872c5028937753e0ecbebcded8a312d5eb7ce4.tar.bz2 DeWeave-e1872c5028937753e0ecbebcded8a312d5eb7ce4.zip |
very broken, can't decrypt
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) { |