pidl:NDR/Server: use interface->{UUID} and {NAME} instead of the raw {PROPERTIES}

metze

diff --git a/pidl/lib/Parse/Pidl/Samba4/NDR/Server.pm b/pidl/lib/Parse/Pidl/Samba4/NDR/Server.pm
index 30ad7a4e42fa2218294c9a2e031754a9cea0dedf..1d51fa1526f1937473d34a2d5616cbf9daf87bbc 100644 (file)
--- a/pidl/lib/Parse/Pidl/Samba4/NDR/Server.pm
+++ b/pidl/lib/Parse/Pidl/Samba4/NDR/Server.pm
@@ -77,8 +77,8 @@ sub Boilerplate_Iface($)
        my($interface) = shift;
        my $name = $interface->{NAME}; 
        my $uname = uc $name;
-       my $uuid = lc($interface->{PROPERTIES}->{uuid});
-       my $if_version = $interface->{PROPERTIES}->{version};
+       my $uuid = lc($interface->{UUID});
+       my $if_version = $interface->{VERSION};
 
        pidl "
 static NTSTATUS $name\__op_bind(struct dcesrv_call_state *dce_call, const struct dcesrv_interface *iface, uint32_t if_version)