r21384: Change warning to pidl warning, fix uppercasing.

(This used to be commit a45a677084ba1bc63a8f74892c12ca6f0d9b5071)

diff --git a/source4/pidl/lib/Parse/Pidl/Samba3/ClientNDR.pm b/source4/pidl/lib/Parse/Pidl/Samba3/ClientNDR.pm
index 3b596aba659800b7799393860abd964dee3d8662..0ffa321782f9f4b0323f6e26b12a2b71d80fd055 100644 (file)
--- a/source4/pidl/lib/Parse/Pidl/Samba3/ClientNDR.pm
+++ b/source4/pidl/lib/Parse/Pidl/Samba3/ClientNDR.pm
@@ -129,7 +129,7 @@ sub ParseFunction($$)
        } elsif ($fn->{RETURN_TYPE} eq "WERROR") {
                pidl "return werror_to_ntstatus(r.out.result);";
        } else {
-               pidl "#warning Sorry, don't know how to convert $fn->{RETURN_TYPE} to NTSTATUS";
+               warning($fn->{ORIGINAL}, "Unable to convert $fn->{RETURN_TYPE} to NTSTATUS");
                pidl "return NT_STATUS_OK;";
        }
 
@@ -146,7 +146,7 @@ sub ParseInterface($)
 
        pidl_hdr "#ifndef __CLI_$uif\__";
        pidl_hdr "#define __CLI_$uif\__";
-       ParseFunction($if->{NAME}, $_) foreach (@{$if->{FUNCTIONS}});
+       ParseFunction(uc($if->{NAME}), $_) foreach (@{$if->{FUNCTIONS}});
        pidl_hdr "#endif /* __CLI_$uif\__ */";
 }