mirror of
https://github.com/samba-team/samba.git
synced 2025-10-21 03:33:16 +03:00
1be5f55d7f
used to generate ejs objects for making raw smb calls. Running 'make smb_interfaces' should run the build_smb_interfaces.pl script which at the moment only displays a dump of the parsed data. Const is also not working right now but it's bedtime.
11 lines
182 B
Perl
Executable File
11 lines
182 B
Perl
Executable File
#!/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);
|