crypto/openssh/loginrec.c

   1 /*
   2  * Copyright (c) 2000 Andre Lucas.  All rights reserved.
   3  * Portions copyright (c) 1998 Todd C. Miller
   4  * Portions copyright (c) 1996 Jason Downs
   5  * Portions copyright (c) 1996 Theo de Raadt
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * are met:
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer.
  12  * 2. Redistributions in binary form must reproduce the above copyright
  13  *    notice, this list of conditions and the following disclaimer in the
  14  *    documentation and/or other materials provided with the distribution.
  15  *
  16  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
  17  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
  18  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
  19  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
  20  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  21  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
  22  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
  23  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  24  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
  25  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  26  */
  27
  28 /*
  29  * The btmp logging code is derived from login.c from util-linux and is under
  30  * the the following license:
  31  *
  32  * Copyright (c) 1980, 1987, 1988 The Regents of the University of California.
  33  * All rights reserved.
  34  *
  35  * Redistribution and use in source and binary forms are permitted
  36  * provided that the above copyright notice and this paragraph are
  37  * duplicated in all such forms and that any documentation,
  38  * advertising materials, and other materials related to such
  39  * distribution and use acknowledge that the software was developed
  40  * by the University of California, Berkeley.  The name of the
  41  * University may not be used to endorse or promote products derived
  42  * from this software without specific prior written permission.
  43  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
  44  * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  45  * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  46  */
  47
  48
  49 /**
  50  ** loginrec.c:  platform-independent login recording and lastlog retrieval
  51  **/
  52
  53 /*
  54  *  The new login code explained
  55  *  ============================
  56  *
  57  *  This code attempts to provide a common interface to login recording
  58  *  (utmp and friends) and last login time retrieval.
  59  *
  60  *  Its primary means of achieving this is to use 'struct logininfo', a
  61  *  union of all the useful fields in the various different types of
  62  *  system login record structures one finds on UNIX variants.
  63  *
  64  *  We depend on autoconf to define which recording methods are to be
  65  *  used, and which fields are contained in the relevant data structures
  66  *  on the local system. Many C preprocessor symbols affect which code
  67  *  gets compiled here.
  68  *
  69  *  The code is designed to make it easy to modify a particular
  70  *  recording method, without affecting other methods nor requiring so
  71  *  many nested conditional compilation blocks as were commonplace in
  72  *  the old code.
  73  *
  74  *  For login recording, we try to use the local system's libraries as
  75  *  these are clearly most likely to work correctly. For utmp systems
  76  *  this usually means login() and logout() or setutent() etc., probably
  77  *  in libutil, along with logwtmp() etc. On these systems, we fall back
  78  *  to writing the files directly if we have to, though this method
  79  *  requires very thorough testing so we do not corrupt local auditing
  80  *  information. These files and their access methods are very system
  81  *  specific indeed.
  82  *
  83  *  For utmpx systems, the corresponding library functions are
  84  *  setutxent() etc. To the author's knowledge, all utmpx systems have
  85  *  these library functions and so no direct write is attempted. If such
  86  *  a system exists and needs support, direct analogues of the [uw]tmp
  87  *  code should suffice.
  88  *
  89  *  Retrieving the time of last login ('lastlog') is in some ways even
  90  *  more problemmatic than login recording. Some systems provide a
  91  *  simple table of all users which we seek based on uid and retrieve a
  92  *  relatively standard structure. Others record the same information in
  93  *  a directory with a separate file, and others don't record the
  94  *  information separately at all. For systems in the latter category,
  95  *  we look backwards in the wtmp or wtmpx file for the last login entry
  96  *  for our user. Naturally this is slower and on busy systems could
  97  *  incur a significant performance penalty.
  98  *
  99  *  Calling the new code
 100  *  --------------------
 101  *
 102  *  In OpenSSH all login recording and retrieval is performed in
 103  *  login.c. Here you'll find working examples. Also, in the logintest.c
 104  *  program there are more examples.
 105  *
 106  *  Internal handler calling method
 107  *  -------------------------------
 108  *
 109  *  When a call is made to login_login() or login_logout(), both
 110  *  routines set a struct logininfo flag defining which action (log in,
 111  *  or log out) is to be taken. They both then call login_write(), which
 112  *  calls whichever of the many structure-specific handlers autoconf
 113  *  selects for the local system.
 114  *
 115  *  The handlers themselves handle system data structure specifics. Both
 116  *  struct utmp and struct utmpx have utility functions (see
 117  *  construct_utmp*()) to try to make it simpler to add extra systems
 118  *  that introduce new features to either structure.
 119  *
 120  *  While it may seem terribly wasteful to replicate so much similar
 121  *  code for each method, experience has shown that maintaining code to
 122  *  write both struct utmp and utmpx in one function, whilst maintaining
 123  *  support for all systems whether they have library support or not, is
 124  *  a difficult and time-consuming task.
 125  *
 126  *  Lastlog support proceeds similarly. Functions login_get_lastlog()
 127  *  (and its OpenSSH-tuned friend login_get_lastlog_time()) call
 128  *  getlast_entry(), which tries one of three methods to find the last
 129  *  login time. It uses local system lastlog support if it can,
 130  *  otherwise it tries wtmp or wtmpx before giving up and returning 0,
 131  *  meaning "tilt".
 132  *
 133  *  Maintenance
 134  *  -----------
 135  *
 136  *  In many cases it's possible to tweak autoconf to select the correct
 137  *  methods for a particular platform, either by improving the detection
 138  *  code (best), or by presetting DISABLE_<method> or CONF_<method>_FILE
 139  *  symbols for the platform.
 140  *
 141  *  Use logintest to check which symbols are defined before modifying
 142  *  configure.ac and loginrec.c. (You have to build logintest yourself
 143  *  with 'make logintest' as it's not built by default.)
 144  *
 145  *  Otherwise, patches to the specific method(s) are very helpful!
 146  */
 147
 148 #include "includes.h"
 149
 150 #include <sys/types.h>
 151 #include <sys/stat.h>
 152 #include <sys/socket.h>
 153
 154 #include <netinet/in.h>
 155
 156 #include <errno.h>
 157 #include <fcntl.h>
 158 #ifdef HAVE_PATHS_H
 159 # include <paths.h>
 160 #endif
 161 #include <pwd.h>
 162 #include <stdarg.h>
 163 #include <string.h>
 164 #include <time.h>
 165 #include <unistd.h>
 166
 167 #include "xmalloc.h"
 168 #include "key.h"
 169 #include "hostfile.h"
 170 #include "ssh.h"
 171 #include "loginrec.h"
 172 #include "log.h"
 173 #include "atomicio.h"
 174 #include "packet.h"
 175 #include "canohost.h"
 176 #include "auth.h"
 177 #include "buffer.h"
 178
 179 #ifdef HAVE_UTIL_H
 180 # include <util.h>
 181 #endif
 182
 183 /**
 184  ** prototypes for helper functions in this file
 185  **/
 186
 187 #if HAVE_UTMP_H
 188 void set_utmp_time(struct logininfo *li, struct utmp *ut);
 189 void construct_utmp(struct logininfo *li, struct utmp *ut);
 190 #endif
 191
 192 #ifdef HAVE_UTMPX_H
 193 void set_utmpx_time(struct logininfo *li, struct utmpx *ut);
 194 void construct_utmpx(struct logininfo *li, struct utmpx *ut);
 195 #endif
 196
 197 int utmp_write_entry(struct logininfo *li);
 198 int utmpx_write_entry(struct logininfo *li);
 199 int wtmp_write_entry(struct logininfo *li);
 200 int wtmpx_write_entry(struct logininfo *li);
 201 int lastlog_write_entry(struct logininfo *li);
 202 int syslogin_write_entry(struct logininfo *li);
 203
 204 int getlast_entry(struct logininfo *li);
 205 int lastlog_get_entry(struct logininfo *li);
 206 int utmpx_get_entry(struct logininfo *li);
 207 int wtmp_get_entry(struct logininfo *li);
 208 int wtmpx_get_entry(struct logininfo *li);
 209
 210 extern Buffer loginmsg;
 211
 212 /* pick the shortest string */
 213 #define MIN_SIZEOF(s1,s2) (sizeof(s1) < sizeof(s2) ? sizeof(s1) : sizeof(s2))
 214
 215 /**
 216  ** platform-independent login functions
 217  **/
 218
 219 /*
 220  * login_login(struct logininfo *) - Record a login
 221  *
 222  * Call with a pointer to a struct logininfo initialised with
 223  * login_init_entry() or login_alloc_entry()
 224  *
 225  * Returns:
 226  *  >0 if successful
 227  *  0  on failure (will use OpenSSH's logging facilities for diagnostics)
 228  */
 229 int
 230 login_login(struct logininfo *li)
 231 {
 232         li->type = LTYPE_LOGIN;
 233         return (login_write(li));
 234 }
 235
 236
 237 /*
 238  * login_logout(struct logininfo *) - Record a logout
 239  *
 240  * Call as with login_login()
 241  *
 242  * Returns:
 243  *  >0 if successful
 244  *  0  on failure (will use OpenSSH's logging facilities for diagnostics)
 245  */
 246 int
 247 login_logout(struct logininfo *li)
 248 {
 249         li->type = LTYPE_LOGOUT;
 250         return (login_write(li));
 251 }
 252
 253 /*
 254  * login_get_lastlog_time(int) - Retrieve the last login time
 255  *
 256  * Retrieve the last login time for the given uid. Will try to use the
 257  * system lastlog facilities if they are available, but will fall back
 258  * to looking in wtmp/wtmpx if necessary
 259  *
 260  * Returns:
 261  *   0 on failure, or if user has never logged in
 262  *   Time in seconds from the epoch if successful
 263  *
 264  * Useful preprocessor symbols:
 265  *   DISABLE_LASTLOG: If set, *never* even try to retrieve lastlog
 266  *                    info
 267  *   USE_LASTLOG: If set, indicates the presence of system lastlog
 268  *                facilities. If this and DISABLE_LASTLOG are not set,
 269  *                try to retrieve lastlog information from wtmp/wtmpx.
 270  */
 271 unsigned int
 272 login_get_lastlog_time(const uid_t uid)
 273 {
 274         struct logininfo li;
 275
 276         if (login_get_lastlog(&li, uid))
 277                 return (li.tv_sec);
 278         else
 279                 return (0);
 280 }
 281
 282 /*
 283  * login_get_lastlog(struct logininfo *, int)   - Retrieve a lastlog entry
 284  *
 285  * Retrieve a logininfo structure populated (only partially) with
 286  * information from the system lastlog data, or from wtmp/wtmpx if no
 287  * system lastlog information exists.
 288  *
 289  * Note this routine must be given a pre-allocated logininfo.
 290  *
 291  * Returns:
 292  *  >0: A pointer to your struct logininfo if successful
 293  *  0  on failure (will use OpenSSH's logging facilities for diagnostics)
 294  */
 295 struct logininfo *
 296 login_get_lastlog(struct logininfo *li, const uid_t uid)
 297 {
 298         struct passwd *pw;
 299
 300         memset(li, '\0', sizeof(*li));
 301         li->uid = uid;
 302
 303         /*
 304          * If we don't have a 'real' lastlog, we need the username to
 305          * reliably search wtmp(x) for the last login (see
 306          * wtmp_get_entry().)
 307          */
 308         pw = getpwuid(uid);
 309         if (pw == NULL)
 310                 fatal("%s: Cannot find account for uid %ld", __func__,
 311                     (long)uid);
 312
 313         /* No MIN_SIZEOF here - we absolutely *must not* truncate the
 314          * username (XXX - so check for trunc!) */
 315         strlcpy(li->username, pw->pw_name, sizeof(li->username));
 316
 317         if (getlast_entry(li))
 318                 return (li);
 319         else
 320                 return (NULL);
 321 }
 322
 323
 324 /*
 325  * login_alloc_entry(int, char*, char*, char*)    - Allocate and initialise
 326  *                                                  a logininfo structure
 327  *
 328  * This function creates a new struct logininfo, a data structure
 329  * meant to carry the information required to portably record login info.
 330  *
 331  * Returns a pointer to a newly created struct logininfo. If memory
 332  * allocation fails, the program halts.
 333  */
 334 struct
 335 logininfo *login_alloc_entry(pid_t pid, const char *username,
 336     const char *hostname, const char *line)
 337 {
 338         struct logininfo *newli;
 339
 340         newli = xmalloc(sizeof(*newli));
 341         login_init_entry(newli, pid, username, hostname, line);
 342         return (newli);
 343 }
 344
 345
 346 /* login_free_entry(struct logininfo *)    - free struct memory */
 347 void
 348 login_free_entry(struct logininfo *li)
 349 {
 350         xfree(li);
 351 }
 352
 353
 354 /* login_init_entry(struct logininfo *, int, char*, char*, char*)
 355  *                                        - initialise a struct logininfo
 356  *
 357  * Populates a new struct logininfo, a data structure meant to carry
 358  * the information required to portably record login info.
 359  *
 360  * Returns: 1
 361  */
 362 int
 363 login_init_entry(struct logininfo *li, pid_t pid, const char *username,
 364     const char *hostname, const char *line)
 365 {
 366         struct passwd *pw;
 367
 368         memset(li, 0, sizeof(*li));
 369
 370         li->pid = pid;
 371
 372         /* set the line information */
 373         if (line)
 374                 line_fullname(li->line, line, sizeof(li->line));
 375
 376         if (username) {
 377                 strlcpy(li->username, username, sizeof(li->username));
 378                 pw = getpwnam(li->username);
 379                 if (pw == NULL) {
 380                         fatal("%s: Cannot find user \"%s\"", __func__,
 381                             li->username);
 382                 }
 383                 li->uid = pw->pw_uid;
 384         }
 385
 386         if (hostname)
 387                 strlcpy(li->hostname, hostname, sizeof(li->hostname));
 388
 389         return (1);
 390 }
 391
 392 /*
 393  * login_set_current_time(struct logininfo *)    - set the current time
 394  *
 395  * Set the current time in a logininfo structure. This function is
 396  * meant to eliminate the need to deal with system dependencies for
 397  * time handling.
 398  */
 399 void
 400 login_set_current_time(struct logininfo *li)
 401 {
 402         struct timeval tv;
 403
 404         gettimeofday(&tv, NULL);
 405
 406         li->tv_sec = tv.tv_sec;
 407         li->tv_usec = tv.tv_usec;
 408 }
 409
 410 /* copy a sockaddr_* into our logininfo */
 411 void
 412 login_set_addr(struct logininfo *li, const struct sockaddr *sa,
 413     const unsigned int sa_size)
 414 {
 415         unsigned int bufsize = sa_size;
 416
 417         /* make sure we don't overrun our union */
 418         if (sizeof(li->hostaddr) < sa_size)
 419                 bufsize = sizeof(li->hostaddr);
 420
 421         memcpy(&li->hostaddr.sa, sa, bufsize);
 422 }
 423
 424
 425 /**
 426  ** login_write: Call low-level recording functions based on autoconf
 427  ** results
 428  **/
 429 int
 430 login_write(struct logininfo *li)
 431 {
 432 #ifndef HAVE_CYGWIN
 433         if (geteuid() != 0) {
 434                 logit("Attempt to write login records by non-root user (aborting)");
 435                 return (1);
 436         }
 437 #endif
 438
 439         /* set the timestamp */
 440         login_set_current_time(li);
 441 #ifdef USE_LOGIN
 442         syslogin_write_entry(li);
 443 #endif
 444 #ifdef USE_LASTLOG
 445         if (li->type == LTYPE_LOGIN)
 446                 lastlog_write_entry(li);
 447 #endif
 448 #ifdef USE_UTMP
 449         utmp_write_entry(li);
 450 #endif
 451 #ifdef USE_WTMP
 452         wtmp_write_entry(li);
 453 #endif
 454 #ifdef USE_UTMPX
 455         utmpx_write_entry(li);
 456 #endif
 457 #ifdef USE_WTMPX
 458         wtmpx_write_entry(li);
 459 #endif
 460 #ifdef CUSTOM_SYS_AUTH_RECORD_LOGIN
 461         if (li->type == LTYPE_LOGIN &&
 462             !sys_auth_record_login(li->username,li->hostname,li->line,
 463             &loginmsg))
 464                 logit("Writing login record failed for %s", li->username);
 465 #endif
 466 #ifdef SSH_AUDIT_EVENTS
 467         if (li->type == LTYPE_LOGIN)
 468                 audit_session_open(li);
 469         else if (li->type == LTYPE_LOGOUT)
 470                 audit_session_close(li);
 471 #endif
 472         return (0);
 473 }
 474
 475 #ifdef LOGIN_NEEDS_UTMPX
 476 int
 477 login_utmp_only(struct logininfo *li)
 478 {
 479         li->type = LTYPE_LOGIN;
 480         login_set_current_time(li);
 481 # ifdef USE_UTMP
 482         utmp_write_entry(li);
 483 # endif
 484 # ifdef USE_WTMP
 485         wtmp_write_entry(li);
 486 # endif
 487 # ifdef USE_UTMPX
 488         utmpx_write_entry(li);
 489 # endif
 490 # ifdef USE_WTMPX
 491         wtmpx_write_entry(li);
 492 # endif
 493         return (0);
 494 }
 495 #endif
 496
 497 /**
 498  ** getlast_entry: Call low-level functions to retrieve the last login
 499  **                time.
 500  **/
 501
 502 /* take the uid in li and return the last login time */
 503 int
 504 getlast_entry(struct logininfo *li)
 505 {
 506 #ifdef USE_LASTLOG
 507         return(lastlog_get_entry(li));
 508 #else /* !USE_LASTLOG */
 509 #if defined(USE_UTMPX) && defined(HAVE_SETUTXDB) && \
 510     defined(UTXDB_LASTLOGIN) && defined(HAVE_GETUTXUSER)
 511         return (utmpx_get_entry(li));
 512 #endif
 513
 514 #if defined(DISABLE_LASTLOG)
 515         /* On some systems we shouldn't even try to obtain last login
 516          * time, e.g. AIX */
 517         return (0);
 518 # elif defined(USE_WTMP) && \
 519     (defined(HAVE_TIME_IN_UTMP) || defined(HAVE_TV_IN_UTMP))
 520         /* retrieve last login time from utmp */
 521         return (wtmp_get_entry(li));
 522 # elif defined(USE_WTMPX) && \
 523     (defined(HAVE_TIME_IN_UTMPX) || defined(HAVE_TV_IN_UTMPX))
 524         /* If wtmp isn't available, try wtmpx */
 525         return (wtmpx_get_entry(li));
 526 # else
 527         /* Give up: No means of retrieving last login time */
 528         return (0);
 529 # endif /* DISABLE_LASTLOG */
 530 #endif /* USE_LASTLOG */
 531 }
 532
 533
 534
 535 /*
 536  * 'line' string utility functions
 537  *
 538  * These functions process the 'line' string into one of three forms:
 539  *
 540  * 1. The full filename (including '/dev')
 541  * 2. The stripped name (excluding '/dev')
 542  * 3. The abbreviated name (e.g. /dev/ttyp00 -> yp00
 543  *                               /dev/pts/1  -> ts/1 )
 544  *
 545  * Form 3 is used on some systems to identify a .tmp.? entry when
 546  * attempting to remove it. Typically both addition and removal is
 547  * performed by one application - say, sshd - so as long as the choice
 548  * uniquely identifies a terminal it's ok.
 549  */
 550
 551
 552 /*
 553  * line_fullname(): add the leading '/dev/' if it doesn't exist make
 554  * sure dst has enough space, if not just copy src (ugh)
 555  */
 556 char *
 557 line_fullname(char *dst, const char *src, u_int dstsize)
 558 {
 559         memset(dst, '\0', dstsize);
 560         if ((strncmp(src, "/dev/", 5) == 0) || (dstsize < (strlen(src) + 5)))
 561                 strlcpy(dst, src, dstsize);
 562         else {
 563                 strlcpy(dst, "/dev/", dstsize);
 564                 strlcat(dst, src, dstsize);
 565         }
 566         return (dst);
 567 }
 568
 569 /* line_stripname(): strip the leading '/dev' if it exists, return dst */
 570 char *
 571 line_stripname(char *dst, const char *src, int dstsize)
 572 {
 573         memset(dst, '\0', dstsize);
 574         if (strncmp(src, "/dev/", 5) == 0)
 575                 strlcpy(dst, src + 5, dstsize);
 576         else
 577                 strlcpy(dst, src, dstsize);
 578         return (dst);
 579 }
 580
 581 /*
 582  * line_abbrevname(): Return the abbreviated (usually four-character)
 583  * form of the line (Just use the last <dstsize> characters of the
 584  * full name.)
 585  *
 586  * NOTE: use strncpy because we do NOT necessarily want zero
 587  * termination
 588  */
 589 char *
 590 line_abbrevname(char *dst, const char *src, int dstsize)
 591 {
 592         size_t len;
 593
 594         memset(dst, '\0', dstsize);
 595
 596         /* Always skip prefix if present */
 597         if (strncmp(src, "/dev/", 5) == 0)
 598                 src += 5;
 599
 600 #ifdef WITH_ABBREV_NO_TTY
 601         if (strncmp(src, "tty", 3) == 0)
 602                 src += 3;
 603 #endif
 604
 605         len = strlen(src);
 606
 607         if (len > 0) {
 608                 if (((int)len - dstsize) > 0)
 609                         src +=  ((int)len - dstsize);
 610
 611                 /* note: _don't_ change this to strlcpy */
 612                 strncpy(dst, src, (size_t)dstsize);
 613         }
 614
 615         return (dst);
 616 }
 617
 618 /**
 619  ** utmp utility functions
 620  **
 621  ** These functions manipulate struct utmp, taking system differences
 622  ** into account.
 623  **/
 624
 625 #if defined(USE_UTMP) || defined (USE_WTMP) || defined (USE_LOGIN)
 626
 627 /* build the utmp structure */
 628 void
 629 set_utmp_time(struct logininfo *li, struct utmp *ut)
 630 {
 631 # if defined(HAVE_TV_IN_UTMP)
 632         ut->ut_tv.tv_sec = li->tv_sec;
 633         ut->ut_tv.tv_usec = li->tv_usec;
 634 # elif defined(HAVE_TIME_IN_UTMP)
 635         ut->ut_time = li->tv_sec;
 636 # endif
 637 }
 638
 639 void
 640 construct_utmp(struct logininfo *li,
 641                     struct utmp *ut)
 642 {
 643 # ifdef HAVE_ADDR_V6_IN_UTMP
 644         struct sockaddr_in6 *sa6;
 645 # endif
 646
 647         memset(ut, '\0', sizeof(*ut));
 648
 649         /* First fill out fields used for both logins and logouts */
 650
 651 # ifdef HAVE_ID_IN_UTMP
 652         line_abbrevname(ut->ut_id, li->line, sizeof(ut->ut_id));
 653 # endif
 654
 655 # ifdef HAVE_TYPE_IN_UTMP
 656         /* This is done here to keep utmp constants out of struct logininfo */
 657         switch (li->type) {
 658         case LTYPE_LOGIN:
 659                 ut->ut_type = USER_PROCESS;
 660 #ifdef _UNICOS
 661                 cray_set_tmpdir(ut);
 662 #endif
 663                 break;
 664         case LTYPE_LOGOUT:
 665                 ut->ut_type = DEAD_PROCESS;
 666 #ifdef _UNICOS
 667                 cray_retain_utmp(ut, li->pid);
 668 #endif
 669                 break;
 670         }
 671 # endif
 672         set_utmp_time(li, ut);
 673
 674         line_stripname(ut->ut_line, li->line, sizeof(ut->ut_line));
 675
 676 # ifdef HAVE_PID_IN_UTMP
 677         ut->ut_pid = li->pid;
 678 # endif
 679
 680         /* If we're logging out, leave all other fields blank */
 681         if (li->type == LTYPE_LOGOUT)
 682                 return;
 683
 684         /*
 685          * These fields are only used when logging in, and are blank
 686          * for logouts.
 687          */
 688
 689         /* Use strncpy because we don't necessarily want null termination */
 690         strncpy(ut->ut_name, li->username,
 691             MIN_SIZEOF(ut->ut_name, li->username));
 692 # ifdef HAVE_HOST_IN_UTMP
 693         strncpy(ut->ut_host, li->hostname,
 694             MIN_SIZEOF(ut->ut_host, li->hostname));
 695 # endif
 696 # ifdef HAVE_ADDR_IN_UTMP
 697         /* this is just a 32-bit IP address */
 698         if (li->hostaddr.sa.sa_family == AF_INET)
 699                 ut->ut_addr = li->hostaddr.sa_in.sin_addr.s_addr;
 700 # endif
 701 # ifdef HAVE_ADDR_V6_IN_UTMP
 702         /* this is just a 128-bit IPv6 address */
 703         if (li->hostaddr.sa.sa_family == AF_INET6) {
 704                 sa6 = ((struct sockaddr_in6 *)&li->hostaddr.sa);
 705                 memcpy(ut->ut_addr_v6, sa6->sin6_addr.s6_addr, 16);
 706                 if (IN6_IS_ADDR_V4MAPPED(&sa6->sin6_addr)) {
 707                         ut->ut_addr_v6[0] = ut->ut_addr_v6[3];
 708                         ut->ut_addr_v6[1] = 0;
 709                         ut->ut_addr_v6[2] = 0;
 710                         ut->ut_addr_v6[3] = 0;
 711                 }
 712         }
 713 # endif
 714 }
 715 #endif /* USE_UTMP || USE_WTMP || USE_LOGIN */
 716
 717 /**
 718  ** utmpx utility functions
 719  **
 720  ** These functions manipulate struct utmpx, accounting for system
 721  ** variations.
 722  **/
 723
 724 #if defined(USE_UTMPX) || defined (USE_WTMPX)
 725 /* build the utmpx structure */
 726 void
 727 set_utmpx_time(struct logininfo *li, struct utmpx *utx)
 728 {
 729 # if defined(HAVE_TV_IN_UTMPX)
 730         utx->ut_tv.tv_sec = li->tv_sec;
 731         utx->ut_tv.tv_usec = li->tv_usec;
 732 # elif defined(HAVE_TIME_IN_UTMPX)
 733         utx->ut_time = li->tv_sec;
 734 # endif
 735 }
 736
 737 void
 738 construct_utmpx(struct logininfo *li, struct utmpx *utx)
 739 {
 740 # ifdef HAVE_ADDR_V6_IN_UTMP
 741         struct sockaddr_in6 *sa6;
 742 #  endif
 743         memset(utx, '\0', sizeof(*utx));
 744
 745 # ifdef HAVE_ID_IN_UTMPX
 746         line_abbrevname(utx->ut_id, li->line, sizeof(utx->ut_id));
 747 # endif
 748
 749         /* this is done here to keep utmp constants out of loginrec.h */
 750         switch (li->type) {
 751         case LTYPE_LOGIN:
 752                 utx->ut_type = USER_PROCESS;
 753                 break;
 754         case LTYPE_LOGOUT:
 755                 utx->ut_type = DEAD_PROCESS;
 756                 break;
 757         }
 758         line_stripname(utx->ut_line, li->line, sizeof(utx->ut_line));
 759         set_utmpx_time(li, utx);
 760         utx->ut_pid = li->pid;
 761
 762         /* strncpy(): Don't necessarily want null termination */
 763         strncpy(utx->ut_user, li->username,
 764             MIN_SIZEOF(utx->ut_user, li->username));
 765
 766         if (li->type == LTYPE_LOGOUT)
 767                 return;
 768
 769         /*
 770          * These fields are only used when logging in, and are blank
 771          * for logouts.
 772          */
 773
 774 # ifdef HAVE_HOST_IN_UTMPX
 775         strncpy(utx->ut_host, li->hostname,
 776             MIN_SIZEOF(utx->ut_host, li->hostname));
 777 # endif
 778 # ifdef HAVE_ADDR_IN_UTMPX
 779         /* this is just a 32-bit IP address */
 780         if (li->hostaddr.sa.sa_family == AF_INET)
 781                 utx->ut_addr = li->hostaddr.sa_in.sin_addr.s_addr;
 782 # endif
 783 # ifdef HAVE_ADDR_V6_IN_UTMP
 784         /* this is just a 128-bit IPv6 address */
 785         if (li->hostaddr.sa.sa_family == AF_INET6) {
 786                 sa6 = ((struct sockaddr_in6 *)&li->hostaddr.sa);
 787                 memcpy(ut->ut_addr_v6, sa6->sin6_addr.s6_addr, 16);
 788                 if (IN6_IS_ADDR_V4MAPPED(&sa6->sin6_addr)) {
 789                         ut->ut_addr_v6[0] = ut->ut_addr_v6[3];
 790                         ut->ut_addr_v6[1] = 0;
 791                         ut->ut_addr_v6[2] = 0;
 792                         ut->ut_addr_v6[3] = 0;
 793                 }
 794         }
 795 # endif
 796 # ifdef HAVE_SYSLEN_IN_UTMPX
 797         /* ut_syslen is the length of the utx_host string */
 798         utx->ut_syslen = MIN(strlen(li->hostname), sizeof(utx->ut_host));
 799 # endif
 800 }
 801 #endif /* USE_UTMPX || USE_WTMPX */
 802
 803 /**
 804  ** Low-level utmp functions
 805  **/
 806
 807 /* FIXME: (ATL) utmp_write_direct needs testing */
 808 #ifdef USE_UTMP
 809
 810 /* if we can, use pututline() etc. */
 811 # if !defined(DISABLE_PUTUTLINE) && defined(HAVE_SETUTENT) && \
 812         defined(HAVE_PUTUTLINE)
 813 #  define UTMP_USE_LIBRARY
 814 # endif
 815
 816
 817 /* write a utmp entry with the system's help (pututline() and pals) */
 818 # ifdef UTMP_USE_LIBRARY
 819 static int
 820 utmp_write_library(struct logininfo *li, struct utmp *ut)
 821 {
 822         setutent();
 823         pututline(ut);
 824 #  ifdef HAVE_ENDUTENT
 825         endutent();
 826 #  endif
 827         return (1);
 828 }
 829 # else /* UTMP_USE_LIBRARY */
 830
 831 /*
 832  * Write a utmp entry direct to the file
 833  * This is a slightly modification of code in OpenBSD's login.c
 834  */
 835 static int
 836 utmp_write_direct(struct logininfo *li, struct utmp *ut)
 837 {
 838         struct utmp old_ut;
 839         register int fd;
 840         int tty;
 841
 842         /* FIXME: (ATL) ttyslot() needs local implementation */
 843
 844 #if defined(HAVE_GETTTYENT)
 845         struct ttyent *ty;
 846
 847         tty=0;
 848         setttyent();
 849         while (NULL != (ty = getttyent())) {
 850                 tty++;
 851                 if (!strncmp(ty->ty_name, ut->ut_line, sizeof(ut->ut_line)))
 852                         break;
 853         }
 854         endttyent();
 855
 856         if (NULL == ty) {
 857                 logit("%s: tty not found", __func__);
 858                 return (0);
 859         }
 860 #else /* FIXME */
 861
 862         tty = ttyslot(); /* seems only to work for /dev/ttyp? style names */
 863
 864 #endif /* HAVE_GETTTYENT */
 865
 866         if (tty > 0 && (fd = open(UTMP_FILE, O_RDWR|O_CREAT, 0644)) >= 0) {
 867                 off_t pos, ret;
 868
 869                 pos = (off_t)tty * sizeof(struct utmp);
 870                 if ((ret = lseek(fd, pos, SEEK_SET)) == -1) {
 871                         logit("%s: lseek: %s", __func__, strerror(errno));
 872                         close(fd);
 873                         return (0);
 874                 }
 875                 if (ret != pos) {
 876                         logit("%s: Couldn't seek to tty %d slot in %s",
 877                             __func__, tty, UTMP_FILE);
 878                         close(fd);
 879                         return (0);
 880                 }
 881                 /*
 882                  * Prevent luser from zero'ing out ut_host.
 883                  * If the new ut_line is empty but the old one is not
 884                  * and ut_line and ut_name match, preserve the old ut_line.
 885                  */
 886                 if (atomicio(read, fd, &old_ut, sizeof(old_ut)) == sizeof(old_ut) &&
 887                     (ut->ut_host[0] == '\0') && (old_ut.ut_host[0] != '\0') &&
 888                     (strncmp(old_ut.ut_line, ut->ut_line, sizeof(ut->ut_line)) == 0) &&
 889                     (strncmp(old_ut.ut_name, ut->ut_name, sizeof(ut->ut_name)) == 0))
 890                         memcpy(ut->ut_host, old_ut.ut_host, sizeof(ut->ut_host));
 891
 892                 if ((ret = lseek(fd, pos, SEEK_SET)) == -1) {
 893                         logit("%s: lseek: %s", __func__, strerror(errno));
 894                         close(fd);
 895                         return (0);
 896                 }
 897                 if (ret != pos) {
 898                         logit("%s: Couldn't seek to tty %d slot in %s",
 899                             __func__, tty, UTMP_FILE);
 900                         close(fd);
 901                         return (0);
 902                 }
 903                 if (atomicio(vwrite, fd, ut, sizeof(*ut)) != sizeof(*ut)) {
 904                         logit("%s: error writing %s: %s", __func__,
 905                             UTMP_FILE, strerror(errno));
 906                         close(fd);
 907                         return (0);
 908                 }
 909
 910                 close(fd);
 911                 return (1);
 912         } else {
 913                 return (0);
 914         }
 915 }
 916 # endif /* UTMP_USE_LIBRARY */
 917
 918 static int
 919 utmp_perform_login(struct logininfo *li)
 920 {
 921         struct utmp ut;
 922
 923         construct_utmp(li, &ut);
 924 # ifdef UTMP_USE_LIBRARY
 925         if (!utmp_write_library(li, &ut)) {
 926                 logit("%s: utmp_write_library() failed", __func__);
 927                 return (0);
 928         }
 929 # else
 930         if (!utmp_write_direct(li, &ut)) {
 931                 logit("%s: utmp_write_direct() failed", __func__);
 932                 return (0);
 933         }
 934 # endif
 935         return (1);
 936 }
 937
 938
 939 static int
 940 utmp_perform_logout(struct logininfo *li)
 941 {
 942         struct utmp ut;
 943
 944         construct_utmp(li, &ut);
 945 # ifdef UTMP_USE_LIBRARY
 946         if (!utmp_write_library(li, &ut)) {
 947                 logit("%s: utmp_write_library() failed", __func__);
 948                 return (0);
 949         }
 950 # else
 951         if (!utmp_write_direct(li, &ut)) {
 952                 logit("%s: utmp_write_direct() failed", __func__);
 953                 return (0);
 954         }
 955 # endif
 956         return (1);
 957 }
 958
 959
 960 int
 961 utmp_write_entry(struct logininfo *li)
 962 {
 963         switch(li->type) {
 964         case LTYPE_LOGIN:
 965                 return (utmp_perform_login(li));
 966
 967         case LTYPE_LOGOUT:
 968                 return (utmp_perform_logout(li));
 969
 970         default:
 971                 logit("%s: invalid type field", __func__);
 972                 return (0);
 973         }
 974 }
 975 #endif /* USE_UTMP */
 976
 977
 978 /**
 979  ** Low-level utmpx functions
 980  **/
 981
 982 /* not much point if we don't want utmpx entries */
 983 #ifdef USE_UTMPX
 984
 985 /* if we have the wherewithall, use pututxline etc. */
 986 # if !defined(DISABLE_PUTUTXLINE) && defined(HAVE_SETUTXENT) && \
 987         defined(HAVE_PUTUTXLINE)
 988 #  define UTMPX_USE_LIBRARY
 989 # endif
 990
 991
 992 /* write a utmpx entry with the system's help (pututxline() and pals) */
 993 # ifdef UTMPX_USE_LIBRARY
 994 static int
 995 utmpx_write_library(struct logininfo *li, struct utmpx *utx)
 996 {
 997         setutxent();
 998         pututxline(utx);
 999
1000 #  ifdef HAVE_ENDUTXENT
1001         endutxent();
1002 #  endif
1003         return (1);
1004 }
1005
1006 # else /* UTMPX_USE_LIBRARY */
1007
1008 /* write a utmp entry direct to the file */
1009 static int
1010 utmpx_write_direct(struct logininfo *li, struct utmpx *utx)
1011 {
1012         logit("%s: not implemented!", __func__);
1013         return (0);
1014 }
1015 # endif /* UTMPX_USE_LIBRARY */
1016
1017 static int
1018 utmpx_perform_login(struct logininfo *li)
1019 {
1020         struct utmpx utx;
1021
1022         construct_utmpx(li, &utx);
1023 # ifdef UTMPX_USE_LIBRARY
1024         if (!utmpx_write_library(li, &utx)) {
1025                 logit("%s: utmp_write_library() failed", __func__);
1026                 return (0);
1027         }
1028 # else
1029         if (!utmpx_write_direct(li, &ut)) {
1030                 logit("%s: utmp_write_direct() failed", __func__);
1031                 return (0);
1032         }
1033 # endif
1034         return (1);
1035 }
1036
1037
1038 static int
1039 utmpx_perform_logout(struct logininfo *li)
1040 {
1041         struct utmpx utx;
1042
1043         construct_utmpx(li, &utx);
1044 # ifdef HAVE_ID_IN_UTMPX
1045         line_abbrevname(utx.ut_id, li->line, sizeof(utx.ut_id));
1046 # endif
1047 # ifdef HAVE_TYPE_IN_UTMPX
1048         utx.ut_type = DEAD_PROCESS;
1049 # endif
1050
1051 # ifdef UTMPX_USE_LIBRARY
1052         utmpx_write_library(li, &utx);
1053 # else
1054         utmpx_write_direct(li, &utx);
1055 # endif
1056         return (1);
1057 }
1058
1059 int
1060 utmpx_write_entry(struct logininfo *li)
1061 {
1062         switch(li->type) {
1063         case LTYPE_LOGIN:
1064                 return (utmpx_perform_login(li));
1065         case LTYPE_LOGOUT:
1066                 return (utmpx_perform_logout(li));
1067         default:
1068                 logit("%s: invalid type field", __func__);
1069                 return (0);
1070         }
1071 }
1072 #endif /* USE_UTMPX */
1073
1074
1075 /**
1076  ** Low-level wtmp functions
1077  **/
1078
1079 #ifdef USE_WTMP
1080
1081 /*
1082  * Write a wtmp entry direct to the end of the file
1083  * This is a slight modification of code in OpenBSD's logwtmp.c
1084  */
1085 static int
1086 wtmp_write(struct logininfo *li, struct utmp *ut)
1087 {
1088         struct stat buf;
1089         int fd, ret = 1;
1090
1091         if ((fd = open(WTMP_FILE, O_WRONLY|O_APPEND, 0)) < 0) {
1092                 logit("%s: problem writing %s: %s", __func__,
1093                     WTMP_FILE, strerror(errno));
1094                 return (0);
1095         }
1096         if (fstat(fd, &buf) == 0)
1097                 if (atomicio(vwrite, fd, ut, sizeof(*ut)) != sizeof(*ut)) {
1098                         ftruncate(fd, buf.st_size);
1099                         logit("%s: problem writing %s: %s", __func__,
1100                             WTMP_FILE, strerror(errno));
1101                         ret = 0;
1102                 }
1103         close(fd);
1104         return (ret);
1105 }
1106
1107 static int
1108 wtmp_perform_login(struct logininfo *li)
1109 {
1110         struct utmp ut;
1111
1112         construct_utmp(li, &ut);
1113         return (wtmp_write(li, &ut));
1114 }
1115
1116
1117 static int
1118 wtmp_perform_logout(struct logininfo *li)
1119 {
1120         struct utmp ut;
1121
1122         construct_utmp(li, &ut);
1123         return (wtmp_write(li, &ut));
1124 }
1125
1126
1127 int
1128 wtmp_write_entry(struct logininfo *li)
1129 {
1130         switch(li->type) {
1131         case LTYPE_LOGIN:
1132                 return (wtmp_perform_login(li));
1133         case LTYPE_LOGOUT:
1134                 return (wtmp_perform_logout(li));
1135         default:
1136                 logit("%s: invalid type field", __func__);
1137                 return (0);
1138         }
1139 }
1140
1141
1142 /*
1143  * Notes on fetching login data from wtmp/wtmpx
1144  *
1145  * Logouts are usually recorded with (amongst other things) a blank
1146  * username on a given tty line.  However, some systems (HP-UX is one)
1147  * leave all fields set, but change the ut_type field to DEAD_PROCESS.
1148  *
1149  * Since we're only looking for logins here, we know that the username
1150  * must be set correctly. On systems that leave it in, we check for
1151  * ut_type==USER_PROCESS (indicating a login.)
1152  *
1153  * Portability: Some systems may set something other than USER_PROCESS
1154  * to indicate a login process. I don't know of any as I write. Also,
1155  * it's possible that some systems may both leave the username in
1156  * place and not have ut_type.
1157  */
1158
1159 /* return true if this wtmp entry indicates a login */
1160 static int
1161 wtmp_islogin(struct logininfo *li, struct utmp *ut)
1162 {
1163         if (strncmp(li->username, ut->ut_name,
1164             MIN_SIZEOF(li->username, ut->ut_name)) == 0) {
1165 # ifdef HAVE_TYPE_IN_UTMP
1166                 if (ut->ut_type & USER_PROCESS)
1167                         return (1);
1168 # else
1169                 return (1);
1170 # endif
1171         }
1172         return (0);
1173 }
1174
1175 int
1176 wtmp_get_entry(struct logininfo *li)
1177 {
1178         struct stat st;
1179         struct utmp ut;
1180         int fd, found = 0;
1181
1182         /* Clear the time entries in our logininfo */
1183         li->tv_sec = li->tv_usec = 0;
1184
1185         if ((fd = open(WTMP_FILE, O_RDONLY)) < 0) {
1186                 logit("%s: problem opening %s: %s", __func__,
1187                     WTMP_FILE, strerror(errno));
1188                 return (0);
1189         }
1190         if (fstat(fd, &st) != 0) {
1191                 logit("%s: couldn't stat %s: %s", __func__,
1192                     WTMP_FILE, strerror(errno));
1193                 close(fd);
1194                 return (0);
1195         }
1196
1197         /* Seek to the start of the last struct utmp */
1198         if (lseek(fd, -(off_t)sizeof(struct utmp), SEEK_END) == -1) {
1199                 /* Looks like we've got a fresh wtmp file */
1200                 close(fd);
1201                 return (0);
1202         }
1203
1204         while (!found) {
1205                 if (atomicio(read, fd, &ut, sizeof(ut)) != sizeof(ut)) {
1206                         logit("%s: read of %s failed: %s", __func__,
1207                             WTMP_FILE, strerror(errno));
1208                         close (fd);
1209                         return (0);
1210                 }
1211                 if (wtmp_islogin(li, &ut) ) {
1212                         found = 1;
1213                         /*
1214                          * We've already checked for a time in struct
1215                          * utmp, in login_getlast()
1216                          */
1217 # ifdef HAVE_TIME_IN_UTMP
1218                         li->tv_sec = ut.ut_time;
1219 # else
1220 #  if HAVE_TV_IN_UTMP
1221                         li->tv_sec = ut.ut_tv.tv_sec;
1222 #  endif
1223 # endif
1224                         line_fullname(li->line, ut.ut_line,
1225                             MIN_SIZEOF(li->line, ut.ut_line));
1226 # ifdef HAVE_HOST_IN_UTMP
1227                         strlcpy(li->hostname, ut.ut_host,
1228                             MIN_SIZEOF(li->hostname, ut.ut_host));
1229 # endif
1230                         continue;
1231                 }
1232                 /* Seek back 2 x struct utmp */
1233                 if (lseek(fd, -(off_t)(2 * sizeof(struct utmp)), SEEK_CUR) == -1) {
1234                         /* We've found the start of the file, so quit */
1235                         close(fd);
1236                         return (0);
1237                 }
1238         }
1239
1240         /* We found an entry. Tidy up and return */
1241         close(fd);
1242         return (1);
1243 }
1244 # endif /* USE_WTMP */
1245
1246
1247 /**
1248  ** Low-level wtmpx functions
1249  **/
1250
1251 #ifdef USE_WTMPX
1252 /*
1253  * Write a wtmpx entry direct to the end of the file
1254  * This is a slight modification of code in OpenBSD's logwtmp.c
1255  */
1256 static int
1257 wtmpx_write(struct logininfo *li, struct utmpx *utx)
1258 {
1259 #ifndef HAVE_UPDWTMPX
1260         struct stat buf;
1261         int fd, ret = 1;
1262
1263         if ((fd = open(WTMPX_FILE, O_WRONLY|O_APPEND, 0)) < 0) {
1264                 logit("%s: problem opening %s: %s", __func__,
1265                     WTMPX_FILE, strerror(errno));
1266                 return (0);
1267         }
1268
1269         if (fstat(fd, &buf) == 0)
1270                 if (atomicio(vwrite, fd, utx, sizeof(*utx)) != sizeof(*utx)) {
1271                         ftruncate(fd, buf.st_size);
1272                         logit("%s: problem writing %s: %s", __func__,
1273                             WTMPX_FILE, strerror(errno));
1274                         ret = 0;
1275                 }
1276         close(fd);
1277
1278         return (ret);
1279 #else
1280         updwtmpx(WTMPX_FILE, utx);
1281         return (1);
1282 #endif
1283 }
1284
1285
1286 static int
1287 wtmpx_perform_login(struct logininfo *li)
1288 {
1289         struct utmpx utx;
1290
1291         construct_utmpx(li, &utx);
1292         return (wtmpx_write(li, &utx));
1293 }
1294
1295
1296 static int
1297 wtmpx_perform_logout(struct logininfo *li)
1298 {
1299         struct utmpx utx;
1300
1301         construct_utmpx(li, &utx);
1302         return (wtmpx_write(li, &utx));
1303 }
1304
1305
1306 int
1307 wtmpx_write_entry(struct logininfo *li)
1308 {
1309         switch(li->type) {
1310         case LTYPE_LOGIN:
1311                 return (wtmpx_perform_login(li));
1312         case LTYPE_LOGOUT:
1313                 return (wtmpx_perform_logout(li));
1314         default:
1315                 logit("%s: invalid type field", __func__);
1316                 return (0);
1317         }
1318 }
1319
1320 /* Please see the notes above wtmp_islogin() for information about the
1321    next two functions */
1322
1323 /* Return true if this wtmpx entry indicates a login */
1324 static int
1325 wtmpx_islogin(struct logininfo *li, struct utmpx *utx)
1326 {
1327         if (strncmp(li->username, utx->ut_user,
1328             MIN_SIZEOF(li->username, utx->ut_user)) == 0 ) {
1329 # ifdef HAVE_TYPE_IN_UTMPX
1330                 if (utx->ut_type == USER_PROCESS)
1331                         return (1);
1332 # else
1333                 return (1);
1334 # endif
1335         }
1336         return (0);
1337 }
1338
1339
1340 int
1341 wtmpx_get_entry(struct logininfo *li)
1342 {
1343         struct stat st;
1344         struct utmpx utx;
1345         int fd, found=0;
1346
1347         /* Clear the time entries */
1348         li->tv_sec = li->tv_usec = 0;
1349
1350         if ((fd = open(WTMPX_FILE, O_RDONLY)) < 0) {
1351                 logit("%s: problem opening %s: %s", __func__,
1352                     WTMPX_FILE, strerror(errno));
1353                 return (0);
1354         }
1355         if (fstat(fd, &st) != 0) {
1356                 logit("%s: couldn't stat %s: %s", __func__,
1357                     WTMPX_FILE, strerror(errno));
1358                 close(fd);
1359                 return (0);
1360         }
1361
1362         /* Seek to the start of the last struct utmpx */
1363         if (lseek(fd, -(off_t)sizeof(struct utmpx), SEEK_END) == -1 ) {
1364                 /* probably a newly rotated wtmpx file */
1365                 close(fd);
1366                 return (0);
1367         }
1368
1369         while (!found) {
1370                 if (atomicio(read, fd, &utx, sizeof(utx)) != sizeof(utx)) {
1371                         logit("%s: read of %s failed: %s", __func__,
1372                             WTMPX_FILE, strerror(errno));
1373                         close (fd);
1374                         return (0);
1375                 }
1376                 /*
1377                  * Logouts are recorded as a blank username on a particular
1378                  * line. So, we just need to find the username in struct utmpx
1379                  */
1380                 if (wtmpx_islogin(li, &utx)) {
1381                         found = 1;
1382 # if defined(HAVE_TV_IN_UTMPX)
1383                         li->tv_sec = utx.ut_tv.tv_sec;
1384 # elif defined(HAVE_TIME_IN_UTMPX)
1385                         li->tv_sec = utx.ut_time;
1386 # endif
1387                         line_fullname(li->line, utx.ut_line, sizeof(li->line));
1388 # if defined(HAVE_HOST_IN_UTMPX)
1389                         strlcpy(li->hostname, utx.ut_host,
1390                             MIN_SIZEOF(li->hostname, utx.ut_host));
1391 # endif
1392                         continue;
1393                 }
1394                 if (lseek(fd, -(off_t)(2 * sizeof(struct utmpx)), SEEK_CUR) == -1) {
1395                         close(fd);
1396                         return (0);
1397                 }
1398         }
1399
1400         close(fd);
1401         return (1);
1402 }
1403 #endif /* USE_WTMPX */
1404
1405 /**
1406  ** Low-level libutil login() functions
1407  **/
1408
1409 #ifdef USE_LOGIN
1410 static int
1411 syslogin_perform_login(struct logininfo *li)
1412 {
1413         struct utmp *ut;
1414
1415         ut = xmalloc(sizeof(*ut));
1416         construct_utmp(li, ut);
1417         login(ut);
1418         free(ut);
1419
1420         return (1);
1421 }
1422
1423 static int
1424 syslogin_perform_logout(struct logininfo *li)
1425 {
1426 # ifdef HAVE_LOGOUT
1427         char line[UT_LINESIZE];
1428
1429         (void)line_stripname(line, li->line, sizeof(line));
1430
1431         if (!logout(line))
1432                 logit("%s: logout() returned an error", __func__);
1433 #  ifdef HAVE_LOGWTMP
1434         else
1435                 logwtmp(line, "", "");
1436 #  endif
1437         /* FIXME: (ATL - if the need arises) What to do if we have
1438          * login, but no logout?  what if logout but no logwtmp? All
1439          * routines are in libutil so they should all be there,
1440          * but... */
1441 # endif
1442         return (1);
1443 }
1444
1445 int
1446 syslogin_write_entry(struct logininfo *li)
1447 {
1448         switch (li->type) {
1449         case LTYPE_LOGIN:
1450                 return (syslogin_perform_login(li));
1451         case LTYPE_LOGOUT:
1452                 return (syslogin_perform_logout(li));
1453         default:
1454                 logit("%s: Invalid type field", __func__);
1455                 return (0);
1456         }
1457 }
1458 #endif /* USE_LOGIN */
1459
1460 /* end of file log-syslogin.c */
1461
1462 /**
1463  ** Low-level lastlog functions
1464  **/
1465
1466 #ifdef USE_LASTLOG
1467
1468 #if !defined(LASTLOG_WRITE_PUTUTXLINE) || !defined(HAVE_GETLASTLOGXBYNAME)
1469 /* open the file (using filemode) and seek to the login entry */
1470 static int
1471 lastlog_openseek(struct logininfo *li, int *fd, int filemode)
1472 {
1473         off_t offset;
1474         char lastlog_file[1024];
1475         struct stat st;
1476
1477         if (stat(LASTLOG_FILE, &st) != 0) {
1478                 logit("%s: Couldn't stat %s: %s", __func__,
1479                     LASTLOG_FILE, strerror(errno));
1480                 return (0);
1481         }
1482         if (S_ISDIR(st.st_mode)) {
1483                 snprintf(lastlog_file, sizeof(lastlog_file), "%s/%s",
1484                     LASTLOG_FILE, li->username);
1485         } else if (S_ISREG(st.st_mode)) {
1486                 strlcpy(lastlog_file, LASTLOG_FILE, sizeof(lastlog_file));
1487         } else {
1488                 logit("%s: %.100s is not a file or directory!", __func__,
1489                     LASTLOG_FILE);
1490                 return (0);
1491         }
1492
1493         *fd = open(lastlog_file, filemode, 0600);
1494         if (*fd < 0) {
1495                 debug("%s: Couldn't open %s: %s", __func__,
1496                     lastlog_file, strerror(errno));
1497                 return (0);
1498         }
1499
1500         if (S_ISREG(st.st_mode)) {
1501                 /* find this uid's offset in the lastlog file */
1502                 offset = (off_t) ((u_long)li->uid * sizeof(struct lastlog));
1503
1504                 if (lseek(*fd, offset, SEEK_SET) != offset) {
1505                         logit("%s: %s->lseek(): %s", __func__,
1506                             lastlog_file, strerror(errno));
1507                         close(*fd);
1508                         return (0);
1509                 }
1510         }
1511
1512         return (1);
1513 }
1514 #endif /* !LASTLOG_WRITE_PUTUTXLINE || !HAVE_GETLASTLOGXBYNAME */
1515
1516 #ifdef LASTLOG_WRITE_PUTUTXLINE
1517 int
1518 lastlog_write_entry(struct logininfo *li)
1519 {
1520         switch(li->type) {
1521         case LTYPE_LOGIN:
1522                 return 1; /* lastlog written by pututxline */
1523         default:
1524                 logit("lastlog_write_entry: Invalid type field");
1525                 return 0;
1526         }
1527 }
1528 #else /* LASTLOG_WRITE_PUTUTXLINE */
1529 int
1530 lastlog_write_entry(struct logininfo *li)
1531 {
1532         struct lastlog last;
1533         int fd;
1534
1535         switch(li->type) {
1536         case LTYPE_LOGIN:
1537                 /* create our struct lastlog */
1538                 memset(&last, '\0', sizeof(last));
1539                 line_stripname(last.ll_line, li->line, sizeof(last.ll_line));
1540                 strlcpy(last.ll_host, li->hostname,
1541                     MIN_SIZEOF(last.ll_host, li->hostname));
1542                 last.ll_time = li->tv_sec;
1543
1544                 if (!lastlog_openseek(li, &fd, O_RDWR|O_CREAT))
1545                         return (0);
1546
1547                 /* write the entry */
1548                 if (atomicio(vwrite, fd, &last, sizeof(last)) != sizeof(last)) {
1549                         close(fd);
1550                         logit("%s: Error writing to %s: %s", __func__,
1551                             LASTLOG_FILE, strerror(errno));
1552                         return (0);
1553                 }
1554
1555                 close(fd);
1556                 return (1);
1557         default:
1558                 logit("%s: Invalid type field", __func__);
1559                 return (0);
1560         }
1561 }
1562 #endif /* LASTLOG_WRITE_PUTUTXLINE */
1563
1564 #ifdef HAVE_GETLASTLOGXBYNAME
1565 int
1566 lastlog_get_entry(struct logininfo *li)
1567 {
1568         struct lastlogx l, *ll;
1569
1570         if ((ll = getlastlogxbyname(li->username, &l)) == NULL) {
1571                 memset(&l, '\0', sizeof(l));
1572                 ll = &l;
1573         }
1574         line_fullname(li->line, ll->ll_line, sizeof(li->line));
1575         strlcpy(li->hostname, ll->ll_host,
1576                 MIN_SIZEOF(li->hostname, ll->ll_host));
1577         li->tv_sec = ll->ll_tv.tv_sec;
1578         li->tv_usec = ll->ll_tv.tv_usec;
1579         return (1);
1580 }
1581 #else /* HAVE_GETLASTLOGXBYNAME */
1582 int
1583 lastlog_get_entry(struct logininfo *li)
1584 {
1585         struct lastlog last;
1586         int fd, ret;
1587
1588         if (!lastlog_openseek(li, &fd, O_RDONLY))
1589                 return (0);
1590
1591         ret = atomicio(read, fd, &last, sizeof(last));
1592         close(fd);
1593
1594         switch (ret) {
1595         case 0:
1596                 memset(&last, '\0', sizeof(last));
1597                 /* FALLTHRU */
1598         case sizeof(last):
1599                 line_fullname(li->line, last.ll_line, sizeof(li->line));
1600                 strlcpy(li->hostname, last.ll_host,
1601                     MIN_SIZEOF(li->hostname, last.ll_host));
1602                 li->tv_sec = last.ll_time;
1603                 return (1);
1604         case -1:
1605                 error("%s: Error reading from %s: %s", __func__,
1606                     LASTLOG_FILE, strerror(errno));
1607                 return (0);
1608         default:
1609                 error("%s: Error reading from %s: Expecting %d, got %d",
1610                     __func__, LASTLOG_FILE, (int)sizeof(last), ret);
1611                 return (0);
1612         }
1613
1614         /* NOTREACHED */
1615         return (0);
1616 }
1617 #endif /* HAVE_GETLASTLOGXBYNAME */
1618 #endif /* USE_LASTLOG */
1619
1620 #if defined(USE_UTMPX) && defined(HAVE_SETUTXDB) && \
1621     defined(UTXDB_LASTLOGIN) && defined(HAVE_GETUTXUSER)
1622 int
1623 utmpx_get_entry(struct logininfo *li)
1624 {
1625         struct utmpx *utx;
1626
1627         if (setutxdb(UTXDB_LASTLOGIN, NULL) != 0)
1628                 return (0);
1629         utx = getutxuser(li->username);
1630         if (utx == NULL) {
1631                 endutxent();
1632                 return (0);
1633         }
1634
1635         line_fullname(li->line, utx->ut_line,
1636             MIN_SIZEOF(li->line, utx->ut_line));
1637         strlcpy(li->hostname, utx->ut_host,
1638             MIN_SIZEOF(li->hostname, utx->ut_host));
1639         li->tv_sec = utx->ut_tv.tv_sec;
1640         li->tv_usec = utx->ut_tv.tv_usec;
1641         endutxent();
1642         return (1);
1643 }
1644 #endif /* USE_UTMPX && HAVE_SETUTXDB && UTXDB_LASTLOGIN && HAVE_GETUTXUSER */
1645
1646 #ifdef USE_BTMP
1647   /*
1648    * Logs failed login attempts in _PATH_BTMP if that exists.
1649    * The most common login failure is to give password instead of username.
1650    * So the _PATH_BTMP file checked for the correct permission, so that
1651    * only root can read it.
1652    */
1653
1654 void
1655 record_failed_login(const char *username, const char *hostname,
1656     const char *ttyn)
1657 {
1658         int fd;
1659         struct utmp ut;
1660         struct sockaddr_storage from;
1661         socklen_t fromlen = sizeof(from);
1662         struct sockaddr_in *a4;
1663         struct sockaddr_in6 *a6;
1664         time_t t;
1665         struct stat fst;
1666
1667         if (geteuid() != 0)
1668                 return;
1669         if ((fd = open(_PATH_BTMP, O_WRONLY | O_APPEND)) < 0) {
1670                 debug("Unable to open the btmp file %s: %s", _PATH_BTMP,
1671                     strerror(errno));
1672                 return;
1673         }
1674         if (fstat(fd, &fst) < 0) {
1675                 logit("%s: fstat of %s failed: %s", __func__, _PATH_BTMP,
1676                     strerror(errno));
1677                 goto out;
1678         }
1679         if((fst.st_mode & (S_IXGRP | S_IRWXO)) || (fst.st_uid != 0)){
1680                 logit("Excess permission or bad ownership on file %s",
1681                     _PATH_BTMP);
1682                 goto out;
1683         }
1684
1685         memset(&ut, 0, sizeof(ut));
1686         /* strncpy because we don't necessarily want nul termination */
1687         strncpy(ut.ut_user, username, sizeof(ut.ut_user));
1688         strlcpy(ut.ut_line, "ssh:notty", sizeof(ut.ut_line));
1689
1690         time(&t);
1691         ut.ut_time = t;     /* ut_time is not always a time_t */
1692         ut.ut_type = LOGIN_PROCESS;
1693         ut.ut_pid = getpid();
1694
1695         /* strncpy because we don't necessarily want nul termination */
1696         strncpy(ut.ut_host, hostname, sizeof(ut.ut_host));
1697
1698         if (packet_connection_is_on_socket() &&
1699             getpeername(packet_get_connection_in(),
1700             (struct sockaddr *)&from, &fromlen) == 0) {
1701                 ipv64_normalise_mapped(&from, &fromlen);
1702                 if (from.ss_family == AF_INET) {
1703                         a4 = (struct sockaddr_in *)&from;
1704                         memcpy(&ut.ut_addr, &(a4->sin_addr),
1705                             MIN_SIZEOF(ut.ut_addr, a4->sin_addr));
1706                 }
1707 #ifdef HAVE_ADDR_V6_IN_UTMP
1708                 if (from.ss_family == AF_INET6) {
1709                         a6 = (struct sockaddr_in6 *)&from;
1710                         memcpy(&ut.ut_addr_v6, &(a6->sin6_addr),
1711                             MIN_SIZEOF(ut.ut_addr_v6, a6->sin6_addr));
1712                 }
1713 #endif
1714         }
1715
1716         if (atomicio(vwrite, fd, &ut, sizeof(ut)) != sizeof(ut))
1717                 error("Failed to write to %s: %s", _PATH_BTMP,
1718                     strerror(errno));
1719
1720 out:
1721         close(fd);
1722 }
1723 #endif  /* USE_BTMP */