summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
835c197)
Also print $cmdlist on error. Just for debugging.
unshift (@ruleset, '*filter');
push (@ruleset, 'COMMIT');
unshift (@ruleset, '*filter');
push (@ruleset, 'COMMIT');
- my $cmdlist = join("\n", @ruleset);
+ my $cmdlist = join("\n", @ruleset) . "\n";
- run_command("/sbin/iptables-restore -n", input => $cmdlist, outfunc => sub {});
+ my $verbose = 1; # fixme: how/when do we set this
+
+ #run_command("echo '$cmdlist' | /sbin/iptables-restore -n");
+ eval { run_command("/sbin/iptables-restore -n ", input => $cmdlist); };
+ if (my $err = $@) {
+ print STDERR $cmdlist if $verbose;
+ die $err;
+ }