1 files changed, 10 insertions, 0 deletions
diff --git a/source4/script/build_smb_interfaces.pl b/source4/script/build_smb_interfaces.pl
new file mode 100755
index 0000000000..31309220c1
--- /dev/null
+++ b/source4/script/build_smb_interfaces.pl
@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+
+my $idl_file = shift;
+
+require smb_interfaces;
+my $idl_parser = new smb_interfaces;
+$parse = $idl_parser->parse($idl_file);
+
+use Data::Dumper;
+print Dumper($parse);