diff options
| -rw-r--r-- | src/ejabberd_sql.erl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/ejabberd_sql.erl b/src/ejabberd_sql.erl index ab0601a6c..b9dbbe7ce 100644 --- a/src/ejabberd_sql.erl +++ b/src/ejabberd_sql.erl @@ -39,6 +39,8 @@ sql_query_t/1, sql_transaction/2, sql_bloc/2, + abort/1, + restart/1, sql_query_to_iolist/1, escape/1, standard_escape/1, @@ -190,6 +192,12 @@ sql_query_t(Query) -> _ -> QRes end. +abort(Reason) -> + exit(Reason). + +restart(Reason) -> + throw({aborted, Reason}). + %% Escape character that will confuse an SQL engine escape(S) -> << <<(sql_queries:escape(Char))/binary>> || <<Char>> <= S >>. |