X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=.build%2FspEUsgyear%2Flib%2FDist%2FZilla%2FApp%2FCommand%2Fprovision.pm;fp=.build%2FspEUsgyear%2Flib%2FDist%2FZilla%2FApp%2FCommand%2Fprovision.pm;h=e5a88371441b6bcda5d31bec52020fd507afec0d;hb=e74d6d9cf461eb98e13a8179119c66fcd96064ad;hp=0000000000000000000000000000000000000000;hpb=c96da56acf355bceeda2421a97953c43d3960173;p=p5sagit%2FOyster.git

diff --git a/.build/spEUsgyear/lib/Dist/Zilla/App/Command/provision.pm b/.build/spEUsgyear/lib/Dist/Zilla/App/Command/provision.pm
new file mode 100644
index 0000000..e5a8837
--- /dev/null
+++ b/.build/spEUsgyear/lib/Dist/Zilla/App/Command/provision.pm
@@ -0,0 +1,76 @@
+use strict;
+use warnings;
+package Dist::Zilla::App::Command::provision;
+BEGIN {
+  $Dist::Zilla::App::Command::provision::VERSION = '0.1';
+}
+# ABSTRACT: release your dist to the CPAN
+use Dist::Zilla::App -command;
+use Moose;
+use Config::Any;
+
+sub abstract { 'provision a new Oyster VM' }
+
+sub opt_spec {
+  [ 'name=s'     => 'the name of the VM to create' ],
+}
+
+sub execute {
+  my ($self, $opt, $arg) = @_;
+
+  my $zilla = $self->zilla;
+
+  my $name = $opt->name
+    or die "No name provided!";
+  my @config_files = ( './oyster.conf' ); # TODO make configurable
+
+  my $cfg = Config::Any->load_files({ files => \@config_files });
+  ($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';
+
+  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,
+  );
+  $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
+