From: Matthieu Patou <mat@matws.net>
Date: Tue, 2 Aug 2011 18:42:44 +0000 (+0400)
Subject: pidl: handle datablob for wireshark generator
X-Git-Url: http://git.samba.org/?a=commitdiff_plain;h=dc829a438a8b9f5cb8cd05dbbe24470bf192f935;hp=ba882bfd904fc9afb0b136c104ce9b51cf4bb3b0;p=mat%2Fsamba.git

pidl: handle datablob for wireshark generator
---

diff --git a/pidl/lib/Parse/Pidl/Wireshark/NDR.pm b/pidl/lib/Parse/Pidl/Wireshark/NDR.pm
index 7c10a535f3..8c236a6020 100644
--- a/pidl/lib/Parse/Pidl/Wireshark/NDR.pm
+++ b/pidl/lib/Parse/Pidl/Wireshark/NDR.pm
@@ -332,6 +332,10 @@ sub ElementLevel($$$$$$$)
 			} else {
 				warn("Unable to handle string with flags $e->{PROPERTIES}->{flag}");
 			}
+		} elsif ($l->{DATA_TYPE} eq "DATA_BLOB") {
+			my $remain = 0;
+			$remain = 1 if (property_matches($e->{ORIGINAL}, "flag", ".*LIBNDR_FLAG_REMAINING.*"));
+			$self->pidl_code("offset = dissect_ndr_datablob(tvb, offset, pinfo, tree, drep, $hf, $remain);");
 		} else {
 			my $call;