1: #include "global.h"
2: #include "rtlm.h"
3: #include "utils.h"
4: #include "mqttd.h"
5: #include "mqttd_calls.h"
6:
7:
8: static inline struct tagSession *
9: initSession(int sock, ait_val_t * __restrict v)
10: {
11: struct tagSession *sess = NULL;
12: const char *str;
13:
14: ioTRACE(5);
15:
16: if (!v)
17: return NULL;
18:
19: sess = malloc(sizeof(struct tagSession));
20: if (!sess) {
21: ioSYSERR(0);
22: return NULL;
23: } else
24: memset(sess, 0, sizeof(struct tagSession));
25:
26: SLIST_INIT(&sess->sess_subscr);
27:
28: str = cfg_getAttribute(&cfg, "mqttd", "retry");
29: if (!str)
30: sess->sess_retry = DEFAULT_RETRY;
31: else
32: sess->sess_retry = strtol(str, NULL, 0);
33:
34: sess->sess_buf = mqtt_msgAlloc(USHRT_MAX);
35: if (!sess->sess_buf) {
36: ioLIBERR(mqtt);
37: free(sess);
38: return NULL;
39: }
40:
41: /* init server actor */
42: sess->sess_srv = mqtt_srv_Init(sock, sess->sess_buf, sess->sess_ka);
43: if (!sess->sess_srv) {
44: ioDEBUG(3, "Error:: in srv_Init #%d - %s", mqtt_GetErrno(), mqtt_GetError());
45: mqtt_msgFree(&sess->sess_buf, 42);
46: free(sess);
47: return NULL;
48: } else {
49: mqtt_srv_setCmd(sess->sess_srv, MQTT_TYPE_CONNECT, cmdCONNECT);
50: mqtt_srv_setCmd(sess->sess_srv, MQTT_TYPE_PUBLISH, cmdPUBLISH);
51: mqtt_srv_setCmd(sess->sess_srv, MQTT_TYPE_PUBREL, cmdPUBREL);
52: mqtt_srv_setCmd(sess->sess_srv, MQTT_TYPE_SUBSCRIBE, cmdSUBSCRIBE);
53: mqtt_srv_setCmd(sess->sess_srv, MQTT_TYPE_UNSUBSCRIBE, cmdUNSUBSCRIBE);
54: mqtt_srv_setCmd(sess->sess_srv, MQTT_TYPE_PINGREQ, cmdPINGREQ);
55: mqtt_srv_setCmd(sess->sess_srv, MQTT_TYPE_DISCONNECT, cmdDISCONNECT);
56: }
57:
58: sess->sess_sock = sock;
59: strlcpy(sess->sess_addr, (char*) AIT_GET_STR(v), sizeof sess->sess_addr);
60: return sess;
61: }
62:
63: static void
64: finiSession(struct tagSession *sess)
65: {
66: struct tagStore *store;
67:
68: ioTRACE(5);
69:
70: if (!sess)
71: return;
72:
73: if (call.FiniSessPUB)
74: call.FiniSessPUB(&cfg, pub, sess->sess_cid, sess->sess_user, "%");
75:
76: while ((store = SLIST_FIRST(&sess->sess_subscr))) {
77: SLIST_REMOVE_HEAD(&sess->sess_subscr, st_node);
78:
79: if (store->st_subscr.sub_topic.msg_base)
80: free(store->st_subscr.sub_topic.msg_base);
81: if (store->st_subscr.sub_value.msg_base)
82: free(store->st_subscr.sub_value.msg_base);
83:
84: free(store);
85: }
86:
87: if (sess->sess_will.msg)
88: free(sess->sess_will.msg);
89: if (sess->sess_will.topic)
90: free(sess->sess_will.topic);
91:
92: if (sess->sess_sock > STDERR_FILENO)
93: srv_Close(sess->sess_sock);
94:
95: mqtt_srv_Fini(&sess->sess_srv);
96: mqtt_msgFree(&sess->sess_buf, 42);
97:
98: free(sess);
99: }
100:
101: static void *
102: leaveClient(sched_task_t *task)
103: {
104: struct tagSession *sess;
105: int ret;
106:
107: ioTRACE(4);
108:
109: assert(task);
110:
111: sess = TASK_ARG(task);
112: assert(sess);
113:
114: TAILQ_REMOVE(&Sessions, sess, sess_node);
115:
116: ret = mqtt_msgDISCONNECT(sess->sess_buf);
117: send(TASK_FD(task), sess->sess_buf->msg_base, ret, MSG_NOSIGNAL);
118:
119: ioDEBUG(1, "Close socket=%d", TASK_FD(task));
120: call.LOG(logg, "Session %s stopped from %s for user %s.\n", sess->sess_cid,
121: sess->sess_addr, sess->sess_user);
122:
123: finiSession(sess);
124: return NULL;
125: }
126:
127: static void *
128: dispatchSession(sched_task_t *task)
129: {
130: int ret, len = 0;
131: struct tagSession *sess;
132:
133: ioTRACE(2);
134:
135: assert(task);
136:
137: sess = TASK_ARG(task);
138: assert(sess);
139:
140: /* receive & decode packet */
141: if ((ret = recv(TASK_FD(task), sess->sess_buf->msg_base, sess->sess_buf->msg_len, 0)) == -1) {
142: ioDEBUG(3, "Error:: recv(%d) #%d - %s", sess->sess_sock, errno, strerror(errno));
143: TAILQ_REMOVE(&Sessions, sess, sess_node);
144: finiSession(sess);
145: return NULL;
146: } else if (!ret) {
147: ioDEBUG(4, "Session %s EOF received.", sess->sess_cid);
148: TAILQ_REMOVE(&Sessions, sess, sess_node);
149: finiSession(sess);
150: return NULL;
151: }
152:
153: do {
154: /* dispatch message type */
155: if ((len = mqtt_srv_Dispatch(sess->sess_srv, ret, sess)) < 0) {
156: if (len == -1) {
157: ioLIBERR(mqtt);
158: finiSession(sess);
159: } else if (len == -2) {
160: TAILQ_REMOVE(&Sessions, sess, sess_node);
161: finiSession(sess);
162: } else if (len == -3)
163: schedEvent(root, startSession, NULL, (u_long) TASK_FD(task), sess, ret);
164: } else
165: ret -= len;
166: } while (len > 0 && ret > 0);
167:
168: if (len >= 0 && !schedRead(root, dispatchSession, TASK_ARG(task), TASK_FD(task), NULL, 0)) {
169: ioLIBERR(sched);
170: TAILQ_REMOVE(&Sessions, sess, sess_node);
171: finiSession(sess);
172: }
173: return NULL;
174: }
175:
176: void *
177: startSession(sched_task_t *task)
178: {
179: u_char basebuf[USHRT_MAX];
180: mqtt_msg_t buf = { basebuf, sizeof basebuf };
181: mqtthdr_connflgs_t flg;
182: mqtthdr_connack_t cack;
183: struct tagSession *s, *sess = NULL;
184: int ret, wlen;
185:
186: ioTRACE(4);
187:
188: assert(task);
189:
190: if (!TASK_DATA(task)) {
191: /* flow from accept new clients */
192: sess = initSession(TASK_FD(task), TASK_ARG(task));
193: io_freeVar(TASK_ARG(task));
194: if (!sess) {
195: close(TASK_FD(task));
196: return NULL;
197: }
198:
199: /* receive & decode packet */
200: if (recv(sess->sess_sock, buf.msg_base, buf.msg_len, 0) == -1) {
201: ioDEBUG(3, "Error:: recv(%d) #%d - %s", sess->sess_sock, errno, strerror(errno));
202: finiSession(sess);
203: return NULL;
204: }
205: } else {
206: sess = TASK_DATA(task);
207: assert(sess);
208:
209: buf.msg_len = TASK_DATLEN(task) > sizeof basebuf ? sizeof basebuf : TASK_DATLEN(task);
210: memcpy(buf.msg_base, sess->sess_buf->msg_base, buf.msg_len);
211: }
212:
213: cack = mqtt_readCONNECT(&buf, &sess->sess_ka, sess->sess_cid, sizeof sess->sess_cid,
214: sess->sess_user, sizeof sess->sess_user, sess->sess_pass, sizeof sess->sess_pass,
215: &sess->sess_will.topic, &sess->sess_will.msg);
216: ret = cack.retcode;
217: flg.flags = cack.reserved;
218: if (flg.reserved) {
219: ioDEBUG(3, "Error:: in MQTT protocol #%d - %s", mqtt_GetErrno(), mqtt_GetError());
220: goto end;
221: } else {
222: sess->sess_clean = flg.clean_sess;
223: sess->sess_will.qos = flg.will_qos;
224: sess->sess_will.retain = flg.will_retain;
225: sess->sess_will.flag = flg.will_flg;
226:
227: sess->sess_srv->timeout = sess->sess_ka;
228: }
229:
230: /* check online table for user */
231: if (call.LoginACC(&cfg, acc, sess->sess_user, sess->sess_pass) < 1) {
232: ioDEBUG(0, "Login:: DENIED for username %s and password %s",
233: sess->sess_user, sess->sess_pass);
234: ret = MQTT_RETCODE_DENIED;
235: goto end;
236: } else {
237: ioDEBUG(1, "Login:: ALLOWED for username %s ...", sess->sess_user);
238: ret = MQTT_RETCODE_ACCEPTED;
239: }
240:
241: if (call.FiniSessPUB(&cfg, pub, sess->sess_cid, sess->sess_user, "%") > 0) {
242: ioDEBUG(2, "Old session %s should be disconnect!", sess->sess_cid);
243: TAILQ_FOREACH(s, &Sessions, sess_node)
244: if (!strcmp(s->sess_cid, sess->sess_cid)) {
245: /* found stale session & disconnect it! */
246: schedWrite(root, leaveClient, sess, TASK_FD(task), NULL, 0);
247: break;
248: }
249: }
250:
251: if (call.InitSessPUB(&cfg, pub, sess->sess_cid, sess->sess_user, sess->sess_addr,
252: sess->sess_will.flag, sess->sess_will.topic, sess->sess_will.msg,
253: sess->sess_will.qos, sess->sess_will.retain) == -1) {
254: ioDEBUG(0, "Session %s DENIED for username %s", sess->sess_cid, sess->sess_user);
255: ret = MQTT_RETCODE_DENIED;
256: goto end;
257: } else {
258: ioDEBUG(0, "Session %s from %s and username %s is started",
259: sess->sess_cid, sess->sess_addr, sess->sess_user);
260: ret = MQTT_RETCODE_ACCEPTED;
261: }
262:
263: /* Start session task OK ... */
264: if (!schedRead(root, dispatchSession, sess, TASK_FD(task), NULL, 0)) {
265: ioLIBERR(sched);
266: ret = MQTT_RETCODE_DENIED;
267: } else
268: TAILQ_INSERT_TAIL(&Sessions, sess, sess_node);
269:
270: call.LOG(logg, "Session %s started from %s for user %s (timeout=%d) OK!\n", sess->sess_cid,
271: sess->sess_addr, sess->sess_user, sess->sess_ka);
272: end: /* close client connection */
273: wlen = mqtt_msgCONNACK(sess->sess_buf, ret);
274: if ((wlen = send(TASK_FD(task), sess->sess_buf->msg_base, wlen, 0)) == -1) {
275: ioDEBUG(3, "Error:: send(%d) #%d - %s", TASK_FD(task), errno, strerror(errno));
276: } else
277: ioDEBUG(5, "Sended %d bytes", wlen);
278:
279: if (ret != MQTT_RETCODE_ACCEPTED) {
280: ioDEBUG(1, "Close client %s with socket=%d", sess->sess_addr, TASK_FD(task));
281: finiSession(sess);
282: }
283: return NULL;
284: }
285:
286: static void *
287: acceptClient(sched_task_t *task)
288: {
289: int cli;
290: io_sockaddr_t sa;
291: socklen_t sslen = sizeof sa.ss;
292: ait_val_t *v;
293: char str[STRSIZ];
294:
295: ioTRACE(4);
296:
297: assert(task);
298:
299: if ((cli = accept(TASK_FD(task), &sa.sa, &sslen)) == -1)
300: goto end;
301: else
302: fcntl(cli, F_SETFL, fcntl(cli, F_GETFL, 0) | O_NONBLOCK);
303:
304: v = io_allocVar();
305: if (!v) {
306: ioLIBERR(io);
307: close(cli);
308: goto end;
309: } else {
310: memset(str, 0, sizeof str);
311: snprintf(str, sizeof str, "%s:%hu", io_n2addr(&sa, v), io_n2port(&sa));
312: AIT_FREE_VAL(v);
313: AIT_SET_STR(v, str);
314: }
315: ioDEBUG(1, "Connected client with socket=%d from %s", cli, AIT_GET_STR(v));
316:
317: if (!schedRead(root, startSession, v, cli, NULL, 0)) {
318: io_freeVar(v);
319: close(cli);
320: ioDEBUG(1, "Terminated client with socket=%d", cli);
321: }
322: end:
323: if (!schedRead(root, acceptClient, NULL, TASK_FD(task), NULL, 0))
324: ioLIBERR(sched);
325: return NULL;
326: }
327:
328: /* ----------------------------------------------------------------------- */
329:
330: int
331: Run(int sock)
332: {
333: struct tagPub *pub;
334: struct tagSession *sess;
335: struct timespec pl = { 0, 100000000 };
336:
337: ioTRACE(1);
338:
339: if (listen(sock, SOMAXCONN) == -1) {
340: ioSYSERR(0);
341: return -1;
342: } else
343: fcntl(sock, F_SETFL, fcntl(sock, F_GETFL, 0) | O_NONBLOCK);
344:
345: /* state machine - accept new connections */
346: if (!schedRead(root, acceptClient, NULL, sock, NULL, 0)) {
347: ioLIBERR(sched);
348: return -1;
349: }
350:
351: schedPolling(root, &pl, NULL);
352: schedRun(root, &Kill);
353:
354: /* free all undeleted elements into lists */
355: TAILQ_FOREACH(pub, &Pubs, pub_node) {
356: TAILQ_REMOVE(&Pubs, pub, pub_node);
357:
358: AIT_FREE_VAL(&pub->pub_name);
359: if (pub->pub_packet.msg_base)
360: free(pub->pub_packet.msg_base);
361: }
362: TAILQ_FOREACH(sess, &Sessions, sess_node) {
363: TAILQ_REMOVE(&Sessions, sess, sess_node);
364:
365: finiSession(sess);
366: }
367: return 0;
368: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>