let aii generate ansible playbook for supported components

aii-core/src/main/perl/Playbook.pm

@@ -0,0 +1,83 @@
+#${PMpre} AII::Playbook${PMpost}
+
+use LC::Exception qw (SUCCESS);
+use parent qw(CAF::Object);
+use CAF::TextRender;
+use CAF::Path;
+
+use AII::Role;
+
+# hosts: playbook hosts
+sub _initialize
+{
+    my ($self, $hosts, %opts) = @_;
+
+    %opts = () if !%opts;
+
+    $self->{log} = $opts{log} if $opts{log};
+
+    $self->{data} = {
+        hosts => $hosts
+    };
+    $self->{roles} = [];
+
+    return SUCCESS;
+}
+
+sub add_role
+{
+    my ($self, $name) = @_;
+    my $role = AII::Role->new($name, log => $self);
+    push @{$self->{roles}}, $role;
+    return $role;
+}
+
+
+# Generate hashref to render into yaml
+sub make_data {
+    my $self = shift;
+
+    # make copy of basic data
+    my $data = {%{$self->{data}}};
+
+    # add roles
+    $data->{roles} = [map {$_->{name}} @{$self->{roles}}];
+
+    return $data;
+}
+
+# Generate playbook and roles
+# root: base working dir
+sub write
+{
+    my ($self, $root) = @_;
+
+    # Make roles subdir in root
+    my $cafpath = CAF::Path::mkcafpath(log => $self);
+    $cafpath->directory("$root/roles");
+
+    # Generate all roles and playbook data
+    my $files = {
+        main => $self->make_data()
+    };
+
+    foreach my $role (@{$self->{roles}}) {
+        $files->{"roles/$role->{name}"} = $role->make_data();
+    }
+
+    # Write
+    foreach my $filename (sort keys %$files) {
+        my $trd = CAF::TextRender->new(
+            'yamlmulti',
+            {'host' => [$files->{$filename}]},  # use yamlmulti to bypass arrayref issue
+            log => $self,
+            );
+        my $fh = $trd->filewriter(
+            "$root/$filename.yml",
+            log => $self,
+            );
+        $fh->close();
+    };
+}
+
+1;

aii-core/src/main/perl/Role.pm

@@ -0,0 +1,46 @@
+#${PMpre} AII::Role${PMpost}
+
+use LC::Exception qw (SUCCESS);
+use parent qw(CAF::Object);
+
+use AII::Task;
+
+# name: name of role
+sub _initialize
+{
+    my ($self, $name, %opts) = @_;
+
+    %opts = () if !%opts;
+
+    $self->{log} = $opts{log} if $opts{log};
+
+    $self->{name} = $name;
+    $self->{data} = {
+    };
+    $self->{tasks} = [];
+
+    return SUCCESS;
+}
+
+sub add_task
+{
+    my ($self, $name, $data) = @_;
+    my $task = AII::Task->new($name, $data, log => $self);
+    push @{$self->{tasks}}, $task;
+    return $task;
+}
+
+# Generate hashref to render into yaml
+sub make_data {
+    my $self = shift;
+
+    # make copy of basic data
+    my $data = {%{$self->{data}}};
+
+    # add tasks
+    $data->{tasks} = [map {$_->make_data()} @{$self->{tasks}}];
+
+    return $data;
+}
+
+1;