Packages

ca

4.7.1
7.6.2 7.4.14 7.1.4 7.1.3 7.1.2 7.1.1 6.1.1 5.11.22 5.11.15 5.11.13 5.11.5 5.11.1 5.10.4 5.10.3 5.10.2 5.10.1 4.8.2 4.7.26 4.7.14 4.7.13 4.7.12 4.7.2 4.7.1 4.6.1 4.6.0 2.7.14 1.11.0 1.10.0 1.2.1 1.2.0 1.1.1 1.1.0 0.10.0 0.9.0 0.8.2 0.8.1 0.8.0 0.1.0

CA CXC 138 21 Certificate Authority

HexDocs

Current section

Files

Jump to
Readme
38 Versions
2 Dependencies
Dependants
Files
Activity
ca src sh.erl
Raw

src/sh.erl 

-module(sh).

-export([reduce/0, run/1, sh/1]).



reduce() -> fun({_, Chunk}, Acc) -> [Chunk|Acc] end.



run(Args) ->

    erlang:open_port({spawn_executable, os:find_executable("sh")},

        [stream, in, out, eof, use_stdio, stderr_to_stdout, binary, exit_status,

            {args, ["-c",Args]}, {cd, element(2,file:get_cwd())}, {env, []}]).



sh(Port) -> sh(Port, reduce(), []).

sh(Port, Fun, Acc) ->

    receive

        {Port, {exit_status, Status}} -> {done, Status, iolist_to_binary(lists:reverse(Acc))};

        {Port, {data, {eol, Line}}}   -> sh(Port, Fun, Fun({eol,   Line}, Acc));

        {Port, {data, {noeol, Line}}} -> sh(Port, Fun, Fun({noeol, Line}, Acc));

        {Port, {data, Data}} ->

           case {binary:match(Data,  <<"Sign the certificate? [y/n]:">>) =/= nomatch,

                 binary:match(Data,  <<"requests certified, commit?">>)  =/= nomatch} of

                {true,_}   -> Port ! {self(),{command,<<"y\n">>}};

                {_,true}   -> Port ! {self(),{command,<<"y\n">>}};

                {_,_}      -> skip

           end,

           sh(Port, Fun, Fun({data,Data}, Acc))

    end.