Code: Select all
pug_archiver[3956]: Unable to upload to Amazon S3: Not Implemented at /usr/local/lib/perl5/site_perl/5.18.0/Net/Amazon/S3/Client.pm line 106.
pug_archiver[3956]: Unable to store archive in cloud storage in ArchiveFile
I couldn't find any error logs in /var/log - any idea where they might be hiding?
CentOS 2.6.32-431.el6.x86_64
perl 5, version 18, subversion 0 (v5.18.0) built for x86_64-linux
mysql Ver 14.14 Distrib 5.1.73, for redhat-linux-gnu (x86_64) using readline 5.1
cpan /usr/local/bin/cpan version 1.61 calling Getopt::Std::getopts (version 1.07 [paranoid]),
Code: Select all
... snip /usr/local/lib/perl5/site_perl/5.18.0/Net/Amazon/S3/Client.pm
76 sub _send_request_raw {
77 my ( $self, $http_request, $filename ) = @_;
78
79 return $self->s3->ua->request( $http_request, $filename );
80 }
81
82 sub _send_request {
83 my ( $self, $http_request, $filename ) = @_;
84
85 my $http_response = $self->_send_request_raw( $http_request, $filename );
86
87 my $content = $http_response->content;
88 my $content_type = $http_response->content_type;
89 my $code = $http_response->code;
90
91 if ( is_error($code) ) {
92 if ( $content_type eq 'application/xml' ) {
93 my $doc = $self->s3->libxml->parse_string($content);
94 my $xpc = XML::LibXML::XPathContext->new($doc);
95 $xpc->registerNs( 's3',
96 'http://s3.amazonaws.com/doc/2006-03-01/' );
97
98 if ( $xpc->findnodes('/Error') ) {
99 my $code = $xpc->findvalue('/Error/Code');
100 my $message = $xpc->findvalue('/Error/Message');
101 confess("$code: $message");
102 } else {
103 confess status_message($code);
104 }
105 } else {
106 confess status_message($code);
107 }
108 }
109 return $http_response;
110 }