};
my $format_options = sub {
- my ($raw, $options) = @_;
+ my ($options) = @_;
+
+ my $raw = '';
$raw .= "[OPTIONS]\n\n";
foreach my $opt (keys %$options) {
$raw .= "$opt: $options->{$opt}\n";
}
$raw .= "\n";
+
+ return $raw;
};
sub save_vmfw_conf {
my $raw = '';
my $options = $vmfw_conf->{options};
- &$format_options($raw, $options) if scalar(keys %$options);
+ $raw .= &$format_options($options) if scalar(keys %$options);
my $rules = $vmfw_conf->{rules};
if (scalar(@$rules)) {
my $raw = '';
my $options = $cluster_conf->{options};
- &$format_options($raw, $options) if scalar(keys %$options);
+ $raw .= &$format_options($options) if scalar(keys %$options);
# fixme: save ipset
my $raw = '';
my $options = $hostfw_conf->{options};
- &$format_options($raw, $options) if scalar(keys %$options);
+ $raw .= &$format_options($options) if scalar(keys %$options);
my $rules = $hostfw_conf->{rules};
if (scalar(@$rules)) {