rxvt-unicode/src/logging.C

/*--------------------------------*-C-*---------------------------------*
 * File:        logging.c
 *----------------------------------------------------------------------*
 *
 * All portions of code are copyright by their respective author/s.
 * Copyright (c) 1992      John Bovey <jdb@ukc.ac.uk>
 *                              - original version
 * Copyright (c) 1993      lipka
 * Copyright (c) 1993      Brian Stempien <stempien@cs.wmich.edu>
 * Copyright (c) 1995      Raul Garcia Garcia <rgg@tid.es>
 * Copyright (c) 1995      Piet W. Plomp <piet@idefix.icce.rug.nl>
 * Copyright (c) 1997      Raul Garcia Garcia <rgg@tid.es>
 * Copyright (c) 1998-2001 Geoff Wing <gcw@pobox.com>
 *                              - extensive modifications
 * Copyright (c) 1999      D J Hawkey Jr <hawkeyd@visi.com>
 *                              - lastlog support
 *
 * 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 2 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.
 *----------------------------------------------------------------------*/
/*----------------------------------------------------------------------*
 * Public:
 *      extern void cleanutent (void);
 *      extern void makeutent (const char * pty, const char * hostname);
 *
 * Private:
 *      rxvt_update_wtmp ();
 *----------------------------------------------------------------------*/

#include "../config.h"          /* NECESSARY */
#include "rxvt.h"               /* NECESSARY */
#include "logging.h"
#ifdef UTMP_SUPPORT

/*
 * BSD style utmp entry
 *      ut_line, ut_name, ut_host, ut_time
 * SYSV style utmp (and utmpx) entry
 *      ut_user, ut_id, ut_line, ut_pid, ut_type, ut_exit, ut_time
 */

/* ------------------------------------------------------------------------- */

/*
 * make and write utmp and wtmp entries
 */
