You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
35 lines
472 B
35 lines
472 B
4 years ago
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use JSON;
|
||
|
|
use Getopt::Long;
|
||
|
|
use File::Which;
|
||
|
|
|
||
|
|
my $what = 'ou';
|
||
|
|
my $pretty = 0;
|
||
|
|
my $json = [];
|
||
|
|
|
||
|
|
my $samba_tool = which('samba-tool');
|
||
|
|
|
||
|
|
if (not defined $samba_tool){
|
||
|
|
print $json;
|
||
|
|
exit 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
GetOptions(
|
||
|
|
'what=s' => \$what,
|
||
|
|
'pretty' => \$pretty
|
||
|
|
);
|
||
|
|
|
||
|
|
if ($what eq 'ou'){
|
||
|
|
foreach (qx($samba_tool ou list)){
|
||
|
|
chomp;
|
||
|
|
push @{$json}, {
|
||
|
|
'{#SAMBA_OU}' => $_
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
print to_json($json, { pretty => $pretty });
|