isert section when writing ceph.conf

This commit is contained in:
Dietmar Maurer 2013-11-15 08:15:39 +01:00
parent 570278fab0
commit e9ea467759

View File

@ -205,13 +205,25 @@ my $write_ceph_config = sub {
my ($cfg) = @_; my ($cfg) = @_;
my $out = ''; my $out = '';
foreach my $section (keys %$cfg) {
$out .= "[$section]\n"; my $cond_write_sec = sub {
foreach my $key (sort keys %{$cfg->{$section}}) { my $re = shift;
$out .= "\t $key = $cfg->{$section}->{$key}\n";
foreach my $section (keys %$cfg) {
next if $section !~ m/^$re$/;
$out .= "[$section]\n";
foreach my $key (sort keys %{$cfg->{$section}}) {
$out .= "\t $key = $cfg->{$section}->{$key}\n";
}
$out .= "\n";
} }
$out .= "\n"; };
}
&$cond_write_sec('global');
&$cond_write_sec('mon');
&$cond_write_sec('osd');
&$cond_write_sec('mon\..*');
&$cond_write_sec('osd\..*');
PVE::Tools::file_set_contents($pve_ceph_cfgpath, $out); PVE::Tools::file_set_contents($pve_ceph_cfgpath, $out);
}; };