gio/gdbusserver.c

   1 /* GDBus - GLib D-Bus Library
   2  *
   3  * Copyright (C) 2008-2010 Red Hat, Inc.
   4  *
   5  * This library is free software; you can redistribute it and/or
   6  * modify it under the terms of the GNU Lesser General Public
   7  * License as published by the Free Software Foundation; either
   8  * version 2 of the License, or (at your option) any later version.
   9  *
  10  * This library is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13  * Lesser General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU Lesser General
  16  * Public License along with this library; if not, write to the
  17  * Free Software Foundation, Inc., 59 Temple Place, Suite 330,
  18  * Boston, MA 02111-1307, USA.
  19  *
  20  * Author: David Zeuthen <davidz@redhat.com>
  21  */
  22
  23 #include "config.h"
  24
  25 #include <stdlib.h>
  26 #include <string.h>
  27 #include <errno.h>
  28 #ifdef HAVE_UNISTD_H
  29 #include <unistd.h>
  30 #endif
  31 #ifdef _WIN32
  32 #include <io.h>
  33 #endif
  34
  35 #include "giotypes.h"
  36 #include "gioerror.h"
  37 #include "gdbusaddress.h"
  38 #include "gdbusutils.h"
  39 #include "gdbusconnection.h"
  40 #include "gdbusserver.h"
  41 #include "gioenumtypes.h"
  42 #include "gdbusprivate.h"
  43 #include "gdbusauthobserver.h"
  44 #include "ginitable.h"
  45 #include "gsocketservice.h"
  46 #include "gthreadedsocketservice.h"
  47 #include "gresolver.h"
  48 #include "glib/gstdio.h"
  49 #include "ginetaddress.h"
  50 #include "ginetsocketaddress.h"
  51 #include "ginputstream.h"
  52 #include "giostream.h"
  53
  54 #ifdef G_OS_UNIX
  55 #include "gunixsocketaddress.h"
  56 #endif
  57
  58 #include "glibintl.h"
  59
  60 /**
  61  * SECTION:gdbusserver
  62  * @short_description: Helper for accepting connections
  63  * @include: gio/gio.h
  64  *
  65  * #GDBusServer is a helper for listening to and accepting D-Bus
  66  * connections. This can be used to create a new D-Bus server, allowing two
  67  * peers to use the D-Bus protocol for their own specialized communication.
  68  * A server instance provided in this way will not perform message routing or
  69  * implement the org.freedesktop.DBus interface.
  70  *
  71  * To just export an object on a well-known name on a message bus, such as the
  72  * session or system bus, you should instead use g_bus_own_name().
  73  *
  74  * <example id="gdbus-peer-to-peer"><title>D-Bus peer-to-peer example</title><programlisting><xi:include xmlns:xi="http://www.w3.org/2001/XInclude" parse="text" href="../../../../gio/tests/gdbus-example-peer.c"><xi:fallback>FIXME: MISSING XINCLUDE CONTENT</xi:fallback></xi:include></programlisting></example>
  75  */
  76
  77 /**
  78  * GDBusServer:
  79  *
  80  * The #GDBusServer structure contains only private data and
  81  * should only be accessed using the provided API.
  82  *
  83  * Since: 2.26
  84  */
  85 struct _GDBusServer
  86 {
  87   /*< private >*/
  88   GObject parent_instance;
  89
  90   GDBusServerFlags flags;
  91   gchar *address;
  92   gchar *guid;
  93
  94   guchar *nonce;
  95   gchar *nonce_file;
  96
  97   gchar *client_address;
  98
  99   GSocketListener *listener;
 100   gboolean is_using_listener;
 101   gulong run_signal_handler_id;
 102
 103   /* The result of g_main_context_ref_thread_default() when the object
 104    * was created (the GObject _init() function) - this is used for delivery
 105    * of the :new-connection GObject signal.
 106    */
 107   GMainContext *main_context_at_construction;
 108
 109   gboolean active;
 110
 111   GDBusAuthObserver *authentication_observer;
 112 };
 113
 114 typedef struct _GDBusServerClass GDBusServerClass;
 115
 116 /**
 117  * GDBusServerClass:
 118  * @new_connection: Signal class handler for the #GDBusServer::new-connection signal.
 119  *
 120  * Class structure for #GDBusServer.
 121  *
 122  * Since: 2.26
 123  */
 124 struct _GDBusServerClass
 125 {
 126   /*< private >*/
 127   GObjectClass parent_class;
 128
 129   /*< public >*/
 130   /* Signals */
 131   gboolean (*new_connection) (GDBusServer      *server,
 132                               GDBusConnection  *connection);
 133 };
 134
 135 enum
 136 {
 137   PROP_0,
 138   PROP_ADDRESS,
 139   PROP_CLIENT_ADDRESS,
 140   PROP_FLAGS,
 141   PROP_GUID,
 142   PROP_ACTIVE,
 143   PROP_AUTHENTICATION_OBSERVER,
 144 };
 145
 146 enum
 147 {
 148   NEW_CONNECTION_SIGNAL,
 149   LAST_SIGNAL,
 150 };
 151
 152 static guint _signals[LAST_SIGNAL] = {0};
 153
 154 static void initable_iface_init       (GInitableIface *initable_iface);
 155
 156 G_DEFINE_TYPE_WITH_CODE (GDBusServer, g_dbus_server, G_TYPE_OBJECT,
 157                          G_IMPLEMENT_INTERFACE (G_TYPE_INITABLE, initable_iface_init)
 158                          );
 159
 160 static void
 161 g_dbus_server_finalize (GObject *object)
 162 {
 163   GDBusServer *server = G_DBUS_SERVER (object);
 164
 165   if (server->authentication_observer != NULL)
 166     g_object_unref (server->authentication_observer);
 167
 168   if (server->run_signal_handler_id > 0)
 169     g_signal_handler_disconnect (server->listener, server->run_signal_handler_id);
 170
 171   if (server->listener != NULL)
 172     g_object_unref (server->listener);
 173
 174   g_free (server->address);
 175   g_free (server->guid);
 176   g_free (server->client_address);
 177   if (server->nonce != NULL)
 178     {
 179       memset (server->nonce, '\0', 16);
 180       g_free (server->nonce);
 181     }
 182   /* we could unlink the nonce file but I don't
 183    * think it's really worth the effort/risk
 184    */
 185   g_free (server->nonce_file);
 186
 187   g_main_context_unref (server->main_context_at_construction);
 188
 189   G_OBJECT_CLASS (g_dbus_server_parent_class)->finalize (object);
 190 }
 191
 192 static void
 193 g_dbus_server_get_property (GObject    *object,
 194                             guint       prop_id,
 195                             GValue     *value,
 196                             GParamSpec *pspec)
 197 {
 198   GDBusServer *server = G_DBUS_SERVER (object);
 199
 200   switch (prop_id)
 201     {
 202     case PROP_FLAGS:
 203       g_value_set_flags (value, server->flags);
 204       break;
 205
 206     case PROP_GUID:
 207       g_value_set_string (value, server->guid);
 208       break;
 209
 210     case PROP_ADDRESS:
 211       g_value_set_string (value, server->address);
 212       break;
 213
 214     case PROP_CLIENT_ADDRESS:
 215       g_value_set_string (value, server->client_address);
 216       break;
 217
 218     case PROP_ACTIVE:
 219       g_value_set_boolean (value, server->active);
 220       break;
 221
 222     case PROP_AUTHENTICATION_OBSERVER:
 223       g_value_set_object (value, server->authentication_observer);
 224       break;
 225
 226     default:
 227       G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
 228       break;
 229     }
 230 }
 231
 232 static void
 233 g_dbus_server_set_property (GObject      *object,
 234                             guint         prop_id,
 235                             const GValue *value,
 236                             GParamSpec   *pspec)
 237 {
 238   GDBusServer *server = G_DBUS_SERVER (object);
 239
 240   switch (prop_id)
 241     {
 242     case PROP_FLAGS:
 243       server->flags = g_value_get_flags (value);
 244       break;
 245
 246     case PROP_GUID:
 247       server->guid = g_value_dup_string (value);
 248       break;
 249
 250     case PROP_ADDRESS:
 251       server->address = g_value_dup_string (value);
 252       break;
 253
 254     case PROP_AUTHENTICATION_OBSERVER:
 255       server->authentication_observer = g_value_dup_object (value);
 256       break;
 257
 258     default:
 259       G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
 260       break;
 261     }
 262 }
 263
 264 static void
 265 g_dbus_server_class_init (GDBusServerClass *klass)
 266 {
 267   GObjectClass *gobject_class = G_OBJECT_CLASS (klass);
 268
 269   gobject_class->finalize     = g_dbus_server_finalize;
 270   gobject_class->set_property = g_dbus_server_set_property;
 271   gobject_class->get_property = g_dbus_server_get_property;
 272
 273   /**
 274    * GDBusServer:flags:
 275    *
 276    * Flags from the #GDBusServerFlags enumeration.
 277    *
 278    * Since: 2.26
 279    */
 280   g_object_class_install_property (gobject_class,
 281                                    PROP_FLAGS,
 282                                    g_param_spec_flags ("flags",
 283                                                        P_("Flags"),
 284                                                        P_("Flags for the server"),
 285                                                        G_TYPE_DBUS_SERVER_FLAGS,
 286                                                        G_DBUS_SERVER_FLAGS_NONE,
 287                                                        G_PARAM_READABLE |
 288                                                        G_PARAM_WRITABLE |
 289                                                        G_PARAM_CONSTRUCT_ONLY |
 290                                                        G_PARAM_STATIC_NAME |
 291                                                        G_PARAM_STATIC_BLURB |
 292                                                        G_PARAM_STATIC_NICK));
 293
 294   /**
 295    * GDBusServer:guid:
 296    *
 297    * The guid of the server.
 298    *
 299    * Since: 2.26
 300    */
 301   g_object_class_install_property (gobject_class,
 302                                    PROP_GUID,
 303                                    g_param_spec_string ("guid",
 304                                                         P_("GUID"),
 305                                                         P_("The guid of the server"),
 306                                                         NULL,
 307                                                         G_PARAM_READABLE |
 308                                                         G_PARAM_WRITABLE |
 309                                                         G_PARAM_CONSTRUCT_ONLY |
 310                                                         G_PARAM_STATIC_NAME |
 311                                                         G_PARAM_STATIC_BLURB |
 312                                                         G_PARAM_STATIC_NICK));
 313
 314   /**
 315    * GDBusServer:address:
 316    *
 317    * The D-Bus address to listen on.
 318    *
 319    * Since: 2.26
 320    */
 321   g_object_class_install_property (gobject_class,
 322                                    PROP_ADDRESS,
 323                                    g_param_spec_string ("address",
 324                                                         P_("Address"),
 325                                                         P_("The address to listen on"),
 326                                                         NULL,
 327                                                         G_PARAM_READABLE |
 328                                                         G_PARAM_WRITABLE |
 329                                                         G_PARAM_CONSTRUCT_ONLY |
 330                                                         G_PARAM_STATIC_NAME |
 331                                                         G_PARAM_STATIC_BLURB |
 332                                                         G_PARAM_STATIC_NICK));
 333
 334   /**
 335    * GDBusServer:client-address:
 336    *
 337    * The D-Bus address that clients can use.
 338    *
 339    * Since: 2.26
 340    */
 341   g_object_class_install_property (gobject_class,
 342                                    PROP_CLIENT_ADDRESS,
 343                                    g_param_spec_string ("client-address",
 344                                                         P_("Client Address"),
 345                                                         P_("The address clients can use"),
 346                                                         NULL,
 347                                                         G_PARAM_READABLE |
 348                                                         G_PARAM_STATIC_NAME |
 349                                                         G_PARAM_STATIC_BLURB |
 350                                                         G_PARAM_STATIC_NICK));
 351
 352   /**
 353    * GDBusServer:active:
 354    *
 355    * Whether the server is currently active.
 356    *
 357    * Since: 2.26
 358    */
 359   g_object_class_install_property (gobject_class,
 360                                    PROP_ACTIVE,
 361                                    g_param_spec_boolean ("active",
 362                                                          P_("Active"),
 363                                                          P_("Whether the server is currently active"),
 364                                                          FALSE,
 365                                                          G_PARAM_READABLE |
 366                                                          G_PARAM_STATIC_NAME |
 367                                                          G_PARAM_STATIC_BLURB |
 368                                                          G_PARAM_STATIC_NICK));
 369
 370   /**
 371    * GDBusServer:authentication-observer:
 372    *
 373    * A #GDBusAuthObserver object to assist in the authentication process or %NULL.
 374    *
 375    * Since: 2.26
 376    */
 377   g_object_class_install_property (gobject_class,
 378                                    PROP_AUTHENTICATION_OBSERVER,
 379                                    g_param_spec_object ("authentication-observer",
 380                                                         P_("Authentication Observer"),
 381                                                         P_("Object used to assist in the authentication process"),
 382                                                         G_TYPE_DBUS_AUTH_OBSERVER,
 383                                                         G_PARAM_READABLE |
 384                                                         G_PARAM_WRITABLE |
 385                                                         G_PARAM_CONSTRUCT_ONLY |
 386                                                         G_PARAM_STATIC_NAME |
 387                                                         G_PARAM_STATIC_BLURB |
 388                                                         G_PARAM_STATIC_NICK));
 389
 390   /**
 391    * GDBusServer::new-connection:
 392    * @server: The #GDBusServer emitting the signal.
 393    * @connection: A #GDBusConnection for the new connection.
 394    *
 395    * Emitted when a new authenticated connection has been made. Use
 396    * g_dbus_connection_get_peer_credentials() to figure out what
 397    * identity (if any), was authenticated.
 398    *
 399    * If you want to accept the connection, take a reference to the
 400    * @connection object and return %TRUE. When you are done with the
 401    * connection call g_dbus_connection_close() and give up your
 402    * reference. Note that the other peer may disconnect at any time -
 403    * a typical thing to do when accepting a connection is to listen to
 404    * the #GDBusConnection::closed signal.
 405    *
 406    * If #GDBusServer:flags contains %G_DBUS_SERVER_FLAGS_RUN_IN_THREAD
 407    * then the signal is emitted in a new thread dedicated to the
 408    * connection. Otherwise the signal is emitted in the <link
 409    * linkend="g-main-context-push-thread-default">thread-default main
 410    * loop</link> of the thread that @server was constructed in.
 411    *
 412    * You are guaranteed that signal handlers for this signal runs
 413    * before incoming messages on @connection are processed. This means
 414    * that it's suitable to call g_dbus_connection_register_object() or
 415    * similar from the signal handler.
 416    *
 417    * Returns: %TRUE to claim @connection, %FALSE to let other handlers
 418    * run.
 419    *
 420    * Since: 2.26
 421    */
 422   _signals[NEW_CONNECTION_SIGNAL] = g_signal_new ("new-connection",
 423                                                   G_TYPE_DBUS_SERVER,
 424                                                   G_SIGNAL_RUN_LAST,
 425                                                   G_STRUCT_OFFSET (GDBusServerClass, new_connection),
 426                                                   g_signal_accumulator_true_handled,
 427                                                   NULL, /* accu_data */
 428                                                   NULL,
 429                                                   G_TYPE_BOOLEAN,
 430                                                   1,
 431                                                   G_TYPE_DBUS_CONNECTION);
 432 }
 433
 434 static void
 435 g_dbus_server_init (GDBusServer *server)
 436 {
 437   server->main_context_at_construction = g_main_context_ref_thread_default ();
 438 }
 439
 440 static gboolean
 441 on_run (GSocketService    *service,
 442         GSocketConnection *socket_connection,
 443         GObject           *source_object,
 444         gpointer           user_data);
 445
 446 /**
 447  * g_dbus_server_new_sync:
 448  * @address: A D-Bus address.
 449  * @flags: Flags from the #GDBusServerFlags enumeration.
 450  * @guid: A D-Bus GUID.
 451  * @observer: (allow-none): A #GDBusAuthObserver or %NULL.
 452  * @cancellable: (allow-none): A #GCancellable or %NULL.
 453  * @error: Return location for server or %NULL.
 454  *
 455  * Creates a new D-Bus server that listens on the first address in
 456  * @address that works.
 457  *
 458  * Once constructed, you can use g_dbus_server_get_client_address() to
 459  * get a D-Bus address string that clients can use to connect.
 460  *
 461  * Connect to the #GDBusServer::new-connection signal to handle
 462  * incoming connections.
 463  *
 464  * The returned #GDBusServer isn't active - you have to start it with
 465  * g_dbus_server_start().
 466  *
 467  * See <xref linkend="gdbus-peer-to-peer"/> for how #GDBusServer can
 468  * be used.
 469  *
 470  * This is a synchronous failable constructor. See
 471  * g_dbus_server_new() for the asynchronous version.
 472  *
 473  * Returns: A #GDBusServer or %NULL if @error is set. Free with
 474  * g_object_unref().
 475  *
 476  * Since: 2.26
 477  */
 478 GDBusServer *
 479 g_dbus_server_new_sync (const gchar        *address,
 480                         GDBusServerFlags    flags,
 481                         const gchar        *guid,
 482                         GDBusAuthObserver  *observer,
 483                         GCancellable       *cancellable,
 484                         GError            **error)
 485 {
 486   GDBusServer *server;
 487
 488   g_return_val_if_fail (address != NULL, NULL);
 489   g_return_val_if_fail (g_dbus_is_guid (guid), NULL);
 490   g_return_val_if_fail (error == NULL || *error == NULL, NULL);
 491
 492   server = g_initable_new (G_TYPE_DBUS_SERVER,
 493                            cancellable,
 494                            error,
 495                            "address", address,
 496                            "flags", flags,
 497                            "guid", guid,
 498                            "authentication-observer", observer,
 499                            NULL);
 500
 501   return server;
 502 }
 503
 504 /**
 505  * g_dbus_server_get_client_address:
 506  * @server: A #GDBusServer.
 507  *
 508  * Gets a D-Bus address string that can be used by clients to connect
 509  * to @server.
 510  *
 511  * Returns: A D-Bus address string. Do not free, the string is owned
 512  * by @server.
 513  *
 514  * Since: 2.26
 515  */
 516 const gchar *
 517 g_dbus_server_get_client_address (GDBusServer *server)
 518 {
 519   g_return_val_if_fail (G_IS_DBUS_SERVER (server), NULL);
 520   return server->client_address;
 521 }
 522
 523 /**
 524  * g_dbus_server_get_guid:
 525  * @server: A #GDBusServer.
 526  *
 527  * Gets the GUID for @server.
 528  *
 529  * Returns: A D-Bus GUID. Do not free this string, it is owned by @server.
 530  *
 531  * Since: 2.26
 532  */
 533 const gchar *
 534 g_dbus_server_get_guid (GDBusServer *server)
 535 {
 536   g_return_val_if_fail (G_IS_DBUS_SERVER (server), NULL);
 537   return server->guid;
 538 }
 539
 540 /**
 541  * g_dbus_server_get_flags:
 542  * @server: A #GDBusServer.
 543  *
 544  * Gets the flags for @server.
 545  *
 546  * Returns: A set of flags from the #GDBusServerFlags enumeration.
 547  *
 548  * Since: 2.26
 549  */
 550 GDBusServerFlags
 551 g_dbus_server_get_flags (GDBusServer *server)
 552 {
 553   g_return_val_if_fail (G_IS_DBUS_SERVER (server), G_DBUS_SERVER_FLAGS_NONE);
 554   return server->flags;
 555 }
 556
 557 /**
 558  * g_dbus_server_is_active:
 559  * @server: A #GDBusServer.
 560  *
 561  * Gets whether @server is active.
 562  *
 563  * Returns: %TRUE if server is active, %FALSE otherwise.
 564  *
 565  * Since: 2.26
 566  */
 567 gboolean
 568 g_dbus_server_is_active (GDBusServer *server)
 569 {
 570   g_return_val_if_fail (G_IS_DBUS_SERVER (server), G_DBUS_SERVER_FLAGS_NONE);
 571   return server->active;
 572 }
 573
 574 /**
 575  * g_dbus_server_start:
 576  * @server: A #GDBusServer.
 577  *
 578  * Starts @server.
 579  *
 580  * Since: 2.26
 581  */
 582 void
 583 g_dbus_server_start (GDBusServer *server)
 584 {
 585   g_return_if_fail (G_IS_DBUS_SERVER (server));
 586   if (server->active)
 587     return;
 588   /* Right now we don't have any transport not using the listener... */
 589   g_assert (server->is_using_listener);
 590   g_socket_service_start (G_SOCKET_SERVICE (server->listener));
 591   server->active = TRUE;
 592   g_object_notify (G_OBJECT (server), "active");
 593 }
 594
 595 /**
 596  * g_dbus_server_stop:
 597  * @server: A #GDBusServer.
 598  *
 599  * Stops @server.
 600  *
 601  * Since: 2.26
 602  */
 603 void
 604 g_dbus_server_stop (GDBusServer *server)
 605 {
 606   g_return_if_fail (G_IS_DBUS_SERVER (server));
 607   if (!server->active)
 608     return;
 609   /* Right now we don't have any transport not using the listener... */
 610   g_assert (server->is_using_listener);
 611   g_assert (server->run_signal_handler_id > 0);
 612   g_signal_handler_disconnect (server->listener, server->run_signal_handler_id);
 613   server->run_signal_handler_id = 0;
 614   g_socket_service_stop (G_SOCKET_SERVICE (server->listener));
 615   server->active = FALSE;
 616   g_object_notify (G_OBJECT (server), "active");
 617 }
 618
 619 /* ---------------------------------------------------------------------------------------------------- */
 620
 621 #ifdef G_OS_UNIX
 622
 623 static gint
 624 random_ascii (void)
 625 {
 626   gint ret;
 627   ret = g_random_int_range (0, 60);
 628   if (ret < 25)
 629     ret += 'A';
 630   else if (ret < 50)
 631     ret += 'a' - 25;
 632   else
 633     ret += '0' - 50;
 634   return ret;
 635 }
 636
 637 /* note that address_entry has already been validated => exactly one of path, tmpdir or abstract keys are set */
 638 static gboolean
 639 try_unix (GDBusServer  *server,
 640           const gchar  *address_entry,
 641           GHashTable   *key_value_pairs,
 642           GError      **error)
 643 {
 644   gboolean ret;
 645   const gchar *path;
 646   const gchar *tmpdir;
 647   const gchar *abstract;
 648   GSocketAddress *address;
 649
 650   ret = FALSE;
 651   address = NULL;
 652
 653   path = g_hash_table_lookup (key_value_pairs, "path");
 654   tmpdir = g_hash_table_lookup (key_value_pairs, "tmpdir");
 655   abstract = g_hash_table_lookup (key_value_pairs, "abstract");
 656
 657   if (path != NULL)
 658     {
 659       address = g_unix_socket_address_new (path);
 660     }
 661   else if (tmpdir != NULL)
 662     {
 663       gint n;
 664       GString *s;
 665       GError *local_error;
 666
 667     retry:
 668       s = g_string_new (tmpdir);
 669       g_string_append (s, "/dbus-");
 670       for (n = 0; n < 8; n++)
 671         g_string_append_c (s, random_ascii ());
 672
 673       /* prefer abstract namespace if available */
 674       if (g_unix_socket_address_abstract_names_supported ())
 675         address = g_unix_socket_address_new_with_type (s->str,
 676                                                        -1,
 677                                                        G_UNIX_SOCKET_ADDRESS_ABSTRACT);
 678       else
 679         address = g_unix_socket_address_new (s->str);
 680       g_string_free (s, TRUE);
 681
 682       local_error = NULL;
 683       if (!g_socket_listener_add_address (server->listener,
 684                                           address,
 685                                           G_SOCKET_TYPE_STREAM,
 686                                           G_SOCKET_PROTOCOL_DEFAULT,
 687                                           NULL, /* source_object */
 688                                           NULL, /* effective_address */
 689                                           &local_error))
 690         {
 691           if (local_error->domain == G_IO_ERROR && local_error->code == G_IO_ERROR_ADDRESS_IN_USE)
 692             {
 693               g_error_free (local_error);
 694               goto retry;
 695             }
 696           g_propagate_error (error, local_error);
 697           goto out;
 698         }
 699       ret = TRUE;
 700       goto out;
 701     }
 702   else if (abstract != NULL)
 703     {
 704       if (!g_unix_socket_address_abstract_names_supported ())
 705         {
 706           g_set_error_literal (error,
 707                                G_IO_ERROR,
 708                                G_IO_ERROR_NOT_SUPPORTED,
 709                                _("Abstract name space not supported"));
 710           goto out;
 711         }
 712       address = g_unix_socket_address_new_with_type (abstract,
 713                                                      -1,
 714                                                      G_UNIX_SOCKET_ADDRESS_ABSTRACT);
 715     }
 716   else
 717     {
 718       g_assert_not_reached ();
 719     }
 720
 721   if (!g_socket_listener_add_address (server->listener,
 722                                       address,
 723                                       G_SOCKET_TYPE_STREAM,
 724                                       G_SOCKET_PROTOCOL_DEFAULT,
 725                                       NULL, /* source_object */
 726                                       NULL, /* effective_address */
 727                                       error))
 728     goto out;
 729
 730   ret = TRUE;
 731
 732  out:
 733
 734   if (address != NULL)
 735     {
 736       /* Fill out client_address if the connection attempt worked */
 737       if (ret)
 738         {
 739           server->is_using_listener = TRUE;
 740
 741           switch (g_unix_socket_address_get_address_type (G_UNIX_SOCKET_ADDRESS (address)))
 742             {
 743             case G_UNIX_SOCKET_ADDRESS_ABSTRACT:
 744               server->client_address = g_strdup_printf ("unix:abstract=%s",
 745                                                         g_unix_socket_address_get_path (G_UNIX_SOCKET_ADDRESS (address)));
 746               break;
 747
 748             case G_UNIX_SOCKET_ADDRESS_PATH:
 749               server->client_address = g_strdup_printf ("unix:path=%s",
 750                                                         g_unix_socket_address_get_path (G_UNIX_SOCKET_ADDRESS (address)));
 751               break;
 752
 753             default:
 754               g_assert_not_reached ();
 755               break;
 756             }
 757         }
 758       g_object_unref (address);
 759     }
 760   return ret;
 761 }
 762 #endif
 763
 764 /* ---------------------------------------------------------------------------------------------------- */
 765
 766 /* note that address_entry has already been validated =>
 767  *  both host and port (guaranteed to be a number in [0, 65535]) are set (family is optional)
 768  */
 769 static gboolean
 770 try_tcp (GDBusServer  *server,
 771          const gchar  *address_entry,
 772          GHashTable   *key_value_pairs,
 773          gboolean      do_nonce,
 774          GError      **error)
 775 {
 776   gboolean ret;
 777   const gchar *host;
 778   const gchar *port;
 779   gint port_num;
 780   GResolver *resolver;
 781   GList *resolved_addresses;
 782   GList *l;
 783
 784   ret = FALSE;
 785   resolver = NULL;
 786   resolved_addresses = NULL;
 787
 788   host = g_hash_table_lookup (key_value_pairs, "host");
 789   port = g_hash_table_lookup (key_value_pairs, "port");
 790   /* family = g_hash_table_lookup (key_value_pairs, "family"); */
 791   if (g_hash_table_lookup (key_value_pairs, "noncefile") != NULL)
 792     {
 793       g_set_error_literal (error,
 794                            G_IO_ERROR,
 795                            G_IO_ERROR_INVALID_ARGUMENT,
 796                            _("Cannot specify nonce file when creating a server"));
 797       goto out;
 798     }
 799
 800   if (host == NULL)
 801     host = "localhost";
 802   if (port == NULL)
 803     port = "0";
 804   port_num = strtol (port, NULL, 10);
 805
 806   resolver = g_resolver_get_default ();
 807   resolved_addresses = g_resolver_lookup_by_name (resolver,
 808                                                   host,
 809                                                   NULL,
 810                                                   error);
 811   if (resolved_addresses == NULL)
 812     goto out;
 813
 814   /* TODO: handle family */
 815   for (l = resolved_addresses; l != NULL; l = l->next)
 816     {
 817       GInetAddress *address = G_INET_ADDRESS (l->data);
 818       GSocketAddress *socket_address;
 819       GSocketAddress *effective_address;
 820
 821       socket_address = g_inet_socket_address_new (address, port_num);
 822       if (!g_socket_listener_add_address (server->listener,
 823                                           socket_address,
 824                                           G_SOCKET_TYPE_STREAM,
 825                                           G_SOCKET_PROTOCOL_TCP,
 826                                           NULL, /* GObject *source_object */
 827                                           &effective_address,
 828                                           error))
 829         {
 830           g_object_unref (socket_address);
 831           goto out;
 832         }
 833       if (port_num == 0)
 834         /* make sure we allocate the same port number for other listeners */
 835         port_num = g_inet_socket_address_get_port (G_INET_SOCKET_ADDRESS (effective_address));
 836
 837       g_object_unref (effective_address);
 838       g_object_unref (socket_address);
 839     }
 840
 841   if (do_nonce)
 842     {
 843       gint fd;
 844       guint n;
 845       gsize bytes_written;
 846       gsize bytes_remaining;
 847       char *file_escaped;
 848
 849       server->nonce = g_new0 (guchar, 16);
 850       for (n = 0; n < 16; n++)
 851         server->nonce[n] = g_random_int_range (0, 256);
 852       fd = g_file_open_tmp ("gdbus-nonce-file-XXXXXX",
 853                             &server->nonce_file,
 854                             error);
 855       if (fd == -1)
 856         {
 857           g_socket_listener_close (server->listener);
 858           goto out;
 859         }
 860     again:
 861       bytes_written = 0;
 862       bytes_remaining = 16;
 863       while (bytes_remaining > 0)
 864         {
 865           gssize ret;
 866           ret = write (fd, server->nonce + bytes_written, bytes_remaining);
 867           if (ret == -1)
 868             {
 869               if (errno == EINTR)
 870                 goto again;
 871               g_set_error (error,
 872                            G_IO_ERROR,
 873                            g_io_error_from_errno (errno),
 874                            _("Error writing nonce file at '%s': %s"),
 875                            server->nonce_file,
 876                            strerror (errno));
 877               goto out;
 878             }
 879           bytes_written += ret;
 880           bytes_remaining -= ret;
 881         }
 882       if (!g_close (fd, error))
 883         goto out;
 884       file_escaped = g_uri_escape_string (server->nonce_file, "/\\", FALSE);
 885       server->client_address = g_strdup_printf ("nonce-tcp:host=%s,port=%d,noncefile=%s",
 886                                                 host,
 887                                                 port_num,
 888                                                 file_escaped);
 889       g_free (file_escaped);
 890     }
 891   else
 892     {
 893       server->client_address = g_strdup_printf ("tcp:host=%s,port=%d", host, port_num);
 894     }
 895   server->is_using_listener = TRUE;
 896   ret = TRUE;
 897
 898  out:
 899   g_list_free_full (resolved_addresses, g_object_unref);
 900   g_object_unref (resolver);
 901   return ret;
 902 }
 903
 904 /* ---------------------------------------------------------------------------------------------------- */
 905
 906 typedef struct
 907 {
 908   GDBusServer *server;
 909   GDBusConnection *connection;
 910 } EmitIdleData;
 911
 912 static void
 913 emit_idle_data_free (EmitIdleData *data)
 914 {
 915   g_object_unref (data->server);
 916   g_object_unref (data->connection);
 917   g_free (data);
 918 }
 919
 920 static gboolean
 921 emit_new_connection_in_idle (gpointer user_data)
 922 {
 923   EmitIdleData *data = user_data;
 924   gboolean claimed;
 925
 926   claimed = FALSE;
 927   g_signal_emit (data->server,
 928                  _signals[NEW_CONNECTION_SIGNAL],
 929                  0,
 930                  data->connection,
 931                  &claimed);
 932
 933   if (claimed)
 934     g_dbus_connection_start_message_processing (data->connection);
 935   g_object_unref (data->connection);
 936
 937   return FALSE;
 938 }
 939
 940 /* Called in new thread */
 941 static gboolean
 942 on_run (GSocketService    *service,
 943         GSocketConnection *socket_connection,
 944         GObject           *source_object,
 945         gpointer           user_data)
 946 {
 947   GDBusServer *server = G_DBUS_SERVER (user_data);
 948   GDBusConnection *connection;
 949   GDBusConnectionFlags connection_flags;
 950
 951   if (server->nonce != NULL)
 952     {
 953       gchar buf[16];
 954       gsize bytes_read;
 955
 956       if (!g_input_stream_read_all (g_io_stream_get_input_stream (G_IO_STREAM (socket_connection)),
 957                                     buf,
 958                                     16,
 959                                     &bytes_read,
 960                                     NULL,  /* GCancellable */
 961                                     NULL)) /* GError */
 962         goto out;
 963
 964       if (bytes_read != 16)
 965         goto out;
 966
 967       if (memcmp (buf, server->nonce, 16) != 0)
 968         goto out;
 969     }
 970
 971   connection_flags =
 972     G_DBUS_CONNECTION_FLAGS_AUTHENTICATION_SERVER |
 973     G_DBUS_CONNECTION_FLAGS_DELAY_MESSAGE_PROCESSING;
 974   if (server->flags & G_DBUS_SERVER_FLAGS_AUTHENTICATION_ALLOW_ANONYMOUS)
 975     connection_flags |= G_DBUS_CONNECTION_FLAGS_AUTHENTICATION_ALLOW_ANONYMOUS;
 976
 977   connection = g_dbus_connection_new_sync (G_IO_STREAM (socket_connection),
 978                                            server->guid,
 979                                            connection_flags,
 980                                            server->authentication_observer,
 981                                            NULL,  /* GCancellable */
 982                                            NULL); /* GError */
 983   if (connection == NULL)
 984       goto out;
 985
 986   if (server->flags & G_DBUS_SERVER_FLAGS_RUN_IN_THREAD)
 987     {
 988       gboolean claimed;
 989
 990       claimed = FALSE;
 991       g_signal_emit (server,
 992                      _signals[NEW_CONNECTION_SIGNAL],
 993                      0,
 994                      connection,
 995                      &claimed);
 996       if (claimed)
 997         g_dbus_connection_start_message_processing (connection);
 998       g_object_unref (connection);
 999     }
1000   else
1001     {
1002       GSource *idle_source;
1003       EmitIdleData *data;
1004
1005       data = g_new0 (EmitIdleData, 1);
1006       data->server = g_object_ref (server);
1007       data->connection = g_object_ref (connection);
1008
1009       idle_source = g_idle_source_new ();
1010       g_source_set_priority (idle_source, G_PRIORITY_DEFAULT);
1011       g_source_set_callback (idle_source,
1012                              emit_new_connection_in_idle,
1013                              data,
1014                              (GDestroyNotify) emit_idle_data_free);
1015       g_source_attach (idle_source, server->main_context_at_construction);
1016       g_source_unref (idle_source);
1017     }
1018
1019  out:
1020   return TRUE;
1021 }
1022
1023 static gboolean
1024 initable_init (GInitable     *initable,
1025                GCancellable  *cancellable,
1026                GError       **error)
1027 {
1028   GDBusServer *server = G_DBUS_SERVER (initable);
1029   gboolean ret;
1030   guint n;
1031   gchar **addr_array;
1032   GError *last_error;
1033
1034   ret = FALSE;
1035   addr_array = NULL;
1036   last_error = NULL;
1037
1038   if (!g_dbus_is_guid (server->guid))
1039     {
1040       g_set_error (&last_error,
1041                    G_IO_ERROR,
1042                    G_IO_ERROR_INVALID_ARGUMENT,
1043                    _("The string '%s' is not a valid D-Bus GUID"),
1044                    server->guid);
1045       goto out;
1046     }
1047
1048   server->listener = G_SOCKET_LISTENER (g_threaded_socket_service_new (-1));
1049
1050   addr_array = g_strsplit (server->address, ";", 0);
1051   last_error = NULL;
1052   for (n = 0; addr_array != NULL && addr_array[n] != NULL; n++)
1053     {
1054       const gchar *address_entry = addr_array[n];
1055       GHashTable *key_value_pairs;
1056       gchar *transport_name;
1057       GError *this_error;
1058
1059       this_error = NULL;
1060       if (g_dbus_is_supported_address (address_entry,
1061                                        &this_error) &&
1062           _g_dbus_address_parse_entry (address_entry,
1063                                        &transport_name,
1064                                        &key_value_pairs,
1065                                        &this_error))
1066         {
1067
1068           if (FALSE)
1069             {
1070             }
1071 #ifdef G_OS_UNIX
1072           else if (g_strcmp0 (transport_name, "unix") == 0)
1073             ret = try_unix (server, address_entry, key_value_pairs, &this_error);
1074 #endif
1075           else if (g_strcmp0 (transport_name, "tcp") == 0)
1076             ret = try_tcp (server, address_entry, key_value_pairs, FALSE, &this_error);
1077           else if (g_strcmp0 (transport_name, "nonce-tcp") == 0)
1078             ret = try_tcp (server, address_entry, key_value_pairs, TRUE, &this_error);
1079           else
1080             g_set_error (&this_error,
1081                          G_IO_ERROR,
1082                          G_IO_ERROR_INVALID_ARGUMENT,
1083                          _("Cannot listen on unsupported transport '%s'"),
1084                          transport_name);
1085
1086           g_free (transport_name);
1087           if (key_value_pairs != NULL)
1088             g_hash_table_unref (key_value_pairs);
1089
1090           if (ret)
1091             {
1092               g_assert (this_error == NULL);
1093               goto out;
1094             }
1095         }
1096
1097       if (this_error != NULL)
1098         {
1099           if (last_error != NULL)
1100             g_error_free (last_error);
1101           last_error = this_error;
1102         }
1103     }
1104
1105  out:
1106
1107   g_strfreev (addr_array);
1108
1109   if (ret)
1110     {
1111       if (last_error != NULL)
1112         g_error_free (last_error);
1113
1114       /* Right now we don't have any transport not using the listener... */
1115       g_assert (server->is_using_listener);
1116       server->run_signal_handler_id = g_signal_connect (G_SOCKET_SERVICE (server->listener),
1117                                                         "run",
1118                                                         G_CALLBACK (on_run),
1119                                                         server);
1120     }
1121   else
1122     {
1123       g_assert (last_error != NULL);
1124       g_propagate_error (error, last_error);
1125     }
1126   return ret;
1127 }
1128
1129
1130 static void
1131 initable_iface_init (GInitableIface *initable_iface)
1132 {
1133   initable_iface->init = initable_init;
1134 }
1135
1136 /* ---------------------------------------------------------------------------------------------------- */