Wed, 30 Jan 2019 23:08:05 +0100
Fixed spelling area in all programs for caryophyllene. This is still wrong in brouwhulp, we correct it during database import. Also mycrene was spelled myrcene, my fault. The hops grid now uses a popup editor, this is not yet complete. Friendly weight display in the hop grid and added the inventory comlumn.
/** * @file fermenters.c * @brief Handle fermenters status * @author Michiel Broek <mbroek at mbse dot eu> * * Copyright (C) 2018-2019 * * This file is part of the bms (Brewery Management System) * * This is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License as published by the * Free Software Foundation; either version 2, or (at your option) any * later version. * * bms is distributed in the hope that it will be useful, but * WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * General Public License for more details. * * You should have received a copy of the GNU General Public License * along with ThermFerm; see the file COPYING. If not, write to the Free * Software Foundation, 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. */ #include "bms.h" #include "xutil.h" #include "fermenters.h" #include "mysql.h" sys_fermenter_list *fermenters = NULL; extern int debug; extern sys_config Config; void fermenter_set(char *edge_node, char *alias, bool birth, char *payload) { struct json_object *jobj, *val, *sensor, *temp; sys_fermenter_list *fermenter, *tmpp; bool new_fermenter = true; // fprintf(stdout, "fermenter_set: %s/%s %s %s\n", edge_node, alias, birth ? "BIRTH":"DATA", payload); /* * Search fermenter record in the memory array and use it if found. */ if (fermenters) { for (tmpp = fermenters; tmpp; tmpp = tmpp->next) { if ((strcmp(tmpp->alias, alias) == 0) && (strcmp(tmpp->node, edge_node) == 0)) { new_fermenter = false; fermenter = tmpp; break; } } } if (! birth && new_fermenter) { printf("ERROR got DDATA and fermenter %s/%s doesn't exist\n", edge_node, alias); return; } //printf("new_fermenter %s\n", new_fermenter ? "true":"false"); /* * Allocate new fermenter if not yet known. */ if (new_fermenter) { fermenter = (sys_fermenter_list *)malloc(sizeof(sys_fermenter_list)); memset(fermenter, 0, sizeof(sys_fermenter_list)); fermenter->alias = xstrcpy(alias); fermenter->node = xstrcpy(edge_node); fermenter->mode = xstrcpy((char *)"OFF"); fermenter->stage = xstrcpy((char *)"PRIMARY"); } fermenter->online = true; if (birth) { syslog(LOG_NOTICE, "Online fermenter %s/%s mode %s", edge_node, alias, fermenter->mode); } /* * Process the JSON formatted payload. * Update only the fields that are found in the payload. */ jobj = json_tokener_parse(payload); if (json_object_object_get_ex(jobj, "uuid", &val)) { if (fermenter->uuid) free(fermenter->uuid); fermenter->uuid = xstrcpy((char *)json_object_get_string(val)); } if (json_object_object_get_ex(jobj, "mode", &val)) { if (fermenter->mode) { if (strcmp(fermenter->mode, (char *)json_object_get_string(val))) { syslog(LOG_NOTICE, "Change mode fermenter %s/%s: %s to %s", edge_node, alias, fermenter->mode, (char *)json_object_get_string(val)); } free(fermenter->mode); } fermenter->mode = xstrcpy((char *)json_object_get_string(val)); } if (json_object_object_get_ex(jobj, "stage", &val)) { if (fermenter->stage) { if (strcmp(fermenter->stage, (char *)json_object_get_string(val))) { syslog(LOG_NOTICE, "Change stage fermenter %s/%s: %s to %s", edge_node, alias, fermenter->stage, (char *)json_object_get_string(val)); } free(fermenter->stage); } fermenter->stage = xstrcpy((char *)json_object_get_string(val)); } if (json_object_object_get_ex(jobj, "alarm", &val)) { if (fermenter->alarm != json_object_get_int(val)) { syslog(LOG_NOTICE, "Change alarm fermenter %s/%s: %d to %d", edge_node, alias, fermenter->alarm, json_object_get_int(val)); } fermenter->alarm = json_object_get_int(val); } if (json_object_object_get_ex(jobj, "product", &sensor)) { if (json_object_object_get_ex(sensor, "code", &val)) { if (fermenter->beercode) free(fermenter->beercode); fermenter->beercode = xstrcpy((char *)json_object_get_string(val)); } if (json_object_object_get_ex(sensor, "name", &val)) { if (fermenter->beername) free(fermenter->beername); fermenter->beername = xstrcpy((char *)json_object_get_string(val)); } if (json_object_object_get_ex(sensor, "uuid", &val)) { if (fermenter->beeruuid) free(fermenter->beeruuid); fermenter->beeruuid = xstrcpy((char *)json_object_get_string(val)); } } if (json_object_object_get_ex(jobj, "air", &sensor)) { if (json_object_object_get_ex(sensor, "address", &val)) { if (fermenter->air_address) free(fermenter->air_address); fermenter->air_address= xstrcpy((char *)json_object_get_string(val)); } if (json_object_object_get_ex(sensor, "state", &val)) { if (fermenter->air_state) free(fermenter->air_state); fermenter->air_state= xstrcpy((char *)json_object_get_string(val)); } if (json_object_object_get_ex(sensor, "temperature", &val)) { fermenter->air_temperature = json_object_get_double(val); } } if (json_object_object_get_ex(jobj, "beer", &sensor)) { if (json_object_object_get_ex(sensor, "address", &val)) { if (fermenter->beer_address) free(fermenter->beer_address); fermenter->beer_address= xstrcpy((char *)json_object_get_string(val)); } if (json_object_object_get_ex(sensor, "state", &val)) { if (fermenter->beer_state) free(fermenter->beer_state); fermenter->beer_state= xstrcpy((char *)json_object_get_string(val)); } if (json_object_object_get_ex(sensor, "temperature", &val)) { fermenter->beer_temperature = json_object_get_double(val); } } if (json_object_object_get_ex(jobj, "chiller", &sensor)) { if (json_object_object_get_ex(sensor, "address", &val)) { if (fermenter->chiller_address) free(fermenter->chiller_address); fermenter->chiller_address= xstrcpy((char *)json_object_get_string(val)); } if (json_object_object_get_ex(sensor, "state", &val)) { if (fermenter->chiller_state) free(fermenter->chiller_state); fermenter->chiller_state= xstrcpy((char *)json_object_get_string(val)); } if (json_object_object_get_ex(sensor, "temperature", &val)) { fermenter->chiller_temperature = json_object_get_double(val); } } if (json_object_object_get_ex(jobj, "heater", &sensor)) { if (json_object_object_get_ex(sensor, "address", &val)) { if (fermenter->heater_address) free(fermenter->heater_address); fermenter->heater_address= xstrcpy((char *)json_object_get_string(val)); } if (json_object_object_get_ex(sensor, "state", &val)) { fermenter->heater_state = json_object_get_int(val); } if (json_object_object_get_ex(sensor, "usage", &val)) { fermenter->heater_usage = json_object_get_int(val); } } if (json_object_object_get_ex(jobj, "cooler", &sensor)) { if (json_object_object_get_ex(sensor, "address", &val)) { if (fermenter->cooler_address) free(fermenter->cooler_address); fermenter->cooler_address= xstrcpy((char *)json_object_get_string(val)); } if (json_object_object_get_ex(sensor, "state", &val)) { fermenter->cooler_state = json_object_get_int(val); } if (json_object_object_get_ex(sensor, "usage", &val)) { fermenter->cooler_usage = json_object_get_int(val); } } if (json_object_object_get_ex(jobj, "fan", &sensor)) { if (json_object_object_get_ex(sensor, "address", &val)) { if (fermenter->fan_address) free(fermenter->fan_address); fermenter->fan_address= xstrcpy((char *)json_object_get_string(val)); } if (json_object_object_get_ex(sensor, "state", &val)) { fermenter->fan_state = json_object_get_int(val); } if (json_object_object_get_ex(sensor, "usage", &val)) { fermenter->fan_usage = json_object_get_int(val); } } if (json_object_object_get_ex(jobj, "light", &sensor)) { if (json_object_object_get_ex(sensor, "address", &val)) { if (fermenter->light_address) free(fermenter->light_address); fermenter->light_address= xstrcpy((char *)json_object_get_string(val)); } if (json_object_object_get_ex(sensor, "state", &val)) { fermenter->light_state = json_object_get_int(val); } if (json_object_object_get_ex(sensor, "usage", &val)) { fermenter->light_usage = json_object_get_int(val); } } if (json_object_object_get_ex(jobj, "door", &sensor)) { if (json_object_object_get_ex(sensor, "address", &val)) { if (fermenter->door_address) free(fermenter->door_address); fermenter->door_address= xstrcpy((char *)json_object_get_string(val)); } if (json_object_object_get_ex(sensor, "state", &val)) { fermenter->door_state = json_object_get_int(val); } } if (json_object_object_get_ex(jobj, "psu", &sensor)) { if (json_object_object_get_ex(sensor, "address", &val)) { if (fermenter->psu_address) free(fermenter->psu_address); fermenter->psu_address= xstrcpy((char *)json_object_get_string(val)); } if (json_object_object_get_ex(sensor, "state", &val)) { fermenter->psu_state = json_object_get_int(val); } } if (json_object_object_get_ex(jobj, "setpoint", &sensor)) { if (json_object_object_get_ex(sensor, "low", &val)) { fermenter->setpoint_low = json_object_get_double(val); } if (json_object_object_get_ex(sensor, "high", &val)) { fermenter->setpoint_high = json_object_get_double(val); } } if (json_object_object_get_ex(jobj, "profile", &sensor)) { if (strcmp(json_object_to_json_string_ext(sensor, 0), "null")) { // printf("profile: %s\n", json_object_to_json_string_ext(sensor, 0)); if (json_object_object_get_ex(sensor, "uuid", &val)) { if (fermenter->profile_uuid) free(fermenter->profile_uuid); fermenter->profile_uuid = xstrcpy((char *)json_object_get_string(val)); } if (json_object_object_get_ex(sensor, "name", &val)) { if (fermenter->profile_name) free(fermenter->profile_name); fermenter->profile_name = xstrcpy((char *)json_object_get_string(val)); } if (json_object_object_get_ex(sensor, "state", &val)) { if (fermenter->profile_state) free(fermenter->profile_state); fermenter->profile_state = xstrcpy((char *)json_object_get_string(val)); } if (json_object_object_get_ex(sensor, "percent", &val)) { fermenter->profile_percent = json_object_get_int(val); } if (json_object_object_get_ex(sensor, "inittemp", &temp)) { if (json_object_object_get_ex(temp, "low", &val)) { fermenter->profile_inittemp_low = json_object_get_double(val); } if (json_object_object_get_ex(temp, "high", &val)) { fermenter->profile_inittemp_high = json_object_get_double(val); } } if (json_object_object_get_ex(sensor, "steps", &val)) { if (fermenter->profile_steps) free(fermenter->profile_steps); fermenter->profile_steps = xstrcpy((char *)json_object_to_json_string_ext(val, 0)); } } else { if (fermenter->profile_uuid) free(fermenter->profile_uuid); if (fermenter->profile_name) free(fermenter->profile_name); if (fermenter->profile_state) free(fermenter->profile_state); if (fermenter->profile_steps) free(fermenter->profile_steps); fermenter->profile_uuid = fermenter->profile_name = fermenter->profile_state = fermenter->profile_steps = NULL; fermenter->profile_percent = 0; fermenter->profile_inittemp_high = fermenter->profile_inittemp_low = 0.0; } } json_object_put(jobj); // fermenter_dump(fermenter); if (new_fermenter) { if (fermenters == NULL) { fermenters = fermenter; } else { for (tmpp = fermenters; tmpp; tmpp = tmpp->next) { if (tmpp->next == NULL) { tmpp->next = fermenter; break; } } } fermenter_mysql_insert(fermenter); } else { fermenter_mysql_update(fermenter); } } /* * With DBIRTH all active fermenters are publishd in an array. * With DDATA only one fermenter is published in the payload. */ void fermenter_birth_data(char *topic, char *payload) { char *message_type, *edge_node, *alias; struct json_object *jobj, *val, *metric, *units, *unit; int arraylen; strtok(topic, "/"); // ignore namespace strtok(NULL, "/"); message_type = strtok(NULL, "/"); edge_node = strtok(NULL, "/\0"); alias = strtok(NULL, "/\0"); if ((alias == NULL) && (strcmp("DBIRTH", message_type) == 0)) { /* * Global initial DBIRTH message with array of fermenters. */ jobj = json_tokener_parse(payload); if (json_object_object_get_ex(jobj, "metric", &metric)) { if (json_object_object_get_ex(metric, "units", &units)) { arraylen = json_object_array_length(units); for (int i = 0; i < arraylen; i++) { /* * Parse the array of units */ unit = json_object_array_get_idx(units, i); if (json_object_object_get_ex(unit, "alias", &val)) { if (alias) free(alias); alias = xstrcpy((char *)json_object_get_string(val)); fermenter_set(edge_node, alias, true, (char *)json_object_to_json_string_ext(unit, 0)); free(alias); alias = NULL; } } } } json_object_put(jobj); return; } if (strcmp("DBIRTH", message_type) == 0) { /* * DBIRTH for just one fermenter. */ jobj = json_tokener_parse(payload); if (json_object_object_get_ex(jobj, "metric", &metric)) { fermenter_set(edge_node, alias, true, (char *)json_object_to_json_string_ext(metric, 0)); } json_object_put(jobj); return; } if (strcmp("DDATA", message_type) == 0) { /* * DDATA update messages for each fermenter. */ jobj = json_tokener_parse(payload); if (json_object_object_get_ex(jobj, "metric", &metric)) { fermenter_set(edge_node, alias, false, (char *)json_object_to_json_string_ext(metric, 0)); } json_object_put(jobj); return; } /* * The rest are errors. */ printf("ERROR fermenter_birth_data: %s %s %s\n", message_type, edge_node, alias); } void fermenter_log(char *topic, char *payload) { char *edge_node, *alias, *line, buf[65], *logfile; struct json_object *jobj, *val, *metric, *metric2; fermentation_log *log; struct tm *mytime; time_t timestamp; FILE *fp; strtok(topic, "/"); // ignore namespace strtok(NULL, "/"); // group_id strtok(NULL, "/"); // message_type edge_node = strtok(NULL, "/\0"); alias = strtok(NULL, "/\0"); log = (fermentation_log *)malloc(sizeof(fermentation_log)); memset(log, 0, sizeof(fermentation_log)); log->fermenter_node = xstrcpy(edge_node); log->fermenter_alias = xstrcpy(alias); jobj = json_tokener_parse(payload); if (json_object_object_get_ex(jobj, "timestamp", &val)) { timestamp = json_object_get_int(val); log->datetime = malloc(21); mytime = localtime(×tamp); snprintf(log->datetime, 20, "%04d-%02d-%02d %02d:%02d:%02d", mytime->tm_year + 1900, mytime->tm_mon + 1, mytime->tm_mday, mytime->tm_hour, mytime->tm_min, mytime->tm_sec); } if (json_object_object_get_ex(jobj, "metric", &metric)) { if (json_object_object_get_ex(metric, "product", &metric2)) { if (json_object_object_get_ex(metric2, "uuid", &val)) { if (strcmp((char *)"(null)", json_object_get_string(val))) log->product_uuid = xstrcpy((char *)json_object_get_string(val)); } if (json_object_object_get_ex(metric2, "code", &val)) { if (strcmp((char *)"(null)", json_object_get_string(val))) log->product_code = xstrcpy((char *)json_object_get_string(val)); } if (json_object_object_get_ex(metric2, "name", &val)) { if (strcmp((char *)"(null)", json_object_get_string(val))) log->product_name = xstrcpy((char *)json_object_get_string(val)); } } if (json_object_object_get_ex(metric, "stage", &val)) { log->stage = xstrcpy((char *)json_object_get_string(val)); } if (json_object_object_get_ex(metric, "mode", &val)) { log->mode = xstrcpy((char *)json_object_get_string(val)); } if (json_object_object_get_ex(metric, "event", &val)) { if (strcmp((char *)"(null)", json_object_get_string(val))) log->event = xstrcpy((char *)json_object_get_string(val)); } if (json_object_object_get_ex(metric, "fermenter_uuid", &val)) { if (strcmp((char *)"(null)", json_object_get_string(val))) log->fermenter_uuid = xstrcpy((char *)json_object_get_string(val)); } if (json_object_object_get_ex(metric, "temperature", &metric2)) { if (json_object_object_get_ex(metric2, "air", &val)) { log->temperature_air = json_object_get_double(val); } if (json_object_object_get_ex(metric2, "beer", &val)) { log->temperature_beer = json_object_get_double(val); } if (json_object_object_get_ex(metric2, "chiller", &val)) { log->temperature_chiller = json_object_get_double(val); } if (json_object_object_get_ex(metric2, "room", &val)) { log->temperature_room = json_object_get_double(val); } } if (json_object_object_get_ex(metric, "setpoint", &metric2)) { if (json_object_object_get_ex(metric2, "low", &val)) { log->setpoint_low = json_object_get_double(val); } if (json_object_object_get_ex(metric2, "high", &val)) { log->setpoint_high = json_object_get_double(val); } } if (json_object_object_get_ex(metric, "heater", &metric2)) { if (json_object_object_get_ex(metric2, "power", &val)) { log->heater_power = json_object_get_int(val); } if (json_object_object_get_ex(metric2, "usage", &val)) { log->heater_usage = json_object_get_int(val); } } if (json_object_object_get_ex(metric, "cooler", &metric2)) { if (json_object_object_get_ex(metric2, "power", &val)) { log->cooler_power = json_object_get_int(val); } if (json_object_object_get_ex(metric2, "usage", &val)) { log->cooler_usage = json_object_get_int(val); } } if (json_object_object_get_ex(metric, "fan", &metric2)) { if (json_object_object_get_ex(metric2, "power", &val)) { log->fan_power = json_object_get_int(val); } if (json_object_object_get_ex(metric2, "usage", &val)) { log->fan_usage = json_object_get_int(val); } } } json_object_put(jobj); /* * Build csv log line */ line = xstrcpy(log->datetime); line = xstrcat(line, (char *)","); line = xstrcat(line, log->mode); line = xstrcat(line, (char *)","); line = xstrcat(line, log->stage); line = xstrcat(line, (char *)","); snprintf(buf, 64, "%.3f", log->temperature_air); line = xstrcat(line, buf); line = xstrcat(line, (char *)","); snprintf(buf, 64, "%.3f", log->temperature_beer); line = xstrcat(line, buf); line = xstrcat(line, (char *)","); snprintf(buf, 64, "%.3f", log->temperature_chiller); line = xstrcat(line, buf); line = xstrcat(line, (char *)","); snprintf(buf, 64, "%.3f", log->temperature_room); line = xstrcat(line, buf); line = xstrcat(line, (char *)","); snprintf(buf, 64, "%.1f", log->setpoint_low); line = xstrcat(line, buf); line = xstrcat(line, (char *)","); snprintf(buf, 64, "%.1f", log->setpoint_high); line = xstrcat(line, buf); line = xstrcat(line, (char *)","); snprintf(buf, 64, "%d", log->heater_power); line = xstrcat(line, buf); line = xstrcat(line, (char *)","); snprintf(buf, 64, "%ld", log->heater_usage); line = xstrcat(line, buf); line = xstrcat(line, (char *)","); snprintf(buf, 64, "%d", log->cooler_power); line = xstrcat(line, buf); line = xstrcat(line, (char *)","); snprintf(buf, 64, "%ld", log->cooler_usage); line = xstrcat(line, buf); line = xstrcat(line, (char *)","); if (log->event) line = xstrcat(line, log->event); line = xstrcat(line, (char *)","); if (log->fermenter_uuid) line = xstrcat(line, log->fermenter_uuid); /* * Build logfile name */ logfile = xstrcpy(Config.web_root); logfile = xstrcat(logfile, (char *)"/log/fermentation/"); logfile = xstrcat(logfile, log->product_code); logfile = xstrcat(logfile, (char *)" "); logfile = xstrcat(logfile, log->product_name); logfile = xstrcat(logfile, (char *)".log"); if (debug) fprintf(stdout, "%s %s\n", logfile, line); fp = fopen(logfile, "a"); if (fp) { fprintf(fp, "%s\n", line); fclose(fp); } else { syslog(LOG_NOTICE, "cannot append to `%s'", logfile); } free(logfile); logfile = NULL; free(line); line = NULL; if (log->datetime) free(log->datetime); if (log->product_uuid ) free(log->product_uuid ); if (log->product_code ) free(log->product_code ); if (log->product_name ) free(log->product_name ); if (log->stage) free(log->stage); if (log->mode) free(log->mode); if (log->event) free(log->event); if (log->fermenter_uuid) free(log->fermenter_uuid); if (log->fermenter_node) free(log->fermenter_node); if (log->fermenter_alias) free(log->fermenter_alias); free(log); } void fermenter_dump(sys_fermenter_list *fermenter) { if (debug) { printf("uuid %s\n", fermenter->uuid); printf("alias %s\n", fermenter->alias); printf("node %s\n", fermenter->node); printf("online %s\n", fermenter->online ? "yes":"no"); printf("product %s / %s\n", fermenter->beercode, fermenter->beername); if (fermenter->air_address) printf("Air %-36s %10s %8.3f\n", fermenter->air_address, fermenter->air_state, fermenter->air_temperature); if (fermenter->beer_address) printf("Beer %-36s %10s %8.3f\n", fermenter->beer_address, fermenter->beer_state, fermenter->beer_temperature); if (fermenter->chiller_address) printf("Chiller %-36s %10s %8.3f\n", fermenter->chiller_address, fermenter->chiller_state, fermenter->chiller_temperature); if (fermenter->heater_address) printf("Heater %-36s %9d%% %8lu\n", fermenter->heater_address, fermenter->heater_state, fermenter->heater_usage); if (fermenter->cooler_address) printf("Cooler %-36s %9d%% %8lu\n", fermenter->cooler_address, fermenter->cooler_state, fermenter->cooler_usage); if (fermenter->fan_address) printf("Fan %-36s %9d%% %8lu\n", fermenter->fan_address, fermenter->fan_state, fermenter->fan_usage); if (fermenter->light_address) printf("Light %-36s %9d%% %8lu\n", fermenter->light_address, fermenter->light_state, fermenter->light_usage); if (fermenter->door_address) printf("Door %-36s %10d\n", fermenter->door_address, fermenter->door_state); if (fermenter->psu_address) printf("PSU %-36s %10d\n", fermenter->psu_address, fermenter->psu_state); printf("mode %s\n", fermenter->mode); printf("alarm %04x\n", fermenter->alarm); printf("sp high %8.3f\n", fermenter->setpoint_high); printf("sp low %8.3f\n", fermenter->setpoint_low); if (fermenter->profile_uuid) { printf("profile uuid %s\n", fermenter->profile_uuid); printf("profile name %s\n", fermenter->profile_name); printf("profile state %s\n", fermenter->profile_state); printf("profile percent %d\n", fermenter->profile_percent); printf("profile sp high %.3f\n", fermenter->profile_inittemp_high); printf("profile sp low %.3f\n", fermenter->profile_inittemp_low); printf("profile steps %s\n", fermenter->profile_steps); } } } void fermenter_death(char *topic) { char *edge_node, *alias; sys_fermenter_list *tmpp; printf("fermenter_death: %s\n", topic); strtok(topic, "/"); // ignore namespace strtok(NULL, "/"); // ignore group_id strtok(NULL, "/"); // ignore message_type edge_node = strtok(NULL, "/\0"); alias = strtok(NULL, "/\0"); fermenter_mysql_death(edge_node, alias); if (alias) { for (tmpp = fermenters; tmpp; tmpp = tmpp->next) { if ((strcmp(tmpp->node, edge_node) == 0) && (strcmp(tmpp->alias, alias) == 0)) { if (tmpp->online) syslog(LOG_NOTICE, "Offline fermenter %s/%s", tmpp->node, tmpp->alias); tmpp->online = false; break; } } } else { for (tmpp = fermenters; tmpp; tmpp = tmpp->next) { if (strcmp(tmpp->node, edge_node) == 0) { if (tmpp->online) syslog(LOG_NOTICE, "Offline fermenter %s/%s", tmpp->node, tmpp->alias); tmpp->online = false; } } } }