friend.c

   1 /*
   2  *  Copyright (C) 2013  Thadeu Lima de Souza Cascardo <cascardo@cascardo.info>
   3  *
   4  *  This program is free software; you can redistribute it and/or modify
   5  *  it under the terms of the GNU General Public License as published by
   6  *  the Free Software Foundation; either version 3 of the License, or
   7  *  (at your option) any later version.
   8  *
   9  *  This program is distributed in the hope that it will be useful,
  10  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12  *  GNU General Public License for more details.
  13  *
  14  *  You should have received a copy of the GNU General Public License along
  15  *  with this program; if not, write to the Free Software Foundation, Inc.,
  16  *  51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  17  */
  18
  19 #include "friend.h"
  20 #include <string.h>
  21 #include <glib.h>
  22 #include <sys/socket.h>
  23 #include <netinet/in.h>
  24 #include <arpa/inet.h>
  25 #include <netdb.h>
  26 #include <errno.h>
  27 #include <stdio.h>
  28 #include "message.h"
  29 #include "menu.h"
  30
  31 enum {
  32         STATE_OFFLINE,
  33         STATE_PINGED,
  34         STATE_ONLINE,
  35 };
  36
  37 struct friend {
  38         char *name;
  39         char *address;
  40         uint16_t port;
  41         GInetSocketAddress *saddr;
  42         int state;
  43 };
  44
  45 static GSocket *usock;
  46
  47 int sock_init(void)
  48 {
  49         GSocketAddress *address;
  50         GInetAddress *any_addr;
  51         GError *error;
  52         int err = 0;
  53         any_addr = g_inet_address_new_any(G_SOCKET_FAMILY_IPV6);
  54         usock = g_socket_new(G_SOCKET_FAMILY_IPV6, G_SOCKET_TYPE_DATAGRAM, G_SOCKET_PROTOCOL_UDP, NULL);
  55         address = g_inet_socket_address_new(any_addr, 17078);
  56         if (!g_socket_bind(usock, address, TRUE, &error)) {
  57                 err = error->code;
  58                 g_error_free(error);
  59         }
  60         g_object_unref(address);
  61         g_object_unref(any_addr);
  62         if (!err)
  63                 message_init(usock);
  64         else
  65                 g_object_unref(usock);
  66         return err;
  67 }
  68
  69 int friend_send_message(struct friend *friend, char *buffer, size_t len)
  70 {
  71         g_socket_send_to(usock, G_SOCKET_ADDRESS(friend->saddr), buffer, len, NULL, NULL);
  72         return 0;
  73 }
  74
  75 void friend_timeout(struct friend *friend)
  76 {
  77         if (friend->state == STATE_PINGED) {
  78                 friend->state = STATE_OFFLINE;
  79         }
  80 }
  81
  82 void friend_got_message(struct friend *friend, char *buffer, size_t len)
  83 {
  84         if (len >= 4 && !strncmp(buffer, "PING", 4)) {
  85                 friend->state = STATE_ONLINE;
  86                 pong(friend);
  87         } else if (len >= 4 && !strncmp(buffer, "PONG", 4)) {
  88                 friend->state = STATE_ONLINE;
  89         }
  90 }
  91
  92 static void friend_list(gchar **args, GSocketAddress *address);
  93
  94 static void friend_add(gchar **args, GSocketAddress *address)
  95 {
  96 }
  97
  98 struct menu_item cmds[] = {
  99         { "list", friend_list },
 100         { "add", friend_add },
 101 };
 102
 103 void friend_cmd(gchar **args, GSocketAddress *address)
 104 {
 105         int i;
 106         if (args[1] == NULL)
 107                 return;
 108         for (i = 0; i < sizeof(cmds)/sizeof(cmds[0]); i++) {
 109                 if (!strcmp(args[1], cmds[i].cmd)) {
 110                         cmds[i].func(args, address);
 111                 }
 112         }
 113 }
 114
 115 void friend_init(void)
 116 {
 117         struct menu_item *mi;
 118         mi = g_malloc(sizeof(*mi));
 119         mi->cmd = "friend";
 120         mi->func = friend_cmd;
 121         menu_add(mi);
 122 }
 123
 124 struct cache {
 125         GList *friends;
 126 };
 127
 128 static struct cache *ucache;
 129
 130 static void friend_list(gchar **args, GSocketAddress *address)
 131 {
 132         char *buffer;
 133         GList *l;
 134         for (l = g_list_first(ucache->friends); l != NULL; l = g_list_next(l)) {
 135                 struct friend *friend = l->data;
 136                 buffer = g_strdup_printf("%s\n", friend->name);
 137                 g_socket_send_to(usock, address, buffer, strlen(buffer), NULL, NULL);
 138                 g_free(buffer);
 139         }
 140         g_socket_send_to(usock, address, buffer, 0, NULL, NULL);
 141 }
 142
 143 struct friend *friend_get_by_address(GInetAddress *address, uint16_t port)
 144 {
 145         GList *l;
 146         for (l = g_list_first(ucache->friends); l != NULL; l = g_list_next(l)) {
 147                 struct friend *friend = l->data;
 148                 if (g_inet_address_equal(g_inet_socket_address_get_address(friend->saddr), address) &&
 149                     friend->port == port)
 150                         return friend;
 151         }
 152         return NULL;
 153 }
 154
 155 int create_cache(struct cache **cache)
 156 {
 157         ucache = *cache = g_slice_new0(struct cache);
 158         (*cache)->friends = NULL;
 159         return 0;
 160 }
 161
 162 static void destroy_friend(gpointer data)
 163 {
 164         struct friend *friend = data;
 165         g_free(friend->name);
 166         g_free(friend->address);
 167         g_object_unref(friend->saddr);
 168         g_slice_free(struct friend, friend);
 169 }
 170
 171 int destroy_cache(struct cache *cache)
 172 {
 173         if (cache->friends)
 174                 g_list_free_full(cache->friends, destroy_friend);
 175         g_slice_free(struct cache, cache);
 176 }
 177
 178 char * friend_get_name(struct friend *friend)
 179 {
 180         return friend->name;
 181 }
 182
 183 int cache_add_friend(struct cache *cache, char *name, char *address, uint16_t port)
 184 {
 185         struct friend *friend;
 186         GInetAddress *addr;
 187         friend = g_slice_new0(struct friend);
 188         friend->name = g_strdup(name);
 189         friend->address = g_strdup(address);
 190         friend->port = port;
 191         addr = g_inet_address_new_from_string(address);
 192         friend->saddr = G_INET_SOCKET_ADDRESS(g_inet_socket_address_new(addr, friend->port));
 193         g_object_unref(addr);
 194         cache->friends = g_list_append(cache->friends, friend);
 195         ping(friend);
 196         friend->state = STATE_PINGED;
 197         return 0;
 198 }
 199
 200 int load_cache(struct cache *cache, char *fname)
 201 {
 202         GKeyFile *file;
 203         gchar **groups;
 204         gchar **group;
 205         file = g_key_file_new();
 206         g_key_file_load_from_file(file, fname, G_KEY_FILE_KEEP_COMMENTS | G_KEY_FILE_KEEP_TRANSLATIONS, NULL);
 207         groups = g_key_file_get_groups(file, NULL);
 208         for (group = groups; *group != NULL; group++) {
 209                 gchar *name;
 210                 gchar *address;
 211                 uint16_t port;
 212                 name = g_key_file_get_value(file, *group, "name", NULL);
 213                 address = g_key_file_get_value(file, *group, "address", NULL);
 214                 port = g_key_file_get_integer(file, *group, "port", NULL);
 215                 cache_add_friend(cache, name, address, port);
 216                 g_free(name);
 217                 g_free(address);
 218         }
 219         g_strfreev(groups);
 220         g_key_file_free(file);
 221         return 0;
 222 }
 223
 224 int store_cache(struct cache *cache, char *fname)
 225 {
 226         GKeyFile *file;
 227         GList *f;
 228         gchar *contents;
 229         gssize len;
 230         file = g_key_file_new();
 231         g_key_file_load_from_file(file, fname, G_KEY_FILE_KEEP_COMMENTS | G_KEY_FILE_KEEP_TRANSLATIONS, NULL);
 232         for (f = g_list_first(cache->friends); f != NULL; f = g_list_next(f)) {
 233                 struct friend *friend = f->data;
 234                 g_key_file_set_value(file, friend->name, "name", friend->name);
 235                 g_key_file_set_value(file, friend->name, "address", friend->address);
 236                 g_key_file_set_integer(file, friend->name, "port", friend->port);
 237         }
 238         contents = g_key_file_to_data(file, &len, NULL);
 239         g_file_set_contents(fname, contents, len, NULL);
 240         g_free(contents);
 241         g_key_file_free(file);
 242         return 0;
 243 }