attempting to fix ::Provision

[p5sagit/Oyster.git] / lib / Oyster / Provision / AmazonEC2.pm

package Oyster::Provision::AmazonEC2;
use Carp;
use Moose::Role;
use Net::Amazon::EC2;

has 'api_username' => ( is => 'ro', isa => 'Str', required => 1, lazy_build => 1);
sub _build_api_username {
    my $self = shift;
    return $ENV{CLOUDSERVERS_USER} if exists $ENV{CLOUDSERVERS_USER};
    die "Need api_username or CLOUDSERVERS_USER in environment";
}

has 'api_password' => ( is => 'ro', isa => 'Str', required => 1, lazy_build => 1);
sub _build_api_password {
    my $self = shift;
    return $ENV{CLOUDSERVERS_KEY} if exists $ENV{CLOUDSERVERS_KEY};
    die "Need api_password or CLOUDSERVERS_KEY in environment";
}

has ec2_oyster_key => (is => 'rw', isa => 'Str', default => "OysterDefault");

sub ec2 {
    my $self = shift;
    
    my $ec2 = Net::Amazon::EC2->new(
        AWSAccessKeyId  => $self->api_username,
        SecretAccessKey => $self->api_password,
   );
   
    my $key_pairs = $ec2->describe_key_pairs({ KeyName => $self->ec2_oyster_key });
    
    unless(defined($key_pairs)) {
    
        printf("Creating %s pair\n", $self->ec2_oyster_key);
        $ec2->create_key_pair({ KeyName => $self->ec2_oyster_key });
    
    }
   
   return $ec2;
}

sub create {
   my $self = shift;

   # Start 1 new instance from AMI: ami-XXXXXXXX
   my $instance = $self->ec2->run_instances(
       ImageId  => $self->image() || "ami-be6e99d7",
       KeyName  => $self->ec2_oyster_key,
       MinCount => 1,
       MaxCount => 1,
   );

}

sub delete {
   my $self = shift;

}

sub resize {
   my $self = shift;

   $self->config();
}

1;

__END__

=head1 NAME

Oyster::Provision::AmazonEC2 -- Provision your Oyster on Amazon EC2

=head1 SYNOPSIS

Use the Amazon backend on your Oyster configuration file

=head1 REQUIRED PARAMETERS

The following are required to instantiate a backend:

=over

=item name

The name of your new/existing rackspace server.

pub_ssh

This is a key name to pass to EC2 

=item size

The size ID of the rackspace server you want to create.
Use the following incantation to see them:

    perl -MNet::RackSpace::CloudServers -e'
        $r=Net::RackSpace::CloudServers->new(
            user=>$ENV{CLOUDSERVERS_USER},
            key=>$ENV{CLOUDSERVERS_KEY},
        );
        print map
            { "id $_->{id} ram $_->{ram} disk $_->{disk}\n" }
            $r->get_flavor_detail
    '
    id 1 ram 256 disk 10
    id 2 ram 512 disk 20
    id 3 ram 1024 disk 40
    id 4 ram 2048 disk 80
    id 5 ram 4096 disk 160
    id 6 ram 8192 disk 320
    id 7 ram 15872 disk 620

=item image

The image ID of the rackspace server you want to create.
Use the following incantation to see them:

    perl -MNet::RackSpace::CloudServers -e'
        $r=Net::RackSpace::CloudServers->new(
            user=>$ENV{CLOUDSERVERS_USER},
            key=>$ENV{CLOUDSERVERS_KEY},
        );
        print map
            { "id $_->{id} name $_->{name}\n" }
            $r->get_image_detail
    '
    id 29 name Windows Server 2003 R2 SP2 x86
    id 69 name Ubuntu 10.10 (maverick)
    id 41 name Oracle EL JeOS Release 5 Update 3
    id 40 name Oracle EL Server Release 5 Update 4
    id 187811 name CentOS 5.4
    id 4 name Debian 5.0 (lenny)
    id 10 name Ubuntu 8.04.2 LTS (hardy)
    id 23 name Windows Server 2003 R2 SP2 x64
    id 24 name Windows Server 2008 SP2 x64
    id 49 name Ubuntu 10.04 LTS (lucid)
    id 14362 name Ubuntu 9.10 (karmic)
    id 62 name Red Hat Enterprise Linux 5.5
    id 53 name Fedora 13
    id 17 name Fedora 12
    id 71 name Fedora 14
    id 31 name Windows Server 2008 SP2 x86
    id 51 name CentOS 5.5
    id 14 name Red Hat Enterprise Linux 5.4
    id 19 name Gentoo 10.1
    id 28 name Windows Server 2008 R2 x64
    id 55 name Arch 2010.05

Oyster only supports Linux images, specifically
Ubuntu 10.10 (maverick).

=item pub_ssh

The public ssh key you would like copied to the
new server's C</root/.ssh/authorized_keys> file
to allow you to ssh in the box without providing
a root password.

=back

=cut