src/who.c

   1 /* GNU's who.
   2    Copyright (C) 1992-2005 Free Software Foundation, Inc.
   3
   4    This program is free software; you can redistribute it and/or modify
   5    it under the terms of the GNU General Public License as published by
   6    the Free Software Foundation; either version 2, or (at your option)
   7    any later version.
   8
   9    This program is distributed in the hope that it will be useful,
  10    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12    GNU General Public License for more details.
  13
  14    You should have received a copy of the GNU General Public License
  15    along with this program; if not, write to the Free Software Foundation,
  16    Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.  */
  17
  18 /* Written by jla; revised by djm; revised again by mstone */
  19
  20 /* Output format:
  21    name [state] line time [activity] [pid] [comment] [exit]
  22    state: -T
  23    name, line, time: not -q
  24    idle: -u
  25 */
  26
  27 #include <config.h>
  28 #include <getopt.h>
  29 #include <stdio.h>
  30
  31 #include <sys/types.h>
  32 #include "system.h"
  33
  34 #include "readutmp.h"
  35 #include "error.h"
  36 #include "hard-locale.h"
  37 #include "inttostr.h"
  38 #include "quote.h"
  39 #include "vasprintf.h"
  40
  41 /* The official name of this program (e.g., no `g' prefix).  */
  42 #define PROGRAM_NAME "who"
  43
  44 #define AUTHORS "Joseph Arceneaux", "David MacKenzie", "Michael Stone"
  45
  46 #ifndef MAXHOSTNAMELEN
  47 # define MAXHOSTNAMELEN 64
  48 #endif
  49
  50 #ifndef S_IWGRP
  51 # define S_IWGRP 020
  52 #endif
  53
  54 #ifdef RUN_LVL
  55 # define UT_TYPE_RUN_LVL(U) UT_TYPE_EQ (U, RUN_LVL)
  56 #else
  57 # define UT_TYPE_RUN_LVL(U) false
  58 #endif
  59
  60 #ifdef INIT_PROCESS
  61 # define UT_TYPE_INIT_PROCESS(U) UT_TYPE_EQ (U, INIT_PROCESS)
  62 #else
  63 # define UT_TYPE_INIT_PROCESS(U) false
  64 #endif
  65
  66 #ifdef LOGIN_PROCESS
  67 # define UT_TYPE_LOGIN_PROCESS(U) UT_TYPE_EQ (U, LOGIN_PROCESS)
  68 #else
  69 # define UT_TYPE_LOGIN_PROCESS(U) false
  70 #endif
  71
  72 #ifdef DEAD_PROCESS
  73 # define UT_TYPE_DEAD_PROCESS(U) UT_TYPE_EQ (U, DEAD_PROCESS)
  74 #else
  75 # define UT_TYPE_DEAD_PROCESS(U) false
  76 #endif
  77
  78 #ifdef NEW_TIME
  79 # define UT_TYPE_NEW_TIME(U) UT_TYPE_EQ (U, NEW_TIME)
  80 #else
  81 # define UT_TYPE_NEW_TIME(U) false
  82 #endif
  83
  84 #define IDLESTR_LEN 6
  85
  86 #if HAVE_STRUCT_XTMP_UT_PID
  87 # define PIDSTR_DECL_AND_INIT(Var, Utmp_ent) \
  88   char Var[INT_STRLEN_BOUND (Utmp_ent->ut_pid) + 1]; \
  89   sprintf (Var, "%ld", (long int) (Utmp_ent->ut_pid))
  90 #else
  91 # define PIDSTR_DECL_AND_INIT(Var, Utmp_ent) \
  92   const char *Var = ""
  93 #endif
  94
  95 #if HAVE_STRUCT_XTMP_UT_ID
  96 # define UT_ID(U) ((U)->ut_id)
  97 #else
  98 # define UT_ID(U) "??"
  99 #endif
 100
 101 char *ttyname ();
 102 char *canon_host ();
 103
 104 /* The name this program was run with. */
 105 char *program_name;
 106
 107 /* If true, attempt to canonicalize hostnames via a DNS lookup. */
 108 static bool do_lookup;
 109
 110 /* If true, display only a list of usernames and count of
 111    the users logged on.
 112    Ignored for `who am i'.  */
 113 static bool short_list;
 114
 115 /* If true, display only name, line, and time fields.  */
 116 static bool short_output;
 117
 118 /* If true, display the hours:minutes since each user has touched
 119    the keyboard, or "." if within the last minute, or "old" if
 120    not within the last day.  */
 121 static bool include_idle;
 122
 123 /* If true, display a line at the top describing each field.  */
 124 static bool include_heading;
 125
 126 /* If true, display a `+' for each user if mesg y, a `-' if mesg n,
 127    or a `?' if their tty cannot be statted. */
 128 static bool include_mesg;
 129
 130 /* If true, display process termination & exit status.  */
 131 static bool include_exit;
 132
 133 /* If true, display the last boot time.  */
 134 static bool need_boottime;
 135
 136 /* If true, display dead processes.  */
 137 static bool need_deadprocs;
 138
 139 /* If true, display processes waiting for user login.  */
 140 static bool need_login;
 141
 142 /* If true, display processes started by init.  */
 143 static bool need_initspawn;
 144
 145 /* If true, display the last clock change.  */
 146 static bool need_clockchange;
 147
 148 /* If true, display the current runlevel.  */
 149 static bool need_runlevel;
 150
 151 /* If true, display user processes.  */
 152 static bool need_users;
 153
 154 /* If true, display info only for the controlling tty.  */
 155 static bool my_line_only;
 156
 157 /* The strftime format to use for login times, and its expected
 158    output width.  */
 159 static char const *time_format;
 160 static int time_format_width;
 161
 162 /* for long options with no corresponding short option, use enum */
 163 enum
 164 {
 165   LOOKUP_OPTION = CHAR_MAX + 1
 166 };
 167
 168 static struct option const longopts[] = {
 169   {"all", no_argument, NULL, 'a'},
 170   {"boot", no_argument, NULL, 'b'},
 171   {"count", no_argument, NULL, 'q'},
 172   {"dead", no_argument, NULL, 'd'},
 173   {"heading", no_argument, NULL, 'H'},
 174   {"idle", no_argument, NULL, 'i'},
 175   {"login", no_argument, NULL, 'l'},
 176   {"lookup", no_argument, NULL, LOOKUP_OPTION},
 177   {"message", no_argument, NULL, 'T'},
 178   {"mesg", no_argument, NULL, 'T'},
 179   {"process", no_argument, NULL, 'p'},
 180   {"runlevel", no_argument, NULL, 'r'},
 181   {"short", no_argument, NULL, 's'},
 182   {"time", no_argument, NULL, 't'},
 183   {"users", no_argument, NULL, 'u'},
 184   {"writable", no_argument, NULL, 'T'},
 185   {GETOPT_HELP_OPTION_DECL},
 186   {GETOPT_VERSION_OPTION_DECL},
 187   {NULL, 0, NULL, 0}
 188 };
 189
 190 /* Return a string representing the time between WHEN and now.
 191    BOOTTIME is the time of last reboot.
 192    FIXME: locale? */
 193 static const char *
 194 idle_string (time_t when, time_t boottime)
 195 {
 196   static time_t now = TYPE_MINIMUM (time_t);
 197
 198   if (now == TYPE_MINIMUM (time_t))
 199     time (&now);
 200
 201   if (boottime < when && now - 24 * 60 * 60 < when && when <= now)
 202     {
 203       int seconds_idle = now - when;
 204       if (seconds_idle < 60)
 205         return "  .  ";
 206       else
 207         {
 208           static char idle_hhmm[IDLESTR_LEN];
 209           sprintf (idle_hhmm, "%02d:%02d",
 210                    seconds_idle / (60 * 60),
 211                    (seconds_idle % (60 * 60)) / 60);
 212           return idle_hhmm;
 213         }
 214     }
 215
 216   return _(" old ");
 217 }
 218
 219 /* Return a time string.  */
 220 static const char *
 221 time_string (const STRUCT_UTMP *utmp_ent)
 222 {
 223   static char buf[INT_STRLEN_BOUND (intmax_t) + sizeof "-%m-%d %H:%M"];
 224
 225   /* Don't take the address of UT_TIME_MEMBER directly.
 226      Ulrich Drepper wrote:
 227      ``... GNU libc (and perhaps other libcs as well) have extended
 228      utmp file formats which do not use a simple time_t ut_time field.
 229      In glibc, ut_time is a macro which selects for backward compatibility
 230      the tv_sec member of a struct timeval value.''  */
 231   time_t t = UT_TIME_MEMBER (utmp_ent);
 232   struct tm *tmp = localtime (&t);
 233
 234   if (tmp)
 235     {
 236       strftime (buf, sizeof buf, time_format, tmp);
 237       return buf;
 238     }
 239   else
 240     return TYPE_SIGNED (time_t) ? imaxtostr (t, buf) : umaxtostr (t, buf);
 241 }
 242
 243 /* Print formatted output line. Uses mostly arbitrary field sizes, probably
 244    will need tweaking if any of the localization stuff is done, or for 64 bit
 245    pids, etc. */
 246 static void
 247 print_line (int userlen, const char *user, const char state,
 248             int linelen, const char *line,
 249             const char *time_str, const char *idle, const char *pid,
 250             const char *comment, const char *exitstr)
 251 {
 252   static char mesg[3] = { ' ', 'x', '\0' };
 253   char *buf;
 254   char x_idle[1 + IDLESTR_LEN + 1];
 255   char x_pid[1 + INT_STRLEN_BOUND (pid_t) + 1];
 256   char *x_exitstr;
 257   int err;
 258
 259   mesg[1] = state;
 260
 261   if (include_idle && !short_output && strlen (idle) < sizeof x_idle - 1)
 262     sprintf (x_idle, " %-6s", idle);
 263   else
 264     *x_idle = '\0';
 265
 266   if (!short_output && strlen (pid) < sizeof x_pid - 1)
 267     sprintf (x_pid, " %10s", pid);
 268   else
 269     *x_pid = '\0';
 270
 271   x_exitstr = xmalloc (include_exit ? 1 + MAX (12, strlen (exitstr)) + 1 : 1);
 272   if (include_exit)
 273     sprintf (x_exitstr, " %-12s", exitstr);
 274   else
 275     *x_exitstr = '\0';
 276
 277   err = asprintf (&buf,
 278                   "%-8.*s"
 279                   "%s"
 280                   " %-12.*s"
 281                   " %-*s"
 282                   "%s"
 283                   "%s"
 284                   " %-8s"
 285                   "%s"
 286                   ,
 287                   userlen, user ? user : "   .",
 288                   include_mesg ? mesg : "",
 289                   linelen, line,
 290                   time_format_width,
 291                   time_str,
 292                   x_idle,
 293                   x_pid,
 294                   /* FIXME: it's not really clear whether the following
 295                      field should be in the short_output.  A strict reading
 296                      of SUSv2 would suggest not, but I haven't seen any
 297                      implementations that actually work that way... */
 298                   comment,
 299                   x_exitstr
 300                   );
 301   if (err == -1)
 302     xalloc_die ();
 303
 304   {
 305     /* Remove any trailing spaces.  */
 306     char *p = buf + strlen (buf);
 307     while (*--p == ' ')
 308       /* empty */;
 309     *(p + 1) = '\0';
 310   }
 311
 312   puts (buf);
 313   free (buf);
 314   free (x_exitstr);
 315 }
 316
 317 /* Send properly parsed USER_PROCESS info to print_line.  The most
 318    recent boot time is BOOTTIME. */
 319 static void
 320 print_user (const STRUCT_UTMP *utmp_ent, time_t boottime)
 321 {
 322   struct stat stats;
 323   time_t last_change;
 324   char mesg;
 325   char idlestr[IDLESTR_LEN + 1];
 326   static char *hoststr;
 327   static size_t hostlen;
 328
 329 #define DEV_DIR_WITH_TRAILING_SLASH "/dev/"
 330 #define DEV_DIR_LEN (sizeof (DEV_DIR_WITH_TRAILING_SLASH) - 1)
 331
 332   char line[sizeof (utmp_ent->ut_line) + DEV_DIR_LEN + 1];
 333   PIDSTR_DECL_AND_INIT (pidstr, utmp_ent);
 334
 335   /* Copy ut_line into LINE, prepending `/dev/' if ut_line is not
 336      already an absolute pathname.  Some system may put the full,
 337      absolute pathname in ut_line.  */
 338   if (utmp_ent->ut_line[0] == '/')
 339     {
 340       strncpy (line, utmp_ent->ut_line, sizeof (utmp_ent->ut_line));
 341       line[sizeof (utmp_ent->ut_line)] = '\0';
 342     }
 343   else
 344     {
 345       strcpy (line, DEV_DIR_WITH_TRAILING_SLASH);
 346       strncpy (line + DEV_DIR_LEN, utmp_ent->ut_line,
 347                sizeof (utmp_ent->ut_line));
 348       line[DEV_DIR_LEN + sizeof (utmp_ent->ut_line)] = '\0';
 349     }
 350
 351   if (stat (line, &stats) == 0)
 352     {
 353       mesg = (stats.st_mode & S_IWGRP) ? '+' : '-';
 354       last_change = stats.st_atime;
 355     }
 356   else
 357     {
 358       mesg = '?';
 359       last_change = 0;
 360     }
 361
 362   if (last_change)
 363     sprintf (idlestr, "%.*s", IDLESTR_LEN, idle_string (last_change, boottime));
 364   else
 365     sprintf (idlestr, "  ?");
 366
 367 #if HAVE_UT_HOST
 368   if (utmp_ent->ut_host[0])
 369     {
 370       char ut_host[sizeof (utmp_ent->ut_host) + 1];
 371       char *host = NULL;
 372       char *display = NULL;
 373
 374       /* Copy the host name into UT_HOST, and ensure it's nul terminated. */
 375       strncpy (ut_host, utmp_ent->ut_host, sizeof (utmp_ent->ut_host));
 376       ut_host[sizeof (utmp_ent->ut_host)] = '\0';
 377
 378       /* Look for an X display.  */
 379       display = strchr (ut_host, ':');
 380       if (display)
 381         *display++ = '\0';
 382
 383       if (*ut_host && do_lookup)
 384         {
 385           /* See if we can canonicalize it.  */
 386           host = canon_host (ut_host);
 387         }
 388
 389       if (! host)
 390         host = ut_host;
 391
 392       if (display)
 393         {
 394           if (hostlen < strlen (host) + strlen (display) + 4)
 395             {
 396               hostlen = strlen (host) + strlen (display) + 4;
 397               hoststr = xrealloc (hoststr, hostlen);
 398             }
 399           sprintf (hoststr, "(%s:%s)", host, display);
 400         }
 401       else
 402         {
 403           if (hostlen < strlen (host) + 3)
 404             {
 405               hostlen = strlen (host) + 3;
 406               hoststr = xrealloc (hoststr, hostlen);
 407             }
 408           sprintf (hoststr, "(%s)", host);
 409         }
 410
 411       if (host != ut_host)
 412         free (host);
 413     }
 414   else
 415     {
 416       if (hostlen < 1)
 417         {
 418           hostlen = 1;
 419           hoststr = xrealloc (hoststr, hostlen);
 420         }
 421       stpcpy (hoststr, "");
 422     }
 423 #endif
 424
 425   print_line (sizeof UT_USER (utmp_ent), UT_USER (utmp_ent), mesg,
 426               sizeof utmp_ent->ut_line, utmp_ent->ut_line,
 427               time_string (utmp_ent), idlestr, pidstr,
 428               hoststr ? hoststr : "", "");
 429 }
 430
 431 static void
 432 print_boottime (const STRUCT_UTMP *utmp_ent)
 433 {
 434   print_line (-1, "", ' ', -1, "system boot",
 435               time_string (utmp_ent), "", "", "", "");
 436 }
 437
 438 static char *
 439 make_id_equals_comment (STRUCT_UTMP const *utmp_ent)
 440 {
 441   char *comment = xmalloc (strlen (_("id=")) + sizeof UT_ID (utmp_ent) + 1);
 442
 443   strcpy (comment, _("id="));
 444   strncat (comment, UT_ID (utmp_ent), sizeof UT_ID (utmp_ent));
 445   return comment;
 446 }
 447
 448 static void
 449 print_deadprocs (const STRUCT_UTMP *utmp_ent)
 450 {
 451   static char *exitstr;
 452   char *comment = make_id_equals_comment (utmp_ent);
 453   PIDSTR_DECL_AND_INIT (pidstr, utmp_ent);
 454
 455   if (!exitstr)
 456     exitstr = xmalloc (strlen (_("term="))
 457                        + INT_STRLEN_BOUND (UT_EXIT_E_TERMINATION (utmp_ent)) + 1
 458                        + strlen (_("exit="))
 459                        + INT_STRLEN_BOUND (UT_EXIT_E_EXIT (utmp_ent))
 460                        + 1);
 461   sprintf (exitstr, "%s%d %s%d", _("term="), UT_EXIT_E_TERMINATION (utmp_ent),
 462            _("exit="), UT_EXIT_E_EXIT (utmp_ent));
 463
 464   /* FIXME: add idle time? */
 465
 466   print_line (-1, "", ' ', sizeof utmp_ent->ut_line, utmp_ent->ut_line,
 467               time_string (utmp_ent), "", pidstr, comment, exitstr);
 468   free (comment);
 469 }
 470
 471 static void
 472 print_login (const STRUCT_UTMP *utmp_ent)
 473 {
 474   char *comment = make_id_equals_comment (utmp_ent);
 475   PIDSTR_DECL_AND_INIT (pidstr, utmp_ent);
 476
 477   /* FIXME: add idle time? */
 478
 479   print_line (-1, "LOGIN", ' ', sizeof utmp_ent->ut_line, utmp_ent->ut_line,
 480               time_string (utmp_ent), "", pidstr, comment, "");
 481   free (comment);
 482 }
 483
 484 static void
 485 print_initspawn (const STRUCT_UTMP *utmp_ent)
 486 {
 487   char *comment = make_id_equals_comment (utmp_ent);
 488   PIDSTR_DECL_AND_INIT (pidstr, utmp_ent);
 489
 490   print_line (-1, "", ' ', sizeof utmp_ent->ut_line, utmp_ent->ut_line,
 491               time_string (utmp_ent), "", pidstr, comment, "");
 492   free (comment);
 493 }
 494
 495 static void
 496 print_clockchange (const STRUCT_UTMP *utmp_ent)
 497 {
 498   /* FIXME: handle NEW_TIME & OLD_TIME both */
 499   print_line (-1, "", ' ', -1, _("clock change"),
 500               time_string (utmp_ent), "", "", "", "");
 501 }
 502
 503 static void
 504 print_runlevel (const STRUCT_UTMP *utmp_ent)
 505 {
 506   static char *runlevline, *comment;
 507   unsigned char last = UT_PID (utmp_ent) / 256;
 508   unsigned char curr = UT_PID (utmp_ent) % 256;
 509
 510   if (!runlevline)
 511     runlevline = xmalloc (strlen (_("run-level")) + 3);
 512   sprintf (runlevline, "%s %c", _("run-level"), curr);
 513
 514   if (!comment)
 515     comment = xmalloc (strlen (_("last=")) + 2);
 516   sprintf (comment, "%s%c", _("last="), (last == 'N') ? 'S' : last);
 517
 518   print_line (-1, "", ' ', -1, runlevline, time_string (utmp_ent),
 519               "", "", comment, "");
 520
 521   return;
 522 }
 523
 524 /* Print the username of each valid entry and the number of valid entries
 525    in UTMP_BUF, which should have N elements. */
 526 static void
 527 list_entries_who (size_t n, const STRUCT_UTMP *utmp_buf)
 528 {
 529   unsigned long int entries = 0;
 530   char const *separator = "";
 531
 532   while (n--)
 533     {
 534       if (IS_USER_PROCESS (utmp_buf))
 535         {
 536           char *trimmed_name;
 537
 538           trimmed_name = extract_trimmed_name (utmp_buf);
 539
 540           printf ("%s%s", separator, trimmed_name);
 541           free (trimmed_name);
 542           separator = " ";
 543           entries++;
 544         }
 545       utmp_buf++;
 546     }
 547   printf (_("\n# users=%lu\n"), entries);
 548 }
 549
 550 static void
 551 print_heading (void)
 552 {
 553   print_line (-1, _("NAME"), ' ', -1, _("LINE"), _("TIME"), _("IDLE"),
 554               _("PID"), _("COMMENT"), _("EXIT"));
 555 }
 556
 557 /* Display UTMP_BUF, which should have N entries. */
 558 static void
 559 scan_entries (size_t n, const STRUCT_UTMP *utmp_buf)
 560 {
 561   char *ttyname_b IF_LINT ( = NULL);
 562   time_t boottime = TYPE_MINIMUM (time_t);
 563
 564   if (include_heading)
 565     print_heading ();
 566
 567   if (my_line_only)
 568     {
 569       ttyname_b = ttyname (STDIN_FILENO);
 570       if (!ttyname_b)
 571         return;
 572       if (strncmp (ttyname_b, DEV_DIR_WITH_TRAILING_SLASH, DEV_DIR_LEN) == 0)
 573         ttyname_b += DEV_DIR_LEN;       /* Discard /dev/ prefix.  */
 574     }
 575
 576   while (n--)
 577     {
 578       if (!my_line_only ||
 579           strncmp (ttyname_b, utmp_buf->ut_line,
 580                    sizeof (utmp_buf->ut_line)) == 0)
 581         {
 582           if (need_users && IS_USER_PROCESS (utmp_buf))
 583             print_user (utmp_buf, boottime);
 584           else if (need_runlevel && UT_TYPE_RUN_LVL (utmp_buf))
 585             print_runlevel (utmp_buf);
 586           else if (need_boottime && UT_TYPE_BOOT_TIME (utmp_buf))
 587             print_boottime (utmp_buf);
 588           /* I've never seen one of these, so I don't know what it should
 589              look like :^)
 590              FIXME: handle OLD_TIME also, perhaps show the delta? */
 591           else if (need_clockchange && UT_TYPE_NEW_TIME (utmp_buf))
 592             print_clockchange (utmp_buf);
 593           else if (need_initspawn && UT_TYPE_INIT_PROCESS (utmp_buf))
 594             print_initspawn (utmp_buf);
 595           else if (need_login && UT_TYPE_LOGIN_PROCESS (utmp_buf))
 596             print_login (utmp_buf);
 597           else if (need_deadprocs && UT_TYPE_DEAD_PROCESS (utmp_buf))
 598             print_deadprocs (utmp_buf);
 599         }
 600
 601       if (UT_TYPE_BOOT_TIME (utmp_buf))
 602         boottime = UT_TIME_MEMBER (utmp_buf);
 603
 604       utmp_buf++;
 605     }
 606 }
 607
 608 /* Display a list of who is on the system, according to utmp file FILENAME.
 609    Use read_utmp OPTIONS to read the file.  */
 610 static void
 611 who (const char *filename, int options)
 612 {
 613   size_t n_users;
 614   STRUCT_UTMP *utmp_buf;
 615
 616   if (read_utmp (filename, &n_users, &utmp_buf, options) != 0)
 617     error (EXIT_FAILURE, errno, "%s", filename);
 618
 619   if (short_list)
 620     list_entries_who (n_users, utmp_buf);
 621   else
 622     scan_entries (n_users, utmp_buf);
 623
 624   free (utmp_buf);
 625 }
 626
 627 void
 628 usage (int status)
 629 {
 630   if (status != EXIT_SUCCESS)
 631     fprintf (stderr, _("Try `%s --help' for more information.\n"),
 632              program_name);
 633   else
 634     {
 635       printf (_("Usage: %s [OPTION]... [ FILE | ARG1 ARG2 ]\n"), program_name);
 636       fputs (_("\
 637 \n\
 638   -a, --all         same as -b -d --login -p -r -t -T -u\n\
 639   -b, --boot        time of last system boot\n\
 640   -d, --dead        print dead processes\n\
 641   -H, --heading     print line of column headings\n\
 642 "), stdout);
 643       fputs (_("\
 644   -i, --idle        add idle time as HOURS:MINUTES, . or old\n\
 645                     (deprecated, use -u)\n\
 646   -l, --login       print system login processes\n\
 647 "), stdout);
 648       fputs (_("\
 649       --lookup      attempt to canonicalize hostnames via DNS\n\
 650   -m                only hostname and user associated with stdin\n\
 651   -p, --process     print active processes spawned by init\n\
 652 "), stdout);
 653       fputs (_("\
 654   -q, --count       all login names and number of users logged on\n\
 655   -r, --runlevel    print current runlevel\n\
 656   -s, --short       print only name, line, and time (default)\n\
 657   -t, --time        print last system clock change\n\
 658 "), stdout);
 659       fputs (_("\
 660   -T, -w, --mesg    add user's message status as +, - or ?\n\
 661   -u, --users       list users logged in\n\
 662       --message     same as -T\n\
 663       --writable    same as -T\n\
 664 "), stdout);
 665       fputs (HELP_OPTION_DESCRIPTION, stdout);
 666       fputs (VERSION_OPTION_DESCRIPTION, stdout);
 667       printf (_("\
 668 \n\
 669 If FILE is not specified, use %s.  %s as FILE is common.\n\
 670 If ARG1 ARG2 given, -m presumed: `am i' or `mom likes' are usual.\n\
 671 "), UTMP_FILE, WTMP_FILE);
 672       printf (_("\nReport bugs to <%s>.\n"), PACKAGE_BUGREPORT);
 673     }
 674   exit (status);
 675 }
 676
 677 int
 678 main (int argc, char **argv)
 679 {
 680   int optc;
 681   bool assumptions = true;
 682
 683   initialize_main (&argc, &argv);
 684   program_name = argv[0];
 685   setlocale (LC_ALL, "");
 686   bindtextdomain (PACKAGE, LOCALEDIR);
 687   textdomain (PACKAGE);
 688
 689   atexit (close_stdout);
 690
 691   while ((optc = getopt_long (argc, argv, "abdilmpqrstuwHT", longopts, NULL))
 692          != -1)
 693     {
 694       switch (optc)
 695         {
 696         case 'a':
 697           need_boottime = true;
 698           need_deadprocs = true;
 699           need_login = true;
 700           need_initspawn = true;
 701           need_runlevel = true;
 702           need_clockchange = true;
 703           need_users = true;
 704           include_mesg = true;
 705           include_idle = true;
 706           include_exit = true;
 707           assumptions = false;
 708           break;
 709
 710         case 'b':
 711           need_boottime = true;
 712           assumptions = false;
 713           break;
 714
 715         case 'd':
 716           need_deadprocs = true;
 717           include_idle = true;
 718           include_exit = true;
 719           assumptions = false;
 720           break;
 721
 722         case 'H':
 723           include_heading = true;
 724           break;
 725
 726         case 'l':
 727           need_login = true;
 728           include_idle = true;
 729           assumptions = false;
 730           break;
 731
 732         case 'm':
 733           my_line_only = true;
 734           break;
 735
 736         case 'p':
 737           need_initspawn = true;
 738           assumptions = false;
 739           break;
 740
 741         case 'q':
 742           short_list = true;
 743           break;
 744
 745         case 'r':
 746           need_runlevel = true;
 747           include_idle = true;
 748           assumptions = false;
 749           break;
 750
 751         case 's':
 752           short_output = true;
 753           break;
 754
 755         case 't':
 756           need_clockchange = true;
 757           assumptions = false;
 758           break;
 759
 760         case 'T':
 761         case 'w':
 762           include_mesg = true;
 763           break;
 764
 765         case 'i':
 766           error (0, 0,
 767                  _("Warning: -i will be removed in a future release; \
 768   use -u instead"));
 769           /* Fall through.  */
 770         case 'u':
 771           need_users = true;
 772           include_idle = true;
 773           assumptions = false;
 774           break;
 775
 776         case LOOKUP_OPTION:
 777           do_lookup = true;
 778           break;
 779
 780           case_GETOPT_HELP_CHAR;
 781
 782           case_GETOPT_VERSION_CHAR (PROGRAM_NAME, AUTHORS);
 783
 784         default:
 785           usage (EXIT_FAILURE);
 786         }
 787     }
 788
 789   if (assumptions)
 790     {
 791       need_users = true;
 792       short_output = true;
 793     }
 794
 795   if (include_exit)
 796     {
 797       short_output = false;
 798     }
 799
 800   if (hard_locale (LC_TIME))
 801     {
 802       time_format = "%Y-%m-%d %H:%M";
 803       time_format_width = 4 + 1 + 2 + 1 + 2 + 1 + 2 + 1 + 2;
 804     }
 805   else
 806     {
 807       time_format = "%b %e %H:%M";
 808       time_format_width = 3 + 1 + 2 + 1 + 2 + 1 + 2;
 809     }
 810
 811   switch (argc - optind)
 812     {
 813     case 2:                     /* who <blurf> <glop> */
 814       my_line_only = true;
 815       /* Fall through.  */
 816     case -1:
 817     case 0:                     /* who */
 818       who (UTMP_FILE, READ_UTMP_CHECK_PIDS);
 819       break;
 820
 821     case 1:                     /* who <utmp file> */
 822       who (argv[optind], 0);
 823       break;
 824
 825     default:                    /* lose */
 826       error (0, 0, _("extra operand %s"), quote (argv[optind + 2]));
 827       usage (EXIT_FAILURE);
 828     }
 829
 830   exit (EXIT_SUCCESS);
 831 }