2 * Connection of captive-vfs interface through CORBA/ORBit
3 * Copyright (C) 2002 Jan Kratochvil <project-captive@jankratochvil.net>
5 * This program is free software; you can redistribute it and/or modify
6 * it under the terms of the GNU General Public License as published by
7 * the Free Software Foundation; exactly version 2 of June 1991 is required
9 * This program is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 * GNU General Public License for more details.
14 * You should have received a copy of the GNU General Public License
15 * along with this program; if not, write to the Free Software
16 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
22 #include "split.h" /* self */
24 #include "server-GLogFunc.h"
25 #include "captive/macros.h"
26 #include <glib/gmacros.h>
28 #include "captive/rtl-file.h"
31 #include <linc/linc.h> /* for linc_main_get_loop() */
32 #include "server-Directory.h"
33 #include "server-Vfs.h"
34 #include "../client/vfs.h"
35 #include "parent-Vfs.h"
37 #include "server-CaptiveIOChannel.h"
39 #include "../client/giochannel-blind.h" /* for captive_giochannel_blind_new() */
45 #define HEARTBEAT_SOURCE_CHECK_EVENTS (G_IO_IN|G_IO_PRI)
46 #define HEARTBEAT_SOURCE_CHECK_REVENTS (HEARTBEAT_SOURCE_CHECK_EVENTS|G_IO_ERR|G_IO_HUP|G_IO_NVAL)
49 gboolean validate_CORBA_Environment(CORBA_Environment *evp)
51 if (evp->_major==CORBA_NO_EXCEPTION)
54 g_error(_("CORBA Exception occured: id=\"%s\", value=%p"),
55 CORBA_exception_id(evp),CORBA_exception_value(evp));
56 CORBA_exception_free(evp);
60 CORBA_Environment captive_corba_ev;
61 CORBA_ORB captive_corba_orb;
62 PortableServer_POA captive_corba_poa;
64 static void corba_shutdown_atexit(void);
66 static gboolean corba_init(const char *pname,CORBA_Environment *evp,CORBA_ORB *orbp,PortableServer_POA *poap)
68 static gboolean done=FALSE;
71 (gchar *)captive_strdup_alloca(pname),
74 g_return_val_if_fail(evp!=NULL,FALSE);
75 g_return_val_if_fail(orbp!=NULL,FALSE);
76 g_return_val_if_fail(poap!=NULL,FALSE);
82 CORBA_exception_init(evp);
85 *orbp=CORBA_ORB_init(&orb_argc,orb_argv,"orbit-local-orb",evp);
86 g_return_val_if_fail(*orbp!=CORBA_OBJECT_NIL,FALSE);
87 g_return_val_if_fail(validate_CORBA_Environment(evp),FALSE);
90 *poap=(PortableServer_POA)CORBA_ORB_resolve_initial_references(*orbp,"RootPOA",evp);
91 g_return_val_if_fail(validate_CORBA_Environment(evp),FALSE);
93 PortableServer_POAManager poa_mgr;
94 poa_mgr=PortableServer_POA__get_the_POAManager(*poap,evp);
95 g_return_val_if_fail(validate_CORBA_Environment(evp),FALSE);
96 PortableServer_POAManager_activate(poa_mgr,evp);
97 g_return_val_if_fail(validate_CORBA_Environment(evp),FALSE);
98 CORBA_Object_release((CORBA_Object)poa_mgr,evp);
99 g_return_val_if_fail(validate_CORBA_Environment(evp),FALSE);
102 g_atexit(corba_shutdown_atexit);
109 static CORBA_ORB heartbeat_source_callback_orb=CORBA_OBJECT_NIL;
111 gboolean corba_shutdown(CORBA_Environment *evp,CORBA_ORB *orbp,PortableServer_POA *poap)
113 PortableServer_POA poa;
116 g_return_val_if_fail(evp!=NULL,FALSE);
117 g_return_val_if_fail(orbp!=NULL,FALSE);
118 g_return_val_if_fail(poap!=NULL,FALSE);
122 *poap=CORBA_OBJECT_NIL;
123 CORBA_Object_release((CORBA_Object)poa,evp);
124 g_return_val_if_fail(validate_CORBA_Environment(evp),FALSE);
128 *orbp=CORBA_OBJECT_NIL;
129 heartbeat_source_callback_orb=CORBA_OBJECT_NIL;
130 CORBA_ORB_destroy(orb,evp);
131 /* Do not: g_return_val_if_fail(validate_CORBA_Environment(evp),FALSE);
132 * here as CORBA_ORB_destroy() sometimes reports:
133 * WARNING **: ORB: a total of X refs to X ORB objects were leaked
135 CORBA_exception_free(evp);
138 CORBA_exception_free(evp);
143 static void sandbox_parent_own_orbit_dir_cleanup_atexit(void);
145 static void corba_shutdown_atexit(void)
149 errbool=corba_shutdown(&captive_corba_ev,&captive_corba_orb,&captive_corba_poa);
150 g_assert(errbool==TRUE);
152 /* Delete the CORBA ORB socket directory only after full CORBA ORB shutdown. */
153 sandbox_parent_own_orbit_dir_cleanup_atexit();
157 static GSource *captive_corba_sandbox_child_heartbeat_gsource;
159 #if 0 /* Currently unused - see server-Vfs.c:impl_Captive_Vfs_shutdown() */
160 void sandbox_child_prepare_shutdown(void)
162 /* Prevent during shutdown: Captive-WARNING **: CORBA Exception occured: id="IDL:omg.org/CORBA/COMM_FAILURE:1.0" */
163 if (captive_corba_sandbox_child_heartbeat_gsource) {
164 g_source_destroy(captive_corba_sandbox_child_heartbeat_gsource);
165 g_source_unref(captive_corba_sandbox_child_heartbeat_gsource);
166 captive_corba_sandbox_child_heartbeat_gsource=NULL;
172 void sandbox_child_shutdown(void)
174 /* Do not fail by passing logging messages to the master. */
175 impl_Captive_Vfs_init_g_log_func_disable();
177 g_main_loop_quit(linc_main_get_loop());
181 static gboolean heartbeat_source_callback(gpointer data /* unused */)
183 g_return_val_if_fail(heartbeat_source_callback_orb!=CORBA_OBJECT_NIL,FALSE); /* the source should be removed */
185 sandbox_child_shutdown();
187 return FALSE; /* the source should be removed */
191 static gboolean heartbeat_source_prepare(GSource *source,gint *timeout)
198 static GPollFD heartbeat_source_check_gpollfd;
200 static gboolean heartbeat_source_check(GSource *source)
202 return !!(heartbeat_source_check_gpollfd.revents & HEARTBEAT_SOURCE_CHECK_REVENTS);
205 static gboolean heartbeat_source_dispatch(GSource *source,GSourceFunc callback,gpointer user_data)
207 g_assert(callback!=NULL);
208 return (*callback)(user_data);
211 static GSourceFuncs heartbeat_source_watch_funcs={
212 heartbeat_source_prepare,
213 heartbeat_source_check,
214 heartbeat_source_dispatch,
218 void captive_corba_sandbox_child(const gchar *chrooted_orbit_dir)
220 Captive_Vfs Vfs_object;
221 impl_POA_Captive_Vfs *Vfs_servant;
226 /* attach heartbeat_source_callback() to watch for any abnormalities
227 * on our open pipe 'parentheart_fds' and terminate the child if parent dies.
229 captive_corba_sandbox_child_heartbeat_gsource=g_source_new(&heartbeat_source_watch_funcs,sizeof(GSource));
230 g_return_if_fail(captive_corba_sandbox_child_heartbeat_gsource!=NULL);
231 g_source_set_callback(
232 captive_corba_sandbox_child_heartbeat_gsource, /* source */
233 heartbeat_source_callback, /* func */
236 heartbeat_source_check_gpollfd.fd=0 /* STDIN */; /* parentheart_fd_read */
237 heartbeat_source_check_gpollfd.events=HEARTBEAT_SOURCE_CHECK_EVENTS;
238 heartbeat_source_check_gpollfd.revents=0;
239 g_source_add_poll(captive_corba_sandbox_child_heartbeat_gsource,&heartbeat_source_check_gpollfd);
241 errbool=corba_init("captive-sandbox-child",&captive_corba_ev,&captive_corba_orb,&captive_corba_poa);
242 g_return_if_fail(errbool==TRUE);
244 heartbeat_source_callback_orb=captive_corba_orb;
246 /* linc_main_get_loop() makes sense only after corba_init() -> CORBA_ORB_init() */
247 errguint=g_source_attach(
248 captive_corba_sandbox_child_heartbeat_gsource, /* source */
249 g_main_loop_get_context(linc_main_get_loop())); /* context; NULL means 'default context' */
250 g_assert(errguint!=0);
252 /* Init 'Vfs_object' */
253 Vfs_object=impl_Captive_Vfs__create(captive_corba_poa,&captive_corba_ev);
254 g_assert(validate_CORBA_Environment(&captive_corba_ev));
256 /* Pass IOR to our parent.
257 * It will also create the socket needed for 'chrooted_orbit_dir' below
258 * by CORBA_ORB_object_to_string()->ORBit_marshal_object()->IOP_generate_profiles()->ORBit_ORB_start_servers...
262 Vfs_IOR=CORBA_ORB_object_to_string(captive_corba_orb,Vfs_object,&captive_corba_ev);
263 g_assert(validate_CORBA_Environment(&captive_corba_ev));
264 g_assert(Vfs_IOR!=NULL);
265 errint=printf("ior=%s\n",Vfs_IOR);
270 /* Default mode is 0700, permit parent non-"captive" users to access our IOR socket. */
271 if (chrooted_orbit_dir) {
273 struct dirent *dirent;
274 const gchar *socketname=NULL,*socketpathname;
276 errint=chmod(chrooted_orbit_dir,0755);
279 dir=opendir(chrooted_orbit_dir);
281 while (errno=0,(dirent=readdir(dir))) {
282 if (!strcmp(dirent->d_name,".") || !strcmp(dirent->d_name,".."))
284 g_assert(socketname==NULL);
285 socketname=captive_strdup_alloca(dirent->d_name);
288 errint=closedir(dir);
290 g_assert(socketname!=NULL);
292 socketpathname=captive_printf_alloca("%s/%s",chrooted_orbit_dir,socketname);
293 errint=chmod(socketpathname,0666);
296 printf("socketname=%s\n",socketname);
299 /* Close the output to flush it to our spawning parent. */
300 errint=fflush(stdout);
302 errint=fclose(stdout);
305 /* CORBA_ORB_run() -> linc_main_loop_run() -> g_main_loop_run()
306 * and therefore we should be safe with glib events handling.
308 CORBA_ORB_run(captive_corba_orb,&captive_corba_ev);
309 g_assert(validate_CORBA_Environment(&captive_corba_ev));
311 /* Shutdown 'Vfs' servant */
312 Vfs_servant=PortableServer_POA_reference_to_servant(captive_corba_poa,Vfs_object,&captive_corba_ev);
313 g_assert(validate_CORBA_Environment(&captive_corba_ev));
314 CORBA_Object_release(Vfs_object,&captive_corba_ev);
315 g_assert(validate_CORBA_Environment(&captive_corba_ev));
316 impl_Captive_Vfs__destroy(Vfs_servant,&captive_corba_ev);
317 g_assert(validate_CORBA_Environment(&captive_corba_ev));
319 errbool=corba_shutdown(&captive_corba_ev,&captive_corba_orb,&captive_corba_poa);
320 g_assert(errbool==TRUE);
326 static void options_module_captive_to_options_module_corba
327 (Captive_CaptiveOptionsModule *dest_options_module_corba,const struct captive_options_module *src_options_module_captive)
329 g_return_if_fail(dest_options_module_corba!=NULL);
330 g_return_if_fail(src_options_module_captive!=NULL);
332 g_return_if_fail(src_options_module_captive->type==CAPTIVE_OPTIONS_MODULE_TYPE_PE32);
334 dest_options_module_corba->pathname_utf8=g_strdup(src_options_module_captive->pathname_utf8);
335 dest_options_module_corba->data._buffer=g_memdup(src_options_module_captive->u.pe32.base,
336 src_options_module_captive->u.pe32.length);
337 dest_options_module_corba->data._maximum=src_options_module_captive->u.pe32.length;
338 dest_options_module_corba->data._length =src_options_module_captive->u.pe32.length;
339 dest_options_module_corba->data._release=TRUE;
342 static void unlink_nonrecursive(const gchar *dirname)
345 struct dirent *dirent;
348 dir=opendir(dirname);
351 while (errno=0,(dirent=readdir(dir))) {
354 if (!strcmp(dirent->d_name,".") || !strcmp(dirent->d_name,".."))
356 pathname=g_strdup_printf("%s/%s",dirname,dirent->d_name);
357 errint=unlink(pathname);
362 errint=closedir(dir);
364 errint=rmdir(dirname);
368 static const gchar *sandbox_parent_own_orbit_dir;
369 static const gchar *sandbox_parent_own_orbit_socket;
371 static void sandbox_parent_own_orbit_dir_cleanup_atexit(void)
373 static gboolean done=FALSE;
375 g_log(G_LOG_DOMAIN,G_LOG_LEVEL_DEBUG,"%s; done=%d",G_STRLOC,(int)done);
380 if (sandbox_parent_own_orbit_dir)
381 unlink_nonrecursive(sandbox_parent_own_orbit_dir);
384 static struct sandbox_parent_own_orbit_dir_cleanup_signal {
386 /* FIXME: Why we cannot use 'sighandler_t'? */ void (*sighandler_orig)(int signum);
387 } sandbox_parent_own_orbit_dir_cleanup_signals[]={
396 static void sandbox_parent_own_orbit_dir_cleanup_sighandler(int signum)
398 struct sandbox_parent_own_orbit_dir_cleanup_signal *sigstructp;
401 sigstructp=sandbox_parent_own_orbit_dir_cleanup_signals;
402 sigstructp<sandbox_parent_own_orbit_dir_cleanup_signals+G_N_ELEMENTS(sandbox_parent_own_orbit_dir_cleanup_signals);
404 if (sigstructp->signum==signum)
407 g_assert(sigstructp<sandbox_parent_own_orbit_dir_cleanup_signals+G_N_ELEMENTS(sandbox_parent_own_orbit_dir_cleanup_signals));
408 signal(signum,sigstructp->sighandler_orig);
410 /* Prevent recursive fatal logging before signal restore: */
411 g_log(G_LOG_DOMAIN,G_LOG_LEVEL_DEBUG,"%s: signum=%d,sighandler_orig=%p",G_STRLOC,signum,sigstructp->sighandler_orig);
413 sandbox_parent_own_orbit_dir_cleanup_atexit();
415 g_log(G_LOG_DOMAIN,G_LOG_LEVEL_DEBUG,"%s: re-raising...",G_STRLOC);
419 static void sandbox_parent_own_orbit_dir_cleanup_init(void)
421 struct sandbox_parent_own_orbit_dir_cleanup_signal *sigstructp;
424 sigstructp=sandbox_parent_own_orbit_dir_cleanup_signals;
425 sigstructp<sandbox_parent_own_orbit_dir_cleanup_signals+G_N_ELEMENTS(sandbox_parent_own_orbit_dir_cleanup_signals);
427 sigstructp->sighandler_orig=signal(sigstructp->signum,sandbox_parent_own_orbit_dir_cleanup_sighandler);
428 if (sigstructp->sighandler_orig==SIG_IGN)
429 sigstructp->sighandler_orig=SIG_DFL;
433 gchar *sandbox_parent_read_ior(int Vfs_IOR_fd_read,gchar **child_chroot_pid_hashkey_dirp)
438 gchar *ior,*child_chroot_pid_hashkey_dir;
443 /* Initialize /tmp/orbit-$username directory for linking IOR socket. */
444 errbool=corba_init("captive-sandbox-parent",&captive_corba_ev,&captive_corba_orb,&captive_corba_poa);
445 g_assert(errbool==TRUE);
447 /* FIXME: Security: Duplicate giop_tmpdir_init() here. */
448 if (!sandbox_parent_own_orbit_dir) {
449 sandbox_parent_own_orbit_dir=g_strdup_printf("/tmp/captive-orbit-%d",getpid());
450 if (mkdir(sandbox_parent_own_orbit_dir,0700)) {
451 g_assert(errno==EEXIST);
452 sandbox_parent_own_orbit_dir_cleanup_init();
453 unlink_nonrecursive(sandbox_parent_own_orbit_dir);
454 if (mkdir(sandbox_parent_own_orbit_dir,0700))
455 g_assert_not_reached();
457 sandbox_parent_own_orbit_dir_cleanup_init();
458 linc_set_tmpdir(sandbox_parent_own_orbit_dir);
461 data=captive_rtl_file_read(Vfs_IOR_fd_read,&data_size); /* data_fd_read */
462 errint=close(Vfs_IOR_fd_read);
464 g_assert(data!=NULL);
465 g_assert(data_size>=1);
466 g_assert(data[data_size-1]=='\n');
468 hash=g_hash_table_new(g_str_hash,g_str_equal);
470 for (s=data;s<data+data_size;s=se+1) {
477 g_hash_table_insert(hash,s,sd+1);
479 g_assert(s==data+data_size);
481 if ((child_chroot_pid_hashkey_dir=g_hash_table_lookup(hash,"chroot_pid_hashkey_dir"))) {
482 const gchar *socketname,*socketpathname_src,*socketpathname_dest;
483 const gchar *chrooted_orbit_dir;
485 /* IOR contains the full pathname with the setuid username encoded. */
486 chrooted_orbit_dir=g_hash_table_lookup(hash,"chrooted_orbit_dir");
487 g_assert(chrooted_orbit_dir!=NULL);
488 if (mkdir(chrooted_orbit_dir,S_ISVTX|0777)) {
489 g_assert(errno==EEXIST);
492 socketname=g_hash_table_lookup(hash,"socketname");
493 g_assert(socketname!=NULL);
495 socketpathname_src=captive_printf_alloca("%s/%s/%s",child_chroot_pid_hashkey_dir,chrooted_orbit_dir,socketname);
496 socketpathname_dest=captive_printf_alloca("%s/%s",chrooted_orbit_dir,socketname);
497 errint=link(socketpathname_src,socketpathname_dest);
500 if (child_chroot_pid_hashkey_dirp)
501 *child_chroot_pid_hashkey_dirp=g_strdup(child_chroot_pid_hashkey_dir);
503 ior=g_hash_table_lookup(hash,"ior");
508 g_hash_table_destroy(hash);
514 static xmlNode *options_module_captive_to_xml
515 (xmlNode *dest_xml_parent,const struct captive_options_module *src_options_module_captive)
517 g_return_val_if_fail(dest_xml_parent!=NULL,NULL);
518 g_return_val_if_fail(src_options_module_captive!=NULL,NULL);
520 { xmlNode *module=xmlNewTextChild(dest_xml_parent,NULL,"module",NULL);
521 const gchar *type_string,*basename,*cgs;
523 basename=src_options_module_captive->pathname_utf8;
524 if ((cgs=strrchr(basename,'/')))
526 xmlNewProp(module,"basename",basename);
527 switch (src_options_module_captive->type) {
528 case CAPTIVE_OPTIONS_MODULE_TYPE_PE32:
530 xmlNewProp(module,"length",captive_printf_alloca("%lu",(unsigned long)src_options_module_captive->u.pe32.length));
531 xmlNewProp(module,"md5" ,src_options_module_captive->u.pe32.md5);
533 case CAPTIVE_OPTIONS_MODULE_TYPE_GMODULE:
534 type_string="gmodule";
536 default: g_assert_not_reached();
538 xmlNewProp(module,"type",type_string); /* AFTER the 'switch' to set 'type_string'! */
544 static void sandbox_parent_bug_doc_make(CaptiveVfsParentObject *captive_vfs_parent_object)
546 { xmlDoc *doc=xmlNewDoc("1.0");
547 captive_vfs_parent_object->corba_bug_doc=doc;
548 { xmlNode *bug=xmlNewDocNode(captive_vfs_parent_object->corba_bug_doc,NULL,"bug",NULL);
549 xmlDocSetRootElement(captive_vfs_parent_object->corba_bug_doc,bug);
550 captive_vfs_parent_object->corba_bug=bug;
551 { xmlNode *bug_captive=xmlNewTextChild(bug,NULL,"captive",NULL);
552 xmlNewProp(bug_captive,"version",VERSION);
554 { xmlNode *bug_filesystem=xmlNewTextChild(bug,NULL,"filesystem",NULL);
555 options_module_captive_to_xml(bug_filesystem,&CAPTIVE_VFS_OBJECT(captive_vfs_parent_object)->options.filesystem);
557 { xmlNode *bug_load_module=xmlNewTextChild(bug,NULL,"load_module",NULL);
559 struct captive_options_module *options_module;
560 GList *load_module_node;
562 for (load_moduleui=0,load_module_node=CAPTIVE_VFS_OBJECT(captive_vfs_parent_object)->options.load_module;
564 load_moduleui++,load_module_node=load_module_node->next) {
565 options_module=load_module_node->data;
566 options_module_captive_to_xml(bug_load_module,options_module);
569 { xmlNode *bug_action=xmlNewTextChild(bug,NULL,"action",NULL);
570 captive_vfs_parent_object->corba_bug_action=bug_action;
572 { xmlNode *bug_log=xmlNewTextChild(bug,NULL,"log",NULL);
573 captive_vfs_parent_object->corba_bug_log=bug_log;
580 static void sandbox_parent(const gchar *Vfs_IOR,const gchar *child_chroot_pid_hashkey_dir,CaptiveVfsParentObject *captive_vfs_parent_object)
582 Captive_Vfs Vfs_object;
583 Captive_GLogFunc GLogFunc_object;
584 Captive_CaptiveIOChannel CaptiveIOChannel_object;
585 Captive_CaptiveOptions options_corba;
586 guint load_module_length,load_moduleui;
587 struct captive_options_module *options_module;
588 GList *load_module_node;
589 const gchar *child_chroot_parent_own_orbit_socket,*child_chroot_parent_own_orbit_dir;
592 g_return_if_fail(Vfs_IOR!=NULL);
593 /* 'child_chroot_pid_hashkey_dir' may be NULL */
594 g_return_if_fail(CAPTIVE_VFS_PARENT_IS_OBJECT(captive_vfs_parent_object));
596 Vfs_object=CORBA_ORB_string_to_object(captive_corba_orb,Vfs_IOR,&captive_corba_ev);
597 g_assert(validate_CORBA_Environment(&captive_corba_ev));
599 /* Init 'GLogFunc_object' */
600 GLogFunc_object=impl_Captive_GLogFunc__create(captive_corba_poa,captive_vfs_parent_object,&captive_corba_ev);
601 g_assert(validate_CORBA_Environment(&captive_corba_ev));
603 /* Init 'CaptiveIOChannel_object' */
604 if (!captive_vfs_parent_object->corba_parent_giochanel_blind_source)
605 switch (CAPTIVE_VFS_OBJECT(captive_vfs_parent_object)->options.rwmode) {
606 case CAPTIVE_OPTION_RWMODE_RO:
607 case CAPTIVE_OPTION_RWMODE_RW:
608 captive_vfs_parent_object->corba_parent_giochanel_blind_source=CAPTIVE_VFS_OBJECT(captive_vfs_parent_object)->options.image_iochannel;
610 case CAPTIVE_OPTION_RWMODE_BLIND:
611 captive_vfs_parent_object->corba_parent_giochanel_blind_source=(GIOChannel *)captive_giochannel_blind_new(
612 CAPTIVE_VFS_OBJECT(captive_vfs_parent_object)->options.image_iochannel, /* giochannel_orig */
613 TRUE); /* writeable */
615 default: g_assert_not_reached();
617 if (!captive_vfs_parent_object->corba_parent_giochanel_blind)
618 captive_vfs_parent_object->corba_parent_giochanel_blind=(GIOChannel *)captive_giochannel_blind_new(
619 captive_vfs_parent_object->corba_parent_giochanel_blind_source, /* giochannel_orig */
620 (CAPTIVE_VFS_OBJECT(captive_vfs_parent_object)->options.rwmode!=CAPTIVE_OPTION_RWMODE_RO)); /* writeable */
621 CaptiveIOChannel_object=impl_Captive_CaptiveIOChannel__create(captive_corba_poa,
622 captive_vfs_parent_object->corba_parent_giochanel_blind,&captive_corba_ev);
623 g_assert(validate_CORBA_Environment(&captive_corba_ev));
625 /* Create the socket needed for 'sandbox_parent_own_orbit_socket' below
626 * by CORBA_ORB_object_to_string()->ORBit_marshal_object()->IOP_generate_profiles()->ORBit_ORB_start_servers...
630 GLogFunc_IOR=CORBA_ORB_object_to_string(captive_corba_orb,GLogFunc_object,&captive_corba_ev);
631 g_assert(validate_CORBA_Environment(&captive_corba_ev));
632 g_assert(GLogFunc_IOR!=NULL);
633 CORBA_free(GLogFunc_IOR);
636 if (sandbox_parent_own_orbit_dir && !sandbox_parent_own_orbit_socket) {
638 struct dirent *dirent;
640 dir=opendir(sandbox_parent_own_orbit_dir);
643 while (errno=0,(dirent=readdir(dir))) {
644 if (!strcmp(dirent->d_name,".") || !strcmp(dirent->d_name,".."))
646 g_assert(sandbox_parent_own_orbit_socket==NULL);
647 sandbox_parent_own_orbit_socket=g_strdup_printf("%s/%s",sandbox_parent_own_orbit_dir,dirent->d_name);
650 errint=closedir(dir);
652 g_assert(sandbox_parent_own_orbit_socket!=NULL);
655 if (child_chroot_pid_hashkey_dir) {
656 child_chroot_parent_own_orbit_dir=captive_printf_alloca("%s/%s",child_chroot_pid_hashkey_dir,sandbox_parent_own_orbit_dir);
657 errint=mkdir(child_chroot_parent_own_orbit_dir,0777);
659 child_chroot_parent_own_orbit_socket=captive_printf_alloca("%s/%s",
660 child_chroot_pid_hashkey_dir,sandbox_parent_own_orbit_socket);
661 errint=link(sandbox_parent_own_orbit_socket,child_chroot_parent_own_orbit_socket);
663 /* chmod(2)s also our orig. one (!) but this one is protected by its 0777 directory. */
664 errint=chmod(child_chroot_parent_own_orbit_socket,0666);
668 options_corba.g_log_func=GLogFunc_object;
669 options_module_captive_to_options_module_corba(&options_corba.filesystem,&CAPTIVE_VFS_OBJECT(captive_vfs_parent_object)->options.filesystem);
670 /* Prevent secondary captive_giochannel_blind inside of our sandbox child
671 * as we already have one captive_giochannel_blind in the parent.
673 options_corba.rwmode =(CAPTIVE_VFS_OBJECT(captive_vfs_parent_object)->options.rwmode == CAPTIVE_OPTION_RWMODE_BLIND ? CAPTIVE_OPTION_RWMODE_RW
674 : CAPTIVE_VFS_OBJECT(captive_vfs_parent_object)->options.rwmode);
675 options_corba.media =CAPTIVE_VFS_OBJECT(captive_vfs_parent_object)->options.media;
676 options_corba.debug_messages=CAPTIVE_VFS_OBJECT(captive_vfs_parent_object)->options.debug_messages;
677 options_corba.image_iochannel=CaptiveIOChannel_object;
679 load_module_length=g_list_length(CAPTIVE_VFS_OBJECT(captive_vfs_parent_object)->options.load_module);
680 captive_newn(options_corba.load_module._buffer,load_module_length);
681 options_corba.load_module._maximum=load_module_length;
682 options_corba.load_module._length=load_module_length;
683 options_corba.load_module._release=TRUE;
684 for (load_moduleui=0,load_module_node=CAPTIVE_VFS_OBJECT(captive_vfs_parent_object)->options.load_module;
686 load_moduleui++,load_module_node=load_module_node->next) {
687 options_module=load_module_node->data;
688 options_module_captive_to_options_module_corba(options_corba.load_module._buffer+load_moduleui,options_module);
691 Captive_Vfs_init(Vfs_object,&options_corba,&captive_corba_ev);
692 g_assert(validate_CORBA_Environment(&captive_corba_ev));
694 /* FIXME: Free 'options_corba' - LEAK */
696 captive_vfs_parent_object->corba_Vfs_object=Vfs_object;
697 captive_vfs_parent_object->corba_GLogFunc_object=GLogFunc_object;
698 captive_vfs_parent_object->corba_CaptiveIOChannel_object=CaptiveIOChannel_object;
700 if (CAPTIVE_VFS_OBJECT(captive_vfs_parent_object)->options.bug_pathname)
701 sandbox_parent_bug_doc_make(captive_vfs_parent_object);
704 static void fd_shiftup(int *fdp)
706 g_return_if_fail(fdp!=NULL);
708 while (*fdp<=2 /* STDERR */) {
714 void captive_sandbox_fd_closeup(int fd_first_to_delete)
719 struct dirent *dirent;
721 dir=opendir("/proc/self/fd/");
722 g_return_if_fail(dir!=NULL);
724 g_return_if_fail(dir_fd!=-1);
726 while (errno=0,(dirent=readdir(dir))) {
731 || !strcmp(dirent->d_name,".")
732 || !strcmp(dirent->d_name,".."))
734 dirent_fd=strtol(dirent->d_name,&endptr,10 /* base */);
735 g_assert(dirent_fd>=0 && (!endptr || !*endptr));
736 if (dirent_fd<fd_first_to_delete || dirent_fd==dir_fd)
739 errint=close(dirent_fd);
742 errint=close(dirent_fd);
743 g_assert(errint==-1); g_assert(errno==EBADF);
745 g_return_if_fail(errno==0); /* check for EOF */
747 errint=closedir(dir);
748 g_return_if_fail(errint==0);
750 close(dir_fd); g_assert(errno==EBADF); /* just a bit of paranoia; it should be already closed by closedir() */
753 gboolean captive_sandbox_spawn(CaptiveVfsParentObject *captive_vfs_parent_object)
755 /* Vfs_IOR_fds[0] for reading by sandbox_parent() - client,
756 * Vfs_IOR_fds[1] for writing by sandbox_child() - server
758 int Vfs_IOR_fds[2],parentheart_fds[2];
762 g_return_val_if_fail(CAPTIVE_VFS_PARENT_IS_OBJECT(captive_vfs_parent_object),FALSE);
764 errint=pipe(Vfs_IOR_fds);
765 g_return_val_if_fail(errint==0,FALSE);
766 errint=pipe(parentheart_fds);
767 g_return_val_if_fail(errint==0,FALSE);
769 /* Currently never called anywhere:
770 * errbool=corba_shutdown(&captive_corba_ev,&captive_corba_orb,&captive_corba_poa);
771 * g_assert(errbool==TRUE);
774 if (CAPTIVE_VFS_OBJECT(captive_vfs_parent_object)->options.sandbox_server_ior) {
775 g_assert(CAPTIVE_VFS_OBJECT(captive_vfs_parent_object)->options.sandbox_server_argv==NULL);
777 errbool=corba_init("captive-sandbox-parent",&captive_corba_ev,&captive_corba_orb,&captive_corba_poa);
778 g_assert(errbool==TRUE);
780 captive_vfs_parent_object->corba_parentheart_fds_1=-1;
781 captive_vfs_parent_object->corba_child_pid=-1;
783 CAPTIVE_VFS_OBJECT(captive_vfs_parent_object)->options.sandbox_server_ior, /* Vfs_IOR */
784 NULL, /* child_chroot_pid_hashkey_dir */
785 captive_vfs_parent_object); /* captive_vfs_parent_object */
789 g_assert(CAPTIVE_VFS_OBJECT(captive_vfs_parent_object)->options.sandbox_server_argv!=NULL);
790 switch ((captive_vfs_parent_object->corba_child_pid=fork())) {
792 g_return_val_if_reached(FALSE);
794 case 0: { /* child */
796 errint=close(Vfs_IOR_fds[0]); /* close Vfs_IOR_fd_read */
797 g_return_val_if_fail(errint==0,FALSE);
798 errint=close(parentheart_fds[1]); /* close parentheart_fd_write */
799 g_return_val_if_fail(errint==0,FALSE);
801 fd_shiftup(Vfs_IOR_fds+1); /* Vfs_IOR_fd_write */
802 fd_shiftup(parentheart_fds+0); /* parentheart_fd_read */
803 errint=dup2(Vfs_IOR_fds[1],1 /* STDOUT */); /* Vfs_IOR_fd_write */
804 g_return_val_if_fail(errint==1 /* STDOUT */,FALSE);
805 errint=dup2(parentheart_fds[0],0 /* STDIN */); /* parentheart_fd_read */
806 g_return_val_if_fail(errint==0 /* STDIN */,FALSE);
808 captive_sandbox_fd_closeup(2 /* STDERR */ +1);
810 execv(CAPTIVE_VFS_OBJECT(captive_vfs_parent_object)->options.sandbox_server_argv[0],
811 /* re-const */ (char * const *)CAPTIVE_VFS_OBJECT(captive_vfs_parent_object)->options.sandbox_server_argv);
812 g_return_val_if_reached(FALSE);
815 default: { /* parent */
817 gchar *child_chroot_pid_hashkey_dir;
819 errint=close(Vfs_IOR_fds[1]); /* close Vfs_IOR_fd_write */
820 g_return_val_if_fail(errint==0,FALSE);
821 errint=close(parentheart_fds[0]); /* close parentheart_fd_read */
822 g_return_val_if_fail(errint==0,FALSE);
823 errint=fcntl(parentheart_fds[1],F_SETFD,FD_CLOEXEC);
824 /* This fcntl(2) may not be enough - some fork(2) may duplicate this
825 * write descriptor and even if we do some process finish the child
826 * may remain alone connected with some unknown fork(2)er from us.
827 * Currently I am not aware such case would occur.
829 g_return_val_if_fail(errint==0,FALSE);
830 captive_vfs_parent_object->corba_parentheart_fds_1=parentheart_fds[1];
832 Vfs_IOR=sandbox_parent_read_ior(
833 Vfs_IOR_fds[0], /* Vfs_IOR_fd_read */
834 &child_chroot_pid_hashkey_dir);
837 Vfs_IOR, /* Vfs_IOR */
838 child_chroot_pid_hashkey_dir, /* child_chroot_pid_hashkey_dir */
839 captive_vfs_parent_object); /* captive_vfs_parent_object */
842 g_free(child_chroot_pid_hashkey_dir);
844 /* 'parentheart_fds[1]' - parentheart_fd_write - is left open here */
849 g_return_val_if_reached(FALSE);
853 GnomeVFSResult captive_sandbox_parent_return_from_CORBA_Environment
854 (CORBA_Environment *evp,CaptiveVfsParentObject *captive_vfs_parent_object)
858 if (evp->_major==CORBA_NO_EXCEPTION)
861 /* If !CAPTIVE_VFS_OBJECT(captive_vfs_parent_object)->options.sandbox_server_argv it is CAPTIVE_VFS_OBJECT(captive_vfs_parent_object)->options.sandbox_server_ior
862 * where we cannot do any restart anyway.
864 if (captive_vfs_parent_object && CAPTIVE_VFS_OBJECT(captive_vfs_parent_object)->options.sandbox_server_argv
865 && (evp->_major==CORBA_SYSTEM_EXCEPTION && !strcmp(ex_CORBA_COMM_FAILURE,CORBA_exception_id(evp)))) {
866 r=GNOME_VFS_ERROR_SERVICE_NOT_AVAILABLE;
867 if (captive_vfs_parent_object->corba_Vfs_object!=CORBA_OBJECT_NIL)
868 captive_vfs_parent_object_aborted(captive_vfs_parent_object); /* errors ignored */
870 else if (evp->_major==CORBA_USER_EXCEPTION && !strcmp(ex_Captive_GnomeVFSResultException,CORBA_exception_id(evp))) {
871 r=((Captive_GnomeVFSResultException *)CORBA_exception_value(evp))->gnome_vfs_result;
872 g_assert(r!=GNOME_VFS_ERROR_SERVICE_NOT_AVAILABLE); /* code reserved for sandbox restarts */
875 r=GNOME_VFS_ERROR_GENERIC;
876 g_warning(_("CORBA Exception occured: id=\"%s\", value=%p"),
877 CORBA_exception_id(evp),CORBA_exception_value(evp));
879 CORBA_exception_free(evp);
885 void captive_sandbox_child_GnomeVFSResultException_throw(CORBA_Environment *evp,GnomeVFSResult errvfsresult)
887 Captive_GnomeVFSResultException *gnome_vfs_result_exception;
889 g_return_if_fail(evp!=NULL);
891 gnome_vfs_result_exception=Captive_GnomeVFSResultException__alloc();
892 gnome_vfs_result_exception->gnome_vfs_result=errvfsresult;
893 CORBA_exception_set(evp,CORBA_USER_EXCEPTION,ex_Captive_GnomeVFSResultException,gnome_vfs_result_exception);