# This script delete snapshot of requested volume
# Author : k2patel <k2patel@hotmail.com>
# Please send me message for suggestion or update.

# this script delete snapshot

use Data::Dumper;
use strict;
#use Date::Calc qw( :all );

use lib "/usr/share/perl5/vendor_perl";
use Net::Amazon::EC2;

# Configuration.
require "config";

# our $ec2;
our $awsId;
our $awsKey;
our $awsinstance;

my($num_args) = $#ARGV + 1;
if ($num_args < 1) {
  print "\nUsage: delete_snap.pl <Snapshot_ID>\n";
  print "This will Delete Snapshot\n";
  exit 1;
}

## Define Access Keys for Amazon.
my $ec2 = Net::Amazon::EC2->new(
        AWSAccessKeyId => $awsId, 
        SecretAccessKey => $awsKey
);

my @result = $ec2->delete_snapshot(
SnapshotId => $ARGV[0]
);


if ( $result[0] eq 1 ){
	#print "Good to go \n";
	exit 0;
}else{
	my $err = Dumper \@result;
	open F,">./rnd895896";
	print F $err;
	close F;
	if(system ("/bin/mail -s \"ERROR : Dump Of Error\" k2patel\@hotmail.com < ./rnd895896") == 0){
		unlink "./rnd895896";
	}
	exit 1;
	}