git.meshlink.io Git - meshlink/blob - examples/groupchat.c

   1 #include <stdio.h>
   2 #include <stdlib.h>
   3 #include <string.h>
   4 #include <strings.h>
   5
   6 #include "../src/meshlink.h"
   7 #include "../src/devtools.h"
   8
   9 #define CHAT_PORT 531
  10
  11 static void log_message(meshlink_handle_t *mesh, meshlink_log_level_t level, const char *text) {
  12         (void) mesh;
  13
  14         static const char *levelstr[] = {
  15                 [MESHLINK_DEBUG] = "\x1b[34mDEBUG",
  16                 [MESHLINK_INFO] = "\x1b[32mINFO",
  17                 [MESHLINK_WARNING] = "\x1b[33mWARNING",
  18                 [MESHLINK_ERROR] = "\x1b[31mERROR",
  19                 [MESHLINK_CRITICAL] = "\x1b[31mCRITICAL",
  20         };
  21         fprintf(stderr, "%s:\x1b[0m %s\n", levelstr[level], text);
  22 }
  23
  24 static void channel_receive(meshlink_handle_t *mesh, meshlink_channel_t *channel, const void *data, size_t len) {
  25         if(!len) {
  26                 if(meshlink_errno) {
  27                         fprintf(stderr, "Error while reading data from %s: %s\n", channel->node->name, meshlink_strerror(meshlink_errno));
  28                 } else {
  29                         fprintf(stderr, "Chat connection closed by %s\n", channel->node->name);
  30                 }
  31
  32                 channel->node->priv = NULL;
  33                 meshlink_channel_close(mesh, channel);
  34                 return;
  35         }
  36
  37         // TODO: we now have TCP semantics, don't expect exactly one message per receive call.
  38
  39         fprintf(stderr, "%s says: ", channel->node->name);
  40         fwrite(data, len, 1, stderr);
  41         fputc('\n', stderr);
  42 }
  43
  44 static bool channel_accept(meshlink_handle_t *mesh, meshlink_channel_t *channel, uint16_t port, const void *data, size_t len) {
  45         (void)data;
  46         (void)len;
  47
  48         // Only accept connections to the chat port
  49         if(port != CHAT_PORT) {
  50                 fprintf(stderr, "Rejected incoming channel from '%s' to port %u\n", channel->node->name, port);
  51                 return false;
  52         }
  53
  54         fprintf(stderr, "Accepted incoming channel from '%s'\n", channel->node->name);
  55
  56         // Remember the channel
  57         channel->node->priv = channel;
  58
  59         // Set the receive callback
  60         meshlink_set_channel_receive_cb(mesh, channel, channel_receive);
  61
  62         // Accept this channel
  63         return true;
  64 }
  65
  66 static void channel_poll(meshlink_handle_t *mesh, meshlink_channel_t *channel, size_t len) {
  67         (void)len;
  68
  69         fprintf(stderr, "Channel to '%s' connected\n", channel->node->name);
  70         meshlink_set_channel_poll_cb(mesh, channel, NULL);
  71 }
  72
  73 static void node_status(meshlink_handle_t *mesh, meshlink_node_t *node, bool reachable) {
  74         (void)mesh;
  75
  76         if(reachable) {
  77                 fprintf(stderr, "%s joined.\n", node->name);
  78         } else {
  79                 fprintf(stderr, "%s left.\n", node->name);
  80         }
  81 }
  82
  83 static meshlink_node_t **nodes;
  84 static size_t nnodes;
  85
  86 static void parse_command(meshlink_handle_t *mesh, char *buf) {
  87         char *arg = strchr(buf, ' ');
  88         char *arg1 = NULL;
  89         meshlink_submesh_t *s = NULL;
  90         static meshlink_submesh_t **submesh = NULL;
  91         static size_t nmemb = 0;
  92         size_t i;
  93
  94         if(arg) {
  95                 *arg++ = 0;
  96
  97                 arg1 = strchr(arg, ' ');
  98
  99                 if(arg1) {
 100                         *arg1++ = 0;
 101                 }
 102
 103         }
 104
 105         if(!strcasecmp(buf, "invite")) {
 106                 char *invitation;
 107
 108                 if(!arg) {
 109                         fprintf(stderr, "/invite requires an argument!\n");
 110                         return;
 111                 }
 112
 113                 if(arg1) {
 114
 115                         submesh = devtool_get_all_submeshes(mesh, submesh, &nmemb);
 116
 117                         if(!submesh || !nmemb) {
 118                                 fprintf(stderr, "Group does not exist!\n");
 119                                 return;
 120                         }
 121
 122                         for(i = 0; i < nmemb; i++) {
 123                                 if(!strcmp(arg1, submesh[i]->name)) {
 124                                         s = submesh[i];
 125                                         break;
 126                                 } else {
 127                                         s = NULL;
 128                                 }
 129                         }
 130
 131                         if(!s) {
 132                                 fprintf(stderr, "Group is not yet creted!\n");
 133                                 return;
 134                         }
 135                 }
 136
 137                 invitation = meshlink_invite(mesh, s, arg);
 138
 139                 if(!invitation) {
 140                         fprintf(stderr, "Could not invite '%s': %s\n", arg, meshlink_strerror(meshlink_errno));
 141                         return;
 142                 }
 143
 144                 fprintf(stderr, "Invitation for %s: %s\n", arg, invitation);
 145                 free(invitation);
 146         } else if(!strcasecmp(buf, "canonical")) {
 147                 bool set;
 148                 char *host = NULL, *port = NULL;
 149
 150                 if(!arg) {
 151                         fprintf(stderr, "/canonical requires an argument!\n");
 152                         return;
 153                 }
 154
 155                 if((0 == strncasecmp(arg, "-h", 2)) && (strlen(arg) > 2)) {
 156                         host = arg + 2;
 157                 } else if((0 == strncasecmp(arg, "-p", 2)) && (strlen(arg) > 2)) {
 158                         port = arg + 2;
 159                 } else {
 160                         fprintf(stderr, "Unknown argument: %s!\n", arg);
 161                         return;
 162                 }
 163
 164                 if(arg1) {
 165                         if((0 == strncasecmp(arg1, "-h", 2)) && (strlen(arg1) > 2)) {
 166                                 host = arg1 + 2;
 167                         } else if((0 == strncasecmp(arg1, "-p", 2)) && (strlen(arg1) > 2)) {
 168                                 port = arg1 + 2;
 169                         } else {
 170                                 fprintf(stderr, "Unknown argument: %s!\n", arg1);
 171                                 return;
 172                         }
 173                 }
 174
 175                 if(!host && !port) {
 176                         fprintf(stderr, "Unable to set Canonical address because no valid arguments are found!\n");
 177                         return;
 178                 }
 179
 180                 set = meshlink_set_canonical_address(mesh, meshlink_get_self(mesh), host, port);
 181
 182                 if(!set) {
 183                         fprintf(stderr, "Could not set canonical address '%s:%s': %s\n", host, port, meshlink_strerror(meshlink_errno));
 184                         return;
 185                 }
 186
 187                 fprintf(stderr, "Canonical address set as '%s:%s'\n", host, port);
 188         } else if(!strcasecmp(buf, "group")) {
 189                 if(!arg) {
 190                         fprintf(stderr, "/group requires an argument!\n");
 191                         return;
 192                 }
 193
 194                 if(!(s = meshlink_submesh_open(mesh, arg))) {
 195                         fprintf(stderr, "Could not create group: %s\n", meshlink_strerror(meshlink_errno));
 196                 } else {
 197                         fprintf(stderr, "Group '%s' created!\n", s->name);
 198                 }
 199         } else if(!strcasecmp(buf, "join")) {
 200                 if(!arg) {
 201                         fprintf(stderr, "/join requires an argument!\n");
 202                         return;
 203                 }
 204
 205                 meshlink_stop(mesh);
 206
 207                 if(!meshlink_join(mesh, arg)) {
 208                         fprintf(stderr, "Could not join using invitation: %s\n", meshlink_strerror(meshlink_errno));
 209                 } else {
 210                         fprintf(stderr, "Invitation accepted!\n");
 211                 }
 212
 213                 if(!meshlink_start(mesh)) {
 214                         fprintf(stderr, "Could not restart MeshLink: %s\n", meshlink_strerror(meshlink_errno));
 215                         exit(1);
 216                 }
 217         } else if(!strcasecmp(buf, "kick")) {
 218                 if(!arg) {
 219                         fprintf(stderr, "/kick requires an argument!\n");
 220                         return;
 221                 }
 222
 223                 meshlink_node_t *node = meshlink_get_node(mesh, arg);
 224
 225                 if(!node) {
 226                         fprintf(stderr, "Error looking up '%s': %s\n", arg, meshlink_strerror(meshlink_errno));
 227                         return;
 228                 }
 229
 230                 if(!meshlink_blacklist(mesh, node)) {
 231                         fprintf(stderr, "Error blacklising '%s': %s", arg, meshlink_strerror(meshlink_errno));
 232                         return;
 233                 }
 234
 235                 fprintf(stderr, "Node '%s' blacklisted.\n", arg);
 236         } else if(!strcasecmp(buf, "whitelist")) {
 237                 if(!arg) {
 238                         fprintf(stderr, "/whitelist requires an argument!\n");
 239                         return;
 240                 }
 241
 242                 meshlink_node_t *node = meshlink_get_node(mesh, arg);
 243
 244                 if(!node) {
 245                         fprintf(stderr, "Error looking up '%s': %s\n", arg, meshlink_strerror(meshlink_errno));
 246                         return;
 247                 }
 248
 249                 if(!meshlink_whitelist(mesh, node)) {
 250                         fprintf(stderr, "Error whitelising '%s': %s", arg, meshlink_strerror(meshlink_errno));
 251                         return;
 252                 }
 253
 254                 fprintf(stderr, "Node '%s' whitelisted.\n", arg);
 255         } else if(!strcasecmp(buf, "who")) {
 256                 meshlink_submesh_t *node_group = NULL;
 257
 258                 if(!arg) {
 259                         nodes = meshlink_get_all_nodes(mesh, nodes, &nnodes);
 260
 261                         if(!nnodes) {
 262                                 fprintf(stderr, "Could not get list of nodes: %s\n", meshlink_strerror(meshlink_errno));
 263                         } else {
 264                                 fprintf(stderr, "%lu known nodes:\n", (unsigned long)nnodes);
 265
 266                                 for(size_t i = 0; i < nnodes; i++) {
 267                                         fprintf(stderr, " %lu. %s", (unsigned long)i, nodes[i]->name);
 268
 269                                         if((node_group = meshlink_get_node_submesh(mesh, nodes[i]))) {
 270                                                 fprintf(stderr, "\t%s", node_group->name);
 271                                         }
 272
 273                                         fprintf(stderr, "\n");
 274                                 }
 275
 276                                 fprintf(stderr, "\n");
 277                         }
 278                 } else {
 279                         meshlink_node_t *node = meshlink_get_node(mesh, arg);
 280
 281                         if(!node) {
 282                                 fprintf(stderr, "Error looking up '%s': %s\n", arg, meshlink_strerror(meshlink_errno));
 283                         } else {
 284                                 fprintf(stderr, "Node %s found", arg);
 285
 286                                 if((node_group = meshlink_get_node_submesh(mesh, node))) {
 287                                         fprintf(stderr, " in group %s", node_group->name);
 288                                 }
 289
 290                                 fprintf(stderr, "\n");
 291                         }
 292                 }
 293         } else if(!strcasecmp(buf, "listgroup")) {
 294                 if(!arg) {
 295                         fprintf(stderr, "/listgroup requires an argument!\n");
 296                         return;
 297                 }
 298
 299                 submesh = devtool_get_all_submeshes(mesh, submesh, &nmemb);
 300
 301                 if(!submesh || !nmemb) {
 302                         fprintf(stderr, "Group does not exist!\n");
 303                         return;
 304                 }
 305
 306                 for(i = 0; i < nmemb; i++) {
 307                         if(!strcmp(arg, submesh[i]->name)) {
 308                                 s = submesh[i];
 309                                 break;
 310                         } else {
 311                                 s = NULL;
 312                         }
 313                 }
 314
 315                 if(!s) {
 316                         fprintf(stderr, "Group %s does not exist!\n", arg);
 317                         return;
 318                 }
 319
 320                 nodes = meshlink_get_all_nodes_by_submesh(mesh, s, nodes, &nnodes);
 321
 322                 if(!nodes) {
 323                         fprintf(stderr, "Group %s does not contain any nodes!\n", arg);
 324                         return;
 325                 }
 326
 327                 if(nnodes <= 0) {
 328                         fprintf(stderr, "Could not get list of nodes for group %s: %s\n", arg, meshlink_strerror(meshlink_errno));
 329                 } else {
 330                         fprintf(stderr, "%zu known nodes in group %s:", nnodes, arg);
 331
 332                         for(size_t i = 0; i < nnodes; i++) {
 333                                 fprintf(stderr, " %s", nodes[i]->name);
 334                         }
 335
 336                         fprintf(stderr, "\n");
 337                 }
 338         } else if(!strcasecmp(buf, "quit")) {
 339                 fprintf(stderr, "Bye!\n");
 340                 fclose(stdin);
 341         } else if(!strcasecmp(buf, "help")) {
 342                 fprintf(stderr,
 343                         "<name>: <message>                        Send a message to the given node.\n"
 344                         "                                         Subsequent messages don't need the <name>: prefix.\n"
 345                         "/group <name>                            Create a new group"
 346                         "/invite <name> [submesh]                 Create an invitation for a new node.\n"
 347                         "                                         Node joins either coremesh or submesh depending on submesh parameter.\n"
 348                         "/join <invitation>                               Join an existing mesh using an invitation.\n"
 349                         "/kick <name>                             Blacklist the given node.\n"
 350                         "/who [<name>]                            List all nodes or show information about the given node.\n"
 351                         "/listgroup <name>                        List all nodes in a given group.\n"
 352                         "/canonical -h<hostname> -p<port> Set Canonical address to be present in invitation.\n"
 353                         "                                         Any one of two options an be specified. At least one option must be present\n"
 354                         "/quit                                    Exit this program.\n"
 355                        );
 356         } else {
 357                 fprintf(stderr, "Unknown command '/%s'\n", buf);
 358         }
 359 }
 360
 361 static void parse_input(meshlink_handle_t *mesh, char *buf) {
 362         static meshlink_node_t *destination;
 363         size_t len;
 364
 365         if(!buf) {
 366                 return;
 367         }
 368
 369         // Remove newline.
 370
 371         len = strlen(buf);
 372
 373         if(len && buf[len - 1] == '\n') {
 374                 buf[--len] = 0;
 375         }
 376
 377         if(len && buf[len - 1] == '\r') {
 378                 buf[--len] = 0;
 379         }
 380
 381         // Ignore empty lines.
 382
 383         if(!len) {
 384                 return;
 385         }
 386
 387         // Commands start with '/'
 388
 389         if(*buf == '/') {
 390                 parse_command(mesh, buf + 1);
 391                 return;
 392         }
 393
 394         // Lines in the form "name: message..." set the destination node.
 395
 396         char *msg = buf;
 397         char *colon = strchr(buf, ':');
 398
 399         if(colon) {
 400                 *colon = 0;
 401                 msg = colon + 1;
 402
 403                 if(*msg == ' ') {
 404                         msg++;
 405                 }
 406
 407                 destination = meshlink_get_node(mesh, buf);
 408
 409                 if(!destination) {
 410                         fprintf(stderr, "Error looking up '%s': %s\n", buf, meshlink_strerror(meshlink_errno));
 411                         return;
 412                 }
 413         }
 414
 415         if(!destination) {
 416                 fprintf(stderr, "Who are you talking to? Write 'name: message...'\n");
 417                 return;
 418         }
 419
 420         // We want to have one channel per node.
 421         // We keep the pointer to the meshlink_channel_t in the priv field of that node.
 422         meshlink_channel_t *channel = destination->priv;
 423
 424         if(!channel) {
 425                 fprintf(stderr, "Opening chat channel to '%s'\n", destination->name);
 426                 channel = meshlink_channel_open(mesh, destination, CHAT_PORT, channel_receive, NULL, 0);
 427
 428                 if(!channel) {
 429                         fprintf(stderr, "Could not create channel to '%s': %s\n", destination->name, meshlink_strerror(meshlink_errno));
 430                         return;
 431                 }
 432
 433                 destination->priv = channel;
 434                 meshlink_set_channel_poll_cb(mesh, channel, channel_poll);
 435         }
 436
 437         if(!meshlink_channel_send(mesh, channel, msg, strlen(msg))) {
 438                 fprintf(stderr, "Could not send message to '%s': %s\n", destination->name, meshlink_strerror(meshlink_errno));
 439                 return;
 440         }
 441
 442         fprintf(stderr, "Message sent to '%s'.\n", destination->name);
 443 }
 444
 445 int main(int argc, char *argv[]) {
 446         const char *confbase = ".chat";
 447         const char *nick = NULL;
 448         char buf[1024];
 449
 450         if(argc > 1) {
 451                 confbase = argv[1];
 452         }
 453
 454         if(argc > 2) {
 455                 nick = argv[2];
 456         }
 457
 458         meshlink_set_log_cb(NULL, MESHLINK_DEBUG, log_message);
 459
 460         meshlink_handle_t *mesh = meshlink_open(confbase, nick, "chat", DEV_CLASS_STATIONARY);
 461
 462         if(!mesh) {
 463                 fprintf(stderr, "Could not open MeshLink: %s\n", meshlink_strerror(meshlink_errno));
 464                 return 1;
 465         }
 466
 467         meshlink_set_node_status_cb(mesh, node_status);
 468         meshlink_set_log_cb(mesh, MESHLINK_INFO, log_message);
 469
 470         // Set the channel accept callback. This implicitly turns on channels for all nodes.
 471         // This replaces the call to meshlink_set_receive_cb().
 472         meshlink_set_channel_accept_cb(mesh, channel_accept);
 473
 474         if(!meshlink_start(mesh)) {
 475                 fprintf(stderr, "Could not start MeshLink: %s\n", meshlink_strerror(meshlink_errno));
 476                 return 1;
 477         }
 478
 479         fprintf(stderr, "Chat started.\nType /help for a list of commands.\n");
 480
 481         while(fgets(buf, sizeof(buf), stdin)) {
 482                 parse_input(mesh, buf);
 483         }
 484
 485         fprintf(stderr, "Chat stopping.\n");
 486
 487         meshlink_stop(mesh);
 488         meshlink_close(mesh);
 489
 490         return 0;
 491 }