| line |
true |
false |
branch |
|
127
|
0 |
0 |
unless $self->brik_help_run_undef_arg("command", $command) |
|
133
|
0 |
0 |
if ($self->test_only) |
|
139
|
0 |
0 |
unless my $r = $self->sudo_execute($cmd) |
|
140
|
0 |
0 |
if ($r == 256) |
|
168
|
0 |
0 |
unless $self->brik_help_run_undef_arg("save", $output) |
|
172
|
0 |
0 |
unless ($output =~ m[^/]) |
|
177
|
0 |
0 |
if (defined $table) |
|
183
|
0 |
0 |
if ($self->test_only) |
|
192
|
0 |
0 |
unless (defined $r) |
|
200
|
0 |
0 |
unless my $ft = "Metabrik::File::Text"->new_from_brik_init($self) |
|
203
|
0 |
0 |
unless $ft->write($r, $output) |
|
213
|
0 |
0 |
unless $self->brik_help_run_undef_arg("save_nat", $output) |
|
223
|
0 |
0 |
unless $self->brik_help_run_undef_arg("save_filter", $output) |
|
233
|
0 |
0 |
unless $self->brik_help_run_undef_arg("restore", $input) |
|
236
|
0 |
0 |
unless ($input =~ m[^/]) |
|
239
|
0 |
0 |
unless $self->brik_help_run_file_not_found("restore", $input) |
|
242
|
0 |
0 |
if (defined $table) |
|
248
|
0 |
0 |
if ($self->test_only) |
|
257
|
0 |
0 |
unless (defined $r) |
|
273
|
0 |
0 |
unless $self->brik_help_run_undef_arg("restore_nat", $input) |
|
276
|
0 |
0 |
unless ($input =~ m[^/]) |
|
279
|
0 |
0 |
unless $self->brik_help_run_file_not_found("restore_nat", $input) |
|
289
|
0 |
0 |
unless $self->brik_help_run_undef_arg("restore_filter", $input) |
|
292
|
0 |
0 |
unless ($input =~ m[^/]) |
|
295
|
0 |
0 |
unless $self->brik_help_run_file_not_found("restore_filter", $input) |
|
304
|
0 |
0 |
unless (defined $table) |
|
307
|
0 |
0 |
unless my $ref = $self->brik_help_run_invalid_arg("flush", $table, "ARRAY", "SCALAR") |
|
312
|
0 |
0 |
if ($ref eq 'ARRAY') { } |
|
319
|
0 |
0 |
if (defined $chain) |
|
387
|
0 |
0 |
unless $self->brik_help_run_undef_arg("set_policy", $table) |
|
388
|
0 |
0 |
unless $self->brik_help_run_undef_arg("set_policy", $target) |
|
399
|
0 |
0 |
unless $self->brik_help_run_undef_arg("set_policy_input", $target) |
|
408
|
0 |
0 |
unless $self->brik_help_run_undef_arg("set_policy_output", $target) |
|
417
|
0 |
0 |
unless $self->brik_help_run_undef_arg("set_policy_forward", $target) |
|
438
|
0 |
0 |
if (length $source) |
|
441
|
0 |
0 |
if (length $destination) |
|
444
|
0 |
0 |
if (length $protocol) |
|
447
|
0 |
0 |
if (length $dport) |
|
450
|
0 |
0 |
if (length $sport) |
|
453
|
0 |
0 |
if (length $to_ports) |
|
456
|
0 |
0 |
if (length $state) |
|
459
|
0 |
0 |
if (length $uid) |
|
462
|
0 |
0 |
if (length $to_destination) |
|
465
|
0 |
0 |
if (length $custom) |
|
479
|
0 |
0 |
unless $self->brik_help_run_undef_arg("add", $table) |
|
480
|
0 |
0 |
unless $self->brik_help_run_undef_arg("add", $chain) |
|
481
|
0 |
0 |
unless $self->brik_help_run_undef_arg("add", $target) |
|
482
|
0 |
0 |
unless $self->brik_help_run_undef_arg("add", $rule) |
|
483
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("add", $rule, "HASH") |
|
496
|
0 |
0 |
unless $self->brik_help_run_undef_arg("add_nat", $chain) |
|
497
|
0 |
0 |
unless $self->brik_help_run_undef_arg("add_nat", $target) |
|
498
|
0 |
0 |
unless $self->brik_help_run_undef_arg("add_nat", $rule) |
|
499
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("add_nat", $rule, "HASH") |
|
509
|
0 |
0 |
unless $self->brik_help_run_undef_arg("add_nat_output", $target) |
|
510
|
0 |
0 |
unless $self->brik_help_run_undef_arg("add_nat_output", $rule) |
|
511
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("add_nat_output", $rule, "HASH") |
|
520
|
0 |
0 |
unless $self->brik_help_run_undef_arg("add_nat_output_return", $rule) |
|
521
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("add_nat_output_return", $rule, "HASH") |
|
530
|
0 |
0 |
unless $self->brik_help_run_undef_arg("add_nat_output_redirect", $rule) |
|
531
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("add_nat_output_redirect", $rule, "HASH") |
|
540
|
0 |
0 |
unless $self->brik_help_run_undef_arg("add_nat_output_dnat", $rule) |
|
541
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("add_nat_output_dnat", $rule, "HASH") |
|
551
|
0 |
0 |
unless $self->brik_help_run_undef_arg("add_nat_postrouting", $target) |
|
552
|
0 |
0 |
unless $self->brik_help_run_undef_arg("add_nat_postrouting", $rule) |
|
553
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("add_nat_postrouting", $rule, "HASH") |
|
563
|
0 |
0 |
unless $self->brik_help_run_undef_arg("add_nat_postrouting_masquerade", $rule) |
|
564
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("add_nat_postrouting_masquerade", $rule, "HASH") |
|
573
|
0 |
0 |
unless $self->brik_help_run_undef_arg("add_nat_postrouting_dnat", $rule) |
|
574
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("add_nat_postrouting_dnat", $rule, "HASH") |
|
585
|
0 |
0 |
unless $self->brik_help_run_undef_arg("add_filter", $chain) |
|
586
|
0 |
0 |
unless $self->brik_help_run_undef_arg("add_filter", $target) |
|
587
|
0 |
0 |
unless $self->brik_help_run_undef_arg("add_filter", $rule) |
|
588
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("add_filter", $rule, "HASH") |
|
598
|
0 |
0 |
unless $self->brik_help_run_undef_arg("add_filter_output", $target) |
|
599
|
0 |
0 |
unless $self->brik_help_run_undef_arg("add_filter_output", $rule) |
|
600
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("add_filter_output", $rule, "HASH") |
|
609
|
0 |
0 |
unless $self->brik_help_run_undef_arg("add_filter_output_accept", $rule) |
|
610
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("add_filter_output_accept", $rule, "HASH") |
|
619
|
0 |
0 |
unless $self->brik_help_run_undef_arg("add_filter_output_reject", $rule) |
|
620
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("add_filter_output_reject", $rule, "HASH") |
|
632
|
0 |
0 |
unless $self->brik_help_run_undef_arg("del", $table) |
|
633
|
0 |
0 |
unless $self->brik_help_run_undef_arg("del", $chain) |
|
634
|
0 |
0 |
unless $self->brik_help_run_undef_arg("del", $target) |
|
635
|
0 |
0 |
unless $self->brik_help_run_undef_arg("del", $rule) |
|
636
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("del", $rule, "HASH") |
|
649
|
0 |
0 |
unless $self->brik_help_run_undef_arg("del_nat", $chain) |
|
650
|
0 |
0 |
unless $self->brik_help_run_undef_arg("del_nat", $target) |
|
651
|
0 |
0 |
unless $self->brik_help_run_undef_arg("del_nat", $rule) |
|
652
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("del_nat", $rule, "HASH") |
|
662
|
0 |
0 |
unless $self->brik_help_run_undef_arg("del_nat_output", $target) |
|
663
|
0 |
0 |
unless $self->brik_help_run_undef_arg("del_nat_output", $rule) |
|
664
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("del_nat_output", $rule, "HASH") |
|
673
|
0 |
0 |
unless $self->brik_help_run_undef_arg("del_nat_output_return", $rule) |
|
674
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("del_nat_output_return", $rule, "HASH") |
|
683
|
0 |
0 |
unless $self->brik_help_run_undef_arg("del_nat_output_return", $rule) |
|
684
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("del_nat_output_return", $rule, "HASH") |
|
693
|
0 |
0 |
unless $self->brik_help_run_undef_arg("del_nat_output_return", $rule) |
|
694
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("del_nat_output_return", $rule, "HASH") |
|
706
|
0 |
0 |
unless $self->brik_help_run_undef_arg("check", $table) |
|
707
|
0 |
0 |
unless $self->brik_help_run_undef_arg("check", $chain) |
|
708
|
0 |
0 |
unless $self->brik_help_run_undef_arg("check", $target) |
|
709
|
0 |
0 |
unless $self->brik_help_run_undef_arg("check", $rule) |
|
710
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("check", $rule, "HASH") |
|
723
|
0 |
0 |
unless $self->brik_help_run_undef_arg("check_nat", $chain) |
|
724
|
0 |
0 |
unless $self->brik_help_run_undef_arg("check_nat", $target) |
|
725
|
0 |
0 |
unless $self->brik_help_run_undef_arg("check_nat", $rule) |
|
726
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("check_nat", $rule, "HASH") |
|
736
|
0 |
0 |
unless $self->brik_help_run_undef_arg("check_nat_output", $target) |
|
737
|
0 |
0 |
unless $self->brik_help_run_undef_arg("check_nat_output", $rule) |
|
738
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("check_nat_output", $rule, "HASH") |
|
747
|
0 |
0 |
unless $self->brik_help_run_undef_arg("check_nat_output_return", $rule) |
|
748
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("check_nat_output_return", $rule, "HASH") |
|
757
|
0 |
0 |
unless $self->brik_help_run_undef_arg("check_nat_output_return", $rule) |
|
758
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("check_nat_output_return", $rule, "HASH") |
|
767
|
0 |
0 |
unless $self->brik_help_run_undef_arg("check_nat_output_return", $rule) |
|
768
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("check_nat_output_return", $rule, "HASH") |
|
777
|
0 |
0 |
if ($target_host_port =~ /^\d+$/) |
|
780
|
0 |
0 |
if ($dest_host_port =~ /^\d+$/) |
|
794
|
0 |
0 |
if ($action eq 'start') { } |
|
804
|
0 |
0 |
if ($action eq "start" and not $self->check_nat_output_return({"state", "ESTABLISHED"})) |
|
805
|
0 |
0 |
unless $self->$method_return({"state", "ESTABLISHED"}) |
|
809
|
0 |
0 |
if ($protocol) { } |
|
816
|
0 |
0 |
if ($action eq 'start' and not $self->check_nat_output_dnat($rule)) { } |
|
|
0 |
0 |
elsif ($action eq 'stop') { } |
|
817
|
0 |
0 |
unless $self->$method_dnat($rule) |
|
820
|
0 |
0 |
unless $self->$method_dnat($rule) |
|
837
|
0 |
0 |
if ($action eq 'start' and not $self->check_nat_output_dnat($rule_tcp)) { } |
|
|
0 |
0 |
elsif ($action eq 'stop') { } |
|
838
|
0 |
0 |
unless $self->$method_dnat($rule_tcp) |
|
841
|
0 |
0 |
unless $self->$method_dnat($rule_tcp) |
|
843
|
0 |
0 |
if ($action eq 'start' and not $self->check_nat_output_dnat($rule_udp)) { } |
|
|
0 |
0 |
elsif ($action eq 'stop') { } |
|
844
|
0 |
0 |
unless $self->$method_dnat($rule_udp) |
|
847
|
0 |
0 |
unless $self->$method_dnat($rule_udp) |
|
858
|
0 |
0 |
unless $self->brik_help_run_undef_arg("start_redirect_target_to", $target_host_port) |
|
859
|
0 |
0 |
unless $self->brik_help_run_undef_arg("start_redirect_target_to", $dest_host_port) |
|
868
|
0 |
0 |
unless $self->brik_help_run_undef_arg("start_redirect_target_tcp_to", $target_host_port) |
|
869
|
0 |
0 |
unless $self->brik_help_run_undef_arg("start_redirect_target_tcp_to", $dest_host_port) |
|
878
|
0 |
0 |
unless $self->brik_help_run_undef_arg("start_redirect_target_udp_to", $target_host_port) |
|
879
|
0 |
0 |
unless $self->brik_help_run_undef_arg("start_redirect_target_udp_to", $dest_host_port) |
|
888
|
0 |
0 |
unless $self->brik_help_run_undef_arg("stop_redirect_target_to", $target_host_port) |
|
889
|
0 |
0 |
unless $self->brik_help_run_undef_arg("stop_redirect_target_to", $dest_host_port) |