The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

JONASS / Boxer-v1.4.3 / lib / Boxer / CLI / Command / Bootstrap.pm 

            

              
1
—
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
—
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
—
95
96
97
98
99
100
101
102
—
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119

              
package Boxer::CLI::Command::Bootstrap;
=encoding UTF-8
=cut
use v5.20;
use utf8;
use Role::Commons -all;
use feature 'signatures';
use namespace::autoclean 0.16;
use Path::Tiny;
use List::MoreUtils qw(before after);
use Module::Runtime qw/use_module/;
use Boxer::CLI -command;
use strictures 2;
no warnings "experimental::signatures";
=head1 VERSION
Version v1.4.3
=cut
our $VERSION = "v1.4.3";
use constant {
        abstract   => q[bootstrap system image from abstract node],
        usage_desc => q[%c bootstrap %o NODE [NODE...] [-- helper-options]],
};
sub description
{
        <<'DESCRIPTION';
Bootstrap a system image.
Generate a filesystem image.  Input is one or more abstract nodes
to resolve using a set of abstract classes, and output is one or more
images generated using a bootstrapping tool.
DESCRIPTION
}
sub command_names
{
        qw(
                bootstrap
        );
}
sub opt_spec
{
        return (
                [ "suite=s",    "suite of classes to use (buster)" ],
                [ "nodedir=s",  "location of nodes (current dir)" ],
                [ "classdir=s", "location of classes (XDG datadir + suite/classes)" ],
                [ "datadir=s",  "location containing nodes and classes" ],
                [ "skeldir=s",  "location of skeleton files (use builtin)" ],
                [ "mode=s",     "mode passed to helper, and use sudo in sudo mode" ],
                [ "helper=s",   "bootstrapping tool to use (mmdebstrap)" ],
                [ "nonfree",    "enable use of contrib and non-free code" ],
                [ "dryrun",     "only echo command, without executing it" ],
                [ "verbose|v",  "verbose output" ],
        );
}
sub execute ( $self, $opt, $args )
{
        Log::Any::Adapter->set( 'Screen', default_level => 'info' )
                if ( $opt->{verbose} );
        my @args        = before { $_ eq '--' } @{$args};
        my @helper_args = after { $_ eq '--' } @{$args};
        my $world = use_module('Boxer::Task::Classify')->new(
                suite    => $opt->{suite},
                nodedir  => $opt->{nodedir},
                classdir => $opt->{classdir},
                datadir  => $opt->{datadir},
        )->run;
        for my $node (@args) {
                use_module('Boxer::Task::Bootstrap')->new(
                        world       => $world,
                        helper      => $opt->{helper} || 'mmdebstrap',
                        mode        => $opt->{mode},
                        helper_args => [@helper_args],
                        nonfree     => $opt->{nonfree},
                        dryrun      => $opt->{dryrun},
                        node        => $node,
                )->run;
        }
}
=head1 AUTHOR
Jonas Smedegaard C<< <dr@jones.dk> >>.
=cut
our $AUTHORITY = 'cpan:JONASS';
=head1 COPYRIGHT AND LICENCE
Copyright © 2019 Jonas Smedegaard
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=head1 DISCLAIMER OF WARRANTIES
THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
=cut
1;