void
rxvt_term::makeutent (const char *pty, const char *hostname)
{
#ifdef HAVE_STRUCT_UTMP
  struct utmp    *ut = & (this->ut);
#endif
#ifdef HAVE_STRUCT_UTMPX
  struct utmpx   *utx = & (this->utx);
#endif
#ifdef HAVE_UTMP_PID
  int             i;
#endif
  char            ut_id[5];
  struct passwd  *pwent = getpwuid (getuid ());

  if (!STRNCMP (pty, "/dev/", 5))
    pty += 5;           /* skip /dev/ prefix */

  if (!STRNCMP (pty, "pty", 3) || !STRNCMP (pty, "tty", 3))
    {
      STRNCPY (ut_id, (pty + 3), sizeof (ut_id));
    }
#ifdef HAVE_UTMP_PID
  else if (sscanf (pty, "pts/%d", &i) == 1)
    sprintf (ut_id, "vt%02x", (i & 0xff));      /* sysv naming */
#endif
  else if (STRNCMP (pty, "pty", 3) && STRNCMP (pty, "tty", 3))
    {
      rxvt_warn ("can't parse tty name \"%s\", not adding utmp entry.\n", pty);
      return;
    }

#ifdef HAVE_STRUCT_UTMP
  MEMSET (ut, 0, sizeof (struct utmp));
# ifdef HAVE_UTMP_PID
  setutent ();
  STRNCPY (ut->ut_id, ut_id, sizeof (ut->ut_id));
  ut->ut_type = DEAD_PROCESS;
  getutid (ut);         /* position to entry in utmp file */
  STRNCPY (ut_id, ut_id, sizeof (ut_id));
# endif
#endif

#ifdef HAVE_STRUCT_UTMPX
  MEMSET (utx, 0, sizeof (struct utmpx));
  setutxent ();
  STRNCPY (utx->ut_id, ut_id, sizeof (utx->ut_id));
  utx->ut_type = DEAD_PROCESS;
  getutxid (utx);               /* position to entry in utmp file */
  STRNCPY (ut_id, ut_id, sizeof (ut_id));
#endif

#ifdef HAVE_STRUCT_UTMP
  STRNCPY (ut->ut_line, pty, sizeof (ut->ut_line));
  ut->ut_time = time (NULL);
# ifdef HAVE_UTMP_PID
  STRNCPY (ut->ut_user, (pwent && pwent->pw_name) ? pwent->pw_name : "?",
          sizeof (ut->ut_user));
  STRNCPY (ut->ut_id, ut_id, sizeof (ut->ut_id));
  ut->ut_time = time (NULL);
  ut->ut_pid = cmd_pid;
#  ifdef HAVE_UTMP_HOST
  STRNCPY (ut->ut_host, hostname, sizeof (ut->ut_host));
#  endif
  ut->ut_type = USER_PROCESS;
  pututline (ut);
  endutent ();                  /* close the file */
  utmp_pos = 0;
# else
  STRNCPY (ut->ut_name, (pwent && pwent->pw_name) ? pwent->pw_name : "?",
          sizeof (ut->ut_name));
#  ifdef HAVE_UTMP_HOST
  STRNCPY (ut->ut_host, hostname, sizeof (ut->ut_host));
#  endif
# endif
#endif

#ifdef HAVE_STRUCT_UTMPX
  STRNCPY (utx->ut_line, pty, sizeof (utx->ut_line));
  STRNCPY (utx->ut_user, (pwent && pwent->pw_name) ? pwent->pw_name : "?",
          sizeof (utx->ut_user));
  STRNCPY (utx->ut_id, ut_id, sizeof (utx->ut_id));
  utx->ut_session = getsid (0);
  utx->ut_tv.tv_sec = time (NULL);
  utx->ut_tv.tv_usec = 0;
  utx->ut_pid = cmd_pid;
# ifdef HAVE_UTMPX_HOST
  STRNCPY (utx->ut_host, hostname, sizeof (utx->ut_host));
#  if 0
  {
    char           *colon;

    if ((colon = STRRCHR (ut->ut_host, ':')) != NULL)
      *colon = '\0';
  }
#  endif
# endif
  utx->ut_type = USER_PROCESS;
  pututxline (utx);
  endutxent ();         /* close the file */
  utmp_pos = 0;
#endif

#if defined(HAVE_STRUCT_UTMP) && !defined(HAVE_UTMP_PID)

  {
    int             i;
# ifdef HAVE_TTYSLOT
    i = ttyslot ();
    if (rxvt_write_bsd_utmp (i, ut))
      utmp_pos = i;
# else
    FILE           *fd0;

    if ((fd0 = fopen (TTYTAB_FILENAME, "r")) != NULL)
      {
        char            buf[256], name[256];

        buf[sizeof (buf) - 1] = '\0';
        for (i = 1; (fgets (buf, sizeof (buf) - 1, fd0) != NULL);)
          {
            if (*buf == '#' || sscanf (buf, "%s", name) != 1)
              continue;
            if (!STRCMP (ut->ut_line, name))
              {
                if (!rxvt_write_bsd_utmp (i, ut))
                  i = 0;
                utmp_pos = i;
                fclose (fd0);
                break;
              }
            i++;
          }
        fclose (fd0);
      }
# endif

  }
#endif

#ifdef WTMP_SUPPORT
# ifdef WTMP_ONLY_ON_LOGIN
  if (Options & Opt_loginShell)
# endif
    {
# ifdef HAVE_STRUCT_UTMP
#  ifdef HAVE_UPDWTMP
      updwtmp (RXVT_WTMP_FILE, ut);
#  else
      rxvt_update_wtmp (RXVT_WTMP_FILE, ut);
#  endif
# endif
# ifdef HAVE_STRUCT_UTMPX
      updwtmpx (RXVT_WTMPX_FILE, utx);
# endif
    }
#endif
#if defined(LASTLOG_SUPPORT) && defined(RXVT_LASTLOG_FILE)
  if (Options & Opt_loginShell)
    rxvt_update_lastlog (RXVT_LASTLOG_FILE, pty, hostname);
#endif
}

/* ------------------------------------------------------------------------- */
/*
 * remove utmp and wtmp entries
 */
