Clarified what name is needed to be provided

[p5sagit/Oyster.git] / lib / Dist / Zilla / App / Command / provision.pm

use strict;
use warnings;
package Dist::Zilla::App::Command::provision;
BEGIN {
  $Dist::Zilla::App::Command::provision::VERSION = '0.1';
}
# ABSTRACT: provision a new Oyster VM
use Dist::Zilla::App -command;
use Moose;
use Config::Any;
use Hash::Merge 'merge';
Hash::Merge::set_behavior( 'RIGHT_PRECEDENT' );
use Oyster::Provision;

sub abstract { 'provision a new Oyster VM' }

sub opt_spec {
  [ 'name=s'     => 'the name of the VM to create' ],
  [ 'config=s'   => 'the name of the config file to use, default ./oyster.conf' ],
}

sub execute {
  my ($self, $opt, $arg) = @_;

  my $zilla = $self->zilla;

  my $name = $opt->name
    or die "No virtual machine name provided!";
  my @config_files = ($opt->name or './oyster.conf');

  my $cfg = Config::Any->load_files({ files => \@config_files, use_ext => 0 });
  ($cfg) = values %{ $cfg->[0] }; # FIX with ::JFDI or similar

  my $Provision = $cfg->{Provision} or die "No <Provision> section";

  my @hashes = grep $_, $Provision->{Default}, $Provision->{$name}
      or die "No section for <Provision> <$name>, and no <default>";

  warn Dumper(\@hashes);

  my %hash = @hashes > 1 ? %{ merge( @hashes ) } : %{ $hashes[0] };

  my $type = delete $hash{type} || 'Oyster::Provision::Rackspace';
  $hash{provision_backend} = $type =~/^Oyster::Provision::/ ? $type : "Oyster::Provision::$type";
  $hash{pub_ssh} ||= "$ENV{HOME}/.ssh/id_rsa.pub";
  $hash{size}    ||= 1;  # id 1 - ram 256 MiB - disk 10 GiB
  $hash{image}   ||= 69; # id 69 - Ubuntu 10.10 (meerkat)

  use Data::Dumper; warn "Config hash: ", Dumper(\%hash);

  my $server = Oyster::Provision->new(
        name => $name,
        config => \%hash,
        %hash,
  );
  $server->create;
  print "Instance $name created! ($server)\n";
}

1;

__END__
=pod

=head1 NAME

Dist::Zilla::App::Command::provision - provision a new Oyster VM

=head1 VERSION

version 0.1

=head1 SYNOPSIS

    TODO

=head1 AUTHOR

CONTRIBUTORS

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2010 by CONTRIBUTORS

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut