#!/usr/bin/env escript
%%!

main(_Args) ->
    RootDir = "/usr/lib/erlang",
    BinDir = filename:join([RootDir, "bin"]),
    file:set_cwd(RootDir),


    CasperRelDir = filename:join([RootDir, "releases/casper"]),
    file:make_dir(CasperRelDir),
    CasperDir =  code:priv_dir(casper),

    RelFile = "casper-0.1.rel",
    file:copy(filename:join([CasperDir, RelFile]),
              filename:join([CasperRelDir, RelFile])),
    file:set_cwd(CasperRelDir),
    systools:make_script("casper-0.1", [local]),


    file:copy(filename:join([CasperDir, "casper"]),
              filename:join([BinDir, "casper"])),

    file:copy(filename:join([CasperDir, "casper_erl"]),
              filename:join([BinDir, "casper_erl"])),

    file:set_cwd(BinDir),
    os:cmd("chmod 711 casper"),
    os:cmd("chmod 711 casper_erl"),
    io:format('start erl script ~p ~p~n', [CasperDir, RelFile]).