cleanup: try to use more consistent method naming

This commit is contained in:
Dietmar Maurer 2014-05-30 11:21:30 +02:00
parent f2c0865cf3
commit e5cd1ee01c

View File

@ -2137,7 +2137,7 @@ sub parse_alias {
return undef; return undef;
} }
sub generic_fw_rules_parser { sub generic_fw_config_parser {
my ($filename, $fh, $verbose, $cluster_conf, $empty_conf, $rule_env) = @_; my ($filename, $fh, $verbose, $cluster_conf, $empty_conf, $rule_env) = @_;
my $section; my $section;
@ -2281,15 +2281,15 @@ sub generic_fw_rules_parser {
return $res; return $res;
} }
sub parse_host_fw_rules { sub parse_hostfw_config {
my ($filename, $fh, $cluster_conf, $verbose) = @_; my ($filename, $fh, $cluster_conf, $verbose) = @_;
my $empty_conf = { rules => [], options => {}}; my $empty_conf = { rules => [], options => {}};
return generic_fw_rules_parser($filename, $fh, $verbose, $cluster_conf, $empty_conf, 'host'); return generic_fw_config_parser($filename, $fh, $verbose, $cluster_conf, $empty_conf, 'host');
} }
sub parse_vm_fw_rules { sub parse_vmfw_config {
my ($filename, $fh, $cluster_conf, $rule_env, $verbose) = @_; my ($filename, $fh, $cluster_conf, $rule_env, $verbose) = @_;
my $empty_conf = { my $empty_conf = {
@ -2300,10 +2300,10 @@ sub parse_vm_fw_rules {
ipset_comments => {}, ipset_comments => {},
}; };
return generic_fw_rules_parser($filename, $fh, $verbose, $cluster_conf, $empty_conf, $rule_env); return generic_fw_config_parser($filename, $fh, $verbose, $cluster_conf, $empty_conf, $rule_env);
} }
sub parse_cluster_fw_rules { sub parse_clusterfw_config {
my ($filename, $fh, $verbose) = @_; my ($filename, $fh, $verbose) = @_;
my $section; my $section;
@ -2319,7 +2319,7 @@ sub parse_cluster_fw_rules {
ipset_comments => {}, ipset_comments => {},
}; };
return generic_fw_rules_parser($filename, $fh, $verbose, $empty_conf, $empty_conf, 'cluster'); return generic_fw_config_parser($filename, $fh, $verbose, $empty_conf, $empty_conf, 'cluster');
} }
sub run_locked { sub run_locked {
@ -2379,7 +2379,7 @@ sub load_vmfw_conf {
my $filename = "$dir/$vmid.fw"; my $filename = "$dir/$vmid.fw";
if (my $fh = IO::File->new($filename, O_RDONLY)) { if (my $fh = IO::File->new($filename, O_RDONLY)) {
$vmfw_conf = parse_vm_fw_rules($filename, $fh, $cluster_conf, $rule_env, $verbose); $vmfw_conf = parse_vmfw_config($filename, $fh, $cluster_conf, $rule_env, $verbose);
$vmfw_conf->{vmid} = $vmid; $vmfw_conf->{vmid} = $vmid;
} }
@ -2655,7 +2655,7 @@ sub load_clusterfw_conf {
my $cluster_conf = {}; my $cluster_conf = {};
if (my $fh = IO::File->new($filename, O_RDONLY)) { if (my $fh = IO::File->new($filename, O_RDONLY)) {
$cluster_conf = parse_cluster_fw_rules($filename, $fh, $verbose); $cluster_conf = parse_clusterfw_config($filename, $fh, $verbose);
} }
return $cluster_conf; return $cluster_conf;
@ -2704,7 +2704,7 @@ sub load_hostfw_conf {
my $hostfw_conf = {}; my $hostfw_conf = {};
if (my $fh = IO::File->new($filename, O_RDONLY)) { if (my $fh = IO::File->new($filename, O_RDONLY)) {
$hostfw_conf = parse_host_fw_rules($filename, $fh, $cluster_conf, $verbose); $hostfw_conf = parse_hostfw_config($filename, $fh, $cluster_conf, $verbose);
} }
return $hostfw_conf; return $hostfw_conf;
} }