rxvt-unicode/src/rxvtd.C

/*----------------------------------------------------------------------*
 * File:        rxvtd.C
 *----------------------------------------------------------------------*
 *
 * All portions of code are copyright by their respective author/s.
 * Copyright (c) 2003-2007 Marc Lehmann <schmorp@schmorp.de>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *----------------------------------------------------------------------*/

#include "../config.h"
#include <stdio.h>
#include <stdlib.h>
#include <stdarg.h>
#include <string.h>

#include <unistd.h>
#include <fcntl.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <sys/socket.h>
#include <sys/un.h>

#if defined(ENABLE_FRILLS) && defined(_POSIX_MEMLOCK) && _POSIX_MEMLOCK > 0
# define ENABLE_MLOCK 1
#endif

#if ENABLE_MLOCK
# include <sys/mman.h>
#endif

#include <errno.h>

#include "rxvt.h"
#include "rxvtdaemon.h"
#include "libptytty.h"

struct server : rxvt_connection
{
  log_callback log_cb;
  getfd_callback getfd_cb;

  void read_cb (ev::io &w, int revents); ev::io read_ev;
  void log_msg (const char *msg);
  int getfd (int remote_fd);

  server (int fd)
  {
    read_ev.set <server, &server::read_cb> (this);
    log_cb.set  <server, &server::log_msg> (this);
    getfd_cb.set<server, &server::getfd>   (this);

    this->fd = fd;
    fcntl (fd, F_SETFD, FD_CLOEXEC);
    fcntl (fd, F_SETFL, 0);
    read_ev.start (fd, ev::READ);
  }

  void err (const char *format = 0, ...);
};

struct unix_listener
{
  int fd;

  void accept_cb (ev::io &w, int revents); ev::io accept_ev;

  unix_listener (int fd);
  static int open (const char *sockname);
};

unix_listener::unix_listener (int fd) : fd (fd)
{
  accept_ev.set<unix_listener, &unix_listener::accept_cb> (this);
  fcntl (fd, F_SETFD, FD_CLOEXEC);
  fcntl (fd, F_SETFL, O_NONBLOCK);
  accept_ev.start (fd, ev::READ);
}

int unix_listener::open (const char *sockname)
{
  sockaddr_un sa;

  if (strlen (sockname) >= sizeof(sa.sun_path))
    {
      fputs ("socket name too long, aborting.\n", stderr);
      exit (EXIT_FAILURE);
    }

  int fd;
  if ((fd = socket (AF_UNIX, SOCK_STREAM, 0)) < 0)
    {
      perror ("unable to create listening socket");
      exit (EXIT_FAILURE);
    }

  sa.sun_family = AF_UNIX;
  strcpy (sa.sun_path, sockname);

  unlink (sockname);

  mode_t omask = umask (0077);

  if (bind (fd, (sockaddr *)&sa, sizeof (sa)))
    {
      perror ("unable to bind listening socket");
      exit (EXIT_FAILURE);
    }

  umask (omask);

  if (listen (fd, 5))
    {
      perror ("unable to listen on socket");
      exit (EXIT_FAILURE);
    }

  return fd;
}

void unix_listener::accept_cb (ev::io &w, int revents)
{
  int fd2 = accept (fd, 0, 0);

  if (fd2 >= 0)
    new server (fd2);
}

int server::getfd (int remote_fd)
{
  send ("GETFD");
  send (remote_fd);
  return ptytty::recv_fd (fd);
}

void server::log_msg (const char *msg)
{
  send ("MSG"), send (msg);
}

void server::err (const char *format, ...)
{
  if (format)
    {
      char err[1024];

      va_list ap;
      va_start (ap, format);
      vsnprintf (err, 1024, format, ap);
      va_end (ap);

      log_msg (err);
    }

  send ("END"), send (0);
  close (fd);
  delete this;
}

