#!/usr/bin/perl -w
# Created / written by k2patel@hotmail.com
# this script create snapshot for given volume.

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 < 2) {
  print "\nUsage: create_snap.pl <Volume_ID> <Today>\n";
  print "This will create Snapshot for given Volume\n";
  print "Format for today's Date must be \"YYYYMMDD\"\n";
  exit 1;
}

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

my @result = $ec2->create_snapshot(
VolumeId => $ARGV[0],
Description => $ARGV[1]
);

print $result[0]->{snapshot_id};
#print Dumper \@result;