Amazon-S3

 view release on metacpan or  search on metacpan

ChangeLog  view on Meta::CPAN

	* t/05-multipart-upload.t
	- likewise
	- new tests for checksums
	* bin/s3-perl.pl.in: deleted

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

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/Bucket.pm  view on Meta::CPAN

Optional hash reference containing GetObject URI parameters.

Examples include:

  partNumber
  response-cache-control
  response-content-disposition
  response-content-encoding
  response-content-language
  response-content-type
  response-expires
  versionId

=item verify_checksums

Optional per-request override for checksum verification.

When omitted, the value of
L<Amazon::S3/verify_checksums> is used.

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

  my %default_options = (
    output => $EMPTY,
    region => 'us-east-1',
    format => 'text',
  );

  my @option_specs = qw(
    availability-zone=s
    bucket-name|b=s
    content-type=s
    debug
    dns-bucket-names
    endpoint-url|u=s
    force|f
    format|F=s
    help|h
    host|H=s
    key|k=s
    modified-since|m=s
    output|o=s

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

=item B<add-key>

  amzn-s3-cli add-key bucket-name filename [object-name]

Adds a file to a bucket.

The bucket may alternatively be supplied with C<--bucket-name>. If
C<object-name> is omitted, the filename is used as the object key.

The content type may be supplied with C<--content-type>. Otherwise the
CLI attempts to determine the MIME type with L<File::MimeInfo::Magic>,
when installed, and falls back to C<application/octet-stream>.

=item B<copy-key>

  amzn-s3-cli copy-key bucket-name key new-key

Copies an object to another key in the same bucket.

=item B<create-bucket>

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

=item B<--availability-zone>

Specifies an Availability Zone when creating an S3 Express One Zone
directory bucket.

=item B<--bucket-name>, B<-b>

Specifies the bucket name.

=item B<--content-type>

Specifies the content type used when adding an object.

=item B<--debug>

Enables debug logging.

=item B<--dns-bucket-names>

Enables DNS-style bucket addressing.