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
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
|
# ABSTRACT: Modify the configuration of an application
package App::Cme::Command::modify ;
use strict;
use warnings;
use 5.10.1;
use App::Cme -command ;
use base qw/App::Cme::Common/;
use Config::Model::ObjTreeScanner;
use Config::Model qw/initialize_log4perl/;
sub validate_args {
my ($self, $opt, $args) = @_;
$self->check_unknown_args($args);
$self->process_args($opt,$args);
$self->usage_error("No modification instructions given on command line")
unless @$args or $opt->{save};
return;
}
sub opt_spec {
my ( $class, $app ) = @_;
return (
[ "backup:s" => "Create a backup of configuration files before saving." ],
$class->cme_global_options,
);
}
sub usage_desc {
my ($self) = @_;
my $desc = $self->SUPER::usage_desc; # "%c COMMAND %o"
return "$desc [application] [file ] instructions";
}
sub description {
my ($self) = @_;
return $self->get_documentation;
}
sub execute {
my ($self, $opt, $args) = @_;
$opt->{_verbose} = 'Loader' if $opt->{verbose};
my ($model, $inst, $root) = $self->init_cme($opt,$args);
# needed to create write_back subs
$root->dump_tree() if $opt->{save} and not @$args;
$root->load("@$args");
$root->deep_check; # consistency check
$self->save($inst,$opt) ;
return;
}
1;
__END__
=head1 SYNOPSIS
# modify configuration with command line
cme modify dpkg source 'format="(3.0) quilt"'
=head1 DESCRIPTION
Modify a configuration file with the values passed on the command line.
These command must follow the syntax defined in L<Config::Model::Loader>
(which is similar to the output of L<cme dump|"/dump"> command)
Example:
cme modify dpkg 'source format="(3.0) quilt"'
cme modify multistrap my_mstrap.conf 'sections:base source="http://ftp.fr.debian.org"'
Finding the right instructions to perform a modification may be
difficult when starting from scratch.
To get started, you can run C<cme dump --format cml> command to get
the content of your configuration in the syntax accepted by C<cme modify>:
$ cme dump ssh -format cml
Host:"*" -
Host:"alioth.debian.org"
User=dod -
Host:"*.debian.org"
IdentityFile:="~/.ssh/id_debian"
User=dod -
Then you can use this output to create instruction for a modification:
$ cme modify ssh 'Host:"*" User=dod'
Changes applied to ssh configuration:
- Host:"*" User has new value: 'dod'
=head1 Common options
See L<cme/"Global Options">.
=head1 options
=over
=item -save
Force a save even if no change was done. Useful to reformat the configuration file.
=item -verbose
Show effect of the modify instructions.
=back
=head1 Examples
=head2 Set identity file for a domain
$ cme modify ssh 'Host:"*.work.com" IdentityFile:="~/.ssh/id_work"'
This example requires L<Config::Model::OpenSsh>.
=head2 Update Dpkg file
To set C<Architecture> parameter for all binary packages:
$ cme modify dpkg-control 'binary:~".*" Architecture=any'
This achieves the same result but can be slower since all package
files are read:
$ cme modify dpkg 'control binary:~".*" Architecture=any'
This Debian example requires C<libconfig-model-dpkg-perl>
=head1 Re-use your one-liners
These modification instructions can be re-used once they are stored in
a run script (See L<App::Cme::Command::run> for details).
The following one-liner:
$ cme modify dpkg 'control binary:~".*" Architecture=any'
can be stored in C<~/.cme/scripts/set-arch-as-any>:
app: dpkg-control
load: binary:~".*" Architecture=any
and then run with:
$ cme run set-arch-as-any
=head1 SEE ALSO
L<cme>
=cut
|
