2003-07-16 Havoc Pennington <hp@pobox.com>
[platform/upstream/dbus.git] / tools / dbus-launch.c
1 /* -*- mode: C; c-file-style: "gnu" -*- */
2 /* dbus-launch.c  dbus-launch utility
3  *
4  * Copyright (C) 2003 Red Hat, Inc.
5  *
6  * Licensed under the Academic Free License version 1.2
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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
21  *
22  */
23 #include <config.h>
24 #include <stdlib.h>
25 #include <unistd.h>
26 #include <fcntl.h>
27 #include <signal.h>
28 #include <sys/wait.h>
29 #include <errno.h>
30 #include <stdio.h>
31 #include <string.h>
32 #include <signal.h>
33 #include <stdarg.h>
34 #ifdef DBUS_BUILD_X11
35 #include <X11/Xlib.h>
36 #endif
37
38 #ifndef TRUE
39 #define TRUE (1)
40 #endif
41
42 #ifndef FALSE
43 #define FALSE (0)
44 #endif
45
46 #undef  MAX
47 #define MAX(a, b)  (((a) > (b)) ? (a) : (b))
48
49 static void
50 verbose (const char *format,
51          ...)
52 {
53   va_list args;
54   static int verbose = TRUE;
55   static int verbose_initted = FALSE;
56   
57   /* things are written a bit oddly here so that
58    * in the non-verbose case we just have the one
59    * conditional and return immediately.
60    */
61   if (!verbose)
62     return;
63   
64   if (!verbose_initted)
65     {
66       verbose = getenv ("DBUS_VERBOSE") != NULL;
67       verbose_initted = TRUE;
68       if (!verbose)
69         return;
70     }
71
72   fprintf (stderr, "%lu: ", (unsigned long) getpid ());
73   
74   va_start (args, format);
75   vfprintf (stderr, format, args);
76   va_end (args);
77 }
78
79 static void
80 usage (int ecode)
81 {
82   fprintf (stderr, "dbus-launch [--version] [--help] [--sh-syntax] [--csh-syntax] [--auto-syntax] [--exit-with-session]\n");
83   exit (ecode);
84 }
85
86 static void
87 version (void)
88 {
89   printf ("D-BUS Message Bus Launcher %s\n"
90           "Copyright (C) 2003 Red Hat, Inc.\n"
91           "This is free software; see the source for copying conditions.\n"
92           "There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n",
93           VERSION);
94   exit (0);
95 }
96
97 static char *
98 xstrdup (const char *str)
99 {
100   int len;
101   char *copy;
102   
103   if (str == NULL)
104     return NULL;
105   
106   len = strlen (str);
107
108   copy = malloc (len + 1);
109   if (copy == NULL)
110     return NULL;
111
112   memcpy (copy, str, len + 1);
113   
114   return copy;
115 }
116
117 typedef enum
118 {
119   READ_STATUS_OK,    /**< Read succeeded */
120   READ_STATUS_ERROR, /**< Some kind of error */
121   READ_STATUS_EOF    /**< EOF returned */
122 } ReadStatus;
123
124 static ReadStatus
125 read_line (int        fd,
126            char      *buf,
127            size_t     maxlen)
128 {
129   size_t bytes = 0;
130   ReadStatus retval;
131
132   memset (buf, '\0', maxlen);
133   maxlen -= 1; /* ensure nul term */
134   
135   retval = READ_STATUS_OK;
136   
137   while (TRUE)
138     {
139       size_t chunk;    
140       size_t to_read;
141       
142     again:
143       to_read = maxlen - bytes;
144
145       if (to_read == 0)
146         break;
147       
148       chunk = read (fd,
149                     buf + bytes,
150                     to_read);
151       if (chunk < 0 && errno == EINTR)
152         goto again;
153           
154       if (chunk < 0)
155         {
156           retval = READ_STATUS_ERROR;
157           break;
158         }
159       else if (chunk == 0)
160         {
161           retval = READ_STATUS_EOF;
162           break; /* EOF */
163         }
164       else /* chunk > 0 */
165         bytes += chunk;
166     }
167
168   if (retval == READ_STATUS_EOF &&
169       bytes > 0)
170     retval = READ_STATUS_OK;
171   
172   /* whack newline */
173   if (retval != READ_STATUS_ERROR &&
174       bytes > 0 &&
175       buf[bytes-1] == '\n')
176     buf[bytes-1] = '\0';
177   
178   return retval;
179 }
180
181 static ReadStatus
182 read_pid (int        fd,
183           pid_t     *buf)
184 {
185   size_t bytes = 0;
186   ReadStatus retval;
187
188   retval = READ_STATUS_OK;
189   
190   while (TRUE)
191     {
192       size_t chunk;    
193       size_t to_read;
194       
195     again:
196       to_read = sizeof (pid_t) - bytes;
197
198       if (to_read == 0)
199         break;
200       
201       chunk = read (fd,
202                     ((char*)buf) + bytes,
203                     to_read);
204       if (chunk < 0 && errno == EINTR)
205         goto again;
206           
207       if (chunk < 0)
208         {
209           retval = READ_STATUS_ERROR;
210           break;
211         }
212       else if (chunk == 0)
213         {
214           retval = READ_STATUS_EOF;
215           break; /* EOF */
216         }
217       else /* chunk > 0 */
218         bytes += chunk;
219     }
220
221   return retval;
222 }
223
224 static void
225 do_write (int fd, const void *buf, size_t count)
226 {
227   size_t bytes_written;
228   int ret;
229   
230   bytes_written = 0;
231   
232  again:
233   
234   ret = write (fd, ((const char*)buf) + bytes_written, count - bytes_written);
235
236   if (ret < 0)
237     {
238       if (errno == EINTR)
239         goto again;
240       else
241         {
242           fprintf (stderr, "Failed to write data to pipe!\n");
243           exit (1); /* give up, we suck */
244         }
245     }
246   else
247     bytes_written += ret;
248   
249   if (bytes_written < count)
250     goto again;
251 }
252
253 static void
254 write_pid (int   fd,
255            pid_t pid)
256 {
257   do_write (fd, &pid, sizeof (pid));
258 }
259
260 static int
261 do_waitpid (pid_t pid)
262 {
263   int ret;
264   
265  again:
266   ret = waitpid (pid, NULL, 0);
267
268   if (ret < 0 &&
269       errno == EINTR)
270     goto again;
271
272   return ret;
273 }
274
275 static pid_t bus_pid_to_kill = -1;
276
277 static void
278 kill_bus_and_exit (void)
279 {
280   verbose ("Killing message bus and exiting babysitter\n");
281   
282   /* in case these point to any NFS mounts, get rid of them immediately */
283   close (0);
284   close (1);
285   close (2);
286
287   kill (bus_pid_to_kill, SIGTERM);
288   sleep (3);
289   kill (bus_pid_to_kill, SIGKILL);
290
291   exit (0);
292 }
293
294 #ifdef DBUS_BUILD_X11
295 static int
296 x_io_error_handler (Display *xdisplay)
297 {
298   verbose ("X IO error\n");
299   kill_bus_and_exit ();
300   return 0;
301 }
302 #endif
303
304 static int got_sighup = FALSE;
305
306 static void
307 signal_handler (int sig)
308 {
309   switch (sig)
310     {
311     case SIGHUP:
312       got_sighup = TRUE;
313       break;
314     }
315 }
316
317 static void
318 kill_bus_when_session_ends (void)
319 {
320   int tty_fd;
321   int x_fd;
322   fd_set read_set;
323   fd_set err_set;
324   int ret;
325   struct sigaction act;
326   sigset_t empty_mask;
327 #ifdef DBUS_BUILD_X11
328   Display *xdisplay;
329 #endif
330   
331   /* install SIGHUP handler */
332   got_sighup = FALSE;
333   sigemptyset (&empty_mask);
334   act.sa_handler = signal_handler;
335   act.sa_mask    = empty_mask;
336   act.sa_flags   = 0;
337   sigaction (SIGHUP,  &act, 0);
338   
339 #ifdef DBUS_BUILD_X11
340   xdisplay = XOpenDisplay (NULL);
341   if (xdisplay != NULL)
342     {
343       verbose ("Successfully opened X display\n");
344       x_fd = ConnectionNumber (xdisplay);
345       XSetIOErrorHandler (x_io_error_handler);
346     }
347   else
348     x_fd = -1;
349 #else
350   verbose ("Compiled without X11 support\n");
351   x_fd = -1;
352 #endif
353
354   if (isatty (0))
355     tty_fd = 0;
356   else
357     tty_fd = -1;
358
359   if (tty_fd >= 0)
360     verbose ("stdin isatty(), monitoring it\n");
361   else
362     verbose ("stdin was not a TTY, not monitoring it\n");  
363   
364   if (tty_fd < 0 && x_fd < 0)
365     {
366       fprintf (stderr, "No terminal on standard input and no X display; cannot attach message bus to session lifetime\n");
367       exit (1);
368     }
369   
370   while (TRUE)
371     {
372       FD_ZERO (&read_set);
373       FD_ZERO (&err_set);
374
375       if (tty_fd >= 0)
376         {
377           FD_SET (tty_fd, &read_set);
378           FD_SET (tty_fd, &err_set);
379         }
380
381       if (x_fd >= 0)
382         {
383           FD_SET (x_fd, &read_set);
384           FD_SET (x_fd, &err_set);
385         }
386       
387       ret = select (MAX (tty_fd, x_fd) + 1,
388                     &read_set, NULL, &err_set, NULL);
389
390       if (got_sighup)
391         {
392           verbose ("Got SIGHUP, exiting\n");
393           kill_bus_and_exit ();
394         }
395       
396 #ifdef DBUS_BUILD_X11
397       /* Dump events on the floor, and let
398        * IO error handler run if we lose
399        * the X connection
400        */
401       if (x_fd >= 0)
402         verbose ("X fd condition reading = %d error = %d\n",
403                  FD_ISSET (x_fd, &read_set),
404                  FD_ISSET (x_fd, &err_set));
405       
406       if (xdisplay != NULL)
407         {      
408           while (XPending (xdisplay))
409             {
410               XEvent ignored;
411               XNextEvent (xdisplay, &ignored);
412             }
413         }
414 #endif
415
416       if (tty_fd >= 0)
417         {
418           if (FD_ISSET (tty_fd, &read_set))
419             {
420               int bytes_read;
421               char discard[512];
422
423               verbose ("TTY ready for reading\n");
424               
425               bytes_read = read (tty_fd, discard, sizeof (discard));
426
427               verbose ("Read %d bytes from TTY errno = %d\n",
428                        bytes_read, errno);
429               
430               if (bytes_read == 0)
431                 kill_bus_and_exit (); /* EOF */
432               else if (bytes_read < 0 && errno != EINTR)
433                 {
434                   /* This shouldn't happen I don't think; to avoid
435                    * spinning on the fd forever we exit.
436                    */
437                   fprintf (stderr, "dbus-launch: error reading from stdin: %s\n",
438                            strerror (errno));
439                   kill_bus_and_exit ();
440                 }
441             }
442           else if (FD_ISSET (tty_fd, &err_set))
443             {
444               verbose ("TTY has error condition\n");
445               
446               kill_bus_and_exit ();
447             }
448         }
449     }
450 }
451
452 static void
453 babysit (int   exit_with_session,
454          pid_t child_pid,
455          int   read_bus_pid_fd,  /* read pid from here */
456          int   write_bus_pid_fd) /* forward pid to here */
457 {
458   int ret;
459 #define MAX_PID_LEN 64
460   char buf[MAX_PID_LEN];
461   long val;
462   char *end;
463   int dev_null_fd;
464   
465   /* We chdir ("/") since we are persistent and daemon-like, and fork
466    * again so dbus-launch can reap the parent.  However, we don't
467    * setsid() or close fd 0 because the idea is to remain attached
468    * to the tty and the X server in order to kill the message bus
469    * when the session ends.
470    */
471
472   if (chdir ("/") < 0)
473     {
474       fprintf (stderr, "Could not change to root directory: %s\n",
475                strerror (errno));
476       exit (1);
477     }
478
479   /* Move stdout/stderr so we don't block an "eval" or otherwise
480    * lock up.
481    */
482   dev_null_fd = open ("/dev/null", O_RDWR);
483   if (dev_null_fd >= 0)
484     {
485       dup2 (dev_null_fd, 1);
486       dup2 (dev_null_fd, 2);
487     }
488   else
489     {
490       fprintf (stderr, "Failed to open /dev/null: %s\n",
491                strerror (errno));
492       /* continue, why not */
493     }
494   
495   ret = fork ();
496
497   if (ret < 0)
498     {
499       fprintf (stderr, "fork() failed in babysitter: %s\n",
500                strerror (errno));
501       exit (1);
502     }
503
504   if (ret > 0)
505     {
506       /* Parent reaps pre-fork part of bus daemon, then exits and is
507        * reaped so the babysitter isn't a zombie
508        */
509
510       verbose ("=== Babysitter's intermediate parent continues again\n");
511       
512       if (do_waitpid (child_pid) < 0)
513         {
514           /* shouldn't happen */
515           fprintf (stderr, "Failed waitpid() waiting for bus daemon's parent\n");
516           exit (1);
517         }
518
519       verbose ("Babysitter's intermediate parent exiting\n");
520       
521       exit (0);
522     }
523
524   /* Child continues */
525   verbose ("=== Babysitter process created\n");
526
527   verbose ("Reading PID from daemon\n");
528   /* Now read data */
529   switch (read_line (read_bus_pid_fd, buf, MAX_PID_LEN))
530     {
531     case READ_STATUS_OK:
532       break;
533     case READ_STATUS_EOF:
534       fprintf (stderr, "EOF reading PID from bus daemon\n");
535       exit (1);
536       break;
537     case READ_STATUS_ERROR:
538       fprintf (stderr, "Error reading PID from bus daemon: %s\n",
539                strerror (errno));
540       exit (1);
541       break;
542     }
543
544   end = NULL;
545   val = strtol (buf, &end, 0);
546   if (buf == end || end == NULL)
547     {
548       fprintf (stderr, "Failed to parse bus PID \"%s\": %s\n",
549                buf, strerror (errno));
550       exit (1);
551     }
552
553   bus_pid_to_kill = val;
554
555   verbose ("Got PID %ld from daemon\n",
556            (long) bus_pid_to_kill);
557   
558   /* Write data to launcher */
559   write_pid (write_bus_pid_fd, bus_pid_to_kill);
560   close (write_bus_pid_fd);
561   
562   if (exit_with_session)
563     {
564       /* Bus is now started and launcher has needed info;
565        * we connect to X display and tty and wait to
566        * kill bus if requested.
567        */
568       
569       kill_bus_when_session_ends ();
570     }
571
572   verbose ("Babysitter exiting\n");
573   
574   exit (0);
575 }
576
577 #define READ_END  0
578 #define WRITE_END 1
579
580 int
581 main (int argc, char **argv)
582 {
583   const char *prev_arg;
584   const char *shname;
585   const char *runprog = NULL;
586   int remaining_args = 0;
587   int exit_with_session;
588   int c_shell_syntax = FALSE;
589   int bourne_shell_syntax = FALSE;
590   int auto_shell_syntax = FALSE;
591   int i;  
592   int ret;
593   int bus_pid_to_launcher_pipe[2];
594   int bus_pid_to_babysitter_pipe[2];
595   int bus_address_to_launcher_pipe[2];
596   
597   exit_with_session = FALSE;
598   
599   prev_arg = NULL;
600   i = 1;
601   while (i < argc)
602     {
603       const char *arg = argv[i];
604       
605       if (strcmp (arg, "--help") == 0 ||
606           strcmp (arg, "-h") == 0 ||
607           strcmp (arg, "-?") == 0)
608         usage (0);
609       else if (strcmp (arg, "--auto-syntax") == 0)
610         auto_shell_syntax = TRUE;
611       else if (strcmp (arg, "-c") == 0 ||
612                strcmp (arg, "--csh-syntax") == 0)
613         c_shell_syntax = TRUE;
614       else if (strcmp (arg, "-s") == 0 ||
615                strcmp (arg, "--sh-syntax") == 0)
616         bourne_shell_syntax = TRUE;
617       else if (strcmp (arg, "--version") == 0)
618         version ();
619       else if (strcmp (arg, "--exit-with-session") == 0)
620         exit_with_session = TRUE;
621       else if (runprog)
622         usage (1);
623       else
624         {
625           runprog = arg;
626           remaining_args = i+1;
627           break;
628         }
629       
630       prev_arg = arg;
631       
632       ++i;
633     }
634
635   if (exit_with_session)
636     verbose ("--exit-with-session enabled\n");
637
638   if (auto_shell_syntax)
639     {
640       if ((shname = getenv ("SHELL")) != NULL)
641        {
642          if (!strncmp (shname + strlen (shname) - 3, "csh", 3))
643            c_shell_syntax = TRUE;
644          else
645            bourne_shell_syntax = TRUE;
646        }
647       else
648        bourne_shell_syntax = TRUE;
649     }  
650
651   if (pipe (bus_pid_to_launcher_pipe) < 0 ||
652       pipe (bus_address_to_launcher_pipe) < 0)
653     {
654       fprintf (stderr,
655                "Failed to create pipe: %s\n",
656                strerror (errno));
657       exit (1);
658     }
659
660   bus_pid_to_babysitter_pipe[READ_END] = -1;
661   bus_pid_to_babysitter_pipe[WRITE_END] = -1;
662   
663   ret = fork ();
664   if (ret < 0)
665     {
666       fprintf (stderr, "Failed to fork: %s\n",
667                strerror (errno));
668       exit (1);
669     }
670
671   if (ret == 0)
672     {
673       /* Child */
674 #define MAX_FD_LEN 64
675       char write_pid_fd_as_string[MAX_FD_LEN];
676       char write_address_fd_as_string[MAX_FD_LEN];
677
678       verbose ("=== Babysitter's intermediate parent created\n");
679       
680       /* Fork once more to create babysitter */
681       
682       if (pipe (bus_pid_to_babysitter_pipe) < 0)
683         {
684           fprintf (stderr,
685                    "Failed to create pipe: %s\n",
686                    strerror (errno));
687           exit (1);              
688         }
689       
690       ret = fork ();
691       if (ret < 0)
692         {
693           fprintf (stderr, "Failed to fork: %s\n",
694                    strerror (errno));
695           exit (1);
696         }
697       
698       if (ret > 0)
699         {
700           /* In babysitter */
701           verbose ("=== Babysitter's intermediate parent continues\n");
702           
703           close (bus_pid_to_launcher_pipe[READ_END]);
704           close (bus_address_to_launcher_pipe[READ_END]);
705           close (bus_address_to_launcher_pipe[WRITE_END]);
706           close (bus_pid_to_babysitter_pipe[WRITE_END]);
707           
708           /* babysit() will fork *again*
709            * and will also reap the pre-forked bus
710            * daemon
711            */
712           babysit (exit_with_session, ret,
713                    bus_pid_to_babysitter_pipe[READ_END],
714                    bus_pid_to_launcher_pipe[WRITE_END]);
715           exit (0);
716         }
717
718       verbose ("=== Bus exec process created\n");
719       
720       /* Now we are the bus process (well, almost;
721        * dbus-daemon-1 itself forks again)
722        */
723       close (bus_pid_to_launcher_pipe[READ_END]);
724       close (bus_address_to_launcher_pipe[READ_END]);
725       close (bus_pid_to_babysitter_pipe[READ_END]);
726       close (bus_pid_to_launcher_pipe[WRITE_END]);
727
728       sprintf (write_pid_fd_as_string,
729                "%d", bus_pid_to_babysitter_pipe[WRITE_END]);
730
731       sprintf (write_address_fd_as_string,
732                "%d", bus_address_to_launcher_pipe[WRITE_END]);
733
734       verbose ("Calling exec()\n");
735       
736       execlp ("dbus-daemon-1",
737               "dbus-daemon-1",
738               "--fork",
739               "--session",
740               "--print-pid", write_pid_fd_as_string,
741               "--print-address", write_address_fd_as_string,
742               NULL);
743
744       fprintf (stderr,
745                "Failed to execute message bus daemon: %s\n",
746                strerror (errno));
747       exit (1);
748     }
749   else
750     {
751       /* Parent */
752 #define MAX_ADDR_LEN 512
753       pid_t bus_pid;  
754       char bus_address[MAX_ADDR_LEN];
755
756       verbose ("=== Parent dbus-launch continues\n");
757       
758       close (bus_pid_to_launcher_pipe[WRITE_END]);
759       close (bus_address_to_launcher_pipe[WRITE_END]);
760
761       verbose ("Waiting for babysitter's intermediate parent\n");
762       
763       /* Immediately reap parent of babysitter
764        * (which was created just for us to reap)
765        */
766       if (do_waitpid (ret) < 0)
767         {
768           fprintf (stderr, "Failed to waitpid() for babysitter intermediate process: %s\n",
769                    strerror (errno));
770           exit (1);
771         }
772
773       verbose ("Reading address from bus\n");
774       
775       /* Read the pipe data, print, and exit */
776       switch (read_line (bus_address_to_launcher_pipe[READ_END],
777                          bus_address, MAX_ADDR_LEN))
778         {
779         case READ_STATUS_OK:
780           break;
781         case READ_STATUS_EOF:
782           fprintf (stderr, "EOF in dbus-launch reading address from bus daemon\n");
783           exit (1);
784           break;
785         case READ_STATUS_ERROR:
786           fprintf (stderr, "Error in dbus-launch reading address from bus daemon: %s\n",
787                    strerror (errno));
788           exit (1);
789           break;
790         }
791         
792       close (bus_address_to_launcher_pipe[READ_END]);
793
794       verbose ("Reading PID from babysitter\n");
795       
796       switch (read_pid (bus_pid_to_launcher_pipe[READ_END], &bus_pid))
797         {
798         case READ_STATUS_OK:
799           break;
800         case READ_STATUS_EOF:
801           fprintf (stderr, "EOF in dbus-launch reading address from bus daemon\n");
802           exit (1);
803           break;
804         case READ_STATUS_ERROR:
805           fprintf (stderr, "Error in dbus-launch reading address from bus daemon: %s\n",
806                    strerror (errno));
807           exit (1);
808           break;
809         }
810
811       close (bus_pid_to_launcher_pipe[READ_END]);
812       
813       if (runprog)
814         {
815           char *envvar;
816           char **args;
817
818           envvar = malloc (strlen ("DBUS_SESSION_BUS_ADDRESS=") + strlen (bus_address) + 1);
819           args = malloc (sizeof (char *) * ((argc-remaining_args)+2));
820
821           if (envvar == NULL || args == NULL)
822             goto oom;
823
824           args[0] = xstrdup (runprog);
825           if (!args[0])
826             goto oom;
827           for (i = 1; i <= (argc-remaining_args); i++)
828             {
829               size_t len = strlen (argv[remaining_args+i-1])+1;
830               args[i] = malloc (len);
831               if (!args[i])
832                 goto oom;
833               strncpy (args[i], argv[remaining_args+i-1], len);
834             }
835           args[i] = NULL;
836
837           strcpy (envvar, "DBUS_SESSION_BUS_ADDRESS=");
838           strcat (envvar, bus_address);
839           putenv (envvar);
840
841           execvp (runprog, args);
842           fprintf (stderr, "Couldn't exec %s: %s\n", runprog, strerror (errno));
843           exit (1);
844         }
845       else
846         {
847           if (c_shell_syntax)
848             printf ("setenv DBUS_SESSION_BUS_ADDRESS '%s'\n", bus_address);     
849           else
850             {
851               printf ("DBUS_SESSION_BUS_ADDRESS='%s'\n", bus_address);
852               if (bourne_shell_syntax)
853                 printf ("export DBUS_SESSION_BUS_ADDRESS\n");
854             }
855           if (c_shell_syntax)
856             printf ("set DBUS_SESSION_BUS_PID=%ld\n", (long) bus_pid);
857           else
858             printf ("DBUS_SESSION_BUS_PID=%ld\n", (long) bus_pid);
859         }
860           
861       verbose ("dbus-launch exiting\n");
862       
863       exit (0);
864     } 
865   
866   return 0;
867  oom:
868   fprintf (stderr, "Out of memory!");
869   exit (1);
870 }