diff options
| author | Evgeniy Khramtsov <ekhramtsov@process-one.net> | 2012-04-06 12:31:29 +1000 |
|---|---|---|
| committer | Evgeniy Khramtsov <ekhramtsov@process-one.net> | 2012-04-06 12:31:29 +1000 |
| commit | cea23b055b26ff851944c93c54c58057df9f0fed (patch) | |
| tree | 2c93bbd185630d4dcba3535a2a973092d281aeb3 /src/odbc | |
| parent | ODBC support for mod_shared_roster (diff) | |
Get rid of duplicated code
Diffstat (limited to 'src/odbc')
| -rw-r--r-- | src/odbc/ejabberd_odbc.erl | 10 | ||||
| -rw-r--r-- | src/odbc/odbc_queries.erl | 1 |
2 files changed, 11 insertions, 0 deletions
diff --git a/src/odbc/ejabberd_odbc.erl b/src/odbc/ejabberd_odbc.erl index 8227dfcb6..6ac5414ba 100644 --- a/src/odbc/ejabberd_odbc.erl +++ b/src/odbc/ejabberd_odbc.erl @@ -40,6 +40,8 @@ escape/1, escape_like/1, to_bool/1, + encode_term/1, + decode_term/1, keep_alive/1]). %% gen_fsm callbacks @@ -169,6 +171,14 @@ to_bool(true) -> true; to_bool(1) -> true; to_bool(_) -> false. +encode_term(Term) -> + escape(erl_prettypr:format(erl_syntax:abstract(Term))). + +decode_term(Str) -> + {ok, Tokens, _} = erl_scan:string(Str ++ "."), + {ok, Term} = erl_parse:parse_term(Tokens), + Term. + %%%---------------------------------------------------------------------- %%% Callback functions from gen_fsm %%%---------------------------------------------------------------------- diff --git a/src/odbc/odbc_queries.erl b/src/odbc/odbc_queries.erl index e831d166c..2af5f2ba6 100644 --- a/src/odbc/odbc_queries.erl +++ b/src/odbc/odbc_queries.erl @@ -28,6 +28,7 @@ -author("mremond@process-one.net"). -export([get_db_type/0, + update_t/4, sql_transaction/2, get_last/2, set_last_t/4, |