extend `pmgdb dump`

[pmg-api.git] / PMG / CLI / pmgdb.pm

diff --git a/PMG/CLI/pmgdb.pm b/PMG/CLI/pmgdb.pm
index e3031a0de14482b36c5a97b07cc8044dd6d66c1b..cabf619edc9aec7c223d8fa57e7eea29a4208c21 100644 (file)
--- a/PMG/CLI/pmgdb.pm
+++ b/PMG/CLI/pmgdb.pm
@@ -39,7 +39,15 @@ sub print_objects {
 sub print_rule {
     my ($ruledb, $rule) = @_;
 
-    print "Found RULE $rule->{id}: $rule->{name}\n";
+    my $direction = {
+       0 => 'in',
+       1 => 'out',
+       2 => 'in+out',
+    };
+    my $active = $rule->{active} ? 'active' : 'inactive';
+    my $dir = $direction->{$rule->{direction}};
+
+    print "Found RULE $rule->{id} (prio: $rule->{priority}, $dir, $active): $rule->{name}\n";
 
     my ($from, $to, $when, $what, $action) =
        $ruledb->load_groups($rule);