summaryrefslogtreecommitdiff
path: root/pidl/lib
diff options
context:
space:
mode:
authorMatthieu Patou <mat@matws.net>2011-08-02 22:42:44 +0400
committerMatthieu Patou <mat@matws.net>2011-08-06 01:33:06 +0400
commitdc829a438a8b9f5cb8cd05dbbe24470bf192f935 (patch)
treec4f50975f609494e74ef5702aeda968b54b4bfb4 /pidl/lib
parentba882bfd904fc9afb0b136c104ce9b51cf4bb3b0 (diff)
downloadsamba-dc829a438a8b9f5cb8cd05dbbe24470bf192f935.tar.gz
samba-dc829a438a8b9f5cb8cd05dbbe24470bf192f935.tar.bz2
samba-dc829a438a8b9f5cb8cd05dbbe24470bf192f935.zip
pidl: handle datablob for wireshark generator
Diffstat (limited to 'pidl/lib')
-rw-r--r--pidl/lib/Parse/Pidl/Wireshark/NDR.pm4
1 files changed, 4 insertions, 0 deletions
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;