Mercurial > ~mikael > mcabber > hg
annotate mcabber/mcabber/otr.c @ 2366:480585fec48a default tip
Update spell checking section in the configuration file
| author | Mikael Berthe <mikael@lilotux.net> |
|---|---|
| date | Tue, 30 May 2023 16:37:46 +0200 |
| parents | 0dc317b5599d |
| children |
| rev | line source |
|---|---|
| 1299 | 1 /* |
|
1303
b6fdbfa6b219
Minor whitespace change
Mikael Berthe <mikael@lilotux.net>
parents:
1301
diff
changeset
|
2 * otr.c -- Off-The-Record Messaging for mcabber |
| 1299 | 3 * |
| 1599 | 4 * Copyright (C) 2007-2009 Frank Zschockelt <mcabber_otr@freakysoft.de> |
| 1299 | 5 * |
| 6 * This program is free software; you can redistribute it and/or modify | |
| 7 * it under the terms of the GNU General Public License as published by | |
| 8 * the Free Software Foundation; either version 2 of the License, or (at | |
| 9 * your option) any later version. | |
| 10 * | |
| 11 * This program is distributed in the hope that it will be useful, but | |
| 12 * WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
| 14 * General Public License for more details. | |
| 15 * | |
| 16 * You should have received a copy of the GNU General Public License | |
|
2268
f5402d705f67
Fix FSF addresses in all files
Mikael Berthe <mikael@lilotux.net>
parents:
2263
diff
changeset
|
17 * along with this program; if not, see <http://www.gnu.org/licenses/>. |
| 1299 | 18 */ |
| 19 | |
| 20 #include <config.h> | |
|
1470
a8b924b5474c
The OTR protocol expects (X)HTML messsages
Mikael Berthe <mikael@lilotux.net>
parents:
1420
diff
changeset
|
21 #include <glib.h> |
| 1299 | 22 |
| 23 #ifdef HAVE_LIBOTR | |
| 24 | |
| 1598 | 25 #include "hbuf.h" |
| 1299 | 26 #include "logprint.h" |
| 1598 | 27 #include "nohtml.h" |
| 28 #include "otr.h" | |
| 1299 | 29 #include "roster.h" |
|
1301
37b41ed9ed35
Fixed compiler warnings
Frank Zschockelt <mcabber_otr[at]freakysoft.de>
parents:
1299
diff
changeset
|
30 #include "screen.h" |
|
37b41ed9ed35
Fixed compiler warnings
Frank Zschockelt <mcabber_otr[at]freakysoft.de>
parents:
1299
diff
changeset
|
31 #include "settings.h" |
| 1598 | 32 #include "utils.h" |
| 33 #include "xmpp.h" | |
| 1299 | 34 |
|
1577
e1a642472f4e
Use otr context where possible, saves one mc_strtolower() per received message
franky
parents:
1501
diff
changeset
|
35 #define OTR_PROTOCOL_NAME "jabber" |
| 1299 | 36 |
| 37 static OtrlUserState userstate = NULL; | |
| 1598 | 38 static char *account = NULL; |
| 39 static char *keyfile = NULL; | |
| 40 static char *fprfile = NULL; | |
| 2336 | 41 static char *tagfile = NULL; |
| 42 static guint otr_timer_source = 0; | |
| 1299 | 43 |
|
1347
07816313073b
Add an option 'otr' to enable OTR support in the configuration file
Mikael Berthe <mikael@lilotux.net>
parents:
1346
diff
changeset
|
44 static int otr_is_enabled = FALSE; |
| 1299 | 45 |
| 46 static OtrlPolicy cb_policy (void *opdata, ConnContext *ctx); | |
| 47 static void cb_create_privkey (void *opdata, | |
| 48 const char *accountname, | |
| 49 const char *protocol); | |
| 50 static int cb_is_logged_in (void *opdata, | |
| 51 const char *accountname, | |
| 52 const char *protocol, | |
| 53 const char *recipient); | |
| 54 static void cb_inject_message (void *opdata, | |
| 55 const char *accountname, | |
| 56 const char *protocol, | |
| 57 const char *recipient, | |
| 58 const char *message); | |
|
2076
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
59 static void cb_update_context_list(void *opdata); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
60 static void cb_new_fingerprint (void *opdata, OtrlUserState us, |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
61 const char *accountname, |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
62 const char *protocol, |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
63 const char *username, |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
64 unsigned char fingerprint[20]); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
65 static void cb_write_fingerprints (void *opdata); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
66 static void cb_gone_secure (void *opdata, ConnContext *context); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
67 static void cb_gone_insecure (void *opdata, ConnContext *context); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
68 static void cb_still_secure (void *opdata, ConnContext *context, |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
69 int is_reply); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
70 static int cb_max_message_size (void *opdata, ConnContext *context); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
71 |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
72 static void cb_handle_smp_event (void *opdata, OtrlSMPEvent event, |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
73 ConnContext *context, unsigned short percent, |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
74 char *question); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
75 static void cb_handle_msg_event (void *opdata, OtrlMessageEvent event, |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
76 ConnContext *context, const char *message, |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
77 gcry_error_t err); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
78 static void cb_create_instag (void *opdata, const char *accountname, |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
79 const char *protocol); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
80 static void cb_timer_control (void *opdata, unsigned int interval); |
| 1299 | 81 |
| 82 static OtrlMessageAppOps ops = | |
| 83 { | |
|
1301
37b41ed9ed35
Fixed compiler warnings
Frank Zschockelt <mcabber_otr[at]freakysoft.de>
parents:
1299
diff
changeset
|
84 cb_policy, |
|
37b41ed9ed35
Fixed compiler warnings
Frank Zschockelt <mcabber_otr[at]freakysoft.de>
parents:
1299
diff
changeset
|
85 cb_create_privkey, |
|
37b41ed9ed35
Fixed compiler warnings
Frank Zschockelt <mcabber_otr[at]freakysoft.de>
parents:
1299
diff
changeset
|
86 cb_is_logged_in, |
|
37b41ed9ed35
Fixed compiler warnings
Frank Zschockelt <mcabber_otr[at]freakysoft.de>
parents:
1299
diff
changeset
|
87 cb_inject_message, |
|
37b41ed9ed35
Fixed compiler warnings
Frank Zschockelt <mcabber_otr[at]freakysoft.de>
parents:
1299
diff
changeset
|
88 cb_update_context_list, |
|
37b41ed9ed35
Fixed compiler warnings
Frank Zschockelt <mcabber_otr[at]freakysoft.de>
parents:
1299
diff
changeset
|
89 cb_new_fingerprint, |
|
37b41ed9ed35
Fixed compiler warnings
Frank Zschockelt <mcabber_otr[at]freakysoft.de>
parents:
1299
diff
changeset
|
90 cb_write_fingerprints, |
|
37b41ed9ed35
Fixed compiler warnings
Frank Zschockelt <mcabber_otr[at]freakysoft.de>
parents:
1299
diff
changeset
|
91 cb_gone_secure, |
|
37b41ed9ed35
Fixed compiler warnings
Frank Zschockelt <mcabber_otr[at]freakysoft.de>
parents:
1299
diff
changeset
|
92 cb_gone_insecure, |
|
37b41ed9ed35
Fixed compiler warnings
Frank Zschockelt <mcabber_otr[at]freakysoft.de>
parents:
1299
diff
changeset
|
93 cb_still_secure, |
|
37b41ed9ed35
Fixed compiler warnings
Frank Zschockelt <mcabber_otr[at]freakysoft.de>
parents:
1299
diff
changeset
|
94 cb_max_message_size, |
|
2076
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
95 NULL, /* account_name */ |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
96 NULL, /* account_name_free */ |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
97 NULL, /* received_symkey */ |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
98 NULL, /* otr_error_message */ |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
99 NULL, /* otr_error_message_free */ |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
100 NULL, /* resent_msg_prefix */ |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
101 NULL, /* resent_msg_prefix_free */ |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
102 cb_handle_smp_event, |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
103 cb_handle_msg_event, |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
104 cb_create_instag, |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
105 NULL, /* convert_msg */ |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
106 NULL, /* convert_free */ |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
107 cb_timer_control, |
| 1299 | 108 }; |
| 109 | |
| 110 static void otr_message_disconnect(ConnContext *ctx); | |
| 1598 | 111 static ConnContext *otr_get_context(const char *buddy); |
| 112 static void otr_startstop(const char *buddy, int start); | |
| 1299 | 113 |
| 1598 | 114 static char *otr_get_dir(void); |
| 1299 | 115 |
|
1420
08f641e91f94
Do not use "jid" as a variable name
Mikael Berthe <mikael@lilotux.net>
parents:
1347
diff
changeset
|
116 void otr_init(const char *fjid) |
| 1299 | 117 { |
|
1347
07816313073b
Add an option 'otr' to enable OTR support in the configuration file
Mikael Berthe <mikael@lilotux.net>
parents:
1346
diff
changeset
|
118 char *root; |
|
07816313073b
Add an option 'otr' to enable OTR support in the configuration file
Mikael Berthe <mikael@lilotux.net>
parents:
1346
diff
changeset
|
119 |
|
1729
e6e89b1d7831
Minor style and header updates
Mikael Berthe <mikael@lilotux.net>
parents:
1668
diff
changeset
|
120 if (userstate) // already initialised |
| 1501 | 121 return; |
| 122 | |
|
1347
07816313073b
Add an option 'otr' to enable OTR support in the configuration file
Mikael Berthe <mikael@lilotux.net>
parents:
1346
diff
changeset
|
123 otr_is_enabled = !!settings_opt_get_int("otr"); |
|
07816313073b
Add an option 'otr' to enable OTR support in the configuration file
Mikael Berthe <mikael@lilotux.net>
parents:
1346
diff
changeset
|
124 |
|
07816313073b
Add an option 'otr' to enable OTR support in the configuration file
Mikael Berthe <mikael@lilotux.net>
parents:
1346
diff
changeset
|
125 if (!otr_is_enabled) |
|
07816313073b
Add an option 'otr' to enable OTR support in the configuration file
Mikael Berthe <mikael@lilotux.net>
parents:
1346
diff
changeset
|
126 return; |
|
07816313073b
Add an option 'otr' to enable OTR support in the configuration file
Mikael Berthe <mikael@lilotux.net>
parents:
1346
diff
changeset
|
127 |
|
07816313073b
Add an option 'otr' to enable OTR support in the configuration file
Mikael Berthe <mikael@lilotux.net>
parents:
1346
diff
changeset
|
128 OTRL_INIT; |
|
07816313073b
Add an option 'otr' to enable OTR support in the configuration file
Mikael Berthe <mikael@lilotux.net>
parents:
1346
diff
changeset
|
129 |
|
1577
e1a642472f4e
Use otr context where possible, saves one mc_strtolower() per received message
franky
parents:
1501
diff
changeset
|
130 userstate = otrl_userstate_create(); |
|
1347
07816313073b
Add an option 'otr' to enable OTR support in the configuration file
Mikael Berthe <mikael@lilotux.net>
parents:
1346
diff
changeset
|
131 |
|
07816313073b
Add an option 'otr' to enable OTR support in the configuration file
Mikael Berthe <mikael@lilotux.net>
parents:
1346
diff
changeset
|
132 root = otr_get_dir(); |
|
1420
08f641e91f94
Do not use "jid" as a variable name
Mikael Berthe <mikael@lilotux.net>
parents:
1347
diff
changeset
|
133 account = jidtodisp(fjid); |
| 1299 | 134 keyfile = g_strdup_printf("%s%s.key", root, account); |
| 135 fprfile = g_strdup_printf("%s%s.fpr", root, account); | |
| 136 | |
| 137 if (otrl_privkey_read(userstate, keyfile)){ | |
| 138 scr_LogPrint(LPRINT_LOGNORM, "Could not read OTR key from %s", keyfile); | |
|
1577
e1a642472f4e
Use otr context where possible, saves one mc_strtolower() per received message
franky
parents:
1501
diff
changeset
|
139 cb_create_privkey(NULL, account, OTR_PROTOCOL_NAME); |
| 1299 | 140 } |
| 2336 | 141 |
| 1299 | 142 if (otrl_privkey_read_fingerprints(userstate, fprfile, NULL, NULL)){ |
| 143 scr_LogPrint(LPRINT_LOGNORM, "Could not read OTR fingerprints from %s", | |
| 144 fprfile); | |
| 145 } | |
| 2336 | 146 |
|
2076
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
147 tagfile = g_strdup_printf("%s%s.tag", root, account); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
148 if (otrl_instag_read(userstate, tagfile)) { |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
149 scr_LogPrint(LPRINT_LOGNORM, "Could not read OTR instance tag from %s", tagfile); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
150 cb_create_instag(NULL, account, OTR_PROTOCOL_NAME); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
151 } |
| 2336 | 152 |
|
2076
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
153 g_free(root); |
| 1299 | 154 } |
| 155 | |
| 156 void otr_terminate(void) | |
| 157 { | |
| 1598 | 158 ConnContext *ctx; |
| 1299 | 159 |
|
1347
07816313073b
Add an option 'otr' to enable OTR support in the configuration file
Mikael Berthe <mikael@lilotux.net>
parents:
1346
diff
changeset
|
160 if (!otr_is_enabled) |
|
07816313073b
Add an option 'otr' to enable OTR support in the configuration file
Mikael Berthe <mikael@lilotux.net>
parents:
1346
diff
changeset
|
161 return; |
|
07816313073b
Add an option 'otr' to enable OTR support in the configuration file
Mikael Berthe <mikael@lilotux.net>
parents:
1346
diff
changeset
|
162 |
|
2076
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
163 if (otr_timer_source > 0) { |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
164 g_source_remove (otr_timer_source); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
165 otr_timer_source = 0; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
166 } |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
167 |
| 1320 | 168 for (ctx = userstate->context_root; ctx; ctx = ctx->next) |
| 1299 | 169 if (ctx->msgstate == OTRL_MSGSTATE_ENCRYPTED) |
| 170 otr_message_disconnect(ctx); | |
| 171 | |
| 172 g_free(account); | |
| 173 account = NULL; | |
|
1307
6c116207ab2e
Work around segfault in otrl_userstate_free()
Mikael Berthe <mikael@lilotux.net>
parents:
1306
diff
changeset
|
174 |
|
6c116207ab2e
Work around segfault in otrl_userstate_free()
Mikael Berthe <mikael@lilotux.net>
parents:
1306
diff
changeset
|
175 /* XXX This #ifdef is a quick workaround: when mcabber |
|
6c116207ab2e
Work around segfault in otrl_userstate_free()
Mikael Berthe <mikael@lilotux.net>
parents:
1306
diff
changeset
|
176 * is linked to both gnutls and libotr, libgcrypt will |
|
6c116207ab2e
Work around segfault in otrl_userstate_free()
Mikael Berthe <mikael@lilotux.net>
parents:
1306
diff
changeset
|
177 * segfault when we call otrl_userstate_free(). |
|
6c116207ab2e
Work around segfault in otrl_userstate_free()
Mikael Berthe <mikael@lilotux.net>
parents:
1306
diff
changeset
|
178 * This is reported to be a bug in libgcrypt :-/ |
|
6c116207ab2e
Work around segfault in otrl_userstate_free()
Mikael Berthe <mikael@lilotux.net>
parents:
1306
diff
changeset
|
179 * Mikael |
|
6c116207ab2e
Work around segfault in otrl_userstate_free()
Mikael Berthe <mikael@lilotux.net>
parents:
1306
diff
changeset
|
180 */ |
|
1729
e6e89b1d7831
Minor style and header updates
Mikael Berthe <mikael@lilotux.net>
parents:
1668
diff
changeset
|
181 #if defined(HAVE_GNUTLS) && !defined(HAVE_OPENSSL) // TODO: broken now |
|
1307
6c116207ab2e
Work around segfault in otrl_userstate_free()
Mikael Berthe <mikael@lilotux.net>
parents:
1306
diff
changeset
|
182 if (!settings_opt_get_int("ssl")) |
|
6c116207ab2e
Work around segfault in otrl_userstate_free()
Mikael Berthe <mikael@lilotux.net>
parents:
1306
diff
changeset
|
183 #endif |
| 1299 | 184 otrl_userstate_free(userstate); |
|
1307
6c116207ab2e
Work around segfault in otrl_userstate_free()
Mikael Berthe <mikael@lilotux.net>
parents:
1306
diff
changeset
|
185 |
| 1299 | 186 userstate = NULL; |
| 187 g_free(keyfile); | |
| 188 keyfile = NULL; | |
|
2076
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
189 g_free(fprfile); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
190 fprfile = NULL; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
191 g_free(tagfile); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
192 tagfile = NULL; |
| 1299 | 193 } |
| 194 | |
| 1598 | 195 static char *otr_get_dir(void) |
| 1320 | 196 { |
| 1346 | 197 const char *configured_dir = settings_opt_get("otr_dir"); |
| 1320 | 198 |
|
1335
ab1b7f7a682e
Make sure the otr_dir is always slash-terminated
Mikael Berthe <mikael@lilotux.net>
parents:
1320
diff
changeset
|
199 if (configured_dir && *configured_dir) { |
|
ab1b7f7a682e
Make sure the otr_dir is always slash-terminated
Mikael Berthe <mikael@lilotux.net>
parents:
1320
diff
changeset
|
200 char *xp_conf_dir; |
|
ab1b7f7a682e
Make sure the otr_dir is always slash-terminated
Mikael Berthe <mikael@lilotux.net>
parents:
1320
diff
changeset
|
201 int l; |
|
ab1b7f7a682e
Make sure the otr_dir is always slash-terminated
Mikael Berthe <mikael@lilotux.net>
parents:
1320
diff
changeset
|
202 xp_conf_dir = expand_filename(configured_dir); |
|
ab1b7f7a682e
Make sure the otr_dir is always slash-terminated
Mikael Berthe <mikael@lilotux.net>
parents:
1320
diff
changeset
|
203 // The path must be slash-terminated |
|
ab1b7f7a682e
Make sure the otr_dir is always slash-terminated
Mikael Berthe <mikael@lilotux.net>
parents:
1320
diff
changeset
|
204 l = strlen(xp_conf_dir); |
|
ab1b7f7a682e
Make sure the otr_dir is always slash-terminated
Mikael Berthe <mikael@lilotux.net>
parents:
1320
diff
changeset
|
205 if (xp_conf_dir[l-1] != '/') { |
|
ab1b7f7a682e
Make sure the otr_dir is always slash-terminated
Mikael Berthe <mikael@lilotux.net>
parents:
1320
diff
changeset
|
206 char *xp_conf_dir_tmp = xp_conf_dir; |
|
ab1b7f7a682e
Make sure the otr_dir is always slash-terminated
Mikael Berthe <mikael@lilotux.net>
parents:
1320
diff
changeset
|
207 xp_conf_dir = g_strdup_printf("%s/", xp_conf_dir_tmp); |
|
ab1b7f7a682e
Make sure the otr_dir is always slash-terminated
Mikael Berthe <mikael@lilotux.net>
parents:
1320
diff
changeset
|
208 g_free(xp_conf_dir_tmp); |
|
ab1b7f7a682e
Make sure the otr_dir is always slash-terminated
Mikael Berthe <mikael@lilotux.net>
parents:
1320
diff
changeset
|
209 } |
|
ab1b7f7a682e
Make sure the otr_dir is always slash-terminated
Mikael Berthe <mikael@lilotux.net>
parents:
1320
diff
changeset
|
210 return xp_conf_dir; |
|
ab1b7f7a682e
Make sure the otr_dir is always slash-terminated
Mikael Berthe <mikael@lilotux.net>
parents:
1320
diff
changeset
|
211 } else { |
| 1320 | 212 return expand_filename("~/.mcabber/otr/"); |
|
1335
ab1b7f7a682e
Make sure the otr_dir is always slash-terminated
Mikael Berthe <mikael@lilotux.net>
parents:
1320
diff
changeset
|
213 } |
| 1320 | 214 } |
| 215 | |
| 1598 | 216 static ConnContext *otr_get_context(const char *buddy) |
| 1299 | 217 { |
| 218 int null = 0; | |
| 1598 | 219 ConnContext *ctx; |
| 220 char *lowcasebuddy = g_strdup(buddy); | |
|
1495
6f5754f86fbb
Fix JID case issue with OTR, v2 (franky)
Mikael Berthe <mikael@lilotux.net>
parents:
1470
diff
changeset
|
221 |
|
6f5754f86fbb
Fix JID case issue with OTR, v2 (franky)
Mikael Berthe <mikael@lilotux.net>
parents:
1470
diff
changeset
|
222 mc_strtolower(lowcasebuddy); |
|
1577
e1a642472f4e
Use otr context where possible, saves one mc_strtolower() per received message
franky
parents:
1501
diff
changeset
|
223 ctx = otrl_context_find(userstate, lowcasebuddy, account, OTR_PROTOCOL_NAME, |
|
2076
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
224 // INSTAG XXX |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
225 OTRL_INSTAG_BEST, 1, &null, NULL, NULL); |
|
1495
6f5754f86fbb
Fix JID case issue with OTR, v2 (franky)
Mikael Berthe <mikael@lilotux.net>
parents:
1470
diff
changeset
|
226 g_free(lowcasebuddy); |
|
6f5754f86fbb
Fix JID case issue with OTR, v2 (franky)
Mikael Berthe <mikael@lilotux.net>
parents:
1470
diff
changeset
|
227 return ctx; |
| 1299 | 228 } |
| 229 | |
| 230 static void otr_message_disconnect(ConnContext *ctx) | |
| 231 { | |
| 232 if (ctx->msgstate == OTRL_MSGSTATE_ENCRYPTED) | |
| 233 cb_gone_insecure(NULL, ctx); | |
| 234 otrl_message_disconnect(userstate, &ops, NULL, ctx->accountname, | |
|
2076
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
235 // INSTAG XXX |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
236 ctx->protocol, ctx->username, OTRL_INSTAG_BEST); |
| 1299 | 237 } |
| 238 | |
| 1598 | 239 static void otr_startstop(const char *buddy, int start) |
| 1299 | 240 { |
| 1598 | 241 char *msg = NULL; |
| 1299 | 242 ConnContext *ctx = otr_get_context(buddy); |
| 243 | |
| 244 if (!userstate || !ctx) | |
| 245 return; | |
| 246 | |
| 247 if (start && ctx->msgstate == OTRL_MSGSTATE_ENCRYPTED) | |
| 248 otr_message_disconnect(ctx); | |
| 249 | |
| 250 if (start) { | |
| 251 OtrlPolicy policy = cb_policy(NULL, ctx); | |
|
1308
b17754d9221b
Show a warning for /otr start|stop, if policy == plain
franky@veqlargh.fs
parents:
1307
diff
changeset
|
252 if (policy == plain) { |
|
b17754d9221b
Show a warning for /otr start|stop, if policy == plain
franky@veqlargh.fs
parents:
1307
diff
changeset
|
253 scr_LogPrint(LPRINT_LOGNORM, "The OTR policy for this user is set to" |
|
b17754d9221b
Show a warning for /otr start|stop, if policy == plain
franky@veqlargh.fs
parents:
1307
diff
changeset
|
254 " plain. You have to change it first."); |
|
b17754d9221b
Show a warning for /otr start|stop, if policy == plain
franky@veqlargh.fs
parents:
1307
diff
changeset
|
255 return; |
|
b17754d9221b
Show a warning for /otr start|stop, if policy == plain
franky@veqlargh.fs
parents:
1307
diff
changeset
|
256 } |
| 1299 | 257 msg = otrl_proto_default_query_msg(ctx->accountname, policy); |
| 258 cb_inject_message(NULL, ctx->accountname, ctx->protocol, ctx->username, | |
| 259 msg); | |
| 260 free (msg); | |
| 261 } | |
| 262 else | |
| 263 otr_message_disconnect(ctx); | |
| 264 } | |
| 265 | |
| 266 void otr_establish(const char *buddy) | |
| 267 { | |
| 268 otr_startstop(buddy, 1); | |
| 269 } | |
| 270 | |
| 1598 | 271 void otr_disconnect(const char *buddy) |
| 1299 | 272 { |
| 273 otr_startstop(buddy, 0); | |
| 274 } | |
| 275 | |
| 1598 | 276 void otr_fingerprint(const char *buddy, const char *trust) |
| 1299 | 277 { |
| 278 char fpr[45], *tr; | |
| 279 ConnContext *ctx = otr_get_context(buddy); | |
| 280 if (!userstate || !ctx) | |
| 281 return; | |
| 282 | |
| 283 if (!ctx->active_fingerprint || !ctx->active_fingerprint->fingerprint) { | |
| 284 scr_LogPrint(LPRINT_LOGNORM, | |
| 285 "No active fingerprint - start OTR for this buddy first."); | |
| 286 return; | |
| 287 } | |
| 288 | |
| 289 otrl_privkey_hash_to_human(fpr, ctx->active_fingerprint->fingerprint); | |
| 290 if (trust) { | |
| 291 if (strcmp(fpr, trust) == 0) | |
| 292 otrl_context_set_trust(ctx->active_fingerprint, "trust"); | |
| 293 else | |
| 294 otrl_context_set_trust(ctx->active_fingerprint, NULL); | |
| 295 } | |
| 296 | |
| 297 tr = ctx->active_fingerprint->trust; | |
| 298 scr_LogPrint(LPRINT_LOGNORM, "%s [%44s]: %s", ctx->username, fpr, | |
| 299 tr && *tr ? "trusted" : "untrusted"); | |
| 300 cb_write_fingerprints(NULL); | |
| 301 } | |
| 302 | |
|
2076
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
303 static void cb_handle_smp_event(void *opdata, OtrlSMPEvent event, |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
304 ConnContext *context, unsigned short percent, |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
305 char *question) |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
306 { |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
307 const char *msg = NULL; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
308 char *freeme = NULL; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
309 switch (event) { |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
310 case OTRL_SMPEVENT_ASK_FOR_SECRET: |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
311 msg = freeme = g_strdup_printf("OTR: Socialist Millionaires' Protocol: " |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
312 "Received SMP Initiation.\n" |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
313 "Answer with /otr smpr %s $secret", |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
314 context->username); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
315 break; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
316 case OTRL_SMPEVENT_ASK_FOR_ANSWER: |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
317 msg = freeme = g_strdup_printf("OTR: Socialist Millionaires' Protocol: " |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
318 "Received SMP Initiation.\n" |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
319 "Answer with /otr smpr %s $secret\n" |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
320 "Question: %s", context->username, |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
321 question); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
322 break; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
323 case OTRL_SMPEVENT_CHEATED: |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
324 msg = "OTR: Socialist Millionaires' Protocol: Correspondent cancelled negotiation!"; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
325 otrl_message_abort_smp(userstate, &ops, opdata, context); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
326 break; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
327 case OTRL_SMPEVENT_IN_PROGRESS: |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
328 scr_log_print(LPRINT_DEBUG, "OTR: Socialist Millionaires' Protocol: " |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
329 "Negotiation is in pogress..."); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
330 break; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
331 case OTRL_SMPEVENT_SUCCESS: |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
332 msg = "OTR: Socialist Millionaires' Protocol: Success!"; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
333 break; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
334 case OTRL_SMPEVENT_FAILURE: |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
335 msg = "OTR: Socialist Millionaires' Protocol: Failure."; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
336 break; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
337 case OTRL_SMPEVENT_ABORT: |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
338 msg = "OTR: Socialist Millionaires' Protocol: Aborted."; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
339 break; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
340 case OTRL_SMPEVENT_ERROR: |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
341 msg = "OTR: Socialist Millionaires' Protocol: Error occured, aborting negotiations!"; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
342 otrl_message_abort_smp(userstate, &ops, opdata, context); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
343 break; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
344 default: |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
345 break; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
346 } |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
347 |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
348 if (msg) { |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
349 scr_WriteIncomingMessage(context->username, msg, 0, HBB_PREFIX_INFO, 0); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
350 g_free(freeme); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
351 } |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
352 } |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
353 |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
354 static void cb_handle_msg_event(void *opdata, OtrlMessageEvent event, |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
355 ConnContext *context, const char *message, |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
356 gcry_error_t err) |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
357 { |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
358 const char *msg = NULL; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
359 char *freeme = NULL; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
360 switch (event) { |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
361 case OTRL_MSGEVENT_ENCRYPTION_REQUIRED: |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
362 msg = "OTR: Policy requires encryption on message!"; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
363 break; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
364 case OTRL_MSGEVENT_ENCRYPTION_ERROR: |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
365 msg = "OTR: Encryption error! Message not sent."; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
366 break; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
367 case OTRL_MSGEVENT_CONNECTION_ENDED: |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
368 msg = "OTR: Connection closed by remote end, message lost. " |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
369 "Close or refresh connection."; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
370 break; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
371 case OTRL_MSGEVENT_SETUP_ERROR: |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
372 // FIXME |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
373 msg = freeme = g_strdup_printf("OTR: Error setting up private conversation: %u", |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
374 err); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
375 break; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
376 case OTRL_MSGEVENT_MSG_REFLECTED: |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
377 msg = "OTR: Received own OTR message!"; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
378 break; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
379 case OTRL_MSGEVENT_MSG_RESENT: |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
380 msg = "OTR: Previous message was resent."; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
381 break; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
382 case OTRL_MSGEVENT_RCVDMSG_NOT_IN_PRIVATE: |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
383 msg = "OTR: Received encrypted message, but connection is not established " \ |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
384 "yet! Message lost."; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
385 break; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
386 case OTRL_MSGEVENT_RCVDMSG_UNREADABLE: |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
387 msg = "OTR: Unable to read incoming message!"; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
388 break; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
389 case OTRL_MSGEVENT_RCVDMSG_MALFORMED: |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
390 msg = "OTR: Malformed incoming message!"; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
391 break; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
392 case OTRL_MSGEVENT_LOG_HEARTBEAT_RCVD: |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
393 scr_log_print(LPRINT_DEBUG, "OTR: Received heartbeat."); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
394 break; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
395 case OTRL_MSGEVENT_LOG_HEARTBEAT_SENT: |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
396 scr_log_print(LPRINT_DEBUG, "OTR: Sent heartbeat."); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
397 break; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
398 case OTRL_MSGEVENT_RCVDMSG_GENERAL_ERR: |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
399 msg = freeme = g_strdup_printf("OTR: Received general otr error: %s", |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
400 message); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
401 break; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
402 case OTRL_MSGEVENT_RCVDMSG_UNENCRYPTED: |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
403 msg = freeme = g_strdup_printf("OTR: Received unencrypted message: %s", |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
404 message); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
405 break; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
406 case OTRL_MSGEVENT_RCVDMSG_UNRECOGNIZED: |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
407 msg = "OTR: Unable to determine type of received OTR message!"; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
408 break; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
409 case OTRL_MSGEVENT_RCVDMSG_FOR_OTHER_INSTANCE: |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
410 // XXX |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
411 scr_log_print(LPRINT_DEBUG, "OTR: Received message for other instance."); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
412 break; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
413 default: |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
414 break; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
415 } |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
416 |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
417 if (msg) { |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
418 scr_WriteIncomingMessage(context->username, msg, 0, HBB_PREFIX_INFO, 0); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
419 g_free(freeme); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
420 } |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
421 } |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
422 |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
423 |
| 2218 | 424 /* otr_receive |
| 425 * Returns whether a otr_message was received. | |
| 426 * Sets *otr_data to NULL, when it was an internal otr message. | |
| 1299 | 427 */ |
| 1598 | 428 int otr_receive(char **otr_data, const char *buddy, int *free_msg) |
| 1299 | 429 { |
| 430 int ignore_message; | |
| 431 char *newmessage = NULL; | |
| 432 OtrlTLV *tlvs = NULL; | |
| 433 OtrlTLV *tlv = NULL; | |
| 1598 | 434 ConnContext *ctx; |
| 1299 | 435 |
|
1577
e1a642472f4e
Use otr context where possible, saves one mc_strtolower() per received message
franky
parents:
1501
diff
changeset
|
436 ctx = otr_get_context(buddy); |
| 1299 | 437 *free_msg = 0; |
| 2329 | 438 |
| 439 if (!ctx) | |
| 440 return 0; | |
| 441 | |
|
1577
e1a642472f4e
Use otr context where possible, saves one mc_strtolower() per received message
franky
parents:
1501
diff
changeset
|
442 ignore_message = otrl_message_receiving(userstate, &ops, NULL, |
|
e1a642472f4e
Use otr context where possible, saves one mc_strtolower() per received message
franky
parents:
1501
diff
changeset
|
443 ctx->accountname, ctx->protocol, |
|
e1a642472f4e
Use otr context where possible, saves one mc_strtolower() per received message
franky
parents:
1501
diff
changeset
|
444 ctx->username, *otr_data, |
| 2329 | 445 &newmessage, &tlvs, NULL, NULL, NULL); |
| 1299 | 446 |
| 447 tlv = otrl_tlv_find(tlvs, OTRL_TLV_DISCONNECTED); | |
| 448 if (tlv) { | |
| 449 /* Notify the user that the other side disconnected. */ | |
| 2329 | 450 cb_gone_insecure(NULL, ctx); |
| 451 otr_disconnect(ctx->username); | |
| 1299 | 452 } |
| 453 | |
| 2329 | 454 otrl_tlv_free(tlvs); |
| 1299 | 455 |
| 456 if (ignore_message) | |
| 457 *otr_data = NULL; | |
| 458 | |
| 459 if (!ignore_message && newmessage) { | |
| 460 *free_msg = 1; | |
|
1470
a8b924b5474c
The OTR protocol expects (X)HTML messsages
Mikael Berthe <mikael@lilotux.net>
parents:
1420
diff
changeset
|
461 *otr_data = html_strip(newmessage); |
| 1299 | 462 otrl_message_free(newmessage); |
| 463 if (ctx->msgstate == OTRL_MSGSTATE_ENCRYPTED) | |
| 464 return 1; | |
| 465 } | |
| 466 return 0; | |
| 467 } | |
| 468 | |
| 2218 | 469 /* otr_send |
| 470 * Returns a newly allocated string, or NULL if no message should be sent. | |
| 471 * Sets *encryption_status to 1 if "the otr context is encrypted or otr tries | |
| 472 * to establish a session before the message is sent". | |
| 473 * (If the session isn't established, but the user choose "otr required", then | |
| 474 * the string just contains the "initiate session" message, not the message of | |
| 475 * the user.) | |
| 476 */ | |
|
2213
0c78d31c753d
Change otr_send() prototype
Mikael Berthe <mikael@lilotux.net>
parents:
2076
diff
changeset
|
477 char *otr_send(const char *msg, const char *buddy, int *encryption_status) |
| 1299 | 478 { |
| 479 gcry_error_t err; | |
| 480 char *newmessage = NULL; | |
|
2251
f3bd1564fa70
Stop html-escaping otr messages and do only strip known tags.
franky
parents:
2219
diff
changeset
|
481 char *rmsg; |
| 1598 | 482 ConnContext *ctx = otr_get_context(buddy); |
| 1299 | 483 |
|
2219
3958793d0d03
otr_send: Fix my previous fix and abort if the initial message is empty
Mikael Berthe <mikael@lilotux.net>
parents:
2218
diff
changeset
|
484 if (!encryption_status) |
|
3958793d0d03
otr_send: Fix my previous fix and abort if the initial message is empty
Mikael Berthe <mikael@lilotux.net>
parents:
2218
diff
changeset
|
485 return NULL; |
|
3958793d0d03
otr_send: Fix my previous fix and abort if the initial message is empty
Mikael Berthe <mikael@lilotux.net>
parents:
2218
diff
changeset
|
486 |
|
2213
0c78d31c753d
Change otr_send() prototype
Mikael Berthe <mikael@lilotux.net>
parents:
2076
diff
changeset
|
487 *encryption_status = 0; |
|
0c78d31c753d
Change otr_send() prototype
Mikael Berthe <mikael@lilotux.net>
parents:
2076
diff
changeset
|
488 |
|
2219
3958793d0d03
otr_send: Fix my previous fix and abort if the initial message is empty
Mikael Berthe <mikael@lilotux.net>
parents:
2218
diff
changeset
|
489 if (!buddy || !msg || !msg[0]) |
|
2213
0c78d31c753d
Change otr_send() prototype
Mikael Berthe <mikael@lilotux.net>
parents:
2076
diff
changeset
|
490 return NULL; |
|
0c78d31c753d
Change otr_send() prototype
Mikael Berthe <mikael@lilotux.net>
parents:
2076
diff
changeset
|
491 |
|
1580
c8be6c2243d6
Only html escape messages when otr session is established
franky
parents:
1577
diff
changeset
|
492 if (ctx->msgstate == OTRL_MSGSTATE_PLAINTEXT) |
|
c8be6c2243d6
Only html escape messages when otr session is established
franky
parents:
1577
diff
changeset
|
493 err = otrl_message_sending(userstate, &ops, NULL, ctx->accountname, |
|
2076
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
494 // INSTAG XXX |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
495 ctx->protocol, ctx->username, OTRL_INSTAG_BEST, |
|
2213
0c78d31c753d
Change otr_send() prototype
Mikael Berthe <mikael@lilotux.net>
parents:
2076
diff
changeset
|
496 msg, NULL, &newmessage, OTRL_FRAGMENT_SEND_SKIP, |
|
2076
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
497 NULL, NULL, NULL); |
|
1580
c8be6c2243d6
Only html escape messages when otr session is established
franky
parents:
1577
diff
changeset
|
498 else { |
|
c8be6c2243d6
Only html escape messages when otr session is established
franky
parents:
1577
diff
changeset
|
499 err = otrl_message_sending(userstate, &ops, NULL, ctx->accountname, |
|
2076
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
500 // INSTAG XXX |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
501 ctx->protocol, ctx->username, OTRL_INSTAG_BEST, |
|
2251
f3bd1564fa70
Stop html-escaping otr messages and do only strip known tags.
franky
parents:
2219
diff
changeset
|
502 msg, NULL, &newmessage, OTRL_FRAGMENT_SEND_SKIP, |
|
2076
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
503 NULL, NULL, NULL); |
|
1580
c8be6c2243d6
Only html escape messages when otr session is established
franky
parents:
1577
diff
changeset
|
504 } |
| 1299 | 505 |
|
2215
ba1a770dd632
Fix changeset 0c78d31c753d
Mikael Berthe <mikael@lilotux.net>
parents:
2213
diff
changeset
|
506 if (err) |
|
2213
0c78d31c753d
Change otr_send() prototype
Mikael Berthe <mikael@lilotux.net>
parents:
2076
diff
changeset
|
507 return NULL; /* something went wrong, don't send the plain-message! */ |
|
0c78d31c753d
Change otr_send() prototype
Mikael Berthe <mikael@lilotux.net>
parents:
2076
diff
changeset
|
508 |
|
0c78d31c753d
Change otr_send() prototype
Mikael Berthe <mikael@lilotux.net>
parents:
2076
diff
changeset
|
509 if (cb_policy(NULL, ctx) & OTRL_POLICY_REQUIRE_ENCRYPTION || |
|
0c78d31c753d
Change otr_send() prototype
Mikael Berthe <mikael@lilotux.net>
parents:
2076
diff
changeset
|
510 ctx->msgstate == OTRL_MSGSTATE_ENCRYPTED) |
|
0c78d31c753d
Change otr_send() prototype
Mikael Berthe <mikael@lilotux.net>
parents:
2076
diff
changeset
|
511 *encryption_status = 1; |
| 1299 | 512 |
|
2215
ba1a770dd632
Fix changeset 0c78d31c753d
Mikael Berthe <mikael@lilotux.net>
parents:
2213
diff
changeset
|
513 if (!newmessage) { |
|
ba1a770dd632
Fix changeset 0c78d31c753d
Mikael Berthe <mikael@lilotux.net>
parents:
2213
diff
changeset
|
514 if (*encryption_status == 1) |
| 2218 | 515 return NULL; /* This message should have been encrypted */ |
|
2215
ba1a770dd632
Fix changeset 0c78d31c753d
Mikael Berthe <mikael@lilotux.net>
parents:
2213
diff
changeset
|
516 |
| 2218 | 517 /* If not, the encryption was not required - send the original message */ |
|
2215
ba1a770dd632
Fix changeset 0c78d31c753d
Mikael Berthe <mikael@lilotux.net>
parents:
2213
diff
changeset
|
518 return g_strdup(msg); |
|
ba1a770dd632
Fix changeset 0c78d31c753d
Mikael Berthe <mikael@lilotux.net>
parents:
2213
diff
changeset
|
519 } |
|
ba1a770dd632
Fix changeset 0c78d31c753d
Mikael Berthe <mikael@lilotux.net>
parents:
2213
diff
changeset
|
520 |
|
2213
0c78d31c753d
Change otr_send() prototype
Mikael Berthe <mikael@lilotux.net>
parents:
2076
diff
changeset
|
521 /* Check the new message is not empty */ |
|
2219
3958793d0d03
otr_send: Fix my previous fix and abort if the initial message is empty
Mikael Berthe <mikael@lilotux.net>
parents:
2218
diff
changeset
|
522 if (newmessage[0]) { |
|
2213
0c78d31c753d
Change otr_send() prototype
Mikael Berthe <mikael@lilotux.net>
parents:
2076
diff
changeset
|
523 rmsg = g_strdup(newmessage); |
|
0c78d31c753d
Change otr_send() prototype
Mikael Berthe <mikael@lilotux.net>
parents:
2076
diff
changeset
|
524 } else { |
|
0c78d31c753d
Change otr_send() prototype
Mikael Berthe <mikael@lilotux.net>
parents:
2076
diff
changeset
|
525 rmsg = NULL; |
|
0c78d31c753d
Change otr_send() prototype
Mikael Berthe <mikael@lilotux.net>
parents:
2076
diff
changeset
|
526 *encryption_status = 0; |
| 1299 | 527 } |
|
2213
0c78d31c753d
Change otr_send() prototype
Mikael Berthe <mikael@lilotux.net>
parents:
2076
diff
changeset
|
528 |
|
0c78d31c753d
Change otr_send() prototype
Mikael Berthe <mikael@lilotux.net>
parents:
2076
diff
changeset
|
529 otrl_message_free(newmessage); |
|
0c78d31c753d
Change otr_send() prototype
Mikael Berthe <mikael@lilotux.net>
parents:
2076
diff
changeset
|
530 return rmsg; |
| 1299 | 531 } |
| 532 | |
| 533 /* Prints OTR connection state */ | |
| 1598 | 534 void otr_print_info(const char *buddy) |
| 1299 | 535 { |
| 536 const char *state, *auth, *policy; | |
| 1598 | 537 ConnContext *ctx = otr_get_context(buddy); |
|
1577
e1a642472f4e
Use otr context where possible, saves one mc_strtolower() per received message
franky
parents:
1501
diff
changeset
|
538 OtrlPolicy p = cb_policy(ctx->app_data, ctx); |
| 1299 | 539 |
| 540 if (!userstate || !ctx) | |
| 541 return; | |
| 542 | |
| 543 switch (ctx->msgstate) { | |
| 544 case OTRL_MSGSTATE_PLAINTEXT: state = "plaintext"; break; | |
| 545 case OTRL_MSGSTATE_ENCRYPTED: | |
| 546 switch (ctx->protocol_version) { | |
| 547 case 1: state = "encrypted V1"; break; | |
| 548 case 2: state = "encrypted V2"; break; | |
| 549 default:state = "encrypted"; | |
| 550 }; | |
| 551 break; | |
| 552 case OTRL_MSGSTATE_FINISHED: state = "finished"; break; | |
| 553 default: state = "unknown state"; | |
| 554 } | |
| 555 switch (ctx->auth.authstate) { | |
| 556 case OTRL_AUTHSTATE_NONE: | |
| 557 switch (ctx->otr_offer) { | |
| 558 case OFFER_NOT: auth = "no offer sent"; break; | |
| 559 case OFFER_SENT: auth = "offer sent"; break; | |
| 560 case OFFER_ACCEPTED: auth = "offer accepted"; break; | |
| 561 case OFFER_REJECTED: auth = "offer rejected"; break; | |
| 562 default: auth = "unknown auth"; | |
| 563 } | |
| 564 break; | |
| 565 case OTRL_AUTHSTATE_AWAITING_DHKEY: | |
| 566 auth = "awaiting D-H key"; break; | |
| 567 case OTRL_AUTHSTATE_AWAITING_REVEALSIG: | |
| 568 auth = "awaiting reveal signature"; break; | |
| 569 case OTRL_AUTHSTATE_AWAITING_SIG: | |
| 570 auth = "awaiting signature"; break; | |
| 571 case OTRL_AUTHSTATE_V1_SETUP: | |
| 572 auth = "v1 setup"; break; | |
| 573 default: | |
| 574 auth = "unknown auth"; | |
| 575 } | |
| 576 if (p == OTRL_POLICY_NEVER) | |
| 577 policy = "plain"; | |
|
1301
37b41ed9ed35
Fixed compiler warnings
Frank Zschockelt <mcabber_otr[at]freakysoft.de>
parents:
1299
diff
changeset
|
578 else if (p == (OTRL_POLICY_OPPORTUNISTIC & ~OTRL_POLICY_ALLOW_V1)) |
| 1299 | 579 policy = "opportunistic"; |
|
1301
37b41ed9ed35
Fixed compiler warnings
Frank Zschockelt <mcabber_otr[at]freakysoft.de>
parents:
1299
diff
changeset
|
580 else if (p == (OTRL_POLICY_MANUAL & ~OTRL_POLICY_ALLOW_V1)) |
| 1299 | 581 policy = "manual"; |
| 582 else if (p == (OTRL_POLICY_ALWAYS & ~OTRL_POLICY_ALLOW_V1)) | |
| 583 policy = "always"; | |
| 584 else | |
| 585 policy = "unknown"; | |
| 586 | |
| 587 scr_LogPrint(LPRINT_LOGNORM, "%s: %s (%s) [%s]", | |
| 588 ctx->username, state, auth, policy); | |
| 589 } | |
| 590 | |
| 1598 | 591 static ConnContext *otr_context_encrypted(const char *buddy) |
| 1299 | 592 { |
| 1598 | 593 ConnContext *ctx = otr_get_context(buddy); |
| 1299 | 594 |
| 595 if (!userstate || !ctx || ctx->msgstate != OTRL_MSGSTATE_ENCRYPTED){ | |
| 596 scr_LogPrint(LPRINT_LOGNORM, | |
| 597 "You have to start an OTR channel with %s before you can " | |
| 598 "use SMP.", buddy); | |
| 599 return NULL; | |
| 600 } | |
| 601 | |
| 602 return ctx; | |
| 603 } | |
| 604 | |
| 1598 | 605 void otr_smp_query(const char *buddy, const char *secret) |
| 1299 | 606 { |
| 1598 | 607 ConnContext *ctx = otr_context_encrypted(buddy); |
| 1299 | 608 |
| 609 if (!secret) { | |
| 610 scr_LogPrint(LPRINT_LOGNORM, | |
| 611 "Using SMP without a secret isn't a good idea."); | |
| 612 return; | |
| 613 } | |
| 614 | |
| 615 if (ctx) { | |
|
1301
37b41ed9ed35
Fixed compiler warnings
Frank Zschockelt <mcabber_otr[at]freakysoft.de>
parents:
1299
diff
changeset
|
616 otrl_message_initiate_smp(userstate, &ops, NULL, ctx, |
|
37b41ed9ed35
Fixed compiler warnings
Frank Zschockelt <mcabber_otr[at]freakysoft.de>
parents:
1299
diff
changeset
|
617 (const unsigned char *)secret, |
| 1299 | 618 strlen(secret)); |
| 619 scr_WriteIncomingMessage(ctx->username, | |
| 620 "OTR: Socialist Millionaires' Protocol " | |
|
1301
37b41ed9ed35
Fixed compiler warnings
Frank Zschockelt <mcabber_otr[at]freakysoft.de>
parents:
1299
diff
changeset
|
621 "initiated.", 0, HBB_PREFIX_INFO, 0); |
| 1299 | 622 } |
| 623 } | |
| 624 | |
| 1598 | 625 void otr_smp_respond(const char *buddy, const char *secret) |
| 1299 | 626 { |
| 1598 | 627 ConnContext *ctx = otr_context_encrypted(buddy); |
| 1299 | 628 |
| 629 if (!secret) { | |
| 630 scr_LogPrint(LPRINT_LOGNORM, | |
| 631 "Using SMP without a secret isn't a good idea."); | |
| 632 return; | |
| 633 } | |
| 634 | |
| 635 if (ctx) { | |
| 636 if (!ctx->smstate->secret) { | |
| 637 scr_LogPrint(LPRINT_LOGNORM, | |
|
1584
18069a9dca4a
Fix typo in OTR messages (Anne)
Mikael Berthe <mikael@lilotux.net>
parents:
1580
diff
changeset
|
638 "Don't call smpr until you have received an SMP " |
| 1299 | 639 "Initiation!"); |
| 640 return; | |
| 641 } | |
|
1301
37b41ed9ed35
Fixed compiler warnings
Frank Zschockelt <mcabber_otr[at]freakysoft.de>
parents:
1299
diff
changeset
|
642 otrl_message_respond_smp(userstate, &ops, NULL, ctx, |
|
37b41ed9ed35
Fixed compiler warnings
Frank Zschockelt <mcabber_otr[at]freakysoft.de>
parents:
1299
diff
changeset
|
643 (const unsigned char *)secret, |
| 1299 | 644 strlen(secret)); |
| 645 scr_WriteIncomingMessage(ctx->username, | |
| 646 "OTR: Socialist Millionaires' Protocol: " | |
|
1301
37b41ed9ed35
Fixed compiler warnings
Frank Zschockelt <mcabber_otr[at]freakysoft.de>
parents:
1299
diff
changeset
|
647 "response sent", 0, HBB_PREFIX_INFO, 0); |
| 1299 | 648 } |
| 649 } | |
| 650 | |
| 1598 | 651 void otr_smp_abort(const char *buddy) |
| 1299 | 652 { |
| 1598 | 653 ConnContext *ctx = otr_context_encrypted(buddy); |
| 1299 | 654 |
| 655 if (ctx) { | |
| 656 otrl_message_abort_smp(userstate, &ops, NULL, ctx); | |
| 657 scr_WriteIncomingMessage(ctx->username, | |
| 658 "OTR: Socialist Millionaires' Protocol aborted.", | |
|
1301
37b41ed9ed35
Fixed compiler warnings
Frank Zschockelt <mcabber_otr[at]freakysoft.de>
parents:
1299
diff
changeset
|
659 0, HBB_PREFIX_INFO, 0); |
| 1299 | 660 } |
| 661 } | |
| 662 | |
| 663 void otr_key(void) | |
| 664 { | |
| 1598 | 665 OtrlPrivKey *key; |
| 1299 | 666 char readable[45] = ""; |
| 667 | |
| 668 if(!userstate) | |
| 669 return; | |
| 670 for (key = userstate->privkey_root; key; key = key->next) { | |
| 671 otrl_privkey_fingerprint(userstate, readable, key->accountname, | |
| 672 key->protocol); | |
| 673 scr_LogPrint(LPRINT_LOGNORM, "%s: %s", key->accountname, readable); | |
| 674 } | |
| 675 } | |
| 676 | |
| 677 /* Return the OTR policy for the given context. */ | |
| 678 static OtrlPolicy cb_policy(void *opdata, ConnContext *ctx) | |
| 679 { | |
| 680 enum otr_policy p = settings_otr_getpolicy(NULL); | |
| 681 | |
| 682 if(ctx) | |
| 683 if(settings_otr_getpolicy(ctx->username)) | |
| 684 p = settings_otr_getpolicy(ctx->username); | |
| 685 | |
| 686 switch (p) { | |
| 687 case plain: | |
| 688 return OTRL_POLICY_NEVER; | |
| 689 case opportunistic: | |
| 690 return OTRL_POLICY_OPPORTUNISTIC & ~OTRL_POLICY_ALLOW_V1; | |
| 691 case manual: | |
| 692 return OTRL_POLICY_MANUAL & ~OTRL_POLICY_ALLOW_V1; | |
| 693 case always: | |
| 694 return OTRL_POLICY_ALWAYS & ~OTRL_POLICY_ALLOW_V1; | |
| 695 } | |
|
1301
37b41ed9ed35
Fixed compiler warnings
Frank Zschockelt <mcabber_otr[at]freakysoft.de>
parents:
1299
diff
changeset
|
696 |
|
37b41ed9ed35
Fixed compiler warnings
Frank Zschockelt <mcabber_otr[at]freakysoft.de>
parents:
1299
diff
changeset
|
697 return OTRL_POLICY_MANUAL & ~OTRL_POLICY_ALLOW_V1; |
| 1299 | 698 } |
| 699 | |
| 700 /* Create a private key for the given accountname/protocol if | |
| 701 * desired. */ | |
| 702 static void cb_create_privkey(void *opdata, const char *accountname, | |
| 703 const char *protocol) | |
| 704 { | |
| 705 gcry_error_t e; | |
| 1598 | 706 char *root; |
| 1299 | 707 |
| 708 scr_LogPrint(LPRINT_LOGNORM, | |
| 709 "Generating new OTR key for %s. This may take a while...", | |
| 710 accountname); | |
|
1780
e4378fbab5d7
Major API cleanup - bump API to 4
Mikael Berthe <mikael@lilotux.net>
parents:
1729
diff
changeset
|
711 scr_do_update(); |
| 1299 | 712 |
| 713 e = otrl_privkey_generate(userstate, keyfile, accountname, protocol); | |
| 714 | |
| 1320 | 715 if (e) { |
| 716 root = otr_get_dir(); | |
| 717 scr_LogPrint(LPRINT_LOGNORM, "OTR key generation failed! Please mkdir " | |
| 718 "%s if you want to use otr encryption.", root); | |
| 719 g_free(root); | |
| 720 } | |
| 1299 | 721 else |
| 722 scr_LogPrint(LPRINT_LOGNORM, "OTR key generated."); | |
| 723 } | |
| 724 | |
| 725 /* Report whether you think the given user is online. Return 1 if | |
| 726 * you think he is, 0 if you think he isn't, -1 if you're not sure. | |
| 727 * If you return 1, messages such as heartbeats or other | |
| 728 * notifications may be sent to the user, which could result in "not | |
| 729 * logged in" errors if you're wrong. */ | |
| 730 static int cb_is_logged_in(void *opdata, const char *accountname, | |
| 731 const char *protocol, const char *recipient) | |
| 732 { | |
| 1346 | 733 int ret = (roster_getstatus(recipient, NULL) != offline); |
| 1299 | 734 return ret; |
| 735 } | |
| 736 | |
| 737 /* Send the given IM to the given recipient from the given | |
| 738 * accountname/protocol. */ | |
| 739 static void cb_inject_message(void *opdata, const char *accountname, | |
| 740 const char *protocol, const char *recipient, | |
| 741 const char *message) | |
| 742 { | |
| 1343 | 743 if (roster_gettype(recipient) == ROSTER_TYPE_USER) |
| 2263 | 744 xmpp_send_msg(recipient, message, ROSTER_TYPE_USER, NULL, TRUE, NULL, |
| 1602 | 745 LM_MESSAGE_SUB_TYPE_NOT_SET, NULL); |
| 1299 | 746 } |
| 747 | |
| 748 /* When the list of ConnContexts changes (including a change in | |
| 749 * state), this is called so the UI can be updated. */ | |
| 750 static void cb_update_context_list(void *opdata) | |
| 751 { | |
| 752 /*maybe introduce new status characters for mcabber, | |
| 753 * then use this function (?!)*/ | |
| 754 } | |
| 755 | |
| 756 /* A new fingerprint for the given user has been received. */ | |
| 757 static void cb_new_fingerprint(void *opdata, OtrlUserState us, | |
| 758 const char *accountname, const char *protocol, | |
| 759 const char *username, | |
| 760 unsigned char fingerprint[20]) | |
| 761 { | |
| 762 char *sbuf = NULL; | |
| 763 char readable[45]; | |
| 764 | |
| 765 otrl_privkey_hash_to_human(readable, fingerprint); | |
| 766 sbuf = g_strdup_printf("OTR: new fingerprint: %s", readable); | |
|
1301
37b41ed9ed35
Fixed compiler warnings
Frank Zschockelt <mcabber_otr[at]freakysoft.de>
parents:
1299
diff
changeset
|
767 scr_WriteIncomingMessage(username, sbuf, 0, HBB_PREFIX_INFO, 0); |
| 1299 | 768 g_free(sbuf); |
| 769 } | |
| 770 | |
| 771 /* The list of known fingerprints has changed. Write them to disk. */ | |
| 772 static void cb_write_fingerprints(void *opdata) | |
| 773 { | |
| 774 otrl_privkey_write_fingerprints(userstate, fprfile); | |
| 775 } | |
| 776 | |
| 777 /* A ConnContext has entered a secure state. */ | |
| 778 static void cb_gone_secure(void *opdata, ConnContext *context) | |
| 779 { | |
| 780 scr_WriteIncomingMessage(context->username, "OTR: channel established", 0, | |
|
1301
37b41ed9ed35
Fixed compiler warnings
Frank Zschockelt <mcabber_otr[at]freakysoft.de>
parents:
1299
diff
changeset
|
781 HBB_PREFIX_INFO, 0); |
| 1299 | 782 } |
| 783 | |
| 784 /* A ConnContext has left a secure state. */ | |
| 785 static void cb_gone_insecure(void *opdata, ConnContext *context) | |
| 786 { | |
| 787 scr_WriteIncomingMessage(context->username, "OTR: channel closed", 0, | |
|
1301
37b41ed9ed35
Fixed compiler warnings
Frank Zschockelt <mcabber_otr[at]freakysoft.de>
parents:
1299
diff
changeset
|
788 HBB_PREFIX_INFO, 0); |
| 1299 | 789 } |
| 790 | |
| 791 /* We have completed an authentication, using the D-H keys we | |
| 792 * already knew. is_reply indicates whether we initiated the AKE. */ | |
| 793 static void cb_still_secure(void *opdata, ConnContext *context, int is_reply) | |
| 794 { | |
| 795 scr_WriteIncomingMessage(context->username, "OTR: channel reestablished", 0, | |
|
1301
37b41ed9ed35
Fixed compiler warnings
Frank Zschockelt <mcabber_otr[at]freakysoft.de>
parents:
1299
diff
changeset
|
796 HBB_PREFIX_INFO, 0); |
| 1299 | 797 } |
| 798 | |
|
2076
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
799 /* Generate unique instance tag for account. */ |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
800 static void cb_create_instag(void *opdata, const char *accountname, |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
801 const char *protocol) |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
802 { |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
803 if (otrl_instag_generate(userstate, tagfile, accountname, protocol)) { |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
804 scr_LogPrint(LPRINT_LOGNORM, "OTR instance tag generation failed!"); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
805 } |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
806 } |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
807 |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
808 static gboolean otr_timer_cb(gpointer userdata) |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
809 { |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
810 otrl_message_poll(userstate, &ops, userdata); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
811 return TRUE; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
812 } |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
813 |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
814 static void cb_timer_control(void *opdata, unsigned int interval) |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
815 { |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
816 if (otr_timer_source > 0) { |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
817 g_source_remove(otr_timer_source); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
818 otr_timer_source = 0; |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
819 } |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
820 if (interval > 0) |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
821 otr_timer_source = g_timeout_add_seconds(interval, otr_timer_cb, opdata); |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
822 } |
|
9fb1ccf291cc
Switch to libotr v4 API
Myhailo Danylenko <isbear@ukrpost.net>
parents:
1811
diff
changeset
|
823 |
| 1299 | 824 /* Find the maximum message size supported by this protocol. */ |
| 825 static int cb_max_message_size(void *opdata, ConnContext *context) | |
| 826 { | |
| 827 return 8192; | |
| 828 } | |
| 829 | |
|
1347
07816313073b
Add an option 'otr' to enable OTR support in the configuration file
Mikael Berthe <mikael@lilotux.net>
parents:
1346
diff
changeset
|
830 int otr_enabled(void) |
|
07816313073b
Add an option 'otr' to enable OTR support in the configuration file
Mikael Berthe <mikael@lilotux.net>
parents:
1346
diff
changeset
|
831 { |
|
07816313073b
Add an option 'otr' to enable OTR support in the configuration file
Mikael Berthe <mikael@lilotux.net>
parents:
1346
diff
changeset
|
832 return otr_is_enabled; |
|
07816313073b
Add an option 'otr' to enable OTR support in the configuration file
Mikael Berthe <mikael@lilotux.net>
parents:
1346
diff
changeset
|
833 } |
|
07816313073b
Add an option 'otr' to enable OTR support in the configuration file
Mikael Berthe <mikael@lilotux.net>
parents:
1346
diff
changeset
|
834 |
|
07816313073b
Add an option 'otr' to enable OTR support in the configuration file
Mikael Berthe <mikael@lilotux.net>
parents:
1346
diff
changeset
|
835 #else /* !HAVE_LIBOTR */ |
|
07816313073b
Add an option 'otr' to enable OTR support in the configuration file
Mikael Berthe <mikael@lilotux.net>
parents:
1346
diff
changeset
|
836 |
|
07816313073b
Add an option 'otr' to enable OTR support in the configuration file
Mikael Berthe <mikael@lilotux.net>
parents:
1346
diff
changeset
|
837 int otr_enabled(void) |
|
07816313073b
Add an option 'otr' to enable OTR support in the configuration file
Mikael Berthe <mikael@lilotux.net>
parents:
1346
diff
changeset
|
838 { |
|
07816313073b
Add an option 'otr' to enable OTR support in the configuration file
Mikael Berthe <mikael@lilotux.net>
parents:
1346
diff
changeset
|
839 return FALSE; |
|
07816313073b
Add an option 'otr' to enable OTR support in the configuration file
Mikael Berthe <mikael@lilotux.net>
parents:
1346
diff
changeset
|
840 } |
|
07816313073b
Add an option 'otr' to enable OTR support in the configuration file
Mikael Berthe <mikael@lilotux.net>
parents:
1346
diff
changeset
|
841 |
| 1299 | 842 #endif /* HAVE_LIBOTR */ |
| 1599 | 843 |
| 1811 | 844 /* vim: set et cindent cinoptions=>2\:2(0 ts=2 sw=2: For Vim users... */ |