From dc829a438a8b9f5cb8cd05dbbe24470bf192f935 Mon Sep 17 00:00:00 2001
From: Matthieu Patou <mat@matws.net>
Date: Tue, 2 Aug 2011 22:42:44 +0400
Subject: pidl: handle datablob for wireshark generator

---
 pidl/lib/Parse/Pidl/Wireshark/NDR.pm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'pidl')

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;
 
-- 
cgit