The object needs to know its own name

The object needs to know its own name stored in a read/write field
stockholmuniversity · Mar 31, 2017 · efd077b · efd077b
1 parent ea9af76
commit efd077b
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/SU/API/Icinga2.pm b/SU/API/Icinga2.pm
@@ -210,6 +210,9 @@ sub export {
     }
     my @results;
     foreach my $object ( @{ $result->{results} } ) {
+        # The object needs to know its own name stored in a read/write field
+        $object->{attrs}{vars}{__export_name} = $object->{attrs}{__name};
+
         my %hash;
         foreach my $key (sort @keys) {
             $hash{attrs}{$key} = $object->{attrs}{$key};