void
rxvt_term::cleanutent ()
{
#ifdef HAVE_STRUCT_UTMP
  struct utmp    *ut = & (this->ut);
#endif
#ifdef HAVE_STRUCT_UTMPX
  struct utmpx   *tmputx, *utx = & (this->utx);
#endif

#ifdef HAVE_STRUCT_UTMP
# ifdef HAVE_UTMP_PID
  MEMSET (ut, 0, sizeof (struct utmp));
  setutent ();
  STRNCPY (ut->ut_id, ut_id, sizeof (ut->ut_id));
  ut->ut_type = USER_PROCESS;
  {
    struct utmp    *tmput = getutid (ut);

    if (tmput)          /* position to entry in utmp file */
      ut = tmput;
  }
  ut->ut_type = DEAD_PROCESS;
# else
  MEMSET (ut->ut_name, 0, sizeof (ut->ut_name));
#  ifdef HAVE_UTMP_HOST
  MEMSET (ut->ut_host, 0, sizeof (ut->ut_host));
#  endif
# endif
  ut->ut_time = time (NULL);
#endif

#ifdef HAVE_STRUCT_UTMPX
  MEMSET (utx, 0, sizeof (struct utmpx));
  setutxent ();
  STRNCPY (utx->ut_id, ut_id, sizeof (utx->ut_id));
  utx->ut_type = USER_PROCESS;
  if ((tmputx = getutxid (utx)))        /* position to entry in utmp file */
    utx = tmputx;
  utx->ut_type = DEAD_PROCESS;
  utx->ut_session = getsid (0);
  utx->ut_tv.tv_sec = time (NULL);
  utx->ut_tv.tv_usec = 0;
#endif

  /*
   * Write ending wtmp entry
   */
#ifdef WTMP_SUPPORT
# ifdef WTMP_ONLY_ON_LOGIN
  if (Options & Opt_loginShell)
# endif
    {
# ifdef HAVE_STRUCT_UTMP
#  ifdef HAVE_UPDWTMP
      updwtmp (RXVT_WTMP_FILE, ut);
#  else
      rxvt_update_wtmp (RXVT_WTMP_FILE, ut);
#  endif
# endif
# ifdef HAVE_STRUCT_UTMPX
      updwtmpx (RXVT_WTMPX_FILE, utx);
# endif
    }
#endif

  /*
   * Write utmp entry
   */
#ifdef HAVE_STRUCT_UTMP
# ifdef HAVE_UTMP_PID
  if (ut->ut_pid == cmd_pid)
    pututline (ut);
  endutent ();
# else
  MEMSET (ut, 0, sizeof (struct utmp));
  rxvt_write_bsd_utmp (utmp_pos, ut);
# endif
#endif
#ifdef HAVE_STRUCT_UTMPX
  if (utx->ut_pid == cmd_pid)
    pututxline (utx);
  endutxent ();
#endif
}

/* ------------------------------------------------------------------------- */
/*
 * Write a BSD style utmp entry
 */
#ifdef HAVE_UTMP_H
/* INTPROTO */
int
rxvt_write_bsd_utmp (int utmp_pos, struct utmp *wu)
{
  int             fd;

  if (utmp_pos <= 0 || (fd = open (RXVT_UTMP_FILE, O_WRONLY)) == -1)
    return 0;

  if (lseek (fd, (off_t) (utmp_pos * sizeof (struct utmp)), SEEK_SET) != -1)
    write (fd, wu, sizeof (struct utmp));
  close (fd);
  return 1;
}
#endif

/* ------------------------------------------------------------------------- */
/*
 * Update a BSD style wtmp entry
 */
#if defined(WTMP_SUPPORT) && !defined(HAVE_UPDWTMP)
/* INTPROTO */
void
rxvt_update_wtmp (const char *fname, const struct utmp *putmp)
{
  int             fd, gotlock, retry;
  struct flock    lck;  /* fcntl locking scheme */
  struct stat     sbuf;

  if ((fd = open (fname, O_WRONLY | O_APPEND, 0)) < 0)
    return;

  lck.l_whence = SEEK_END;      /* start lock at current eof */
  lck.l_len = 0;                /* end at ``largest possible eof'' */
  lck.l_start = 0;
  lck.l_type = F_WRLCK; /* we want a write lock */

  /* attempt lock with F_SETLK; F_SETLKW would cause a deadlock! */
  for (retry = 10, gotlock = 0; retry--;)
    if (fcntl (fd, F_SETLK, &lck) != -1)
      {
        gotlock = 1;
        break;
      }
    else if (errno != EAGAIN && errno != EACCES)
      break;
  if (!gotlock)
    {           /* give it up */
      close (fd);
      return;
    }
  if (fstat (fd, &sbuf) == 0)
    if (write (fd, putmp, sizeof (struct utmp)) != sizeof (struct utmp))
      ftruncate (fd, sbuf.st_size);     /* remove bad writes */

  lck.l_type = F_UNLCK; /* unlocking the file */
  fcntl (fd, F_SETLK, &lck);
  close (fd);
}
#endif

