Amazon-SQS-Simple

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

        
1.04    23 May 2009
        Added support for API version 2009-02-01
        Removed support for API version 2007-05-01

1.05    14 Nov 2009
        Minor tweak to improve the lives of folks using strict and mod_perl
        (Thanks to Stephen Sayre)

1.06    31 Mar 2010
        Added Timeout constructor arg

2.00	22 May 2013
		New Maintainer (PENFOLD)
		ReceiveMessage now always returns the first message in scalar context, irrespective of how many there are.
		    (previously if there were more than one, it would return a count)
		Updated to support and default to SignatureVersion 2, stub SignatureVersion 3 (Roland Walker)
		Proxy Support (James Neal)
		Added SendMessageBatch, ReceiveMessageBatch (Chris Jones)
		
2.01	1 Jul 2013

bin/sqs-toolkit  view on Meta::CPAN

        }
        $queue->DeleteMessage($msg->ReceiptHandle);
    }
}

sub q_timeout {
    my $queue = shift;
    my $t = shift;

    if (defined $t) { 
        $queue->SetAttribute('VisibilityTimeout', $t);
    }
    else {
        my $href = $queue->GetAttributes();
        return $href->{VisibilityTimeout};
    }
}

lib/Amazon/SQS/Simple.pm  view on Meta::CPAN

Constructs a new Amazon::SQS::Simple object

C<$access_key> is your Amazon Web Services access key. C<$secret_key> is your Amazon Web
Services secret key. If you don't have either of these credentials, visit
L<http://aws.amazon.com/>.

Options for new:

=over 4

=item Timeout => SECONDS

Set the HTTP user agent's timeout (default is 180 seconds)

=item Version => VERSION_STRING

Specifies the SQS API version you wish to use. E.g.:

 my $sqs = new Amazon::SQS::Simple($access_key, $secret_key, Version => '2008-01-01');

=back

lib/Amazon/SQS/Simple/Queue.pm  view on Meta::CPAN

sub ChangeMessageVisibility {
    my ($self, $receipt_handle, $timeout, %params) = @_;
    
    if (!defined($timeout) || $timeout =~ /\D/ || $timeout < 0 || $timeout > 43200) {
        croak "timeout must be specified and in range 0..43200";
    }
    
    $params{Action}             = 'ChangeMessageVisibility';
    $params{ReceiptHandle}      = $receipt_handle;
    $params{VisibilityTimeout}  = $timeout;
    
    my $href = $self->_dispatch(\%params);
}

our %valid_permission_actions = map { $_ => 1 } qw(* SendMessage ReceiveMessage DeleteMessage ChangeMessageVisibility GetQueueAttributes);

sub AddPermission {
    my ($self, $label, $account_actions, %params) = @_;
    
    $params{Action} = 'AddPermission';

 view all matches for this distribution
 view release on metacpan -  search on metacpan