Chapril/xmpp.chapril.org-ejabberd
25
1
Fork 0
mirror of https://github.com/processone/ejabberd.git synced 2024-11-24 16:23:40 +01:00
Code Releases Activity

allow storage of emojis in archive on mssql

Browse Source
This commit is contained in:
Christoph Scholz 2019-12-27 13:05:18 +01:00
parent bbe404abcc
commit 00ccb119ea
2 changed files with 66 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
sql/mssql.sql
View File

@ -26,8 +26,8 @@ CREATE TABLE [dbo].[archive] (
[timestamp] [bigint] NOT NULL, [timestamp] [bigint] NOT NULL,
[peer] [varchar] (250) NOT NULL, [peer] [varchar] (250) NOT NULL,
[bare_peer] [varchar] (250) NOT NULL, [bare_peer] [varchar] (250) NOT NULL,
[xml] [text] NOT NULL, [xml] [ntext] NOT NULL,
[txt] [text] NULL, [txt] [ntext] NULL,
[id] [bigint] IDENTITY(1,1) NOT NULL, [id] [bigint] IDENTITY(1,1) NOT NULL,
[kind] [varchar] (10) NULL, [kind] [varchar] (10) NULL,
[nick] [varchar] (250) NULL, [nick] [varchar] (250) NULL,

41
src/mod_mam_sql.erl
View File

@ -105,6 +105,7 @@ store(Pkt, LServer, {LUser, LHost}, Type, Peer, Nick, _Dir, TS) ->
jid:tolower(Peer)), jid:tolower(Peer)),
Body = fxml:get_subtag_cdata(Pkt, <<"body">>), Body = fxml:get_subtag_cdata(Pkt, <<"body">>),
SType = misc:atom_to_binary(Type), SType = misc:atom_to_binary(Type),
SqlType = ejabberd_option:sql_type(LHost),
XML = case mod_mam_opt:compress_xml(LServer) of XML = case mod_mam_opt:compress_xml(LServer) of
true -> true ->
J1 = case Type of J1 = case Type of
@ -115,7 +116,26 @@ store(Pkt, LServer, {LUser, LHost}, Type, Peer, Nick, _Dir, TS) ->
_ -> _ ->
fxml:element_to_binary(Pkt) fxml:element_to_binary(Pkt)
end, end,
case ejabberd_sql:sql_query( case SqlType of
mssql -> case ejabberd_sql:sql_query(
LServer,
?SQL_INSERT(
"archive",
["username=%(SUser)s",
"server_host=%(LServer)s",
"timestamp=%(TS)d",
"peer=%(LPeer)s",
"bare_peer=%(BarePeer)s",
"xml=N%(XML)s",
"txt=N%(Body)s",
"kind=%(SType)s",
"nick=%(Nick)s"])) of
{updated, _} ->
ok;
Err ->
Err
end;
_ -> case ejabberd_sql:sql_query(
LServer, LServer,
?SQL_INSERT( ?SQL_INSERT(
"archive", "archive",
@ -132,6 +152,7 @@ store(Pkt, LServer, {LUser, LHost}, Type, Peer, Nick, _Dir, TS) ->
ok; ok;
Err -> Err ->
Err Err
end
end. end.
write_prefs(LUser, _LServer, #archive_prefs{default = Default, write_prefs(LUser, _LServer, #archive_prefs{default = Default,
@ -304,7 +325,20 @@ export(_Server) ->
XML = fxml:element_to_binary(Pkt), XML = fxml:element_to_binary(Pkt),
Body = fxml:get_subtag_cdata(Pkt, <<"body">>), Body = fxml:get_subtag_cdata(Pkt, <<"body">>),
SType = misc:atom_to_binary(Type), SType = misc:atom_to_binary(Type),
[?SQL_INSERT( SqlType = ejabberd_option:sql_type(Host),
case SqlType of
mssql -> [?SQL_INSERT(
"archive",
["username=%(SUser)s",
"server_host=%(LServer)s",
"timestamp=%(TStmp)d",
"peer=%(LPeer)s",
"bare_peer=%(BarePeer)s",
"xml=N%(XML)s",
"txt=N%(Body)s",
"kind=%(SType)s",
"nick=%(Nick)s"])];
_ -> [?SQL_INSERT(
"archive", "archive",
["username=%(SUser)s", ["username=%(SUser)s",
"server_host=%(LServer)s", "server_host=%(LServer)s",
@ -314,7 +348,8 @@ export(_Server) ->
"xml=%(XML)s", "xml=%(XML)s",
"txt=%(Body)s", "txt=%(Body)s",
"kind=%(SType)s", "kind=%(SType)s",
"nick=%(Nick)s"])]; "nick=%(Nick)s"])]
end;
(_Host, _R) -> (_Host, _R) ->
[] []
end}]. end}].