From 2ed8690fff40715d04afa3cfef5f0a3681213710 Mon Sep 17 00:00:00 2001 From: Max Kellermann Date: Mon, 25 Feb 2008 16:52:16 +0000 Subject: [PATCH] removed the "was_created" flag git-svn-id: svn+ssh://foo-projects.org/var/svn/ferm/trunk@1100 887c3e53-ddf1-0310-8e39-e0d3fab4ed34 --- src/ferm | 15 --------------- 1 file changed, 15 deletions(-) diff --git a/src/ferm b/src/ferm index 6c8cf6e..03319b6 100755 --- a/src/ferm +++ b/src/ferm @@ -74,7 +74,6 @@ use vars qw($script @stack $auto_chain); # - tables{$name}: ferm state information about tables # - chains{$chain}: ferm state information about the chains # - builtin: whether this is a built-in chain -# - was_created: custom chain has been created # - non_empty: are there rules for this chain? use vars qw(%domains); @@ -547,9 +546,6 @@ open_script($ARGV[0]); enter(0); die unless @stack == 2; -# check consistency -check(); - # execute all generated rules my $status; @@ -2272,17 +2268,6 @@ sub enter($$) { if $current{has_rule}; # XXX } -sub check() { - while (my ($domain_name, $domain) = each %domains) { - while (my ($table_name, $table_info) = each %{$domain->{tables}}) { - while (my ($chain_name, $chain) = each %{$table_info->{chains}}) { - warning("chain $chain_name (domain $domain_name, table $table_name) was referenced, but not declared") - if $chain->{was_created} and not $chain->{non_empty}; - } - } - } -} - sub execute_command { my ($command, $script) = @_; -- 2.11.4.GIT