sl@0: /* -*- mode: C; c-file-style: "gnu" -*- */
sl@0: /* main.c  main() for message bus
sl@0:  *
sl@0:  * Copyright (C) 2003  CodeFactory AB
sl@0:  * Copyright (C) 2003  Red Hat, Inc.
sl@0:  * Copyright (C) 2004  Imendio HB
sl@0:  * Portion Copyright © 2008 Nokia Corporation and/or its subsidiary(-ies). All rights reserved.
sl@0:  *
sl@0:  * Licensed under the Academic Free License version 2.1
sl@0:  * 
sl@0:  * This program is free software; you can redistribute it and/or modify
sl@0:  * it under the terms of the GNU General Public License as published by
sl@0:  * the Free Software Foundation; either version 2 of the License, or
sl@0:  * (at your option) any later version.
sl@0:  *
sl@0:  * This program is distributed in the hope that it will be useful,
sl@0:  * but WITHOUT ANY WARRANTY; without even the implied warranty of
sl@0:  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
sl@0:  * GNU General Public License for more details.
sl@0:  * 
sl@0:  * You should have received a copy of the GNU General Public License
sl@0:  * along with this program; if not, write to the Free Software
sl@0:  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
sl@0:  *
sl@0:  */ 
sl@0: #include "bus.h"
sl@0: #include "driver.h"
sl@0: #ifndef __SYMBIAN32__
sl@0: #include <dbus/dbus-internals.h>
sl@0: #include <dbus/dbus-watch.h>
sl@0: #else
sl@0: #include "dbus-internals.h"
sl@0: #include "dbus-watch.h"
sl@0: #endif //__SYMBIAN32__
sl@0: #include <stdio.h>
sl@0: #include <stdlib.h>
sl@0: #include <string.h>
sl@0: #ifndef __SYMBIAN32__
sl@0: #include <signal.h>
sl@0: #endif
sl@0: #include <errno.h>
sl@0: #include "selinux.h"
sl@0: 
sl@0: static BusContext *context;
sl@0: 
sl@0: static int reload_pipe[2];
sl@0: #define RELOAD_READ_END 0
sl@0: #define RELOAD_WRITE_END 1
sl@0: 
sl@0: #ifdef __SYMBIAN32__
sl@0: #if 0 
sl@0:  #include <fcntl.h>
sl@0: 
sl@0: int lock_file()
sl@0: {
sl@0: 
sl@0: 
sl@0: 
sl@0:        /*
sl@0:        struct flock {
sl@0: 	off_t	l_start;	 starting offset 
sl@0: 	off_t	l_len;		 len = 0 means until end of file 
sl@0: 	pid_t	l_pid;		 lock owner 
sl@0: 	short	l_type;		 lock type: read/write, etc. 
sl@0: 	short	l_whence;	 type of l_start 
sl@0: };
sl@0:  l_type   l_whence  l_start  l_len  l_pid   */
sl@0: 
sl@0: 
sl@0:     //	struct flock fl = { F_WRLCK, SEEK_SET, 0,       0,     0 };
sl@0:     //	struct flock fl = { 0, 0, 0,F_WRLCK, SEEK_SET};
sl@0:     	int fd;
sl@0:     
sl@0:       //  fl.l_pid = getpid();
sl@0:     
sl@0:     	
sl@0:     	if ((fd = open(DBUS_LOCK_FILE, O_RDWR|O_CREAT|O_EXCL, 0666)) == -1) 
sl@0:     	{
sl@0:     //	perror("open file status");
sl@0:     	return 0;
sl@0:     	
sl@0:     	}
sl@0:     
sl@0:    /* fcntl file lock not supported in openc 	
sl@0:     	if (fcntl(fd, F_SETLKW, &fl) == -1) {
sl@0:     		perror("fcntl");
sl@0: 		close(fd);
sl@0:     		return 0;
sl@0:     	}
sl@0:     
sl@0:    */ 	
sl@0:     close(fd);
sl@0: 	return 1;
sl@0: 
sl@0: }
sl@0: 
sl@0: #endif
sl@0: 
sl@0: #endif
sl@0: void
sl@0: signal_handler (int sig)
sl@0: {
sl@0: #ifndef __SYMBIAN32__
sl@0:   DBusString str;
sl@0: 
sl@0:   switch (sig)
sl@0:     {
sl@0: #ifdef DBUS_BUS_ENABLE_DNOTIFY_ON_LINUX 
sl@0:     case SIGIO: 
sl@0:       /* explicit fall-through */
sl@0: #endif /* DBUS_BUS_ENABLE_DNOTIFY_ON_LINUX  */
sl@0:     case SIGHUP:
sl@0:       _dbus_string_init_const (&str, "foo");
sl@0:       if (!_dbus_write_socket (reload_pipe[RELOAD_WRITE_END], &str, 0, 1))
sl@0: 	{
sl@0: 	  _dbus_warn ("Unable to write to reload pipe.\n");
sl@0: 	  exit (1);
sl@0: 	}
sl@0:       break;
sl@0: 
sl@0:     case SIGTERM:
sl@0:       _dbus_loop_quit (bus_context_get_loop (context));
sl@0:       break;
sl@0:     }
sl@0: 
sl@0: #endif
sl@0: }
sl@0: static void
sl@0: usage (void)
sl@0: {
sl@0:   fprintf (stderr, DAEMON_NAME " [--version] [--session] [--system] [--config-file=FILE] [--print-address[=DESCRIPTOR]] [--print-pid[=DESCRIPTOR]] [--fork] [--nofork] [--introspect]\n");
sl@0:   exit (1);
sl@0: }
sl@0: 
sl@0: static void
sl@0: version (void)
sl@0: {
sl@0:   printf ("D-Bus Message Bus Daemon %s\n"
sl@0:           "Copyright (C) 2002, 2003 Red Hat, Inc., CodeFactory AB, and others\n"
sl@0:           "This is free software; see the source for copying conditions.\n"
sl@0:           "There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n",
sl@0:           VERSION);
sl@0:   exit (0);
sl@0: }
sl@0: 
sl@0: static void
sl@0: introspect (void)
sl@0: {
sl@0:   DBusString xml;
sl@0:   const char *v_STRING;  
sl@0: 
sl@0:   if (!_dbus_string_init (&xml))
sl@0:     goto oom;
sl@0: 
sl@0:   if (!bus_driver_generate_introspect_string (&xml))
sl@0:     {
sl@0:       _dbus_string_free (&xml);
sl@0:       goto oom;
sl@0:     }
sl@0: 
sl@0:   v_STRING = _dbus_string_get_const_data (&xml);
sl@0:   printf ("%s\n", v_STRING); 
sl@0: 
sl@0:   exit (0);
sl@0:  
sl@0:  oom:
sl@0:   _dbus_warn ("Can not introspect - Out of memory\n");
sl@0:   exit (1);
sl@0: }
sl@0: static void
sl@0: check_two_config_files (const DBusString *config_file,
sl@0:                         const char       *extra_arg)
sl@0: {
sl@0:   if (_dbus_string_get_length (config_file) > 0)
sl@0:     {
sl@0:       fprintf (stderr, "--%s specified but configuration file %s already requested\n",
sl@0:                extra_arg, _dbus_string_get_const_data (config_file));
sl@0:       exit (1);
sl@0:     }
sl@0: }
sl@0: 
sl@0: static void
sl@0: check_two_addr_descriptors (const DBusString *addr_fd,
sl@0:                             const char       *extra_arg)
sl@0: {
sl@0:   if (_dbus_string_get_length (addr_fd) > 0)
sl@0:     {
sl@0:       fprintf (stderr, "--%s specified but printing address to %s already requested\n",
sl@0:                extra_arg, _dbus_string_get_const_data (addr_fd));
sl@0:       exit (1);
sl@0:     }
sl@0: }
sl@0: 
sl@0: static void
sl@0: check_two_pid_descriptors (const DBusString *pid_fd,
sl@0:                            const char       *extra_arg)
sl@0: {
sl@0:   if (_dbus_string_get_length (pid_fd) > 0)
sl@0:     {
sl@0:       fprintf (stderr, "--%s specified but printing pid to %s already requested\n",
sl@0:                extra_arg, _dbus_string_get_const_data (pid_fd));
sl@0:       exit (1);
sl@0:     }
sl@0: }
sl@0: 
sl@0: static dbus_bool_t
sl@0: handle_reload_watch (DBusWatch    *watch,
sl@0: 		     unsigned int  flags,
sl@0: 		     void         *data)
sl@0: {
sl@0:   DBusError error;
sl@0:   DBusString str;
sl@0:   _dbus_string_init (&str);
sl@0:   if (_dbus_read_socket (reload_pipe[RELOAD_READ_END], &str, 1) != 1)
sl@0:     {
sl@0:       _dbus_warn ("Couldn't read from reload pipe.\n");
sl@0:       exit (1);
sl@0:     }
sl@0:   _dbus_string_free (&str);
sl@0: 
sl@0:   dbus_error_init (&error);
sl@0:   if (! bus_context_reload_config (context, &error))
sl@0:     {
sl@0:       _dbus_warn ("Unable to reload configuration: %s\n",
sl@0: 		  error.message);
sl@0:       dbus_error_free (&error);
sl@0:       exit (1);
sl@0:     }
sl@0:   return TRUE;
sl@0: }
sl@0: 
sl@0: 
sl@0: static dbus_bool_t
sl@0: reload_watch_callback (DBusWatch    *watch,
sl@0: 		       unsigned int  condition,
sl@0: 		       void         *data)
sl@0: {
sl@0:   return dbus_watch_handle (watch, condition);
sl@0: }
sl@0: 
sl@0: static void
sl@0: setup_reload_pipe (DBusLoop *loop)
sl@0: {
sl@0:   DBusError error;
sl@0:   DBusWatch *watch;
sl@0: 
sl@0:   dbus_error_init (&error);
sl@0: 
sl@0:   if (!_dbus_full_duplex_pipe (&reload_pipe[0], &reload_pipe[1],
sl@0: 			       TRUE, &error))
sl@0:     {
sl@0:       _dbus_warn ("Unable to create reload pipe: %s\n",
sl@0: 		  error.message);
sl@0:       dbus_error_free (&error);
sl@0:       exit (1);
sl@0:     }
sl@0: 
sl@0:   _dbus_fd_set_close_on_exec (reload_pipe[0]);
sl@0:   _dbus_fd_set_close_on_exec (reload_pipe[1]);
sl@0: 
sl@0:   watch = _dbus_watch_new (reload_pipe[RELOAD_READ_END],
sl@0: 			   DBUS_WATCH_READABLE, TRUE,
sl@0: 			   handle_reload_watch, NULL, NULL);
sl@0: 
sl@0:   if (watch == NULL)
sl@0:     {
sl@0:       _dbus_warn ("Unable to create reload watch: %s\n",
sl@0: 		  error.message);
sl@0:       dbus_error_free (&error);
sl@0:       exit (1);
sl@0:     }
sl@0: 
sl@0:   if (!_dbus_loop_add_watch (loop, watch, reload_watch_callback,
sl@0: 			     NULL, NULL))
sl@0:     {
sl@0:       _dbus_warn ("Unable to add reload watch to main loop: %s\n",
sl@0: 		  error.message);
sl@0:       dbus_error_free (&error);
sl@0:       exit (1);
sl@0:     }
sl@0: 
sl@0: }
sl@0: 
sl@0: 
sl@0: int
sl@0: main (int argc, char **argv)
sl@0: {
sl@0:   DBusError error;
sl@0:   DBusString config_file;
sl@0:   DBusString addr_fd;
sl@0:   DBusString pid_fd;
sl@0:   const char *prev_arg;
sl@0:   int print_addr_fd;
sl@0:   int print_pid_fd;
sl@0:   int i;
sl@0:   dbus_bool_t print_address;
sl@0:   dbus_bool_t print_pid;
sl@0:   int force_fork;
sl@0:   #ifdef __SYMBIAN32__
sl@0:   char systemconfpath[35];
sl@0: #endif
sl@0:   
sl@0:  // write(1, "hi daemon", 9); 
sl@0: 
sl@0:   if (!_dbus_string_init (&config_file))
sl@0:     return 1;
sl@0: 
sl@0:   if (!_dbus_string_init (&addr_fd))
sl@0:     return 1;
sl@0: 
sl@0:   if (!_dbus_string_init (&pid_fd))
sl@0:     return 1;
sl@0: 
sl@0:   print_address = FALSE;
sl@0:   print_pid = FALSE;
sl@0:   force_fork = FORK_FOLLOW_CONFIG_FILE;
sl@0: 
sl@0: #ifdef __SYMBIAN32__
sl@0: // Open C Does not have command arguments
sl@0: // Open C Does not have fork
sl@0: // force_fork = FORK_NEVER;
sl@0: // __SYMBIAN32__ uses system dbus only
sl@0: 
sl@0: //  _dbus_string_append (&config_file, DBUS_SYSTEM_CONFIG_FILE);
sl@0:     systemconfpath[0]= 'z';//Default
sl@0: 
sl@0:  	systemconfpath[0]=getSystemConfDriveLetter();
sl@0:  	
sl@0:  	systemconfpath[1]=':';
sl@0:     systemconfpath[2]='\0';
sl@0: 
sl@0:   strcat(systemconfpath,"\\data\\dbus\\system.conf");
sl@0:   _dbus_string_append (&config_file, systemconfpath);
sl@0:   
sl@0:   force_fork = FORK_NEVER;
sl@0:   
sl@0: #else
sl@0:   prev_arg = NULL;
sl@0:   i = 1;
sl@0:   while (i < argc)
sl@0:     {
sl@0:       const char *arg = argv[i];
sl@0: 
sl@0:       if (strcmp (arg, "--help") == 0 ||
sl@0:           strcmp (arg, "-h") == 0 ||
sl@0:           strcmp (arg, "-?") == 0)
sl@0:         usage ();
sl@0:       else if (strcmp (arg, "--version") == 0)
sl@0:         version ();
sl@0:       else if (strcmp (arg, "--introspect") == 0)
sl@0:         introspect ();
sl@0:       else if (strcmp (arg, "--nofork") == 0)
sl@0:         force_fork = FORK_NEVER;
sl@0:       else if (strcmp (arg, "--fork") == 0)
sl@0:         force_fork = FORK_ALWAYS;
sl@0:       else if (strcmp (arg, "--system") == 0)
sl@0:         {
sl@0:           check_two_config_files (&config_file, "system");
sl@0: 
sl@0:           if (!_dbus_string_append (&config_file, DBUS_SYSTEM_CONFIG_FILE))
sl@0:             exit (1);
sl@0:         }
sl@0:       else if (strcmp (arg, "--session") == 0)
sl@0:         {
sl@0:           check_two_config_files (&config_file, "session");
sl@0: 
sl@0:           if (!_dbus_string_append (&config_file, DBUS_SESSION_CONFIG_FILE))
sl@0:             exit (1);
sl@0:         }
sl@0:       else if (strstr (arg, "--config-file=") == arg)
sl@0:         {
sl@0:           const char *file;
sl@0: 
sl@0:           check_two_config_files (&config_file, "config-file");
sl@0:           
sl@0:           file = strchr (arg, '=');
sl@0:           ++file;
sl@0: 
sl@0:           if (!_dbus_string_append (&config_file, file))
sl@0:             exit (1);
sl@0:         }
sl@0:       else if (prev_arg &&
sl@0:                strcmp (prev_arg, "--config-file") == 0)
sl@0:         {
sl@0:           check_two_config_files (&config_file, "config-file");
sl@0:           
sl@0:           if (!_dbus_string_append (&config_file, arg))
sl@0:             exit (1);
sl@0:         }
sl@0:       else if (strcmp (arg, "--config-file") == 0)
sl@0:         ; /* wait for next arg */
sl@0:       else if (strstr (arg, "--print-address=") == arg)
sl@0:         {
sl@0:           const char *desc;
sl@0: 
sl@0:           check_two_addr_descriptors (&addr_fd, "print-address");
sl@0:           
sl@0:           desc = strchr (arg, '=');
sl@0:           ++desc;
sl@0: 
sl@0:           if (!_dbus_string_append (&addr_fd, desc))
sl@0:             exit (1);
sl@0: 
sl@0:           print_address = TRUE;
sl@0:         }
sl@0:       else if (prev_arg &&
sl@0:                strcmp (prev_arg, "--print-address") == 0)
sl@0:         {
sl@0:           check_two_addr_descriptors (&addr_fd, "print-address");
sl@0:           
sl@0:           if (!_dbus_string_append (&addr_fd, arg))
sl@0:             exit (1);
sl@0: 
sl@0:           print_address = TRUE;
sl@0:         }
sl@0:       else if (strcmp (arg, "--print-address") == 0)
sl@0:         print_address = TRUE; /* and we'll get the next arg if appropriate */
sl@0:       else if (strstr (arg, "--print-pid=") == arg)
sl@0:         {
sl@0:           const char *desc;
sl@0: 
sl@0:           check_two_pid_descriptors (&pid_fd, "print-pid");
sl@0:           
sl@0:           desc = strchr (arg, '=');
sl@0:           ++desc;
sl@0: 
sl@0:           if (!_dbus_string_append (&pid_fd, desc))
sl@0:             exit (1);
sl@0: 
sl@0:           print_pid = TRUE;
sl@0:         }
sl@0:       else if (prev_arg &&
sl@0:                strcmp (prev_arg, "--print-pid") == 0)
sl@0:         {
sl@0:           check_two_pid_descriptors (&pid_fd, "print-pid");
sl@0:           
sl@0:           if (!_dbus_string_append (&pid_fd, arg))
sl@0:             exit (1);
sl@0:           
sl@0:           print_pid = TRUE;
sl@0:         }
sl@0:       else if (strcmp (arg, "--print-pid") == 0)
sl@0:         print_pid = TRUE; /* and we'll get the next arg if appropriate */
sl@0:       else
sl@0:         usage ();
sl@0:       
sl@0:       prev_arg = arg;
sl@0:       
sl@0:       ++i;
sl@0:     }
sl@0: #endif // else (systems with command line arguments)
sl@0: 
sl@0:   if (_dbus_string_get_length (&config_file) == 0)
sl@0:     {
sl@0:       fprintf (stderr, "No configuration file specified.\n");
sl@0:       usage ();
sl@0:     }
sl@0: 
sl@0:   print_addr_fd = -1;
sl@0:   if (print_address)
sl@0:     {
sl@0:       print_addr_fd = 1; /* stdout */
sl@0:       if (_dbus_string_get_length (&addr_fd) > 0)
sl@0:         {
sl@0:           long val;
sl@0:           int end;
sl@0:           if (!_dbus_string_parse_int (&addr_fd, 0, &val, &end) ||
sl@0:               end != _dbus_string_get_length (&addr_fd) ||
sl@0:               val < 0 || val > _DBUS_INT_MAX)
sl@0:             {
sl@0:               fprintf (stderr, "Invalid file descriptor: \"%s\"\n",
sl@0:                        _dbus_string_get_const_data (&addr_fd));
sl@0:               exit (1);
sl@0:             }
sl@0: 
sl@0:           print_addr_fd = val;
sl@0:         }
sl@0:     }
sl@0:   _dbus_string_free (&addr_fd);
sl@0: 
sl@0:   print_pid_fd = -1;
sl@0:   if (print_pid)
sl@0:     {
sl@0:       print_pid_fd = 1; /* stdout */
sl@0:       if (_dbus_string_get_length (&pid_fd) > 0)
sl@0:         {
sl@0:           long val;
sl@0:           int end;
sl@0:           if (!_dbus_string_parse_int (&pid_fd, 0, &val, &end) ||
sl@0:               end != _dbus_string_get_length (&pid_fd) ||
sl@0:               val < 0 || val > _DBUS_INT_MAX)
sl@0:             {
sl@0:               fprintf (stderr, "Invalid file descriptor: \"%s\"\n",
sl@0:                        _dbus_string_get_const_data (&pid_fd));
sl@0:               exit (1);
sl@0:             }
sl@0: 
sl@0:           print_pid_fd = val;
sl@0:         }
sl@0:     }
sl@0:   _dbus_string_free (&pid_fd);
sl@0:   
sl@0:   #ifdef __SYMBIAN32__
sl@0:   
sl@0:   print_addr_fd=1;
sl@0:  
sl@0:  /*uncomment above line, if the bus address needs to be sent to the client starting the bus*/
sl@0:  /* one more work around could be to write the address of the bus in the dbus_lock file, which can be read 
sl@0:  from the client program if needed */
sl@0:  
sl@0:   #endif
sl@0: 
sl@0:   if (!bus_selinux_pre_init ())
sl@0:     {
sl@0:       _dbus_warn ("SELinux pre-initialization failed\n");
sl@0:       exit (1);
sl@0:     }
sl@0: 
sl@0:   dbus_error_init (&error);
sl@0:   context = bus_context_new (&config_file, force_fork,
sl@0:                              print_addr_fd, print_pid_fd,
sl@0:                              &error);
sl@0:   _dbus_string_free (&config_file);
sl@0:   if (context == NULL)
sl@0:     {
sl@0:       _dbus_warn ("Failed to start message bus: %s\n",
sl@0:                   error.message);
sl@0:       dbus_error_free (&error);
sl@0:       exit (1);
sl@0:     }
sl@0: 
sl@0:   
sl@0:   
sl@0:   #ifndef __SYMBIAN32__
sl@0: setup_reload_pipe (bus_context_get_loop (context));
sl@0:   _dbus_set_signal_handler (SIGHUP, signal_handler);
sl@0:   _dbus_set_signal_handler (SIGTERM, signal_handler);
sl@0:   #endif
sl@0:   
sl@0: #ifdef DBUS_BUS_ENABLE_DNOTIFY_ON_LINUX 
sl@0:   _dbus_set_signal_handler (SIGIO, signal_handler);
sl@0: #endif /* DBUS_BUS_ENABLE_DNOTIFY_ON_LINUX */
sl@0:   
sl@0:   _dbus_verbose ("We are on D-Bus...\n");
sl@0: #ifdef __SYMBIAN32__  
sl@0:   lock_file();
sl@0: 
sl@0: #endif  
sl@0:  _dbus_loop_run (bus_context_get_loop (context));
sl@0: #ifdef __SYMBIAN32__    
sl@0:   remove(DBUS_LOCK_FILE);
sl@0: #endif  
sl@0:   bus_context_shutdown (context);
sl@0:   bus_context_unref (context);
sl@0:   bus_selinux_shutdown ();
sl@0: 
sl@0:   return 0;
sl@0: }