void server::read_cb (ev::io &w, int revents)
{
  auto_str tok;

  if (recv (tok))
    {
      if (!strcmp (tok, "NEW"))
        {
          stringvec *argv = new stringvec;
          stringvec *envv = new stringvec;

          for (;;)
            {
              if (!recv (tok))
                return err ();

              if (!strcmp (tok, "END"))
                break;
              else if (!strcmp (tok, "ENV") && recv (tok))
                envv->push_back (strdup (tok));
              else if (!strcmp (tok, "ARG") && recv (tok))
                argv->push_back (strdup (tok));
              else
                return err ("protocol error: unexpected NEW token.\n");
            }

          {
            rxvt_term *term = new rxvt_term;

            term->log_hook = &log_cb;
            term->getfd_hook = &getfd_cb;

            bool success = true;

            try
              {
                term->init (argv, envv);
              }
            catch (const class rxvt_failure_exception &e)
              {
                success = false;
              }
            catch (const std::exception &e)
              {
                log_msg (e.what());
                success = false;
              }

            term->log_hook = 0;

            chdir ("/"); // init might change to different working directory

            if (!success)
              term->destroy ();

            send ("END"); send (success ? 1 : 0);
          }
        }
      else if (!strcmp (tok, "QUIT"))
        _exit (0);
      else
        return err ("protocol error: request '%s' unsupported.\n", (char *)tok);
    }
  else
    return err ();
}

#ifdef ENABLE_FRILLS
enum {
  SD_LISTEN_FDS_START = 3,
};

// https://www.freedesktop.org/software/systemd/man/sd_listen_fds.html
// https://github.com/systemd/systemd/blob/main/src/libsystemd/sd-daemon/sd-daemon.c
static int get_listen_fds ()
{
  const char *listen_pid = getenv ("LISTEN_PID");
  if (!listen_pid)
    return 0;

  char *end;
  errno = 0;
  long pid = strtol (listen_pid, &end, 10);
  if (errno || end == listen_pid || *end)
    return -1;

  if (getpid () != pid)
    return 0;

  const char *listen_fds = getenv ("LISTEN_FDS");
  if (!listen_fds)
    return 0;

  errno = 0;
  long n = strtol (listen_fds, &end, 10);
  if (errno || end == listen_fds || *end)
    return -1;

  if (n <= 0 || n > INT_MAX - SD_LISTEN_FDS_START)
    return -1;

  unsetenv ("LISTEN_PID");
  unsetenv ("LISTEN_FDS");
  unsetenv ("LISTEN_FDNAMES");

  return n;
}
#endif

int
main (int argc, char *argv[])
{
  try
    {
      ptytty::init ();
    }
  catch (const std::exception &e)
    {
      fputs (e.what (), stderr);
      return EXIT_FAILURE;
    }

  static char opt_fork, opt_opendisplay, opt_quiet;
#if ENABLE_PERL
  static char *opt_eval;
#endif
#if ENABLE_MLOCK
  static char opt_lock;
#endif

  for (int i = 1; i < argc; i++)
    {
      if (!strcmp (argv [i], "-f") || !strcmp (argv [i], "--fork"))
        opt_fork = 1;
      else if (!strcmp (argv [i], "-o") || !strcmp (argv [i], "--opendisplay"))
        opt_opendisplay = 1;
      else if (!strcmp (argv [i], "-q") || !strcmp (argv [i], "--quiet"))
        opt_quiet = 1;
#if ENABLE_MLOCK
      else if (!strcmp (argv [i], "-m") || !strcmp (argv [i], "--mlock"))
        opt_lock = 1;
#endif
#if ENABLE_PERL
      else if (!strcmp (argv [i], "-e") || !strcmp (argv [i], "--eval"))
        opt_eval = argv [++i];
#endif
      else
        {
          rxvt_log ("%s: unknown option '%s', aborting.\n", argv [0], argv [i]);
          return EXIT_FAILURE;
        }
    }

  rxvt_init ();

#if ENABLE_PERL
  if (opt_eval)
    {
      rxvt_perl.init ();
      rxvt_perl.eval (opt_eval);
    }
#endif

  // optionally open display and never release it.
  if (opt_opendisplay)
    if (const char *dpy = getenv ("DISPLAY"))
      displays.get (dpy ? dpy : ":0"); // move string logic into rxvt_display maybe?

  int fd;
#ifdef ENABLE_FRILLS
  int n = get_listen_fds ();
  if (n > 1)
    {
      fputs ("received multiple file descriptors, aborting.\n", stderr);
      exit (EXIT_FAILURE);
    }
  else if (n == 1)
    {
      fd = SD_LISTEN_FDS_START;
      if (!opt_quiet)
        {
          printf ("rxvt-unicode daemon listening on fd.\n");
          fflush (stdout);
        }
    }
  else
#endif
    {
      char *sockname = rxvt_connection::unix_sockname ();
      fd = unix_listener::open (sockname);
      if (!opt_quiet)
        {
          printf ("rxvt-unicode daemon listening on %s.\n", sockname);
          fflush (stdout);
        }
      free (sockname);
    }

  unix_listener l (fd);

  chdir ("/");

  pid_t pid = 0;
  if (opt_fork)
    {
      pid = fork ();
    }

#if ENABLE_MLOCK
  // Optionally perform an mlockall so this process does not get swapped out.
  if (opt_lock && !pid)
    if (mlockall (MCL_CURRENT | MCL_FUTURE) < 0)
      perror ("unable to lock into ram");
#endif

  if (opt_fork)
    {
      if (pid < 0)
        {
          rxvt_log ("unable to fork daemon, aborting.\n");
          return EXIT_FAILURE;
        }
      else if (pid > 0)
        _exit (EXIT_SUCCESS);

      ev_loop_fork (EV_DEFAULT_UC);
    }

  ev_run ();

  return EXIT_SUCCESS;
}

