File:  [ELWIX - Embedded LightWeight unIX -] / mqtt / src / daemon.c
Revision 1.2.2.33: download - view: text, annotated - select for diffs - revision graph
Sun May 27 10:04:05 2012 UTC (12 years, 1 month ago) by misho
Branches: mqtt1_1
start using new elwix memory management

    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 = io_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: 		io_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: 		io_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 (sess->sess_clean) {
   74: 		if (call.FiniSessPUB)
   75: 			call.FiniSessPUB(&cfg, pub, sess->sess_cid, sess->sess_user, "%");
   76: 		if (call.DeletePUB_subscribe)
   77: 			call.DeletePUB_subscribe(&cfg, pub, sess->sess_cid, "%", sess->sess_user, "%");
   78: 		if (call.WipePUB_topic)
   79: 			call.WipePUB_topic(&cfg, pub, sess->sess_cid, sess->sess_user, -1);
   80: 	}
   81: 
   82: 	while ((store = SLIST_FIRST(&sess->sess_subscr))) {
   83: 		SLIST_REMOVE_HEAD(&sess->sess_subscr, st_node);
   84: 
   85: 		if (store->st_subscr.sub_topic.msg_base)
   86: 			free(store->st_subscr.sub_topic.msg_base);
   87: 		if (store->st_subscr.sub_value.msg_base)
   88: 			free(store->st_subscr.sub_value.msg_base);
   89: 
   90: 		io_free(store);
   91: 	}
   92: 
   93: 	if (sess->sess_will.msg)
   94: 		free(sess->sess_will.msg);
   95: 	if (sess->sess_will.topic)
   96: 		free(sess->sess_will.topic);
   97: 
   98: 	if (sess->sess_sock > STDERR_FILENO)
   99: 		srv_Close(sess->sess_sock);
  100: 
  101: 	mqtt_srv_Fini(&sess->sess_srv);
  102: 	mqtt_msgFree(&sess->sess_buf, 42);
  103: 
  104: 	io_free(sess);
  105: }
  106: 
  107: static void *
  108: leaveClient(sched_task_t *task)
  109: {
  110: 	struct tagSession *sess;
  111: 	int ret;
  112: 
  113: 	ioTRACE(4);
  114: 
  115: 	assert(task);
  116: 
  117: 	sess = TASK_ARG(task);
  118: 	assert(sess);
  119: 
  120: 	TAILQ_REMOVE(&Sessions, sess, sess_node);
  121: 
  122: 	ret = mqtt_msgDISCONNECT(sess->sess_buf);
  123: 	send(TASK_FD(task), sess->sess_buf->msg_base, ret, MSG_NOSIGNAL);
  124: 
  125: 	ioDEBUG(1, "Close socket=%d", TASK_FD(task));
  126: 	call.LOG(logg, "Session %s stopped from %s for user %s.\n", sess->sess_cid, 
  127: 			sess->sess_addr, sess->sess_user);
  128: 
  129: 	finiSession(sess);
  130: 	return NULL;
  131: }
  132: 
  133: static void *
  134: dispatchSession(sched_task_t *task)
  135: {
  136: 	int ret, len = 0;
  137: 	struct tagSession *sess;
  138: 
  139: 	ioTRACE(2);
  140: 
  141: 	assert(task);
  142: 
  143: 	sess = TASK_ARG(task);
  144: 	assert(sess);
  145: 
  146: 	/* receive & decode packet */
  147: 	if ((ret = recv(TASK_FD(task), sess->sess_buf->msg_base, sess->sess_buf->msg_len, 0)) == -1) {
  148: 		ioDEBUG(3, "Error:: recv(%d) #%d - %s", sess->sess_sock, errno, strerror(errno));
  149: 		TAILQ_REMOVE(&Sessions, sess, sess_node);
  150: 		finiSession(sess);
  151: 		return NULL;
  152: 	} else if (!ret) {
  153: 		ioDEBUG(4, "Session %s EOF received.", sess->sess_cid);
  154: 		TAILQ_REMOVE(&Sessions, sess, sess_node);
  155: 		finiSession(sess);
  156: 		return NULL;
  157: 	}
  158: 
  159: 	do {
  160: 		/* dispatch message type */
  161: 		if ((len = mqtt_srv_Dispatch(sess->sess_srv, ret, sess)) < 0) {
  162: 			if (len == -1) {
  163: 				ioLIBERR(mqtt);
  164: 				finiSession(sess);
  165: 			} else if (len == -2) {
  166: 				TAILQ_REMOVE(&Sessions, sess, sess_node);
  167: 				finiSession(sess);
  168: 			} else if (len == -3)
  169: 				schedEvent(root, startSession, NULL, (u_long) TASK_FD(task), sess, ret);
  170: 		} else
  171: 			ret -= len;
  172: 	} while (len > 0 && ret > 0);
  173: 
  174: 	if (len >= 0 && !schedRead(root, dispatchSession, TASK_ARG(task), TASK_FD(task), NULL, 0)) {
  175: 		ioLIBERR(sched);
  176: 		TAILQ_REMOVE(&Sessions, sess, sess_node);
  177: 		finiSession(sess);
  178: 	}
  179: 	return NULL;
  180: }
  181: 
  182: void *
  183: startSession(sched_task_t *task)
  184: {
  185: 	u_char basebuf[USHRT_MAX];
  186: 	mqtt_msg_t buf = { basebuf, sizeof basebuf };
  187: 	mqtthdr_connflgs_t flg;
  188: 	mqtthdr_connack_t cack;
  189: 	ait_val_t *v;
  190: 	struct tagSession *s, *sess = NULL;
  191: 	int ret, wlen;
  192: 
  193: 	ioTRACE(4);
  194: 
  195: 	assert(task);
  196: 
  197: 	if (!TASK_DATA(task)) {
  198: 		v = TASK_ARG(task);
  199: 		/* flow from accept new clients */
  200: 		sess = initSession(TASK_FD(task), v);
  201: 		io_freeVar(&v);
  202: 		if (!sess) {
  203: 			close(TASK_FD(task));
  204: 			return NULL;
  205: 		}
  206: 
  207: 		/* receive & decode packet */
  208: 		if (recv(sess->sess_sock, buf.msg_base, buf.msg_len, 0) == -1) {
  209: 			ioDEBUG(3, "Error:: recv(%d) #%d - %s", sess->sess_sock, errno, strerror(errno));
  210: 			finiSession(sess);
  211: 			return NULL;
  212: 		}
  213: 	} else {
  214: 		sess = TASK_DATA(task);
  215: 		assert(sess);
  216: 
  217: 		buf.msg_len = TASK_DATLEN(task) > sizeof basebuf ? sizeof basebuf : TASK_DATLEN(task);
  218: 		memcpy(buf.msg_base, sess->sess_buf->msg_base, buf.msg_len);
  219: 	}
  220: 
  221: 	cack = mqtt_readCONNECT(&buf, &sess->sess_ka, sess->sess_cid, sizeof sess->sess_cid, 
  222: 			sess->sess_user, sizeof sess->sess_user, sess->sess_pass, sizeof sess->sess_pass, 
  223: 			&sess->sess_will.topic, &sess->sess_will.msg);
  224: 	ret = cack.retcode;
  225: 	flg.flags = cack.reserved;
  226: 	if (flg.reserved) {
  227: 		ioDEBUG(3, "Error:: in MQTT protocol #%d - %s", mqtt_GetErrno(), mqtt_GetError());
  228: 		goto end;
  229: 	} else {
  230: 		sess->sess_clean = flg.clean_sess;
  231: 		sess->sess_will.qos = flg.will_qos;
  232: 		sess->sess_will.retain = flg.will_retain;
  233: 		sess->sess_will.flag = flg.will_flg;
  234: 
  235: 		sess->sess_srv->timeout = sess->sess_ka;
  236: 	}
  237: 
  238: 	/* check online table for user */
  239: 	if (call.LoginACC(&cfg, acc, sess->sess_user, sess->sess_pass) < 1) {
  240: 		ioDEBUG(0, "Login:: DENIED for username %s and password %s", 
  241: 				sess->sess_user, sess->sess_pass);
  242: 		ret = MQTT_RETCODE_DENIED;
  243: 		goto end;
  244: 	} else {
  245: 		ioDEBUG(1, "Login:: ALLOWED for username %s ...", sess->sess_user);
  246: 		ret = MQTT_RETCODE_ACCEPTED;
  247: 	}
  248: 
  249: 	/* db management */
  250: 	if (call.FiniSessPUB(&cfg, pub, sess->sess_cid, sess->sess_user, "%") > 0) {
  251: 		ioDEBUG(2, "Old session %s should be disconnect!", sess->sess_cid);
  252: 		TAILQ_FOREACH(s, &Sessions, sess_node)
  253: 			if (!strcmp(s->sess_cid, sess->sess_cid)) {
  254: 				/* found stale session & disconnect it! */
  255: 				schedWrite(root, leaveClient, sess, TASK_FD(task), NULL, 0);
  256: 				break;
  257: 			}
  258: 	}
  259: 	if (call.InitSessPUB(&cfg, pub, sess->sess_cid, sess->sess_user, sess->sess_addr, 
  260: 				sess->sess_will.flag, sess->sess_will.topic, sess->sess_will.msg, 
  261: 				sess->sess_will.qos, sess->sess_will.retain) == -1) {
  262: 		ioDEBUG(0, "Session %s DENIED for username %s", sess->sess_cid, sess->sess_user);
  263: 		ret = MQTT_RETCODE_DENIED;
  264: 		goto end;
  265: 	} else {
  266: 		ioDEBUG(0, "Session %s from %s and username %s is started", 
  267: 				sess->sess_cid, sess->sess_addr, sess->sess_user);
  268: 		ret = MQTT_RETCODE_ACCEPTED;
  269: 	}
  270: 	/* clean/load session if requested */
  271: 	if (sess->sess_clean) {
  272: 		if (call.DeletePUB_subscribe)
  273: 			call.DeletePUB_subscribe(&cfg, pub, sess->sess_cid, "%", sess->sess_user, "%");
  274: 		if (call.WipePUB_topic)
  275: 			call.WipePUB_topic(&cfg, pub, sess->sess_cid, sess->sess_user, -1);
  276: 	} else {
  277: 		// todo: read_sql subs and prepare publish
  278: 	}
  279: 
  280: 	/* Start session task OK ... */
  281: 	if (!schedRead(root, dispatchSession, sess, TASK_FD(task), NULL, 0)) {
  282: 		ioLIBERR(sched);
  283: 		ret = MQTT_RETCODE_DENIED;
  284: 	} else
  285: 		TAILQ_INSERT_TAIL(&Sessions, sess, sess_node);
  286: 
  287: 	call.LOG(logg, "Session %s started from %s for user %s (timeout=%d) OK!\n", sess->sess_cid, 
  288: 			sess->sess_addr, sess->sess_user, sess->sess_ka);
  289: end:	/* close client connection */
  290: 	wlen = mqtt_msgCONNACK(sess->sess_buf, ret);
  291: 	if ((wlen = send(TASK_FD(task), sess->sess_buf->msg_base, wlen, 0)) == -1) {
  292: 		ioDEBUG(3, "Error:: send(%d) #%d - %s", TASK_FD(task), errno, strerror(errno));
  293: 	} else
  294: 		ioDEBUG(5, "Sended %d bytes", wlen);
  295: 
  296: 	if (ret != MQTT_RETCODE_ACCEPTED) {
  297: 		ioDEBUG(1, "Close client %s with socket=%d", sess->sess_addr, TASK_FD(task));
  298: 		finiSession(sess);
  299: 	}
  300: 	return NULL;
  301: }
  302: 
  303: static void *
  304: acceptClient(sched_task_t *task)
  305: {
  306: 	int cli;
  307: 	io_sockaddr_t sa;
  308: 	socklen_t sslen = sizeof sa.ss;
  309: 	ait_val_t *v;
  310: 	char str[STRSIZ];
  311: 
  312: 	ioTRACE(4);
  313: 
  314: 	assert(task);
  315: 
  316: 	if ((cli = accept(TASK_FD(task), &sa.sa, &sslen)) == -1)
  317: 		goto end;
  318: 	else
  319: 		fcntl(cli, F_SETFL, fcntl(cli, F_GETFL, 0) | O_NONBLOCK);
  320: 
  321: 	v = io_allocVar();
  322: 	if (!v) {
  323: 		ioLIBERR(io);
  324: 		close(cli);
  325: 		goto end;
  326: 	} else {
  327: 		memset(str, 0, sizeof str);
  328: 		snprintf(str, sizeof str, "%s:%hu", io_n2addr(&sa, v), io_n2port(&sa));
  329: 		AIT_FREE_VAL(v);
  330: 		AIT_SET_STR(v, str);
  331: 	}
  332: 	ioDEBUG(1, "Connected client with socket=%d from %s", cli, AIT_GET_STR(v));
  333: 
  334: 	if (!schedRead(root, startSession, v, cli, NULL, 0)) {
  335: 		io_freeVar(&v);
  336: 		close(cli);
  337: 		ioDEBUG(1, "Terminated client with socket=%d", cli);
  338: 	}
  339: end:
  340: 	if (!schedRead(root, acceptClient, NULL, TASK_FD(task), NULL, 0))
  341: 		ioLIBERR(sched);
  342: 	return NULL;
  343: }
  344: 
  345: /* ----------------------------------------------------------------------- */
  346: 
  347: int
  348: Run(int sock)
  349: {
  350: 	struct tagSession *sess;
  351: 	struct timespec pl = { 0, 100000000 };
  352: 
  353: 	ioTRACE(1);
  354: 
  355: 	if (listen(sock, SOMAXCONN) == -1) {
  356: 		ioSYSERR(0);
  357: 		return -1;
  358: 	} else
  359: 		fcntl(sock, F_SETFL, fcntl(sock, F_GETFL, 0) | O_NONBLOCK);
  360: 
  361: 	/* state machine - accept new connections */
  362: 	if (!schedRead(root, acceptClient, NULL, sock, NULL, 0)) {
  363: 		ioLIBERR(sched);
  364: 		return -1;
  365: 	}
  366: 
  367: 	schedPolling(root, &pl, NULL);
  368: 	schedRun(root, &Kill);
  369: 
  370: 	/* free all undeleted elements into lists */
  371: 	TAILQ_FOREACH(sess, &Sessions, sess_node) {
  372: 		TAILQ_REMOVE(&Sessions, sess, sess_node);
  373: 
  374: 		finiSession(sess);
  375: 	}
  376: 	return 0;
  377: }

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>