diff --git a/firewalld/list_rich_rules.cgi b/firewalld/list_rich_rules.cgi index 19e5bee4e..9049ac55d 100755 --- a/firewalld/list_rich_rules.cgi +++ b/firewalld/list_rich_rules.cgi @@ -1,5 +1,5 @@ #!/usr/local/bin/perl -# List FirewallD rich rules +# List FirewallD rich and direct rules use strict; use warnings; @@ -58,13 +58,12 @@ while(<$fh>) { print &ui_links_row(\@links); print &ui_columns_start(\@head); } - # print &ui_checked_columns_row(\@body, [ 'width=5', undef, $tdc, $tdc, $tdc, $tdc, $tdc ], "rules", 'rule') if ($data); - print &ui_checked_columns_row(\@body, undef, "rules", $_); + print &ui_checked_columns_row(\@body, [ 'width=5', $tdc, $tdc, undef, $tdc, $tdc, undef ], "rules", $_); } } close($fh); -# Check direct rules first +# Check direct rules my $fh2 = 'drules'; my $dcmd = "$config{'firewall_cmd'} --direct --get-all-rules"; &open_execute_command($fh2, "$dcmd 2>&1 ) { print &ui_links_row(\@links); print &ui_columns_start(\@head); } - # print &ui_checked_columns_row(\@body, [ 'width=5', undef, $tdc, $tdc, $tdc, $tdc, $tdc ], "rules", 'rule') if ($data); - print &ui_checked_columns_row(\@body, undef, "rules", $_); - } + print &ui_checked_columns_row(\@body, [ 'width=5', $tdc, $tdc, undef, $tdc, $tdc, undef ], "rules", $_); + } } } close($fh2); @@ -139,72 +137,4 @@ else { print "There are no existing direct or rich firewall rules to display." } - -# my ($jail_list) = $out =~ /jail\s+list:\s*(.*)/im; -# my @jails = split(/,\s*/, $jail_list); -# if (@jails) { -# my $tdc = "style=\"text-align: center\""; -# my @links = ( &select_all_link("jail"), -# &select_invert_link("jail") ); -# my $head; -# my @jipsall; -# foreach my $jail (@jails) { -# my $cmd = "$config{'client_cmd'} status ".quotemeta($jail); -# my @head = (undef, $text{"status_head_jail_name"}); -# my @body = (&ui_link("edit_jail.cgi?name=".urlize($jail), " ".&html_escape($jail))); -# my $jips; -# my $noval; -# &open_execute_command($fh, $jcmd, 1); -# while(<$fh>) { -# if (/-\s+(.*):\s*(.*)/) { -# my $col = $1; -# my $val = $2; -# $col = lc($col); -# $col =~ s/\s/_/g; -# if ($col !~ /journal_matches/) { -# push(@head, "