resetadminpw37

#!/usr/bin/env escript

%% -*- erlang -*-

%%! -sname setadminpw

-define(BFC_SYSTEM_SINGLETON, 'bbc/bfc_system_singleton').

-define(BFC_SYSTEM_NTP_SERVER_1,

'bbc/bfc_system_singleton.properties.ntp_1').

get_nodename() ->

case get(nodename) of

undefined ->

NodeName = list_to_atom(

"bfc@" ++ string:strip(

os:cmd("hostname -s"), right, $\n)),

put(nodename, NodeName),

NodeName;

N -> N

end.

call(Mod, Fun, Args) ->

rpc:call(get_nodename(), Mod, Fun, Args).

main([]) ->

NewPW = "changeme",

try

Cmdstr = string:join(["slappasswd", "-s",

NewPW, "-h", "\"{SHA}\""], " "),

EncodedPW = string:strip(os:cmd(Cmdstr), right, $\n),

[Tid] = call(component_impl, instances_for_component_type,

['core/tenant']),

_Pid = call(component, call, [Tid, setCoreAdminPassword, [EncodedPW]])

catch

E:R ->

io:format("caught exception ~p:~p~n", [E, R])

end.