view release on metacpan or  search on metacpan

lib/AWS/CloudFront/Signer.pm  view on Meta::CPAN

package
AWS::CloudFront::Signer;

use VSO;
use HTTP::Request::Common;
use HTTP::Date 'time2str';
use MIME::Base64 qw(encode_base64);
use URI::Escape qw(uri_escape_utf8);
use URI::QueryParam;
use URI::Escape;
use URI;
use Digest::HMAC_SHA1 'hmac_sha1';
use Digest::MD5 'md5';
use Encode;

my $METADATA_PREFIX      = 'x-amz-meta-';
my $AMAZON_HEADER_PREFIX = 'x-amz-';

lib/AWS/CloudFront/Signer.pm  view on Meta::CPAN

{
  my $s = shift;
  
  return 'AWS ' . $s->cf->access_key_id . ':' . $s->signature;
}# end auth_header()


sub _urlencode
{
  my ($unencoded ) = @_;
  return uri_escape_utf8( $unencoded, '^A-Za-z0-9_-' );
}# end _urlencode()

1;# return true: