summaryrefslogtreecommitdiff
path: root/lib/sasl/test/release_handler_SUITE_data/relocatable_release/hello_server_new/src/app_callback_module.erl
blob: 0d988ab8f685bb3152dda8e69ff9f49d69596e92 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
-module(app_callback_module).

-behaviour(application).

-export([start/2, stop/1, get_response/0, update/0]).

start(_Type, _Args) ->
    Pid = hello_server:start_server(),
    global:register_name(hello_server, Pid),
    {ok, Pid}.

update() ->
    global:whereis_name(hello_server) ! update,
    ok.

get_response() ->
    global:whereis_name(hello_server) ! self(),
    receive
        A ->
            A
    end.

stop(_State) ->
    Pid = global:whereis_name(hello_server),
    hello_server:stop(Pid),
    ok.