Clarified what name is needed to be provided

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

diff --git a/lib/Dist/Zilla/App/Command/provision.pm b/lib/Dist/Zilla/App/Command/provision.pm
index 1b355a6..1c0abfe 100644 (file)
--- a/lib/Dist/Zilla/App/Command/provision.pm
+++ b/lib/Dist/Zilla/App/Command/provision.pm
@@ -4,15 +4,19 @@ package Dist::Zilla::App::Command::provision;
 BEGIN {
   $Dist::Zilla::App::Command::provision::VERSION = '0.1';
 }
-# ABSTRACT: release your dist to the CPAN
+# 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' ],
+  [ 'name=s'     => 'the name of the VM to create' ],
+  [ 'config=s'   => 'the name of the config file to use, default ./oyster.conf' ],
 }
 
 sub execute {
@@ -21,24 +25,33 @@ sub execute {
   my $zilla = $self->zilla;
 
   my $name = $opt->name
-    or die "No name provided!";
-  my @config_files = ( './oyster.conf' ); # TODO make configurable
+    or die "No virtual machine name provided!";
+  my @config_files = ($opt->name or './oyster.conf');
 
-  my $cfg = Config::Any->load_files({ files => \@config_files });
+  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 $target = $Provision->{$name}  or die "No section for <Provision> <$name>";
 
-  my $type = $target->{type} || 'EC2';
+  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);
 
-  use Oyster::Provision;
   my $server = Oyster::Provision->new(
         name => $name,
-        size => '256',
-        image => 'Meerkat',
-        pub_ssh => "$ENV{HOME}/.ssh/id_rsa.pub",
-        provision_backend => $type,
+        config => \%hash,
+        %hash,
   );
   $server->create;
   print "Instance $name created! ($server)\n";