Include the synchronization configuration in show() output. Provide a

new object method that subclasses can override to add attribute
information to show() and remove the documentation about overriding
show().

1 files changed, 13 insertions, 0 deletions

diff --git a/perl/Wallet/Object/Keytab.pm b/perl/Wallet/Object/Keytab.pm
index 5f128b0..c78adc2 100644
--- a/perl/Wallet/Object/Keytab.pm
+++ b/perl/Wallet/Object/Keytab.pm
@@ -475,6 +475,19 @@ sub attr {
     }
 }
 
+# Override attr_show to display the sync attribute.
+sub attr_show {
+    my ($self) = @_;
+    my @targets = $self->attr ('sync');
+    if (not @targets and $self->error) {
+        return undef;
+    } elsif (@targets) {
+        return sprintf ("%15s: %s\n", 'Synced with', "@targets");
+    } else {
+        return '';
+    }
+}
+
 # Override create to start by creating the principal in Kerberos and only
 # create the entry in the database if that succeeds.  Error handling isn't
 # great here since we don't have a way to communicate the error back to the