/* ------------------------------------------------------------------------- */
#ifdef LASTLOG_SUPPORT
/* INTPROTO */
void
rxvt_update_lastlog (const char *fname, const char *pty, const char *host)
{
# ifdef HAVE_STRUCT_LASTLOGX
  struct lastlogx llx;
# endif
# ifdef HAVE_STRUCT_LASTLOG
  int             fd;
  struct lastlog  ll;
#  ifdef LASTLOG_IS_DIR
  char            lastlogfile[256];
#  endif
  struct passwd  *pwent;
# endif

# ifdef HAVE_STRUCT_LASTLOGX
  MEMSET (&llx, 0, sizeof (llx));
  llx.ll_tv.tv_sec = time (NULL);
  llx.ll_tv.tv_usec = 0;
  STRNCPY (llx.ll_line, pty, sizeof (llx.ll_line));
  STRNCPY (llx.ll_host, host, sizeof (llx.ll_host));
  updlastlogx (RXVT_LASTLOGX_FILE, getuid (), &llx);
# endif

# ifdef HAVE_STRUCT_LASTLOG
  pwent = getpwuid (getuid ());
  if (!pwent)
    {
      rxvt_warn ("no entry in password file, not updating lastlog.\n");
      return;
    }

  MEMSET (&ll, 0, sizeof (ll));
  ll.ll_time = time (NULL);
  STRNCPY (ll.ll_line, pty, sizeof (ll.ll_line));
  STRNCPY (ll.ll_host, host, sizeof (ll.ll_host));
#  ifdef LASTLOG_IS_DIR
  sprintf (lastlogfile, "%.*s/%.*s",
          sizeof (lastlogfile) - sizeof (pwent->pw_name) - 2, fname,
          sizeof (pwent->pw_name),
          (!pwent->pw_name || pwent->pw_name[0] == '\0') ? "unknown"
          : pwent->pw_name);
  if ((fd = open (lastlogfile, O_WRONLY | O_CREAT, 0644)) >= 0)
    {
      write (fd, &ll, sizeof (ll));
      close (fd);
    }
#  else
  if ((fd = open (fname, O_RDWR)) != -1)
    {
      if (lseek (fd, (off_t) ((long)pwent->pw_uid * sizeof (ll)),
                SEEK_SET) != -1)
        write (fd, &ll, sizeof (ll));
      close (fd);
    }
#  endif                        /* LASTLOG_IS_DIR */
# endif                         /* HAVE_STRUCT_LASTLOG */
}
#endif                          /* LASTLOG_SUPPORT */
/* ------------------------------------------------------------------------- */

