my $UC_NAME = uc($NAME);
my %PARAM = (
'format' => $ENV{$UC_NAME.'_FORMAT'} ? $ENV{$UC_NAME.'_FORMAT'} : 'human',
- 'txt_errors' => $ENV{$UC_NAME.'_TXT_ERRORS'} ? $ENV{$UC_NAME.'_TXT_ERRORS'} : '1',
+ 'config.txt_errors' => $ENV{$UC_NAME.'_TXT_ERRORS'} ? $ENV{$UC_NAME.'_TXT_ERRORS'} : '1',
'rows_head_char' => "\r",
);
$keys{format} = 'csv';
$keys{header} = '0' unless defined $keys{header};
+} elsif (!defined $keys{format}) {
} elsif ($keys{format} eq 'nc') {
$keys{format} = 'csv';
open(STDOUT,"|$0 --parse_debug|$0 --csv2txt ".( ( defined($keys{header}) ? $keys{header} : '') eq '0' ? '1' : '0'))
#################################################################################
warn "$NAME: Command: ",join(" ",map{/\s+/ ? '"'.$_.'"' : $_} grep {!/^rows_head_char=/} @cmd),"\n" if $VERBOSE;
+if ($Opt{debug} and $Opt{debug} > 1) {
+ print STDERR join(' ',@cmd)."\n";
+ exit;
+}
#use Data::Dumper; warn(Dumper(\@cmd));
$_ = system(@cmd);
my $ex = ($? == 0 and $_ == 0) ? 0 : 1;
'nb-sys' => [
'type' => 'sqlite',
'name' => 'Sys',
- 'default_table' => 'port',
+ 'default_table' => 'mime',
'host' => nb::ROOT_DIR.'/share/db/sys.db',
],
];
-which ldapsearch > /dev/null || return
+which slapcat > /dev/null || return
ldap_config() {
- ldapsearch -Q -Y EXTERNAL -H ldapi:/// -o ldif-wrap=999 -b cn=config '(!(objectClass=olcSchemaConfig))'
+# NB 03.11.17 ldapsearch -Q -Y EXTERNAL -H ldapi:/// -o ldif-wrap=999 -b cn=config '(!(objectClass=olcSchemaConfig))'
+ slapcat -b cn=config -a '(!(objectClass=olcSchemaConfig))'
}
ldap_cn() {
- ldapsearch -x '(cn=*)' dn | grep ^dn | sed 's/dn: //'
+ #ldapsearch -x '(cn=*)' dn | grep ^dn | sed 's/dn: //'
+ slapcat -a 'cn=*' | grep ^dn | sed 's/dn: //'
}
ldap_olcdatabases() {
}
ldap_objectclasses() {
- ldapsearch -x -s base -b "cn=subschema" objectclasses
+# NB 03.11.17 ldapsearch -x -s base -b "cn=subschema" objectclasses
+ slapcat -b cn=config -a '(&(objectClass=olcSchemaConfig))'
}
argv2request();
ini_set('display_errors', true);
ini_set('log_errors', false);
- if (nb::p('txt_errors')) ini_set('html_errors', false);
+ if (nb::p('config.txt_errors')) ini_set('html_errors', false);
}
// Web