1 files changed, 762 insertions, 0 deletions

diff --git a/src/setup/gnunet-setup-exit-services.c b/src/setup/gnunet-setup-exit-services.c
new file mode 100644
index 00000000..91b58b05
--- /dev/null
+++ b/src/setup/gnunet-setup-exit-services.c
@@ -0,0 +1,762 @@
+/*
+     This file is part of GNUnet.
+     (C) 2013 Christian Grothoff (and other contributing authors)
+
+     GNUnet 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 3, or (at your
+     option) any later version.
+
+     GNUnet 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 GNUnet; see the file COPYING.  If not, write to the
+     Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+     Boston, MA 02111-1307, USA.
+*/
+
+/**
+ * @file src/setup/gnunet-setup-exit-services.c
+ * @brief code for the dialog to configure EXIT records
+ * @author Christian Grothoff
+ */
+#include "gnunet-setup.h"
+#include <gnunet/gnunet_util_lib.h>
+#include <gdk/gdkkeysyms.h>
+
+
+/**
+ * Columns in the hosted service model.
+ */
+enum ServiceModelColumns
+{
+  /**
+   * A gchararray
+   */
+  SERVICE_MC_HOSTNAME = 0,
+
+  /**
+   * A gboolean
+   */
+  SERVICE_MC_ISUDP = 1
+
+  /**
+   * A guint
+   */
+  SERVICE_MC_VISIBLE_PORT = 2,
+
+  /**
+   * Destination adddress, a gchararray
+   */
+  SERVICE_MC_DESTINATION_ADDRESS = 3
+
+};
+
+
+/**
+ * Check if the section represents a hosted service and then update
+ * the GtkListStore accordingly.
+ *
+ * @param cls the list store to modify
+ * @param section name of the section
+ */
+static void
+add_dns_entry_to_list_store (void *cls,
+                             const char *section)
+{
+  GtkListStore *ls = cls;
+  GtkTreeIter iter;
+  char *sld;
+  char *destination;
+  char *redirect;
+  char *cpy;
+  gboolean udp;
+
+  if (NULL == section)
+  {
+    gtk_list_store_insert_with_values (ls, &iter, G_MAXINT,
+                                       SERVICE_MC_HOSTNAME, "",
+                                       SERVICE_MC_ISUDP, FALSE,
+                                       SERVICE_MC_VISIBLE_PORT, (guint) 80,
+                                       SERVICE_MC_DESTINATION_ADDRESS, "127.0.0.1:8080",
+                                       -1);
+    return;
+  }
+
+  if ((8 > strlen (section)) ||
+      (0 != strcmp (".gnunet.", section + ((strlen (section) - 8)))))
+    return;
+  sld = GNUNET_strdup (section);
+  sld[strlen (section) - 8] = '\0';
+  udp = FALSE;
+  do
+  {
+    if (GNUNET_OK ==
+        GNUNET_CONFIGURATION_get_value_string (cfg, section,
+                                               (udp)
+                                               ? "UDP_REDIRECTS"
+                                               : "TCP_REDIRECTS",
+                                               &cpy))
+    {
+      for (redirect = strtok (cpy, " "); NULL != redirect;
+           redirect = strtok (NULL, " "))
+      {
+        if (NULL == (hostname = strstr (redirect, ":")))
+        {
+          GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
+                      _("Option `%s' is not formatted correctly!\n"), redirect);
+          continue;
+        }
+        hostname[0] = '\0';
+        hostname++;
+
+        guint local_port = atoi (redirect);
+        if (!((local_port > 0) && (local_port < 65536)))
+        {
+          GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
+                      _("`%s' is not a valid port number!\n"), redirect);
+          continue;
+        }
+        gtk_list_store_insert_with_values (ls, &iter, 0,
+                                           SERVICE_MC_HOSTNAME, sld,
+                                           SERVICE_MC_ISUDP, udp,
+                                           SERVICE_MC_VISIBLE_PORT, local_port,
+                                           SERVICE_MC_DESTINATION_ADDRESS, hostname,
+                                           -1);
+      }
+      GNUNET_free (cpy);
+    }
+    udp = !udp;
+  }
+  while (udp);
+  GNUNET_free (sld);
+}
+
+
+/**
+ * Initialize the GtkListModel with the hosted service specification.
+ *
+ * @param cls NULL
+ * @param section section with the value (NULL)
+ * @param option option name (NULL)
+ * @param value value as a string (NULL)
+ * @param widget widget to initialize (the GtkTreeView)
+ * @param cfg configuration handle
+ * @return #GNUNET_OK on success, #GNUNET_SYSERR if there was a problem
+ */
+static int
+load_hosted_service_configuration (const void *cls,
+                                   const char *section,
+                                   const char *option,
+                                   const char *value,
+                                   GObject * widget,
+                                   const struct GNUNET_CONFIGURATION_Handle *cfg)
+{
+  GtkTreeView *tv;
+  GtkListStore *ls;
+
+  tv = GTK_TREE_VIEW (widget);
+  if (NULL == tv)
+  {
+    GNUNET_break (0);
+    return GNUNET_SYSERR;
+  }
+  ls = GTK_LIST_STORE (gtk_tree_view_get_model (tv));
+  GNUNET_CONFIGURATION_iterate_sections (cfg,
+                                         &add_dns_entry_to_list_store,
+                                         ls);
+  /* finally, add empty entry */
+  add_dns_entry_to_list_store (ls, NULL);
+  return GNUNET_OK;
+}
+
+
+/**
+ * Records we use to build DNS information lists.
+ */
+struct DnsInfo
+{
+  /**
+   * We keep these in a singly-linked list.
+   */
+  struct DnsInfo *next;
+
+  /**
+   * Name of the section in the configuration (must end in ".gnunet.").
+   */
+  char *section;
+
+  /**
+   * String describing all TCP redirects.
+   */
+  char *tcpred;
+
+  /**
+   * String describing all UDP redirects.
+   */
+  char *udpred;
+
+};
+
+
+/**
+ * Function called for each section in the configuration.
+ * Gather existing ttl, section names and altnames.
+ *
+ * @param cls 'struct DnsInfo**' to create
+ * @param section name of a section in the configuration
+ */
+static void
+collect_dns_sections (void *cls,
+                      const char *section)
+{
+  struct DnsInfo **base = cls;
+  struct DnsInfo *pos;
+
+  if ((8 > strlen (section)) ||
+      (0 != strcmp (".gnunet.",
+                    section + ((strlen (section) - 8)))))
+    return;
+  pos = GNUNET_new (struct DnsInfo);
+  pos->section = GNUNET_strdup (section);
+  pos->tcpred = GNUNET_strdup ("");
+  pos->udpred = GNUNET_strdup ("");
+  pos->next = *base;
+  *base = pos;
+}
+
+
+/**
+ * Function called for each section in the configuration.
+ * Removes those ending in '.gnunet.'.
+ *
+ * @param cls unused
+ * @param section name of a section in the configuration
+ */
+static void
+remove_dns_sections (void *cls,
+                     const char *section)
+{
+  if ((8 > strlen (section)) ||
+      (0 != strcmp (".gnunet.", section + ((strlen (section) - 8)))))
+    return;
+  GNUNET_CONFIGURATION_remove_section (cfg, section);
+}
+
+
+/**
+ * Given the list store and the data in it, update the
+ * configuration file accordingly.
+ *
+ * @param tm model to use
+ */
+static void
+update_vpn_dns_configuration (GtkTreeModel * tm)
+{
+  GtkTreeIter iter;
+  gchar *name;
+  guint srcport;
+  gchar *targetaddress;
+  gboolea is_udp;
+  char *tmp;
+  struct DnsInfo *head;
+  struct DnsInfo *pos;
+
+  head = NULL;
+  GNUNET_CONFIGURATION_iterate_sections (cfg,
+                                         &collect_dns_sections,
+                                         &head);
+  if (gtk_tree_model_get_iter_first (tm, &iter))
+    do
+    {
+      gtk_tree_model_get (tm, &iter,
+                          SERVICE_MC_HOSTNAME, &name,
+                          SERVICE_MC_ISUDP, &is_udp,
+                          SERVICE_MC_VISIBLE_PORT, &srcport,
+                          SERVICE_MC_DESTINATION_ADDRESS, &targetaddress,
+                          -1);
+      if (0 != strlen (name))
+      {
+        pos = head;
+        GNUNET_asprintf (&tmp, "%s.gnunet.", name);
+        while ((NULL != pos) && (0 != strcasecmp (tmp, pos->section)))
+          pos = pos->next;
+        if (NULL == pos)
+        {
+          pos = GNUNET_new (struct DnsInfo);
+          pos->section = tmp;
+          pos->tcpred = GNUNET_strdup ("");
+          pos->udpred = GNUNET_strdup ("");
+          pos->next = head;
+          head = pos;
+        }
+        else
+        {
+          GNUNET_free (tmp);
+        }
+        GNUNET_asprintf (&tmp,
+                         "%u:%s %s",
+                         srcport,
+                         targetaddress,
+                         (is_udp)
+                         ? pos->udpred
+                         : pos->tcpred);
+        if (is_udp)
+        {
+          GNUNET_free (pos->udpred);
+          pos->udpred = tmp;
+        }
+        else
+        {
+          GNUNET_free (pos->tcpred);
+          pos->tcpred = tmp;
+        }
+      }
+      g_free (name);
+      g_free (targetaddress);
+    }
+    while (TRUE == gtk_tree_model_iter_next (tm, &iter));
+  GNUNET_CONFIGURATION_iterate_sections (cfg,
+                                         &remove_dns_sections,
+                                         NULL);
+  while (NULL != head)
+  {
+    pos = head;
+    head = pos->next;
+    if (strlen (pos->udpred) > 0)
+      GNUNET_CONFIGURATION_set_value_string (cfg, pos->section,
+                                             "UDP_REDIRECTS",
+                                             pos->udpred);
+    if (strlen (pos->tcpred) > 0)
+      GNUNET_CONFIGURATION_set_value_string (cfg, pos->section,
+                                             "TCP_REDIRECTS",
+                                             pos->tcpred);
+    GNUNET_free (pos->tcpred);
+    GNUNET_free (pos->udpred);
+    GNUNET_free (pos->section);
+    GNUNET_free (pos);
+  }
+}
+
+
+/**
+ * The user has edited the DNS name of a service we're offering.
+ * Update the GtkTreeModel (at the given path) and update the
+ * respective service entry in the configuration file.  Finally,
+ * if the edited path is for a "fresh" entry, create another empty
+ * one at the bottom.  If the hostname was set to empty, remove
+ * the entire entry from the configuration and the model.
+ *
+ * @param renderer GtkCellRendererText that changed
+ * @param path GtkTreePath identifying where in the Model the change is
+ * @param new_text the new text that was stored in the line
+ * @param user_data NULL
+ */
+static void
+save_vpn_dns_service_dnsname (GtkCellRendererText * renderer,
+                              gchar * path,
+                              gchar * new_text,
+                              gpointer user_data)
+{
+  GtkTreeModel *tm;
+  GtkListStore *ls;
+  GtkTreeIter iter;
+  gchar *old;
+
+  tm = GTK_TREE_MODEL (GNUNET_SETUP_get_object ("GNUNET_setup_gns_liststore"));
+  if (NULL == tm)
+  {
+    GNUNET_break (0);
+    return;
+  }
+  ls = GTK_LIST_STORE (tm);
+  if (NULL == ls)
+  {
+    GNUNET_break (0);
+    return;
+  }
+  if (TRUE != gtk_tree_model_get_iter_from_string (tm, &iter, path))
+  {
+    GNUNET_break (0);
+    return;
+  }
+  gtk_tree_model_get (tm, &iter, SERVICE_MC_HOSTNAME, &old, -1);
+  if ((0 != strlen (old)) && (0 == strlen (new_text)))
+  {
+    /* deletion */
+    gtk_list_store_remove (ls, &iter);
+    g_free (old);
+    /* update configuration */
+    update_vpn_dns_configuration (tm);
+    return;
+  }
+  /* update model */
+  gtk_list_store_set (ls, &iter,
+                      SERVICE_MC_HOSTNAME, new_text, -1);
+  /* update configuration */
+  update_vpn_dns_configuration (tm);
+  if ((0 == strlen (old)) && (0 != strlen (new_text)))
+  {
+    /* need another empty entry at the end for future expansion */
+    add_dns_entry_to_list_store (GTK_LIST_STORE (tm), NULL);
+  }
+  g_free (old);
+}
+
+
+/**
+ * Initialize the GtkListModel with the VPN's DNS service specification.
+ *
+ * @param cls NULL
+ * @param section section with the value (NULL)
+ * @param option option name (NULL)
+ * @param widget widget to initialize (the GtkTreeView)
+ * @param cfg configuration handle
+ * @return #GNUNET_OK on success, #GNUNET_SYSERR if there was a problem
+ */
+static int
+gns_name_install_edited_handler (const void *cls,
+                                 const char *section,
+                                 const char *option,
+                                 GObject * widget,
+                                 struct GNUNET_CONFIGURATION_Handle *cfg)
+{
+  static int once;
+  GtkCellRendererText *rt;
+
+  rt = GTK_CELL_RENDERER_TEXT (widget);
+  if (NULL == rt)
+    return GNUNET_SYSERR;
+  if (0 != once++)
+    return GNUNET_OK;
+  g_signal_connect (rt, "edited",
+                    G_CALLBACK (&save_vpn_dns_service_dnsname),
+                    NULL);
+  return GNUNET_OK;
+}
+
+
+/**
+ * The user has edited the DNS name of a service we're offering.
+ * Update the GtkTreeModel (at the given path) and update the
+ * respective service entry in the configuration file.  Finally,
+ * if the edited path is for a "fresh" entry, create another empty
+ * one at the bottom.  If the hostname was set to empty, remove
+ * the entire entry from the configuration and the model.
+ *
+ * @param renderer GtkCellRendererText that changed
+ * @param path GtkTreePath identifying where in the Model the change is
+ * @param new_text the new text that was stored in the line
+ * @param user_data NULL
+ */
+static void
+save_vpn_dns_service_tcpudp (GtkCellRendererText * renderer,
+                             gchar * path,
+                             gchar * new_text,
+                             gpointer user_data)
+{
+  GtkTreeModel *tm;
+  GtkListStore *ls;
+  GtkTreeIter iter;
+
+  if ((0 != strcasecmp ("tcp", new_text)) &&
+      (0 != strcasecmp ("udp", new_text)))
+  {
+    /* FIXME: warn... */
+    return;
+  }
+  tm = GTK_TREE_MODEL (GNUNET_SETUP_get_object ("GNUNET_setup_gns_liststore"));
+  if (NULL == tm)
+  {
+    GNUNET_break (0);
+    return;
+  }
+  ls = GTK_LIST_STORE (tm);
+  if (NULL == ls)
+  {
+    GNUNET_break (0);
+    return;
+  }
+  if (TRUE != gtk_tree_model_get_iter_from_string (tm, &iter, path))
+  {
+    GNUNET_break (0);
+    return;
+  }
+  /* update model */
+  gtk_list_store_set (ls, &iter, SERVICE_MC_ISUDP, new_text, -1);
+  /* update configuration */
+  update_vpn_dns_configuration (tm);
+}
+
+
+/**
+ * Initialize the GtkListModel with the VPN's DNS service specification.
+ *
+ * @param cls NULL
+ * @param section section with the value (NULL)
+ * @param option option name (NULL)
+ * @param widget widget to initialize (the GtkTreeView)
+ * @param cfg configuration handle
+ * @return #GNUNET_OK on success, #GNUNET_SYSERR if there was a problem
+ */
+static int
+gns_type_install_edited_handler (const void *cls,
+                                 const char *section,
+                                 const char *option,
+                                 GObject * widget,
+                                 struct GNUNET_CONFIGURATION_Handle *cfg)
+{
+  static int once;
+  GtkCellRendererText *rt;
+
+  rt = GTK_CELL_RENDERER_TEXT (widget);
+  if (NULL == rt)
+    return GNUNET_SYSERR;
+  if (0 != once++)
+    return GNUNET_OK;
+  g_signal_connect (rt, "edited", G_CALLBACK (&save_vpn_dns_service_tcpudp),
+                    NULL);
+  return GNUNET_OK;
+}
+
+
+/**
+ * The user has edited the DNS name of a service we're offering.
+ * Update the GtkTreeModel (at the given path) and update the
+ * respective service entry in the configuration file.  Finally,
+ * if the edited path is for a "fresh" entry, create another empty
+ * one at the bottom.  If the hostname was set to empty, remove
+ * the entire entry from the configuration and the model.
+ *
+ * @param renderer GtkCellRendererText that changed
+ * @param path GtkTreePath identifying where in the Model the change is
+ * @param new_text the new text that was stored in the line
+ * @param user_data NULL
+ */
+static void
+save_vpn_dns_service_sourceport (GtkCellRendererText * renderer,
+                                 gchar * path,
+                                 gchar * new_text,
+                                 gpointer user_data)
+{
+  GtkTreeModel *tm;
+  GtkListStore *ls;
+  GtkTreeIter iter;
+  int port;
+
+  port = atoi (new_text);
+  if ((port < 1) || (port > UINT16_MAX))
+  {
+    /* invalid port, FIXME: warn */
+    return;
+  }
+  tm = GTK_TREE_MODEL (GNUNET_SETUP_get_object ("GNUNET_setup_gns_liststore"));
+  if (NULL == tm)
+  {
+    GNUNET_break (0);
+    return;
+  }
+  ls = GTK_LIST_STORE (tm);
+  if (NULL == ls)
+  {
+    GNUNET_break (0);
+    return;
+  }
+  if (TRUE != gtk_tree_model_get_iter_from_string (tm, &iter, path))
+  {
+    GNUNET_break (0);
+    return;
+  }
+  /* update model */
+  gtk_list_store_set (ls, &iter,
+                      SERVICE_MC_SOURCEPORT, (guint) port, -1);
+  /* update configuration */
+  update_vpn_dns_configuration (tm);
+}
+
+
+/**
+ * Initialize the GtkListModel with the VPN's DNS service specification.
+ *
+ * @param cls NULL
+ * @param section section with the value (NULL)
+ * @param option option name (NULL)
+ * @param widget widget to initialize (the GtkTreeView)
+ * @param cfg configuration handle
+ * @return #GNUNET_OK on success, #GNUNET_SYSERR if there was a problem
+ */
+static int
+gns_ttl_install_edited_handler (const void *cls,
+                                const char *section,
+                                const char *option,
+                                GObject * widget,
+                                struct GNUNET_CONFIGURATION_Handle *cfg)
+{
+  static int once;
+  GtkCellRendererText *rt;
+
+  rt = GTK_CELL_RENDERER_TEXT (widget);
+  if (NULL == rt)
+    return GNUNET_SYSERR;
+  if (0 != once++)
+    return GNUNET_OK;
+  g_signal_connect (rt, "edited", G_CALLBACK (&save_vpn_dns_service_sourceport),
+                    NULL);
+  return GNUNET_OK;
+}
+
+
+/**
+ * The user has edited the DNS name of a service we're offering.
+ * Update the GtkTreeModel (at the given path) and update the
+ * respective service entry in the configuration file.  Finally,
+ * if the edited path is for a "fresh" entry, create another empty
+ * one at the bottom.  If the hostname was set to empty, remove
+ * the entire entry from the configuration and the model.
+ *
+ * @param renderer GtkCellRendererText that changed
+ * @param path GtkTreePath identifying where in the Model the change is
+ * @param new_text the new text that was stored in the line
+ * @param user_data NULL
+ */
+static void
+save_vpn_dns_service_targethostname (GtkCellRendererText * renderer,
+                                     gchar * path, gchar * new_text,
+                                     gpointer user_data)
+{
+  GtkTreeModel *tm;
+  GtkListStore *ls;
+  GtkTreeIter iter;
+
+  tm = GTK_TREE_MODEL (GNUNET_SETUP_get_object ("GNUNET_setup_gns_liststore"));
+  if (NULL == tm)
+  {
+    GNUNET_break (0);
+    return;
+  }
+  ls = GTK_LIST_STORE (tm);
+  if (NULL == ls)
+  {
+    GNUNET_break (0);
+    return;
+  }
+  if (TRUE != gtk_tree_model_get_iter_from_string (tm, &iter, path))
+  {
+    GNUNET_break (0);
+    return;
+  }
+  /* update model */
+  gtk_list_store_set (ls, &iter,
+                      SERVICE_MC_TARGETHOSTNAME, new_text, -1);
+  /* update configuration */
+  update_vpn_dns_configuration (tm);
+}
+
+
+/**
+ * Initialize the GtkListModel with the VPN's DNS service specification.
+ *
+ * @param cls NULL
+ * @param section section with the value (NULL)
+ * @param option option name (NULL)
+ * @param widget widget to initialize (the GtkTreeView)
+ * @param cfg configuration handle
+ * @return #GNUNET_OK on success, #GNUNET_SYSERR if there was a problem
+ */
+static int
+gns_value_install_edited_handler (const void *cls,
+                                  const char *section,
+                                  const char *option,
+                                  GObject * widget,
+                                  struct GNUNET_CONFIGURATION_Handle *cfg)
+{
+  static int once;
+  GtkCellRendererText *rt;
+
+  rt = GTK_CELL_RENDERER_TEXT (widget);
+  if (NULL == rt)
+    return GNUNET_SYSERR;
+  if (0 != once++)
+    return GNUNET_OK;
+  g_signal_connect (rt, "edited",
+                    G_CALLBACK (&save_vpn_dns_service_targethostname), NULL);
+  return GNUNET_OK;
+}
+
+
+#if 0
+  {
+   "GNUNET_setup_gns_treeview",
+   NULL,
+   NULL,
+   NULL,
+   gettext_noop
+   ("Specification of .gnunet TLD"),
+   "https://gnunet.org/configuration-dns",
+   &load_vpn_dns_configuration,
+   NULL, NULL,
+   NULL, NULL,
+   NULL},
+
+  {
+   "GNUNET_setup_gns_name_cellrenderertext",
+   "editing-started",
+   NULL,
+   NULL,
+   NULL,
+   "https://gnunet.org/configuration-dns",
+   NULL,
+   &gns_name_install_edited_handler,
+   NULL,
+   NULL,
+   NULL,
+   NULL},
+
+  {
+   "GNUNET_setup_gns_type_cellrenderertext",
+   "editing-started",
+   NULL,
+   NULL,
+   NULL,
+   "https://gnunet.org/configuration-dns",
+   NULL,
+   &gns_type_install_edited_handler,
+   NULL,
+   NULL,
+   NULL,
+   NULL},
+
+  {
+   "GNUNET_setup_gns_ttl_cellrenderertext",
+   "editing-started",
+   NULL,
+   NULL,
+   NULL,
+   "https://gnunet.org/configuration-dns",
+   NULL,
+   &gns_ttl_install_edited_handler,
+   NULL,
+   NULL,
+   NULL,
+   NULL},
+
+  {
+   "GNUNET_setup_gns_value_cellrenderertext",
+   "editing-started",
+   NULL,
+   NULL,
+   NULL,
+   "https://gnunet.org/configuration-dns",
+   NULL,
+   &gns_value_install_edited_handler,
+   NULL,
+   NULL,
+   NULL,
+   NULL},
+
+#endif
+
+/* end of gnunet-setup-dns-exit.c */