Revision:	1.65
Committed:	Sat Jun 26 14:42:36 2021 UTC (2 years, 11 months ago) by sf-exg
Content type:	text/plain
Branch:	MAIN
Changes since 1.64:	+14 -1 lines
Log Message:	Adapt to libptytty changes
#	User	Rev	Content
1	root	1.29	/----------------------------------------------------------------------
2	pcg	1.14	* File: rxvtd.C
3			----------------------------------------------------------------------
4			*
5			* All portions of code are copyright by their respective author/s.
6	root	1.56	* Copyright (c) 2003-2007 Marc Lehmann <schmorp@schmorp.de>
7	pcg	1.14	*
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	root	1.61	* the Free Software Foundation; either version 3 of the License, or
11	pcg	1.14	* (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., 675 Mass Ave, Cambridge, MA 02139, USA.
21			----------------------------------------------------------------------/
22
23	pcg	1.9	#include "../config.h"
24	sf-exg	1.59	#include <stdio.h>
25			#include <stdlib.h>
26			#include <stdarg.h>
27			#include <string.h>
28	pcg	1.1
29			#include <unistd.h>
30	pcg	1.12	#include <fcntl.h>
31	pcg	1.5	#include <sys/types.h>
32			#include <sys/stat.h>
33	pcg	1.1	#include <sys/socket.h>
34			#include <sys/un.h>
35
36	root	1.47	#if defined(ENABLE_FRILLS) && defined(_POSIX_MEMLOCK) && _POSIX_MEMLOCK > 0
37			# define ENABLE_MLOCK 1
38			#endif
39
40			#if ENABLE_MLOCK
41			# include <sys/mman.h>
42			#endif
43
44	sf-exg	1.59	#include <errno.h>
45	pcg	1.3
46	root	1.27	#include "rxvt.h"
47			#include "rxvtdaemon.h"
48			#include "libptytty.h"
49	pcg	1.3
50	root	1.64	struct server : rxvt_connection
51			{
52	pcg	1.10	log_callback log_cb;
53	root	1.22	getfd_callback getfd_cb;
54	pcg	1.10
55	root	1.34	void read_cb (ev::io &w, int revents); ev::io read_ev;
56	pcg	1.10	void log_msg (const char *msg);
57	root	1.22	int getfd (int remote_fd);
58	pcg	1.1
59			server (int fd)
60			{
61	root	1.41	read_ev.set <server, &server::read_cb> (this);
62			log_cb.set <server, &server::log_msg> (this);
63			getfd_cb.set<server, &server::getfd> (this);
64
65	root	1.37	this->fd = fd;
66	root	1.35	fcntl (fd, F_SETFD, FD_CLOEXEC);
67			fcntl (fd, F_SETFL, 0);
68	root	1.34	read_ev.start (fd, ev::READ);
69	pcg	1.1	}
70
71	pcg	1.3	void err (const char *format = 0, ...);
72	pcg	1.1	};
73
74	root	1.64	struct unix_listener
75			{
76	pcg	1.1	int fd;
77
78	root	1.34	void accept_cb (ev::io &w, int revents); ev::io accept_ev;
79	pcg	1.1
80	sf-exg	1.63	unix_listener (int fd);
81			static int open (const char *sockname);
82	pcg	1.1	};
83
84	sf-exg	1.63	unix_listener::unix_listener (int fd) : fd (fd)
85	pcg	1.1	{
86	root	1.41	accept_ev.set<unix_listener, &unix_listener::accept_cb> (this);
87	sf-exg	1.63	fcntl (fd, F_SETFD, FD_CLOEXEC);
88			fcntl (fd, F_SETFL, O_NONBLOCK);
89			accept_ev.start (fd, ev::READ);
90			}
91	root	1.41
92	sf-exg	1.63	int unix_listener::open (const char *sockname)
93			{
94	root	1.30	sockaddr_un sa;
95	ayin	1.33
96	root	1.31	if (strlen (sockname) >= sizeof(sa.sun_path))
97			{
98			fputs ("socket name too long, aborting.\n", stderr);
99			exit (EXIT_FAILURE);
100			}
101	root	1.30
102	sf-exg	1.63	int fd;
103	root	1.24	if ((fd = socket (AF_UNIX, SOCK_STREAM, 0)) < 0)
104	pcg	1.1	{
105			perror ("unable to create listening socket");
106			exit (EXIT_FAILURE);
107			}
108
109			sa.sun_family = AF_UNIX;
110	pcg	1.5	strcpy (sa.sun_path, sockname);
111	pcg	1.1
112	sf-exg	1.55	unlink (sockname);
113	pcg	1.1
114	pcg	1.5	mode_t omask = umask (0077);
115
116	pcg	1.1	if (bind (fd, (sockaddr *)&sa, sizeof (sa)))
117			{
118			perror ("unable to bind listening socket");
119			exit (EXIT_FAILURE);
120			}
121
122	pcg	1.5	umask (omask);
123
124	pcg	1.1	if (listen (fd, 5))
125			{
126			perror ("unable to listen on socket");
127			exit (EXIT_FAILURE);
128			}
129
130	sf-exg	1.63	return fd;
131	pcg	1.1	}
132
133	root	1.34	void unix_listener::accept_cb (ev::io &w, int revents)
134	pcg	1.1	{
135			int fd2 = accept (fd, 0, 0);
136
137			if (fd2 >= 0)
138	root	1.35	new server (fd2);
139	pcg	1.1	}
140
141	root	1.22	int server::getfd (int remote_fd)
142			{
143			send ("GETFD");
144			send (remote_fd);
145	root	1.27	return ptytty::recv_fd (fd);
146	root	1.22	}
147
148	pcg	1.10	void server::log_msg (const char *msg)
149			{
150			send ("MSG"), send (msg);
151			}
152
153	pcg	1.3	void server::err (const char *format, ...)
154	pcg	1.1	{
155	pcg	1.3	if (format)
156			{
157			char err[1024];
158
159			va_list ap;
160			va_start (ap, format);
161			vsnprintf (err, 1024, format, ap);
162			va_end (ap);
163
164	root	1.32	log_msg (err);
165	pcg	1.3	}
166
167	root	1.32	send ("END"), send (0);
168	pcg	1.1	close (fd);
169			delete this;
170			}
171
172	root	1.34	void server::read_cb (ev::io &w, int revents)
173	pcg	1.1	{
174	pcg	1.2	auto_str tok;
175	pcg	1.1
176	pcg	1.2	if (recv (tok))
177	pcg	1.1	{
178	pcg	1.2	if (!strcmp (tok, "NEW"))
179	pcg	1.1	{
180	pcg	1.9	stringvec *argv = new stringvec;
181			stringvec *envv = new stringvec;
182	ayin	1.33
183	pcg	1.2	for (;;)
184			{
185			if (!recv (tok))
186			return err ();
187
188			if (!strcmp (tok, "END"))
189			break;
190	pcg	1.3	else if (!strcmp (tok, "ENV") && recv (tok))
191	root	1.26	envv->push_back (strdup (tok));
192	pcg	1.2	else if (!strcmp (tok, "ARG") && recv (tok))
193	root	1.26	argv->push_back (strdup (tok));
194	pcg	1.2	else
195	root	1.31	return err ("protocol error: unexpected NEW token.\n");
196	pcg	1.2	}
197
198	pcg	1.3	{
199	pcg	1.10	rxvt_term *term = new rxvt_term;
200	ayin	1.33
201	pcg	1.10	term->log_hook = &log_cb;
202	root	1.22	term->getfd_hook = &getfd_cb;
203	pcg	1.2
204	root	1.42	bool success = true;
205	ayin	1.33
206	pcg	1.10	try
207			{
208	root	1.42	term->init (argv, envv);
209	pcg	1.10	}
210			catch (const class rxvt_failure_exception &e)
211			{
212			success = false;
213			}
214	sf-exg	1.65	catch (const std::exception &e)
215			{
216			log_msg (e.what());
217			success = false;
218			}
219	pcg	1.10
220	root	1.15	term->log_hook = 0;
221
222	root	1.46	chdir ("/"); // init might change to different working directory
223	pcg	1.10
224			if (!success)
225			term->destroy ();
226
227			send ("END"); send (success ? 1 : 0);
228	pcg	1.3	}
229	pcg	1.1	}
230	sf-exg	1.62	else if (!strcmp (tok, "QUIT"))
231			_exit (0);
232	pcg	1.1	else
233	root	1.31	return err ("protocol error: request '%s' unsupported.\n", (char *)tok);
234	pcg	1.1	}
235			else
236	pcg	1.2	return err ();
237	pcg	1.1	}
238
239	sf-exg	1.63	#ifdef ENABLE_FRILLS
240			enum {
241			SD_LISTEN_FDS_START = 3,
242			};
243
244			// https://www.freedesktop.org/software/systemd/man/sd_listen_fds.html
245			// https://github.com/systemd/systemd/blob/main/src/libsystemd/sd-daemon/sd-daemon.c
246			static int get_listen_fds ()
247			{
248			const char *listen_pid = getenv ("LISTEN_PID");
249			if (!listen_pid)
250			return 0;
251
252			char *end;
253			errno = 0;
254			long pid = strtol (listen_pid, &end, 10);
255			if (errno \|\| end == listen_pid \|\| *end)
256			return -1;
257
258			if (getpid () != pid)
259			return 0;
260
261			const char *listen_fds = getenv ("LISTEN_FDS");
262			if (!listen_fds)
263			return 0;
264
265			errno = 0;
266			long n = strtol (listen_fds, &end, 10);
267			if (errno \|\| end == listen_fds \|\| *end)
268			return -1;
269
270			if (n <= 0 \|\| n > INT_MAX - SD_LISTEN_FDS_START)
271			return -1;
272
273			unsetenv ("LISTEN_PID");
274			unsetenv ("LISTEN_FDS");
275			unsetenv ("LISTEN_FDNAMES");
276
277			return n;
278			}
279			#endif
280
281	sf-exg	1.49	int
282	root	1.58	main (int argc, char *argv[])
283	sf-exg	1.49	{
284	sf-exg	1.65	try
285			{
286			ptytty::init ();
287			}
288			catch (const std::exception &e)
289			{
290			fputs (e.what (), stderr);
291			return EXIT_FAILURE;
292			}
293	root	1.52
294	sf-exg	1.54	static char opt_fork, opt_opendisplay, opt_quiet;
295	root	1.60	#if ENABLE_PERL
296			static char *opt_eval;
297			#endif
298	root	1.47	#if ENABLE_MLOCK
299	sf-exg	1.54	static char opt_lock;
300	root	1.47	#endif
301	root	1.21
302			for (int i = 1; i < argc; i++)
303			{
304			if (!strcmp (argv [i], "-f") \|\| !strcmp (argv [i], "--fork"))
305			opt_fork = 1;
306			else if (!strcmp (argv [i], "-o") \|\| !strcmp (argv [i], "--opendisplay"))
307			opt_opendisplay = 1;
308			else if (!strcmp (argv [i], "-q") \|\| !strcmp (argv [i], "--quiet"))
309			opt_quiet = 1;
310	root	1.47	#if ENABLE_MLOCK
311			else if (!strcmp (argv [i], "-m") \|\| !strcmp (argv [i], "--mlock"))
312			opt_lock = 1;
313			#endif
314	root	1.60	#if ENABLE_PERL
315			else if (!strcmp (argv [i], "-e") \|\| !strcmp (argv [i], "--eval"))
316			opt_eval = argv [++i];
317			#endif
318	root	1.21	else
319			{
320			rxvt_log ("%s: unknown option '%s', aborting.\n", argv [0], argv [i]);
321			return EXIT_FAILURE;
322			}
323			}
324	ayin	1.33
325	root	1.52	rxvt_init ();
326
327	root	1.60	#if ENABLE_PERL
328			if (opt_eval)
329			{
330			rxvt_perl.init ();
331			rxvt_perl.eval (opt_eval);
332			}
333			#endif
334
335	root	1.45	// optionally open display and never release it.
336	root	1.21	if (opt_opendisplay)
337	root	1.45	if (const char *dpy = getenv ("DISPLAY"))
338			displays.get (dpy ? dpy : ":0"); // move string logic into rxvt_display maybe?
339	root	1.21
340	sf-exg	1.63	int fd;
341			#ifdef ENABLE_FRILLS
342			int n = get_listen_fds ();
343			if (n > 1)
344			{
345			fputs ("received multiple file descriptors, aborting.\n", stderr);
346			exit (EXIT_FAILURE);
347			}
348			else if (n == 1)
349			{
350			fd = SD_LISTEN_FDS_START;
351			if (!opt_quiet)
352			{
353			printf ("rxvt-unicode daemon listening on fd.\n");
354			fflush (stdout);
355			}
356			}
357			else
358			#endif
359	root	1.21	{
360	sf-exg	1.63	char *sockname = rxvt_connection::unix_sockname ();
361			fd = unix_listener::open (sockname);
362			if (!opt_quiet)
363			{
364			printf ("rxvt-unicode daemon listening on %s.\n", sockname);
365			fflush (stdout);
366			}
367			free (sockname);
368	root	1.21	}
369
370	sf-exg	1.63	unix_listener l (fd);
371
372			chdir ("/");
373	pcg	1.5
374	root	1.47	pid_t pid = 0;
375	root	1.21	if (opt_fork)
376			{
377	root	1.47	pid = fork ();
378			}
379
380			#if ENABLE_MLOCK
381	root	1.48	// Optionally perform an mlockall so this process does not get swapped out.
382			if (opt_lock && !pid)
383			if (mlockall (MCL_CURRENT \| MCL_FUTURE) < 0)
384			perror ("unable to lock into ram");
385	root	1.47	#endif
386	root	1.21
387	root	1.47	if (opt_fork)
388			{
389	root	1.21	if (pid < 0)
390			{
391			rxvt_log ("unable to fork daemon, aborting.\n");
392			return EXIT_FAILURE;
393			}
394			else if (pid > 0)
395			_exit (EXIT_SUCCESS);
396	root	1.38
397	root	1.51	ev_loop_fork (EV_DEFAULT_UC);
398	root	1.21	}
399
400	root	1.50	ev_run ();
401	pcg	1.1
402			return EXIT_SUCCESS;
403			}
404	pcg	1.7