Packages

ephp

0.3.2
0.3.2 0.3.1 0.3.0 0.2.7 0.2.6 0.2.5 0.2.4 0.2.3 0.2.2 0.2.1 0.2.0 0.1.0

Erlang PHP Interpreter

Current section

Files

Jump to
Readme
12 Versions
5 Dependencies
Dependants
Files
Activity
ephp src ephp_lib_exec.erl
Raw

src/ephp_lib_exec.erl 

-module(ephp_lib_exec).



-author('manuel@altenwald.com').



-behaviour(ephp_lib).



-export([init_func/0, init_config/0, init_const/0, handle_error/3, shell_exec/3]).



-include("ephp.hrl").



-spec init_func() -> ephp_lib:php_function_results().

init_func() ->

    [{shell_exec, [{args, [string]}]}].



-spec init_config() -> ephp_lib:php_config_results().

init_config() ->

    [].



-spec init_const() -> ephp_lib:php_const_results().

init_const() ->

    [].



-spec handle_error(ephp_error:error_type(), ephp_error:error_level(), Args :: term()) ->

                      string() | ignore.

handle_error(_Error, _Level, _Data) ->

    ignore.



-spec shell_exec(ephp:context_id(), line(), var_value()) -> binary().

shell_exec(_Context, _Line, {_, BaseCommand}) ->

    %% TODO: give more security to this and ensure it's not disabled

    EscapedCommand =

        ephp_string:escape(

            ephp_data:to_bin(BaseCommand), $"),

    Command = binary_to_list(<<"LANG=POSIX sh -c ", EscapedCommand/binary>>),

    iolist_to_binary(os:cmd(Command)).