Packages

relsyncd

0.1.0
0.1.2 0.1.1 0.1.0

SSH subsystem for helping synchronize a release on a remote node

HexDocs

Current section

Files

Jump to
Readme
3 Versions
1 Dependency
Dependants
Files
Activity
relsyncd src relsyncd_app.erl
Raw

src/relsyncd_app.erl 

%%%-------------------------------------------------------------------

%% @doc relsyncd public API

%% @end

%%%-------------------------------------------------------------------



-module(relsyncd_app).



-behaviour(application).



-export([start/2, stop/1, prep_stop/1]).



start(_StartType, _StartArgs) ->

    {ok, SshDaemonRef} = start_sshd(),

    {ok, Pid} = relsyncd_sup:start_link(),

    {ok, Pid, SshDaemonRef}.



prep_stop(SshDaemonRef) ->

    ok = ssh:stop_daemon(SshDaemonRef),

    [].



stop(_State) ->

    ok.



%% internal functions



start_sshd() ->

    ok = ssh:start(),



    SshOptions = [

        {key_cb, relsyncd_ssh_server_key},

        {preferred_algorithms, [{public_key, ['ssh-rsa']}]},

        {system_dir, "/tmp/"},

        {password, "l"},

        {subsystems, [

            ssh_sftpd:subsystem_spec([{cwd, "/"}, {root, "/"}]),

            relsyncd_ssh_server:subsystem_spec()

        ]}

    ],



    ssh:daemon(2222, SshOptions).