attempting to fix ::Provision
[p5sagit/Oyster.git] / lib / Dist / Zilla / App / Command / provision.pm
CommitLineData
4aedd3bb 1use strict;
2use warnings;
3package Dist::Zilla::App::Command::provision;
4BEGIN {
5 $Dist::Zilla::App::Command::provision::VERSION = '0.1';
6}
7# ABSTRACT: release your dist to the CPAN
8use Dist::Zilla::App -command;
9use Moose;
10use Config::Any;
45bec386 11use Hash::Merge 'merge';
a9e65cee 12Hash::Merge::set_behavior( 'RIGHT_PRECEDENT' );
6762f691 13use Oyster::Provision;
4aedd3bb 14
15sub abstract { 'provision a new Oyster VM' }
16
17sub opt_spec {
919b8f96 18 [ 'name=s' => 'the name of the VM to create' ],
4aedd3bb 19}
20
21sub execute {
22 my ($self, $opt, $arg) = @_;
23
24 my $zilla = $self->zilla;
25
26 my $name = $opt->name
27 or die "No name provided!";
28 my @config_files = ( './oyster.conf' ); # TODO make configurable
29
45bec386 30 my $cfg = Config::Any->load_files({ files => \@config_files, use_ext => 0 });
4aedd3bb 31 ($cfg) = values %{ $cfg->[0] }; # FIX with ::JFDI or similar
32
33 my $Provision = $cfg->{Provision} or die "No <Provision> section";
4aedd3bb 34
45bec386 35 my @hashes = grep $_, $Provision->{Default}, $Provision->{$name}
36 or die "No section for <Provision> <$name>, and no <default>";
3f4fb544 37
a9e65cee 38 warn Dumper(\@hashes);
39
3f4fb544 40 my %hash = @hashes > 1 ? %{ merge( @hashes ) } : %{ $hashes[0] };
45bec386 41
6762f691 42 my $type = delete $hash{type} || 'Oyster::Provision::Rackspace';
43 $hash{provision_backend} = $type =~/^Oyster::Provision::/ ? $type : "Oyster::Provision::$type";
45bec386 44 $hash{pub_ssh} ||= "$ENV{HOME}/.ssh/id_rsa.pub";
a1486321 45 $hash{size} ||= 1; # id 1 - ram 256 MiB - disk 10 GiB
46 $hash{image} ||= 69; # id 69 - Ubuntu 10.10 (meerkat)
4aedd3bb 47
a9e65cee 48 warn Dumper(\%hash); use Data::Dumper;
49
4aedd3bb 50 my $server = Oyster::Provision->new(
51 name => $name,
45bec386 52 %hash,
4aedd3bb 53 );
54 $server->create;
55 print "Instance $name created! ($server)\n";
56}
57
581;
59
60__END__
61=pod
62
63=head1 NAME
64
65Dist::Zilla::App::Command::provision - provision a new Oyster VM
66
67=head1 VERSION
68
69version 0.1
70
71=head1 SYNOPSIS
72
73 TODO
74
75=head1 AUTHOR
76
77CONTRIBUTORS
78
79=head1 COPYRIGHT AND LICENSE
80
81This software is copyright (c) 2010 by CONTRIBUTORS
82
83This is free software; you can redistribute it and/or modify it under
84the same terms as the Perl 5 programming language system itself.
85
86=cut
87