Amazon-S3

 view release on metacpan or  search on metacpan

ChangeLog  view on Meta::CPAN

Mon Jun 10 08:33:31 2024  Rob Lauer  <rlauer6@comcast.net>

	[2.0.2]:
	* src/main/perl/lib/Amazon/S3/Bucket.pm.in
	- issue #16 - Small fix for error when retrieving keys
	  with charset spec in content-type
	* src/main/perl/lib/Amazon/S3.pm.in
	- issue #17 - Fixed a bug where encryption was impossible in special cases
	* VERSION: bump
	* README.md: version

Mon Jun 10 07:30:59 2024  Rob Lauer  <rlauer6@comcast.net>

	[0.66]:
	* NEWS.md: updated
	* .gitignore: *.log

README.md  view on Meta::CPAN

    );
    
    my $response = $s3->buckets;
    
    # create a bucket
    my $bucket_name = $aws_access_key_id . '-net-amazon-s3-test';

    my $bucket = $s3->add_bucket( { bucket => $bucket_name } )
        or die $s3->err . ": " . $s3->errstr;
    
    # store a key with a content-type and some optional metadata
    my $keyname = 'testing.txt';

    my $value   = 'T';

    $bucket->add_key(
        $keyname, $value,
        {   content_type        => 'text/plain',
            'x-amz-meta-colour' => 'orange',
        }
    );

lib/Amazon/S3.pm  view on Meta::CPAN

  # initial / meant to force host/bucket-name instead of DNS based name
  $path =~ s/^\///xsm;

  my %interesting_headers = ();

  foreach my $p ( pairs %{$headers} ) {
    my ( $key, $value ) = @{$p};
    my $lk = lc $key;

    if ( $lk eq 'content-md5'
      or $lk eq 'content-type'
      or $lk eq 'date'
      or $lk =~ /^$AMAZON_HEADER_PREFIX/xsm ) {
      $interesting_headers{$lk} = $self->_trim($value);
    }
  }

  # these keys get empty strings if they don't exist
  $interesting_headers{'content-type'} ||= $EMPTY;
  $interesting_headers{'content-md5'}  ||= $EMPTY;

  # just in case someone used this.  it's not necessary in this lib.
  if ( $interesting_headers{'x-amz-date'} ) {
    $interesting_headers{'date'} = $EMPTY;
  }

  # if you're using expires for query string auth, then it trumps date
  # (and x-amz-date)
  if ($expires) {

lib/Amazon/S3.pm  view on Meta::CPAN

  );
  
  my $response = $s3->buckets;
  
  # create a bucket
  my $bucket_name = $aws_access_key_id . '-net-amazon-s3-test';

  my $bucket = $s3->add_bucket( { bucket => $bucket_name } )
      or die $s3->err . ": " . $s3->errstr;
  
  # store a key with a content-type and some optional metadata
  my $keyname = 'testing.txt';

  my $value   = 'T';

  $bucket->add_key(
      $keyname, $value,
      {   content_type        => 'text/plain',
          'x-amz-meta-colour' => 'orange',
      }
  );

lib/Amazon/S3/Bucket.pm  view on Meta::CPAN

=item partNumber

=item response-cache-control

=item response-content-disposition

=item response-content-encoding

=item response-content-language

=item response-content-type

=item response-expires

=item versionId

=back

=back

The method returns C<undef> if the key does not exist in the