pmgdb: add object type text to output

this makes it easier to differntiate between e.g.
a domain entry 'foo.com'
and a regex entry 'foo.com'

Signed-off-by: Dominik Csapak <d.csapak@proxmox.com>

diff --git a/src/PMG/CLI/pmgdb.pm b/src/PMG/CLI/pmgdb.pm
index cd94c233d1153cb4b1cefc5f7b6309fb851ae034..bb22965dda2055e41b90a211510240c683b7976a 100644 (file)
--- a/src/PMG/CLI/pmgdb.pm
+++ b/src/PMG/CLI/pmgdb.pm
@@ -32,8 +32,9 @@ sub print_objects {
     my $objects = $ruledb->load_group_objects ($og->{id});
 
     foreach my $obj (@$objects) {
+       my $type_text = $obj->otype_text();
        my $desc = encode('UTF-8', $obj->short_desc());
-       print "    OBJECT $obj->{id}: $desc\n";
+       print "    OBJECT $type_text $obj->{id}: $desc\n";
     }
 }