Du kannst nicht mehr als 25 Themen auswählen
Themen müssen entweder mit einem Buchstaben oder einer Ziffer beginnen. Sie können Bindestriche („-“) enthalten und bis zu 35 Zeichen lang sein.
34 Zeilen
472 B
34 Zeilen
472 B
#!/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 });
|
|
|