Check return value of XGetWindowProperty in x11_get_address
[platform/upstream/dbus.git] / bus / selinux.c
1 /* -*- mode: C; c-file-style: "gnu"; indent-tabs-mode: nil; -*-
2  * selinux.c  SELinux security checks for D-Bus
3  *
4  * Author: Matthew Rickard <mjricka@epoch.ncsc.mil>
5  *
6  * Licensed under the Academic Free License version 2.1
7  * 
8  * This program is free software; you can redistribute it and/or modify
9  * it under the terms of the GNU General Public License as published by
10  * the Free Software Foundation; either version 2 of the License, or
11  * (at your option) any later version.
12  *
13  * This program is distributed in the hope that it will be useful,
14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16  * GNU General Public License for more details.
17  * 
18  * You should have received a copy of the GNU General Public License
19  * along with this program; if not, write to the Free Software
20  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
21  *
22  */
23
24 #include <config.h>
25 #include <dbus/dbus-internals.h>
26 #include <dbus/dbus-string.h>
27 #ifndef DBUS_WIN
28 #include <dbus/dbus-userdb.h>
29 #endif
30 #include "selinux.h"
31 #include "services.h"
32 #include "policy.h"
33 #include "utils.h"
34 #include "config-parser.h"
35
36 #ifdef HAVE_ERRNO_H
37 #include <errno.h>
38 #endif
39 #ifdef HAVE_SELINUX
40 #include <sys/types.h>
41 #include <unistd.h>
42 #include <limits.h>
43 #include <pthread.h>
44 #include <syslog.h>
45 #include <selinux/selinux.h>
46 #include <selinux/avc.h>
47 #include <selinux/av_permissions.h>
48 #include <selinux/flask.h>
49 #include <signal.h>
50 #include <stdarg.h>
51 #include <stdio.h>
52 #include <grp.h>
53 #endif /* HAVE_SELINUX */
54 #ifdef HAVE_LIBAUDIT
55 #include <cap-ng.h>
56 #include <libaudit.h>
57 #endif /* HAVE_LIBAUDIT */
58
59 #define BUS_SID_FROM_SELINUX(sid)  ((BusSELinuxID*) (sid))
60 #define SELINUX_SID_FROM_BUS(sid)  ((security_id_t) (sid))
61
62 #ifdef HAVE_SELINUX
63 /* Store the value telling us if SELinux is enabled in the kernel. */
64 static dbus_bool_t selinux_enabled = FALSE;
65
66 /* Store an avc_entry_ref to speed AVC decisions. */
67 static struct avc_entry_ref aeref;
68
69 /* Store the SID of the bus itself to use as the default. */
70 static security_id_t bus_sid = SECSID_WILD;
71
72 /* Thread to listen for SELinux status changes via netlink. */
73 static pthread_t avc_notify_thread;
74
75 /* Prototypes for AVC callback functions.  */
76 static void log_callback (const char *fmt, ...);
77 static void log_audit_callback (void *data, security_class_t class, char *buf, size_t bufleft);
78 static void *avc_create_thread (void (*run) (void));
79 static void avc_stop_thread (void *thread);
80 static void *avc_alloc_lock (void);
81 static void avc_get_lock (void *lock);
82 static void avc_release_lock (void *lock);
83 static void avc_free_lock (void *lock);
84
85 /* AVC callback structures for use in avc_init.  */
86 static const struct avc_memory_callback mem_cb =
87 {
88   .func_malloc = dbus_malloc,
89   .func_free = dbus_free
90 };
91 static const struct avc_log_callback log_cb =
92 {
93   .func_log = log_callback,
94   .func_audit = log_audit_callback
95 };
96 static const struct avc_thread_callback thread_cb =
97 {
98   .func_create_thread = avc_create_thread,
99   .func_stop_thread = avc_stop_thread
100 };
101 static const struct avc_lock_callback lock_cb =
102 {
103   .func_alloc_lock = avc_alloc_lock,
104   .func_get_lock = avc_get_lock,
105   .func_release_lock = avc_release_lock,
106   .func_free_lock = avc_free_lock
107 };
108 #endif /* HAVE_SELINUX */
109
110 /**
111  * Log callback to log denial messages from the AVC.
112  * This is used in avc_init.  Logs to both standard
113  * error and syslogd.
114  *
115  * @param fmt the format string
116  * @param variable argument list
117  */
118 #ifdef HAVE_SELINUX
119
120 #ifdef HAVE_LIBAUDIT
121 static int audit_fd = -1;
122 #endif
123
124 void
125 bus_selinux_audit_init(void)
126 {
127 #ifdef HAVE_LIBAUDIT  
128   audit_fd = audit_open ();
129
130   if (audit_fd < 0)
131     {
132       /* If kernel doesn't support audit, bail out */
133       if (errno == EINVAL || errno == EPROTONOSUPPORT || errno == EAFNOSUPPORT)
134         return;
135       /* If user bus, bail out */
136       if (errno == EPERM && getuid() != 0)
137         return;
138       _dbus_warn ("Failed opening connection to the audit subsystem");
139     }
140 #endif /* HAVE_LIBAUDIT */
141 }
142
143 static void 
144 log_callback (const char *fmt, ...) 
145 {
146   va_list ap;
147
148   va_start(ap, fmt);
149
150 #ifdef HAVE_LIBAUDIT
151   if (audit_fd >= 0)
152   {
153     capng_get_caps_process();
154     if (capng_have_capability(CAPNG_EFFECTIVE, CAP_AUDIT_WRITE))
155     {
156       char buf[PATH_MAX*2];
157     
158       /* FIXME: need to change this to show real user */
159       vsnprintf(buf, sizeof(buf), fmt, ap);
160       audit_log_user_avc_message(audit_fd, AUDIT_USER_AVC, buf, NULL, NULL,
161                                NULL, getuid());
162       return;
163     }
164   }
165 #endif /* HAVE_LIBAUDIT */
166   
167   vsyslog (LOG_INFO, fmt, ap);
168   va_end(ap);
169 }
170
171 /**
172  * On a policy reload we need to reparse the SELinux configuration file, since
173  * this could have changed.  Send a SIGHUP to reload all configs.
174  */
175 static int
176 policy_reload_callback (u_int32_t event, security_id_t ssid, 
177                         security_id_t tsid, security_class_t tclass, 
178                         access_vector_t perms, access_vector_t *out_retained)
179 {
180   if (event == AVC_CALLBACK_RESET)
181     return raise (SIGHUP);
182   
183   return 0;
184 }
185
186 /**
187  * Log any auxiliary data 
188  */
189 static void
190 log_audit_callback (void *data, security_class_t class, char *buf, size_t bufleft)
191 {
192   DBusString *audmsg = data;
193
194   if (bufleft > (size_t) _dbus_string_get_length(audmsg))
195     {
196       _dbus_string_copy_to_buffer_with_nul (audmsg, buf, bufleft);
197     }
198   else
199     {
200       DBusString s;
201
202       _dbus_string_init_const(&s, "Buffer too small for audit message");
203
204       if (bufleft > (size_t) _dbus_string_get_length(&s))
205         _dbus_string_copy_to_buffer_with_nul (&s, buf, bufleft);
206     }
207 }
208
209 /**
210  * Create thread to notify the AVC of enforcing and policy reload
211  * changes via netlink.
212  *
213  * @param run the thread run function
214  * @return pointer to the thread
215  */
216 static void *
217 avc_create_thread (void (*run) (void))
218 {
219   int rc;
220
221   rc = pthread_create (&avc_notify_thread, NULL, (void *(*) (void *)) run, NULL);
222   if (rc != 0)
223     {
224       _dbus_warn ("Failed to start AVC thread: %s\n", _dbus_strerror (rc));
225       exit (1);
226     }
227   return &avc_notify_thread;
228 }
229
230 /* Stop AVC netlink thread.  */
231 static void
232 avc_stop_thread (void *thread)
233 {
234   pthread_cancel (*(pthread_t *) thread);
235 }
236
237 /* Allocate a new AVC lock.  */
238 static void *
239 avc_alloc_lock (void)
240 {
241   pthread_mutex_t *avc_mutex;
242
243   avc_mutex = dbus_new (pthread_mutex_t, 1);
244   if (avc_mutex == NULL)
245     {
246       _dbus_warn ("Could not create mutex: %s\n", _dbus_strerror (errno));
247       exit (1);
248     }
249   pthread_mutex_init (avc_mutex, NULL);
250
251   return avc_mutex;
252 }
253
254 /* Acquire an AVC lock.  */
255 static void
256 avc_get_lock (void *lock)
257 {
258   pthread_mutex_lock (lock);
259 }
260
261 /* Release an AVC lock.  */
262 static void
263 avc_release_lock (void *lock)
264 {
265   pthread_mutex_unlock (lock);
266 }
267
268 /* Free an AVC lock.  */
269 static void
270 avc_free_lock (void *lock)
271 {
272   pthread_mutex_destroy (lock);
273   dbus_free (lock);
274 }
275 #endif /* HAVE_SELINUX */
276
277 /**
278  * Return whether or not SELinux is enabled; must be
279  * called after bus_selinux_init.
280  */
281 dbus_bool_t
282 bus_selinux_enabled (void)
283 {
284 #ifdef HAVE_SELINUX
285   return selinux_enabled;
286 #else
287   return FALSE;
288 #endif /* HAVE_SELINUX */
289 }
290
291 /**
292  * Do early initialization; determine whether SELinux is enabled.
293  */
294 dbus_bool_t
295 bus_selinux_pre_init (void)
296 {
297 #ifdef HAVE_SELINUX
298   int r;
299   _dbus_assert (bus_sid == SECSID_WILD);
300   
301   /* Determine if we are running an SELinux kernel. */
302   r = is_selinux_enabled ();
303   if (r < 0)
304     {
305       _dbus_warn ("Could not tell if SELinux is enabled: %s\n",
306                   _dbus_strerror (errno));
307       return FALSE;
308     }
309
310   selinux_enabled = r != 0;
311   return TRUE;
312 #else
313   return TRUE;
314 #endif
315 }
316
317 /**
318  * Initialize the user space access vector cache (AVC) for D-Bus and set up
319  * logging callbacks.
320  */
321 dbus_bool_t
322 bus_selinux_full_init (void)
323 {
324 #ifdef HAVE_SELINUX
325   char *bus_context;
326
327   _dbus_assert (bus_sid == SECSID_WILD);
328   
329   if (!selinux_enabled)
330     {
331       _dbus_verbose ("SELinux not enabled in this kernel.\n");
332       return TRUE;
333     }
334
335   _dbus_verbose ("SELinux is enabled in this kernel.\n");
336
337   avc_entry_ref_init (&aeref);
338   if (avc_init ("avc", &mem_cb, &log_cb, &thread_cb, &lock_cb) < 0)
339     {
340       _dbus_warn ("Failed to start Access Vector Cache (AVC).\n");
341       return FALSE;
342     }
343   else
344     {
345       openlog ("dbus", LOG_PERROR, LOG_USER);
346       _dbus_verbose ("Access Vector Cache (AVC) started.\n");
347     }
348
349   if (avc_add_callback (policy_reload_callback, AVC_CALLBACK_RESET,
350                        NULL, NULL, 0, 0) < 0)
351     {
352       _dbus_warn ("Failed to add policy reload callback: %s\n",
353                   _dbus_strerror (errno));
354       avc_destroy ();
355       return FALSE;
356     }
357
358   bus_context = NULL;
359   bus_sid = SECSID_WILD;
360
361   if (getcon (&bus_context) < 0)
362     {
363       _dbus_verbose ("Error getting context of bus: %s\n",
364                      _dbus_strerror (errno));
365       return FALSE;
366     }
367       
368   if (avc_context_to_sid (bus_context, &bus_sid) < 0)
369     {
370       _dbus_verbose ("Error getting SID from bus context: %s\n",
371                      _dbus_strerror (errno));
372       freecon (bus_context);
373       return FALSE;
374     }
375
376   freecon (bus_context);
377   
378 #endif /* HAVE_SELINUX */
379   return TRUE;
380 }
381
382 /**
383  * Decrement SID reference count.
384  * 
385  * @param sid the SID to decrement
386  */
387 void
388 bus_selinux_id_unref (BusSELinuxID *sid)
389 {
390 #ifdef HAVE_SELINUX
391   if (!selinux_enabled)
392     return;
393
394   _dbus_assert (sid != NULL);
395   
396   sidput (SELINUX_SID_FROM_BUS (sid));
397 #endif /* HAVE_SELINUX */
398 }
399
400 void
401 bus_selinux_id_ref (BusSELinuxID *sid)
402 {
403 #ifdef HAVE_SELINUX
404   if (!selinux_enabled)
405     return;
406
407   _dbus_assert (sid != NULL);
408   
409   sidget (SELINUX_SID_FROM_BUS (sid));
410 #endif /* HAVE_SELINUX */
411 }
412
413 /**
414  * Determine if the SELinux security policy allows the given sender
415  * security context to go to the given recipient security context.
416  * This function determines if the requested permissions are to be
417  * granted from the connection to the message bus or to another
418  * optionally supplied security identifier (e.g. for a service
419  * context).  Currently these permissions are either send_msg or
420  * acquire_svc in the dbus class.
421  *
422  * @param sender_sid source security context
423  * @param override_sid is the target security context.  If SECSID_WILD this will
424  *        use the context of the bus itself (e.g. the default).
425  * @param target_class is the target security class.
426  * @param requested is the requested permissions.
427  * @returns #TRUE if security policy allows the send.
428  */
429 #ifdef HAVE_SELINUX
430 static dbus_bool_t
431 bus_selinux_check (BusSELinuxID        *sender_sid,
432                    BusSELinuxID        *override_sid,
433                    security_class_t     target_class,
434                    access_vector_t      requested,
435                    DBusString          *auxdata)
436 {
437   if (!selinux_enabled)
438     return TRUE;
439
440   /* Make the security check.  AVC checks enforcing mode here as well. */
441   if (avc_has_perm (SELINUX_SID_FROM_BUS (sender_sid),
442                     override_sid ?
443                     SELINUX_SID_FROM_BUS (override_sid) :
444                     SELINUX_SID_FROM_BUS (bus_sid), 
445                     target_class, requested, &aeref, auxdata) < 0)
446     {
447     switch (errno)
448       {
449       case EACCES:
450         _dbus_verbose ("SELinux denying due to security policy.\n");
451         return FALSE;
452       case EINVAL:
453         _dbus_verbose ("SELinux denying due to invalid security context.\n");
454         return FALSE;
455       default:
456         _dbus_verbose ("SELinux denying due to: %s\n", _dbus_strerror (errno));
457         return FALSE;
458       }
459     }
460   else
461     return TRUE;
462 }
463 #endif /* HAVE_SELINUX */
464
465 /**
466  * Returns true if the given connection can acquire a service,
467  * assuming the given security ID is needed for that service.
468  *
469  * @param connection connection that wants to own the service
470  * @param service_sid the SID of the service from the table
471  * @returns #TRUE if acquire is permitted.
472  */
473 dbus_bool_t
474 bus_selinux_allows_acquire_service (DBusConnection     *connection,
475                                     BusSELinuxID       *service_sid,
476                                     const char         *service_name,
477                                     DBusError          *error)
478 {
479 #ifdef HAVE_SELINUX
480   BusSELinuxID *connection_sid;
481   unsigned long spid;
482   DBusString auxdata;
483   dbus_bool_t ret;
484   
485   if (!selinux_enabled)
486     return TRUE;
487   
488   connection_sid = bus_connection_get_selinux_id (connection);
489   if (!dbus_connection_get_unix_process_id (connection, &spid))
490     spid = 0;
491
492   if (!_dbus_string_init (&auxdata))
493     goto oom;
494  
495   if (!_dbus_string_append (&auxdata, "service="))
496     goto oom;
497
498   if (!_dbus_string_append (&auxdata, service_name))
499     goto oom;
500
501   if (spid)
502     {
503       if (!_dbus_string_append (&auxdata, " spid="))
504         goto oom;
505
506       if (!_dbus_string_append_uint (&auxdata, spid))
507         goto oom;
508     }
509   
510   ret = bus_selinux_check (connection_sid,
511                            service_sid,
512                            SECCLASS_DBUS,
513                            DBUS__ACQUIRE_SVC,
514                            &auxdata);
515
516   _dbus_string_free (&auxdata);
517   return ret;
518
519  oom:
520   _dbus_string_free (&auxdata);
521   BUS_SET_OOM (error);
522   return FALSE;
523
524 #else
525   return TRUE;
526 #endif /* HAVE_SELINUX */
527 }
528
529 /**
530  * Check if SELinux security controls allow the message to be sent to a
531  * particular connection based on the security context of the sender and
532  * that of the receiver. The destination connection need not be the
533  * addressed recipient, it could be an "eavesdropper"
534  *
535  * @param sender the sender of the message.
536  * @param proposed_recipient the connection the message is to be sent to.
537  * @returns whether to allow the send
538  */
539 dbus_bool_t
540 bus_selinux_allows_send (DBusConnection     *sender,
541                          DBusConnection     *proposed_recipient,
542                          const char         *msgtype,
543                          const char         *interface,
544                          const char         *member,
545                          const char         *error_name,
546                          const char         *destination,
547                          DBusError          *error)
548 {
549 #ifdef HAVE_SELINUX
550   BusSELinuxID *recipient_sid;
551   BusSELinuxID *sender_sid;
552   unsigned long spid, tpid;
553   DBusString auxdata;
554   dbus_bool_t ret;
555   dbus_bool_t string_alloced;
556
557   if (!selinux_enabled)
558     return TRUE;
559
560   if (!sender || !dbus_connection_get_unix_process_id (sender, &spid))
561     spid = 0;
562   if (!proposed_recipient || !dbus_connection_get_unix_process_id (proposed_recipient, &tpid))
563     tpid = 0;
564
565   string_alloced = FALSE;
566   if (!_dbus_string_init (&auxdata))
567     goto oom;
568   string_alloced = TRUE;
569
570   if (!_dbus_string_append (&auxdata, "msgtype="))
571     goto oom;
572
573   if (!_dbus_string_append (&auxdata, msgtype))
574     goto oom;
575
576   if (interface)
577     {
578       if (!_dbus_string_append (&auxdata, " interface="))
579         goto oom;
580       if (!_dbus_string_append (&auxdata, interface))
581         goto oom;
582     }
583
584   if (member)
585     {
586       if (!_dbus_string_append (&auxdata, " member="))
587         goto oom;
588       if (!_dbus_string_append (&auxdata, member))
589         goto oom;
590     }
591
592   if (error_name)
593     {
594       if (!_dbus_string_append (&auxdata, " error_name="))
595         goto oom;
596       if (!_dbus_string_append (&auxdata, error_name))
597         goto oom;
598     }
599
600   if (destination)
601     {
602       if (!_dbus_string_append (&auxdata, " dest="))
603         goto oom;
604       if (!_dbus_string_append (&auxdata, destination))
605         goto oom;
606     }
607
608   if (spid)
609     {
610       if (!_dbus_string_append (&auxdata, " spid="))
611         goto oom;
612
613       if (!_dbus_string_append_uint (&auxdata, spid))
614         goto oom;
615     }
616
617   if (tpid)
618     {
619       if (!_dbus_string_append (&auxdata, " tpid="))
620         goto oom;
621
622       if (!_dbus_string_append_uint (&auxdata, tpid))
623         goto oom;
624     }
625
626   sender_sid = bus_connection_get_selinux_id (sender);
627   /* A NULL proposed_recipient means the bus itself. */
628   if (proposed_recipient)
629     recipient_sid = bus_connection_get_selinux_id (proposed_recipient);
630   else
631     recipient_sid = BUS_SID_FROM_SELINUX (bus_sid);
632
633   ret = bus_selinux_check (sender_sid, 
634                            recipient_sid,
635                            SECCLASS_DBUS, 
636                            DBUS__SEND_MSG,
637                            &auxdata);
638
639   _dbus_string_free (&auxdata);
640
641   return ret;
642
643  oom:
644   if (string_alloced)
645     _dbus_string_free (&auxdata);
646   BUS_SET_OOM (error);
647   return FALSE;
648   
649 #else
650   return TRUE;
651 #endif /* HAVE_SELINUX */
652 }
653
654 dbus_bool_t
655 bus_selinux_append_context (DBusMessage    *message,
656                             BusSELinuxID   *sid,
657                             DBusError      *error)
658 {
659 #ifdef HAVE_SELINUX
660   char *context;
661
662   if (avc_sid_to_context (SELINUX_SID_FROM_BUS (sid), &context) < 0)
663     {
664       if (errno == ENOMEM)
665         BUS_SET_OOM (error);
666       else
667         dbus_set_error (error, DBUS_ERROR_FAILED,
668                         "Error getting context from SID: %s\n",
669                         _dbus_strerror (errno));
670       return FALSE;
671     }
672   if (!dbus_message_append_args (message,
673                                  DBUS_TYPE_ARRAY,
674                                  DBUS_TYPE_BYTE,
675                                  &context,
676                                  strlen (context),
677                                  DBUS_TYPE_INVALID))
678     {
679       _DBUS_SET_OOM (error);
680       return FALSE;
681     }
682   freecon (context);
683   return TRUE;
684 #else
685   return TRUE;
686 #endif
687 }
688
689 /**
690  * Gets the security context of a connection to the bus. It is up to
691  * the caller to freecon() when they are done. 
692  *
693  * @param connection the connection to get the context of.
694  * @param con the location to store the security context.
695  * @returns #TRUE if context is successfully obtained.
696  */
697 #ifdef HAVE_SELINUX
698 static dbus_bool_t
699 bus_connection_read_selinux_context (DBusConnection     *connection,
700                                      char              **con)
701 {
702   int fd;
703
704   if (!selinux_enabled)
705     return FALSE;
706
707   _dbus_assert (connection != NULL);
708   
709   if (!dbus_connection_get_unix_fd (connection, &fd))
710     {
711       _dbus_verbose ("Failed to get file descriptor of socket.\n");
712       return FALSE;
713     }
714   
715   if (getpeercon (fd, con) < 0)
716     {
717       _dbus_verbose ("Error getting context of socket peer: %s\n",
718                      _dbus_strerror (errno));
719       return FALSE;
720     }
721   
722   _dbus_verbose ("Successfully read connection context.\n");
723   return TRUE;
724 }
725 #endif /* HAVE_SELINUX */
726
727 /**
728  * Read the SELinux ID from the connection.
729  *
730  * @param connection the connection to read from
731  * @returns the SID if successfully determined, #NULL otherwise.
732  */
733 BusSELinuxID*
734 bus_selinux_init_connection_id (DBusConnection *connection,
735                                 DBusError      *error)
736 {
737 #ifdef HAVE_SELINUX
738   char *con;
739   security_id_t sid;
740   
741   if (!selinux_enabled)
742     return NULL;
743
744   if (!bus_connection_read_selinux_context (connection, &con))
745     {
746       dbus_set_error (error, DBUS_ERROR_FAILED,
747                       "Failed to read an SELinux context from connection");
748       _dbus_verbose ("Error getting peer context.\n");
749       return NULL;
750     }
751
752   _dbus_verbose ("Converting context to SID to store on connection\n");
753
754   if (avc_context_to_sid (con, &sid) < 0)
755     {
756       if (errno == ENOMEM)
757         BUS_SET_OOM (error);
758       else
759         dbus_set_error (error, DBUS_ERROR_FAILED,
760                         "Error getting SID from context \"%s\": %s\n",
761                         con, _dbus_strerror (errno));
762       
763       _dbus_warn ("Error getting SID from context \"%s\": %s\n",
764                   con, _dbus_strerror (errno));
765       
766       freecon (con);
767       return NULL;
768     }
769  
770   freecon (con); 
771   return BUS_SID_FROM_SELINUX (sid);
772 #else
773   return NULL;
774 #endif /* HAVE_SELINUX */
775 }
776
777
778 /**
779  * Function for freeing hash table data.  These SIDs
780  * should no longer be referenced.
781  */
782 static void
783 bus_selinux_id_table_free_value (BusSELinuxID *sid)
784 {
785 #ifdef HAVE_SELINUX
786   /* NULL sometimes due to how DBusHashTable works */
787   if (sid)
788     bus_selinux_id_unref (sid);
789 #endif /* HAVE_SELINUX */
790 }
791
792 /**
793  * Creates a new table mapping service names to security ID.
794  * A security ID is a "compiled" security context, a security
795  * context is just a string.
796  *
797  * @returns the new table or #NULL if no memory
798  */
799 DBusHashTable*
800 bus_selinux_id_table_new (void)
801 {
802   return _dbus_hash_table_new (DBUS_HASH_STRING,
803                                (DBusFreeFunction) dbus_free,
804                                (DBusFreeFunction) bus_selinux_id_table_free_value);
805 }
806
807 /** 
808  * Hashes a service name and service context into the service SID
809  * table as a string and a SID.
810  *
811  * @param service_name is the name of the service.
812  * @param service_context is the context of the service.
813  * @param service_table is the table to hash them into.
814  * @return #FALSE if not enough memory
815  */
816 dbus_bool_t
817 bus_selinux_id_table_insert (DBusHashTable *service_table,
818                              const char    *service_name,
819                              const char    *service_context)
820 {
821 #ifdef HAVE_SELINUX
822   dbus_bool_t retval;
823   security_id_t sid;
824   char *key;
825
826   if (!selinux_enabled)
827     return TRUE;
828
829   sid = SECSID_WILD;
830   retval = FALSE;
831
832   key = _dbus_strdup (service_name);
833   if (key == NULL)
834     return retval;
835   
836   if (avc_context_to_sid ((char *) service_context, &sid) < 0)
837     {
838       if (errno == ENOMEM)
839         {
840           dbus_free (key);
841           return FALSE;
842         }
843
844       _dbus_warn ("Error getting SID from context \"%s\": %s\n",
845                   (char *) service_context,
846                   _dbus_strerror (errno));
847       goto out;
848     }
849
850   if (!_dbus_hash_table_insert_string (service_table,
851                                        key,
852                                        BUS_SID_FROM_SELINUX (sid)))
853     goto out;
854
855   _dbus_verbose ("Parsed \tservice: %s \n\t\tcontext: %s\n",
856                   key, 
857                   sid->ctx);
858
859   /* These are owned by the hash, so clear them to avoid unref */
860   key = NULL;
861   sid = SECSID_WILD;
862
863   retval = TRUE;
864   
865  out:
866   if (sid != SECSID_WILD)
867     sidput (sid);
868
869   if (key)
870     dbus_free (key);
871
872   return retval;
873 #else
874   return TRUE;
875 #endif /* HAVE_SELINUX */
876 }
877
878
879 /**
880  * Find the security identifier associated with a particular service
881  * name.  Return a pointer to this SID, or #NULL/SECSID_WILD if the
882  * service is not found in the hash table.  This should be nearly a
883  * constant time operation.  If SELinux support is not available,
884  * always return NULL.
885  *
886  * @param service_table the hash table to check for service name.
887  * @param service_name the name of the service to look for.
888  * @returns the SELinux ID associated with the service
889  */
890 BusSELinuxID*
891 bus_selinux_id_table_lookup (DBusHashTable    *service_table,
892                              const DBusString *service_name)
893 {
894 #ifdef HAVE_SELINUX
895   security_id_t sid;
896
897   sid = SECSID_WILD;     /* default context */
898
899   if (!selinux_enabled)
900     return NULL;
901   
902   _dbus_verbose ("Looking up service SID for %s\n",
903                  _dbus_string_get_const_data (service_name));
904
905   sid = _dbus_hash_table_lookup_string (service_table,
906                                         _dbus_string_get_const_data (service_name));
907
908   if (sid == SECSID_WILD)
909     _dbus_verbose ("Service %s not found\n", 
910                    _dbus_string_get_const_data (service_name));
911   else
912     _dbus_verbose ("Service %s found\n", 
913                    _dbus_string_get_const_data (service_name));
914
915   return BUS_SID_FROM_SELINUX (sid);
916 #endif /* HAVE_SELINUX */
917   return NULL;
918 }
919
920 /**
921  * Get the SELinux policy root.  This is used to find the D-Bus
922  * specific config file within the policy.
923  */
924 const char *
925 bus_selinux_get_policy_root (void)
926 {
927 #ifdef HAVE_SELINUX
928   return selinux_policy_root ();
929 #else
930   return NULL;
931 #endif /* HAVE_SELINUX */
932
933
934 /**
935  * For debugging:  Print out the current hash table of service SIDs.
936  */
937 void
938 bus_selinux_id_table_print (DBusHashTable *service_table)
939 {
940 #ifdef DBUS_ENABLE_VERBOSE_MODE
941 #ifdef HAVE_SELINUX
942   DBusHashIter iter;
943
944   if (!selinux_enabled)
945     return;
946   
947   _dbus_verbose ("Service SID Table:\n");
948   _dbus_hash_iter_init (service_table, &iter);
949   while (_dbus_hash_iter_next (&iter))
950     {
951       const char *key = _dbus_hash_iter_get_string_key (&iter);
952       security_id_t sid = _dbus_hash_iter_get_value (&iter);
953       _dbus_verbose ("The key is %s\n", key);
954       _dbus_verbose ("The context is %s\n", sid->ctx);
955       _dbus_verbose ("The refcount is %d\n", sid->refcnt);
956     }
957 #endif /* HAVE_SELINUX */
958 #endif /* DBUS_ENABLE_VERBOSE_MODE */
959 }
960
961
962 #ifdef DBUS_ENABLE_VERBOSE_MODE
963 #ifdef HAVE_SELINUX
964 /**
965  * Print out some AVC statistics.
966  */
967 static void
968 bus_avc_print_stats (void)
969 {
970   struct avc_cache_stats cstats;
971
972   if (!selinux_enabled)
973     return;
974   
975   _dbus_verbose ("AVC Statistics:\n");
976   avc_cache_stats (&cstats);
977   avc_av_stats ();
978   _dbus_verbose ("AVC Cache Statistics:\n");
979   _dbus_verbose ("Entry lookups: %d\n", cstats.entry_lookups);
980   _dbus_verbose ("Entry hits: %d\n", cstats.entry_hits);
981   _dbus_verbose ("Entry misses %d\n", cstats.entry_misses);
982   _dbus_verbose ("Entry discards: %d\n", cstats.entry_discards);
983   _dbus_verbose ("CAV lookups: %d\n", cstats.cav_lookups);
984   _dbus_verbose ("CAV hits: %d\n", cstats.cav_hits);
985   _dbus_verbose ("CAV probes: %d\n", cstats.cav_probes);
986   _dbus_verbose ("CAV misses: %d\n", cstats.cav_misses);
987 }
988 #endif /* HAVE_SELINUX */
989 #endif /* DBUS_ENABLE_VERBOSE_MODE */
990
991
992 /**
993  * Destroy the AVC before we terminate.
994  */
995 void
996 bus_selinux_shutdown (void)
997 {
998 #ifdef HAVE_SELINUX
999   if (!selinux_enabled)
1000     return;
1001
1002   _dbus_verbose ("AVC shutdown\n");
1003
1004   if (bus_sid != SECSID_WILD)
1005     {
1006       sidput (bus_sid);
1007       bus_sid = SECSID_WILD;
1008
1009 #ifdef DBUS_ENABLE_VERBOSE_MODE
1010  
1011       if (_dbus_is_verbose()) 
1012         bus_avc_print_stats ();
1013  
1014 #endif /* DBUS_ENABLE_VERBOSE_MODE */
1015
1016       avc_destroy ();
1017 #ifdef HAVE_LIBAUDIT
1018       audit_close (audit_fd);
1019 #endif /* HAVE_LIBAUDIT */
1020     }
1021 #endif /* HAVE_SELINUX */
1022 }
1023
1024 /* The !HAVE_LIBAUDIT case lives in dbus-sysdeps-util-unix.c */
1025 #ifdef HAVE_LIBAUDIT
1026 /**
1027  * Changes the user and group the bus is running as.
1028  *
1029  * @param user the user to become
1030  * @param error return location for errors
1031  * @returns #FALSE on failure
1032  */
1033 dbus_bool_t
1034 _dbus_change_to_daemon_user  (const char    *user,
1035                               DBusError     *error)
1036 {
1037   dbus_uid_t uid;
1038   dbus_gid_t gid;
1039   DBusString u;
1040
1041   _dbus_string_init_const (&u, user);
1042
1043   if (!_dbus_get_user_id_and_primary_group (&u, &uid, &gid))
1044     {
1045       dbus_set_error (error, DBUS_ERROR_FAILED,
1046                       "User '%s' does not appear to exist?",
1047                       user);
1048       return FALSE;
1049     }
1050
1051   /* If we were root */
1052   if (_dbus_geteuid () == 0)
1053     {
1054       int rc;
1055
1056       capng_clear (CAPNG_SELECT_BOTH);
1057       capng_update (CAPNG_ADD, CAPNG_EFFECTIVE | CAPNG_PERMITTED,
1058                     CAP_AUDIT_WRITE);
1059       rc = capng_change_id (uid, gid, 0);
1060       if (rc)
1061         {
1062           switch (rc) {
1063             default:
1064               dbus_set_error (error, DBUS_ERROR_FAILED,
1065                               "Failed to drop capabilities: %s\n",
1066                               _dbus_strerror (errno));
1067               break;
1068             case -4:
1069               dbus_set_error (error, _dbus_error_from_errno (errno),
1070                               "Failed to set GID to %lu: %s", gid,
1071                               _dbus_strerror (errno));
1072               break;
1073             case -5:
1074               _dbus_warn ("Failed to drop supplementary groups: %s\n",
1075                           _dbus_strerror (errno));
1076               break;
1077             case -6:
1078               dbus_set_error (error, _dbus_error_from_errno (errno),
1079                               "Failed to set UID to %lu: %s", uid,
1080                               _dbus_strerror (errno));
1081               break;
1082             case -7:
1083               dbus_set_error (error, _dbus_error_from_errno (errno),
1084                               "Failed to unset keep-capabilities: %s\n",
1085                               _dbus_strerror (errno));
1086               break;
1087           }
1088           return FALSE;
1089         }
1090     }
1091
1092  return TRUE;
1093 }
1094 #endif