#endif                          /* UTMP_SUPPORT */
Revision:	1.8
Committed:	Wed Mar 17 03:47:12 2004 UTC (20 years, 2 months ago) by pcg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rel-2_5, rel-2_7
Changes since 1.7:	+3 -2 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	pcg	1.1	/---------------------------------C----------------------------------
2			* File: logging.c
3			----------------------------------------------------------------------
4			*
5			* All portions of code are copyright by their respective author/s.
6			* Copyright (c) 1992 John Bovey <jdb@ukc.ac.uk>
7			* - original version
8			* Copyright (c) 1993 lipka
9			* Copyright (c) 1993 Brian Stempien <stempien@cs.wmich.edu>
10			* Copyright (c) 1995 Raul Garcia Garcia <rgg@tid.es>
11			* Copyright (c) 1995 Piet W. Plomp <piet@idefix.icce.rug.nl>
12			* Copyright (c) 1997 Raul Garcia Garcia <rgg@tid.es>
13			* Copyright (c) 1998-2001 Geoff Wing <gcw@pobox.com>
14			* - extensive modifications
15			* Copyright (c) 1999 D J Hawkey Jr <hawkeyd@visi.com>
16			* - lastlog support
17			*
18			* This program is free software; you can redistribute it and/or modify
19			* it under the terms of the GNU General Public License as published by
20			* the Free Software Foundation; either version 2 of the License, or
21			* (at your option) any later version.
22			*
23			* This program is distributed in the hope that it will be useful,
24			* but WITHOUT ANY WARRANTY; without even the implied warranty of
25			* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
26			* GNU General Public License for more details.
27			*
28			* You should have received a copy of the GNU General Public License
29			* along with this program; if not, write to the Free Software
30			* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
31			----------------------------------------------------------------------/
32			/----------------------------------------------------------------------
33			* Public:
34			* extern void cleanutent (void);
35			* extern void makeutent (const char * pty, const char * hostname);
36			*
37			* Private:
38			* rxvt_update_wtmp ();
39			----------------------------------------------------------------------/
40
41			#include "../config.h" /* NECESSARY */
42			#include "rxvt.h" /* NECESSARY */
43			#include "logging.h"
44			#ifdef UTMP_SUPPORT
45
46			/*
47			* BSD style utmp entry
48			* ut_line, ut_name, ut_host, ut_time
49			* SYSV style utmp (and utmpx) entry
50			* ut_user, ut_id, ut_line, ut_pid, ut_type, ut_exit, ut_time
51			*/
52
53			/* ------------------------------------------------------------------------- */
54
55			/*
56			* make and write utmp and wtmp entries
57			*/
58			void
59	pcg	1.4	rxvt_term::makeutent (const char pty, const char hostname)
60	pcg	1.1	{
61			#ifdef HAVE_STRUCT_UTMP
62	pcg	1.7	struct utmp *ut = & (this->ut);
63	pcg	1.1	#endif
64			#ifdef HAVE_STRUCT_UTMPX
65	pcg	1.7	struct utmpx *utx = & (this->utx);
66	pcg	1.1	#endif
67			#ifdef HAVE_UTMP_PID
68	pcg	1.6	int i;
69	pcg	1.1	#endif
70	pcg	1.6	char ut_id[5];
71	pcg	1.7	struct passwd *pwent = getpwuid (getuid ());
72	pcg	1.1
73	pcg	1.7	if (!STRNCMP (pty, "/dev/", 5))
74	pcg	1.6	pty += 5; /* skip /dev/ prefix */
75	pcg	1.1
76	pcg	1.7	if (!STRNCMP (pty, "pty", 3) \|\| !STRNCMP (pty, "tty", 3))
77	pcg	1.6	{
78	pcg	1.7	STRNCPY (ut_id, (pty + 3), sizeof (ut_id));
79	pcg	1.1	}
80			#ifdef HAVE_UTMP_PID
81	pcg	1.7	else if (sscanf (pty, "pts/%d", &i) == 1)
82			sprintf (ut_id, "vt%02x", (i & 0xff)); /* sysv naming */
83	pcg	1.1	#endif
84	pcg	1.7	else if (STRNCMP (pty, "pty", 3) && STRNCMP (pty, "tty", 3))
85	pcg	1.6	{
86	pcg	1.8	rxvt_warn ("can't parse tty name \"%s\", not adding utmp entry.\n", pty);
87	pcg	1.6	return;
88	pcg	1.1	}
89
90			#ifdef HAVE_STRUCT_UTMP
91	pcg	1.7	MEMSET (ut, 0, sizeof (struct utmp));
92	pcg	1.1	# ifdef HAVE_UTMP_PID
93	pcg	1.7	setutent ();
94			STRNCPY (ut->ut_id, ut_id, sizeof (ut->ut_id));
95	pcg	1.6	ut->ut_type = DEAD_PROCESS;
96	pcg	1.7	getutid (ut); /* position to entry in utmp file */
97			STRNCPY (ut_id, ut_id, sizeof (ut_id));
98	pcg	1.1	# endif
99			#endif
100
101			#ifdef HAVE_STRUCT_UTMPX
102	pcg	1.7	MEMSET (utx, 0, sizeof (struct utmpx));
103			setutxent ();
104			STRNCPY (utx->ut_id, ut_id, sizeof (utx->ut_id));
105	pcg	1.6	utx->ut_type = DEAD_PROCESS;
106	pcg	1.7	getutxid (utx); /* position to entry in utmp file */
107			STRNCPY (ut_id, ut_id, sizeof (ut_id));
108	pcg	1.1	#endif
109
110			#ifdef HAVE_STRUCT_UTMP
111	pcg	1.7	STRNCPY (ut->ut_line, pty, sizeof (ut->ut_line));
112			ut->ut_time = time (NULL);
113	pcg	1.1	# ifdef HAVE_UTMP_PID
114	pcg	1.7	STRNCPY (ut->ut_user, (pwent && pwent->pw_name) ? pwent->pw_name : "?",
115			sizeof (ut->ut_user));
116			STRNCPY (ut->ut_id, ut_id, sizeof (ut->ut_id));
117			ut->ut_time = time (NULL);
118	pcg	1.6	ut->ut_pid = cmd_pid;
119	pcg	1.1	# ifdef HAVE_UTMP_HOST
120	pcg	1.7	STRNCPY (ut->ut_host, hostname, sizeof (ut->ut_host));
121	pcg	1.1	# endif
122	pcg	1.6	ut->ut_type = USER_PROCESS;
123	pcg	1.7	pututline (ut);
124			endutent (); /* close the file */
125	pcg	1.6	utmp_pos = 0;
126	pcg	1.1	# else
127	pcg	1.7	STRNCPY (ut->ut_name, (pwent && pwent->pw_name) ? pwent->pw_name : "?",
128			sizeof (ut->ut_name));
129	pcg	1.1	# ifdef HAVE_UTMP_HOST
130	pcg	1.7	STRNCPY (ut->ut_host, hostname, sizeof (ut->ut_host));
131	pcg	1.1	# endif
132			# endif
133			#endif
134
135			#ifdef HAVE_STRUCT_UTMPX
136	pcg	1.7	STRNCPY (utx->ut_line, pty, sizeof (utx->ut_line));
137			STRNCPY (utx->ut_user, (pwent && pwent->pw_name) ? pwent->pw_name : "?",
138			sizeof (utx->ut_user));
139			STRNCPY (utx->ut_id, ut_id, sizeof (utx->ut_id));
140			utx->ut_session = getsid (0);
141			utx->ut_tv.tv_sec = time (NULL);
142	pcg	1.6	utx->ut_tv.tv_usec = 0;
143			utx->ut_pid = cmd_pid;
144	pcg	1.1	# ifdef HAVE_UTMPX_HOST
145	pcg	1.7	STRNCPY (utx->ut_host, hostname, sizeof (utx->ut_host));
146	pcg	1.1	# if 0
147	pcg	1.6	{
148			char *colon;
149	pcg	1.1
150	pcg	1.7	if ((colon = STRRCHR (ut->ut_host, ':')) != NULL)
151	pcg	1.6	*colon = '\0';
152			}
153	pcg	1.1	# endif
154			# endif
155	pcg	1.6	utx->ut_type = USER_PROCESS;
156	pcg	1.7	pututxline (utx);
157			endutxent (); /* close the file */
158	pcg	1.6	utmp_pos = 0;
159	pcg	1.1	#endif
160
161			#if defined(HAVE_STRUCT_UTMP) && !defined(HAVE_UTMP_PID)
162	pcg	1.6
163			{
164			int i;
165	pcg	1.1	# ifdef HAVE_TTYSLOT
166	pcg	1.7	i = ttyslot ();
167			if (rxvt_write_bsd_utmp (i, ut))
168	pcg	1.6	utmp_pos = i;
169	pcg	1.1	# else
170	pcg	1.6	FILE *fd0;
171	pcg	1.1
172	pcg	1.7	if ((fd0 = fopen (TTYTAB_FILENAME, "r")) != NULL)
173	pcg	1.6	{
174			char buf[256], name[256];
175
176	pcg	1.7	buf[sizeof (buf) - 1] = '\0';
177			for (i = 1; (fgets (buf, sizeof (buf) - 1, fd0) != NULL);)
178	pcg	1.6	{
179	pcg	1.7	if (*buf == '#' \|\| sscanf (buf, "%s", name) != 1)
180	pcg	1.6	continue;
181	pcg	1.7	if (!STRCMP (ut->ut_line, name))
182	pcg	1.6	{
183	pcg	1.7	if (!rxvt_write_bsd_utmp (i, ut))
184	pcg	1.6	i = 0;
185			utmp_pos = i;
186	pcg	1.7	fclose (fd0);
187	pcg	1.6	break;
188			}
189			i++;
190			}
191	pcg	1.7	fclose (fd0);
192	pcg	1.6	}
193			# endif
194	pcg	1.1
195	pcg	1.6	}
196	pcg	1.1	#endif
197
198			#ifdef WTMP_SUPPORT
199			# ifdef WTMP_ONLY_ON_LOGIN
200	pcg	1.6	if (Options & Opt_loginShell)
201	pcg	1.1	# endif
202			{
203			# ifdef HAVE_STRUCT_UTMP
204			# ifdef HAVE_UPDWTMP
205	pcg	1.7	updwtmp (RXVT_WTMP_FILE, ut);
206	pcg	1.1	# else
207	pcg	1.7	rxvt_update_wtmp (RXVT_WTMP_FILE, ut);
208	pcg	1.1	# endif
209			# endif
210			# ifdef HAVE_STRUCT_UTMPX
211	pcg	1.7	updwtmpx (RXVT_WTMPX_FILE, utx);
212	pcg	1.1	# endif
213			}
214			#endif
215			#if defined(LASTLOG_SUPPORT) && defined(RXVT_LASTLOG_FILE)
216	pcg	1.6	if (Options & Opt_loginShell)
217	pcg	1.7	rxvt_update_lastlog (RXVT_LASTLOG_FILE, pty, hostname);
218	pcg	1.1	#endif
219			}
220
221			/* ------------------------------------------------------------------------- */
222			/*
223			* remove utmp and wtmp entries
224			*/
225			void
226	pcg	1.4	rxvt_term::cleanutent ()
227	pcg	1.1	{
228			#ifdef HAVE_STRUCT_UTMP
229	pcg	1.7	struct utmp *ut = & (this->ut);
230	pcg	1.1	#endif
231			#ifdef HAVE_STRUCT_UTMPX
232	pcg	1.7	struct utmpx tmputx, utx = & (this->utx);
233	pcg	1.1	#endif
234
235			#ifdef HAVE_STRUCT_UTMP
236			# ifdef HAVE_UTMP_PID
237	pcg	1.7	MEMSET (ut, 0, sizeof (struct utmp));
238			setutent ();
239			STRNCPY (ut->ut_id, ut_id, sizeof (ut->ut_id));
240	pcg	1.6	ut->ut_type = USER_PROCESS;
241			{
242	pcg	1.7	struct utmp *tmput = getutid (ut);
243	pcg	1.6
244			if (tmput) /* position to entry in utmp file */
245			ut = tmput;
246			}
247			ut->ut_type = DEAD_PROCESS;
248			# else
249	pcg	1.7	MEMSET (ut->ut_name, 0, sizeof (ut->ut_name));
250	pcg	1.1	# ifdef HAVE_UTMP_HOST
251	pcg	1.7	MEMSET (ut->ut_host, 0, sizeof (ut->ut_host));
252	pcg	1.1	# endif
253			# endif
254	pcg	1.7	ut->ut_time = time (NULL);
255	pcg	1.1	#endif
256
257			#ifdef HAVE_STRUCT_UTMPX
258	pcg	1.7	MEMSET (utx, 0, sizeof (struct utmpx));
259			setutxent ();
260			STRNCPY (utx->ut_id, ut_id, sizeof (utx->ut_id));
261	pcg	1.6	utx->ut_type = USER_PROCESS;
262	pcg	1.7	if ((tmputx = getutxid (utx))) /* position to entry in utmp file */
263	pcg	1.6	utx = tmputx;
264			utx->ut_type = DEAD_PROCESS;
265	pcg	1.7	utx->ut_session = getsid (0);
266			utx->ut_tv.tv_sec = time (NULL);
267	pcg	1.6	utx->ut_tv.tv_usec = 0;
268	pcg	1.1	#endif
269
270	pcg	1.6	/*
271			* Write ending wtmp entry
272			*/
273	pcg	1.1	#ifdef WTMP_SUPPORT
274			# ifdef WTMP_ONLY_ON_LOGIN
275	pcg	1.6	if (Options & Opt_loginShell)
276	pcg	1.1	# endif
277			{
278			# ifdef HAVE_STRUCT_UTMP
279			# ifdef HAVE_UPDWTMP
280	pcg	1.7	updwtmp (RXVT_WTMP_FILE, ut);
281	pcg	1.1	# else
282	pcg	1.7	rxvt_update_wtmp (RXVT_WTMP_FILE, ut);
283	pcg	1.1	# endif
284			# endif
285			# ifdef HAVE_STRUCT_UTMPX
286	pcg	1.7	updwtmpx (RXVT_WTMPX_FILE, utx);
287	pcg	1.1	# endif
288			}
289			#endif
290
291	pcg	1.6	/*
292			* Write utmp entry
293			*/
294	pcg	1.1	#ifdef HAVE_STRUCT_UTMP
295			# ifdef HAVE_UTMP_PID
296	pcg	1.6	if (ut->ut_pid == cmd_pid)
297	pcg	1.7	pututline (ut);
298			endutent ();
299	pcg	1.1	# else
300	pcg	1.7	MEMSET (ut, 0, sizeof (struct utmp));
301			rxvt_write_bsd_utmp (utmp_pos, ut);
302	pcg	1.1	# endif
303			#endif
304			#ifdef HAVE_STRUCT_UTMPX
305	pcg	1.6	if (utx->ut_pid == cmd_pid)
306	pcg	1.7	pututxline (utx);
307			endutxent ();
308	pcg	1.1	#endif
309			}
310
311			/* ------------------------------------------------------------------------- */
312			/*
313			* Write a BSD style utmp entry
314			*/
315			#ifdef HAVE_UTMP_H
316			/* INTPROTO */
317			int
318	pcg	1.7	rxvt_write_bsd_utmp (int utmp_pos, struct utmp *wu)
319	pcg	1.1	{
320	pcg	1.6	int fd;
321	pcg	1.1
322	pcg	1.7	if (utmp_pos <= 0 \|\| (fd = open (RXVT_UTMP_FILE, O_WRONLY)) == -1)
323	pcg	1.6	return 0;
324	pcg	1.1
325	pcg	1.7	if (lseek (fd, (off_t) (utmp_pos * sizeof (struct utmp)), SEEK_SET) != -1)
326			write (fd, wu, sizeof (struct utmp));
327			close (fd);
328	pcg	1.6	return 1;
329	pcg	1.1	}
330			#endif
331
332			/* ------------------------------------------------------------------------- */
333			/*
334			* Update a BSD style wtmp entry
335			*/
336			#if defined(WTMP_SUPPORT) && !defined(HAVE_UPDWTMP)
337			/* INTPROTO */
338			void
339	pcg	1.7	rxvt_update_wtmp (const char fname, const struct utmp putmp)
340	pcg	1.1	{
341	pcg	1.6	int fd, gotlock, retry;
342			struct flock lck; /* fcntl locking scheme */
343			struct stat sbuf;
344
345	pcg	1.7	if ((fd = open (fname, O_WRONLY \| O_APPEND, 0)) < 0)
346	pcg	1.6	return;
347
348			lck.l_whence = SEEK_END; /* start lock at current eof */
349			lck.l_len = 0; /* end at ``largest possible eof'' */
350			lck.l_start = 0;
351			lck.l_type = F_WRLCK; /* we want a write lock */
352
353			/* attempt lock with F_SETLK; F_SETLKW would cause a deadlock! */
354			for (retry = 10, gotlock = 0; retry--;)
355	pcg	1.7	if (fcntl (fd, F_SETLK, &lck) != -1)
356	pcg	1.6	{
357			gotlock = 1;
358			break;
359			}
360			else if (errno != EAGAIN && errno != EACCES)
361			break;
362			if (!gotlock)
363			{ /* give it up */
364	pcg	1.7	close (fd);
365	pcg	1.6	return;
366			}
367	pcg	1.7	if (fstat (fd, &sbuf) == 0)
368			if (write (fd, putmp, sizeof (struct utmp)) != sizeof (struct utmp))
369			ftruncate (fd, sbuf.st_size); /* remove bad writes */
370	pcg	1.6
371			lck.l_type = F_UNLCK; /* unlocking the file */
372	pcg	1.7	fcntl (fd, F_SETLK, &lck);
373			close (fd);
374	pcg	1.1	}
375			#endif
376
377			/* ------------------------------------------------------------------------- */
378			#ifdef LASTLOG_SUPPORT
379			/* INTPROTO */
380			void
381	pcg	1.7	rxvt_update_lastlog (const char fname, const char pty, const char *host)
382	pcg	1.1	{
383			# ifdef HAVE_STRUCT_LASTLOGX
384	pcg	1.6	struct lastlogx llx;
385	pcg	1.1	# endif
386			# ifdef HAVE_STRUCT_LASTLOG
387	pcg	1.6	int fd;
388			struct lastlog ll;
389	pcg	1.1	# ifdef LASTLOG_IS_DIR
390	pcg	1.6	char lastlogfile[256];
391	pcg	1.1	# endif
392	pcg	1.6	struct passwd *pwent;
393	pcg	1.1	# endif
394
395			# ifdef HAVE_STRUCT_LASTLOGX
396	pcg	1.7	MEMSET (&llx, 0, sizeof (llx));
397			llx.ll_tv.tv_sec = time (NULL);
398	pcg	1.6	llx.ll_tv.tv_usec = 0;
399	pcg	1.7	STRNCPY (llx.ll_line, pty, sizeof (llx.ll_line));
400			STRNCPY (llx.ll_host, host, sizeof (llx.ll_host));
401			updlastlogx (RXVT_LASTLOGX_FILE, getuid (), &llx);
402	pcg	1.1	# endif
403
404			# ifdef HAVE_STRUCT_LASTLOG
405	pcg	1.7	pwent = getpwuid (getuid ());
406	pcg	1.6	if (!pwent)
407			{
408	pcg	1.8	rxvt_warn ("no entry in password file, not updating lastlog.\n");
409	pcg	1.6	return;
410	pcg	1.1	}
411	pcg	1.8
412	pcg	1.7	MEMSET (&ll, 0, sizeof (ll));
413			ll.ll_time = time (NULL);
414			STRNCPY (ll.ll_line, pty, sizeof (ll.ll_line));
415			STRNCPY (ll.ll_host, host, sizeof (ll.ll_host));
416	pcg	1.1	# ifdef LASTLOG_IS_DIR
417	pcg	1.7	sprintf (lastlogfile, "%.s/%.s",
418			sizeof (lastlogfile) - sizeof (pwent->pw_name) - 2, fname,
419			sizeof (pwent->pw_name),
420	pcg	1.6	(!pwent->pw_name \|\| pwent->pw_name[0] == '\0') ? "unknown"
421			: pwent->pw_name);
422	pcg	1.7	if ((fd = open (lastlogfile, O_WRONLY \| O_CREAT, 0644)) >= 0)
423	pcg	1.6	{
424	pcg	1.7	write (fd, &ll, sizeof (ll));
425			close (fd);
426	pcg	1.1	}
427			# else
428	pcg	1.7	if ((fd = open (fname, O_RDWR)) != -1)
429	pcg	1.6	{
430	pcg	1.7	if (lseek (fd, (off_t) ((long)pwent->pw_uid * sizeof (ll)),
431	pcg	1.6	SEEK_SET) != -1)
432	pcg	1.7	write (fd, &ll, sizeof (ll));
433			close (fd);
434	pcg	1.1	}
435			# endif /* LASTLOG_IS_DIR */
436			# endif /* HAVE_STRUCT_LASTLOG */
437			}
438			#endif /* LASTLOG_SUPPORT */
439			/* ------------------------------------------------------------------------- */
440
441			#endif /* UTMP_SUPPORT */