--- mqtt/src/daemon.c 2011/12/01 00:10:18 1.1.2.3 +++ mqtt/src/daemon.c 2011/12/12 09:24:25 1.1.2.16 @@ -1,14 +1,219 @@ #include "global.h" +#include "rtlm.h" +#include "mqttd.h" +static inline struct tagSession * +initSession(int sock, char * __restrict addr) +{ + struct tagSession *sess = NULL; + const char *str; + + FTRACE(5); + + if (!addr) + return NULL; + + sess = malloc(sizeof(struct tagSession)); + if (!sess) { + VERB(3) syslog(LOG_ERR, "Error:: in malloc #%d - %s", errno, strerror(errno)); + return NULL; + } else + memset(sess, 0, sizeof(struct tagSession)); + + str = cfg_GetAttribute(&cfg, CFG("mqttd"), CFG("retry")); + if (!str) + sess->sess_retry = DEFAULT_RETRY; + else + sess->sess_retry = strtol(str, NULL, 0); + + sess->sess_buf = mqtt_msgAlloc(0); + if (!sess->sess_buf) { + VERB(3) syslog(LOG_ERR, "Error:: in msgAlloc #%d - %s", mqtt_GetErrno(), mqtt_GetError()); + free(sess); + return NULL; + } + + sess->sess_sock = sock; + strlcpy(sess->sess_addr, addr, sizeof sess->sess_addr); + free(addr); + return sess; +} + +static void +finiSession(struct tagSession *sess) +{ + register int i; + struct tagStore *store; + + FTRACE(5); + + if (!sess) + return; + + for (i = 0; i < MQTT_QOS_RESERVED; i++) + while ((store = SLIST_FIRST(&sess->sess_store[i]))) { + SLIST_REMOVE_HEAD(&sess->sess_store[i], st_node); + free(store); + } + + if (sess->sess_will.msg) + free(sess->sess_will.msg); + if (sess->sess_will.topic) + free(sess->sess_will.topic); + + if (sess->sess_sock > STDERR_FILENO) { + shutdown(sess->sess_sock, SHUT_RDWR); + close(sess->sess_sock); + } + + mqtt_msgFree(&sess->sess_buf, 42); + + if (sess->sess_tid) + pthread_cancel(sess->sess_tid); + free(sess); +} + +static void * +thrSession(struct tagSession *sess) +{ + FTRACE(2); + + TAILQ_REMOVE(&Sessions, sess, sess_node); + pthread_exit(NULL); + return NULL; +} + +static void * +startSession(sched_task_t *task) +{ + u_char basebuf[USHRT_MAX]; + mqtt_msg_t buf = { basebuf, sizeof basebuf }; + mqtthdr_connflgs_t flg; + mqtthdr_connack_t cack; + struct tagSession *sess = NULL; + + FTRACE(4); + + sess = initSession(TASK_FD(task), TASK_ARG(task)); + if (!sess) { + if (TASK_ARG(task)) + free(TASK_ARG(task)); + close(TASK_FD(task)); + return NULL; + } + + if (recv(sess->sess_sock, buf.msg_base, buf.msg_len, 0) == -1) { + VERB(3) syslog(LOG_ERR, "Error:: recv(%d) #%d - %s", sess->sess_sock, errno, strerror(errno)); + goto end; + } + cack = mqtt_readCONNECT(&buf, &sess->sess_ka, sess->sess_cid, sizeof sess->sess_cid, + sess->sess_user, sizeof sess->sess_user, sess->sess_pass, sizeof sess->sess_pass, + &sess->sess_will.topic, &sess->sess_will.msg); + flg.flags = cack.reserved; + if (flg.reserved) { + VERB(3) syslog(LOG_ERR, "Error:: in MQTT protocol #%d - %s", mqtt_GetErrno(), mqtt_GetError()); + goto end; + } else { + sess->sess_clean = flg.clean_sess; + sess->sess_will.qos = flg.will_qos; + sess->sess_will.retain = flg.will_retain; + sess->sess_will.flag = flg.will_flg; + } + + /* check online table for user */ + if (call.LoginACC(&cfg, acc, sess->sess_user, sess->sess_pass)) { + VERB(1) syslog(LOG_WARNING, "Login:: DENIED for username %s and password %s", + sess->sess_user, sess->sess_pass); + goto end; + } else + VERB(1) syslog(LOG_WARNING, "Login:: ALLOWED for username %s ...", sess->sess_user); + + /* Start session thread OK ... */ + TAILQ_INSERT_TAIL(&Sessions, sess, sess_node); + pthread_create(&sess->sess_tid, NULL, (void*(*)(void*)) thrSession, sess); + pthread_detach(sess->sess_tid); + VERB(1) syslog(LOG_DEBUG, "ConnID=%s(%s) for %s login OK!", + sess->sess_cid, sess->sess_user, sess->sess_addr); + return NULL; +end: /* close client connection */ + VERB(1) syslog(LOG_DEBUG, "Close client %s with socket=%d", + (char*) TASK_ARG(task), (int) TASK_FD(task)); + finiSession(sess); + return NULL; +} + +/* ----------------------------------------------------------------------- */ + +static void * +thrSched(void *arg __unused) +{ + FTRACE(1); + + schedRun(root, (intptr_t*) &Kill); + pthread_exit(NULL); +} + int Run(int sock) { + io_sockaddr_t sa; + socklen_t sslen = sizeof sa.ss; + int cli; + char *str = NULL, szAddr[STRSIZ] = { 0 }; + pthread_t tid; + FTRACE(1); + if (pthread_create(&tid, NULL, thrSched, NULL)) { + syslog(LOG_ERR, "Error:: thread scheduler #%d - %s", errno, strerror(errno)); + return -1; + } else + pthread_detach(tid); + VERB(2) syslog(LOG_DEBUG, "Run scheduler management thread"); + if (listen(sock, SOMAXCONN) == -1) { - syslog(LOG_ERR, "Error:: listen() #%d - %s\n", errno, strerror(errno)); + syslog(LOG_ERR, "Error:: listen(%d) #%d - %s\n", sock, errno, strerror(errno)); + pthread_cancel(tid); return -1; + } + + while (!Kill) { + if ((cli = accept(sock, &sa.sa, &sslen)) == -1) { + syslog(LOG_ERR, "Error:: accept() #%d - %s", errno, strerror(errno)); + continue; + } else + VERB(1) { + switch (sa.sa.sa_family) { + case AF_INET: + inet_ntop(AF_INET, &sa.sin.sin_addr, szAddr, sslen); + snprintf(szAddr, sizeof szAddr, "%s:%d", + szAddr, ntohs(sa.sin.sin_port)); + break; + case AF_INET6: + inet_ntop(AF_INET6, &sa.sin6.sin6_addr, szAddr, sslen); + snprintf(szAddr, sizeof szAddr, "%s:%d", + szAddr, ntohs(sa.sin6.sin6_port)); + break; + case AF_LOCAL: + strlcpy(szAddr, sa.sun.sun_path, sizeof szAddr); + break; + default: + close(cli); + syslog(LOG_ERR, "Error:: unsupported address type %d", + sa.sa.sa_family); + continue; + } + str = strdup(szAddr); + syslog(LOG_DEBUG, "Connected client with socket=%d from %s", cli, str); + } + + if (!schedRead(root, startSession, str, cli)) { + close(cli); + VERB(1) syslog(LOG_DEBUG, "Terminated client with socket=%d", cli); + if (str) + free(str); + } } return 0;