1/* $NetBSD: lprint.c,v 1.22 2009/04/12 06:18:54 lukem Exp $ */ 2 3/* 4 * Copyright (c) 1989, 1993 5 * The Regents of the University of California. All rights reserved. 6 * 7 * This code is derived from software contributed to Berkeley by 8 * Tony Nardo of the Johns Hopkins University/Applied Physics Lab. 9 * 10 * Redistribution and use in source and binary forms, with or without 11 * modification, are permitted provided that the following conditions 12 * are met: 13 * 1. Redistributions of source code must retain the above copyright 14 * notice, this list of conditions and the following disclaimer. 15 * 2. Redistributions in binary form must reproduce the above copyright 16 * notice, this list of conditions and the following disclaimer in the 17 * documentation and/or other materials provided with the distribution. 18 * 3. Neither the name of the University nor the names of its contributors 19 * may be used to endorse or promote products derived from this software 20 * without specific prior written permission. 21 * 22 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 23 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 24 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 25 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 26 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 27 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 28 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 29 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 30 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 31 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 32 * SUCH DAMAGE. 33 */ 34 35#include <sys/cdefs.h> 36#ifndef lint 37#if 0 38static char sccsid[] = "@(#)lprint.c 8.3 (Berkeley) 4/28/95"; 39#else 40__RCSID( "$NetBSD: lprint.c,v 1.22 2009/04/12 06:18:54 lukem Exp $"); 41#endif 42#endif /* not lint */ 43 44#include <sys/types.h> 45#include <sys/stat.h> 46#include <sys/time.h> 47#include <fcntl.h> 48#include <tzfile.h> 49#include <db.h> 50#include <err.h> 51#include <pwd.h> 52#include <errno.h> 53#include <unistd.h> 54#include <stdio.h> 55#include <string.h> 56#include <time.h> 57#include <ctype.h> 58#include <paths.h> 59#include <vis.h> 60 61#include "utmpentry.h" 62#include "finger.h" 63#include "extern.h" 64 65#define LINE_LEN 80 66#define TAB_LEN 8 /* 8 spaces between tabs */ 67#define _PATH_FORWARD ".forward" 68#define _PATH_PLAN ".plan" 69#define _PATH_PROJECT ".project" 70 71static int demi_print(const char *, int); 72static void lprint(PERSON *); 73static int show_text(const char *, const char *, const char *); 74static void vputc(int); 75 76#ifdef __SVR4 77#define TIMEZONE(a) tzname[0] 78#else 79#define TIMEZONE(a) (a)->tm_zone 80#endif 81 82void 83lflag_print(void) 84{ 85 PERSON *pn; 86 int sflag, r; 87 PERSON *tmp; 88 DBT data, key; 89 90 if (db == NULL) 91 return; 92 93 for (sflag = R_FIRST;; sflag = R_NEXT) { 94 r = (*db->seq)(db, &key, &data, sflag); 95 if (r == -1) 96 err(1, "db seq"); 97 if (r == 1) 98 break; 99 memmove(&tmp, data.data, sizeof tmp); 100 pn = tmp; 101 if (sflag != R_FIRST) 102 putchar('\n'); 103 lprint(pn); 104 if (!pplan) { 105 (void)show_text(pn->dir, 106 _PATH_FORWARD, "Mail forwarded to"); 107 (void)show_text(pn->dir, _PATH_PROJECT, "Project"); 108 if (!show_text(pn->dir, _PATH_PLAN, "Plan")) 109 (void)printf("No Plan.\n"); 110 } 111 } 112} 113 114static size_t 115visify(char *buf, size_t blen, const char *str) 116{ 117 int len = strnvisx(buf, blen, str, strlen(str), VIS_WHITE|VIS_CSTYLE); 118 if (len == -1) { 119 buf[0] = '\0'; 120 return 0; 121 } 122 return len; 123} 124 125static void 126fmt_time(char *buf, size_t blen, time_t ti, time_t n) 127{ 128 struct tm *tp = localtime(&ti); 129 if (tp != NULL) { 130 char *t = asctime(tp); 131 char *tzn = TIMEZONE(tp); 132 if (n == (time_t)-1 || 133 n - ti > SECSPERDAY * DAYSPERNYEAR / 2) 134 snprintf(buf, blen, "%.16s %.4s (%s)", t, t + 20, tzn); 135 else 136 snprintf(buf, blen, "%.16s (%s)", t, tzn); 137 } else 138 snprintf(buf, blen, "[*bad time 0x%llx*]", (long long)ti); 139} 140 141/* 142 * idle time is tough; if have one, print a comma, 143 * then spaces to pad out the device name, then the 144 * idle time. Follow with a comma if a remote login. 145 */ 146static int 147print_idle(time_t t, int maxlen, size_t hostlen, size_t ttylen) { 148 149 int cpr; 150 struct tm *delta = gmtime(&t); 151 152 if (delta == NULL) 153 return printf("Bad idle 0x%llx", (long long)t); 154 155 if (delta->tm_yday == 0 && delta->tm_hour == 0 && delta->tm_min == 0) 156 return 0; 157 158 cpr = printf("%-*s idle ", (int)(maxlen - ttylen + 1), ","); 159 if (delta->tm_yday > 0) { 160 cpr += printf("%d day%s ", delta->tm_yday, 161 delta->tm_yday == 1 ? "" : "s"); 162 } 163 cpr += printf("%d:%02d", delta->tm_hour, delta->tm_min); 164 if (hostlen) { 165 putchar(','); 166 ++cpr; 167 } 168 return cpr; 169} 170 171static void 172lprint(PERSON *pn) 173{ 174 WHERE *w; 175 int cpr, len, maxlen; 176 int oddfield; 177 char timebuf[128], ttybuf[64], hostbuf[512]; 178 size_t ttylen, hostlen; 179 180 cpr = 0; 181 /* 182 * long format -- 183 * login name 184 * real name 185 * home directory 186 * shell 187 * office, office phone, home phone if available 188 * mail status 189 */ 190 (void)printf("Login: %-15s\t\t\tName: %s\nDirectory: %-25s", 191 pn->name, pn->realname, pn->dir); 192 (void)printf("\tShell: %-s\n", *pn->shell ? pn->shell : _PATH_BSHELL); 193 194 if (gflag) 195 goto no_gecos; 196 /* 197 * try and print office, office phone, and home phone on one line; 198 * if that fails, do line filling so it looks nice. 199 */ 200#define OFFICE_TAG "Office" 201#define OFFICE_PHONE_TAG "Office Phone" 202 oddfield = 0; 203 if (pn->office && pn->officephone && 204 strlen(pn->office) + strlen(pn->officephone) + 205 sizeof(OFFICE_TAG) + 2 <= 5 * TAB_LEN) { 206 (void)snprintf(timebuf, sizeof(timebuf), "%s: %s, %s", 207 OFFICE_TAG, pn->office, prphone(pn->officephone)); 208 oddfield = demi_print(timebuf, oddfield); 209 } else { 210 if (pn->office) { 211 (void)snprintf(timebuf, sizeof(timebuf), "%s: %s", 212 OFFICE_TAG, pn->office); 213 oddfield = demi_print(timebuf, oddfield); 214 } 215 if (pn->officephone) { 216 (void)snprintf(timebuf, sizeof(timebuf), "%s: %s", 217 OFFICE_PHONE_TAG, prphone(pn->officephone)); 218 oddfield = demi_print(timebuf, oddfield); 219 } 220 } 221 if (pn->homephone) { 222 (void)snprintf(timebuf, sizeof(timebuf), "%s: %s", "Home Phone", 223 prphone(pn->homephone)); 224 oddfield = demi_print(timebuf, oddfield); 225 } 226 if (oddfield) 227 putchar('\n'); 228 229no_gecos: 230 /* 231 * long format con't: 232 * if logged in 233 * terminal 234 * idle time 235 * if messages allowed 236 * where logged in from 237 * if not logged in 238 * when last logged in 239 */ 240 /* find out longest device name for this user for formatting */ 241 for (w = pn->whead, maxlen = -1; w != NULL; w = w->next) { 242 visify(ttybuf, sizeof(ttybuf), w->tty); 243 if ((len = strlen(ttybuf)) > maxlen) 244 maxlen = len; 245 } 246 /* find rest of entries for user */ 247 for (w = pn->whead; w != NULL; w = w->next) { 248 ttylen = visify(ttybuf, sizeof(ttybuf), w->tty); 249 hostlen = visify(hostbuf, sizeof(hostbuf), w->host); 250 switch (w->info) { 251 case LOGGEDIN: 252 fmt_time(timebuf, sizeof(timebuf), w->loginat, -1); 253 cpr = printf("On since %s on %s", timebuf, ttybuf); 254 255 cpr += print_idle(w->idletime, maxlen, hostlen, 256 ttylen); 257 258 if (!w->writable) 259 cpr += printf(" (messages off)"); 260 break; 261 case LASTLOG: 262 if (w->loginat == 0) { 263 (void)printf("Never logged in."); 264 break; 265 } 266 fmt_time(timebuf, sizeof(timebuf), w->loginat, now); 267 cpr = printf("Last login %s on %s", timebuf, ttybuf); 268 break; 269 } 270 if (hostlen) { 271 if (LINE_LEN < (cpr + 6 + hostlen)) 272 (void)printf("\n "); 273 (void)printf(" from %s", hostbuf); 274 } 275 putchar('\n'); 276 } 277 if (pn->mailrecv == -1) 278 printf("No Mail.\n"); 279 else if (pn->mailrecv > pn->mailread) { 280 fmt_time(timebuf, sizeof(timebuf), pn->mailrecv, -1); 281 printf("New mail received %s\n", timebuf); 282 fmt_time(timebuf, sizeof(timebuf), pn->mailread, -1); 283 printf(" Unread since %s\n", timebuf); 284 } else { 285 fmt_time(timebuf, sizeof(timebuf), pn->mailread, -1); 286 printf("Mail last read %s\n", timebuf); 287 } 288} 289 290static int 291demi_print(const char *str, int oddfield) 292{ 293 static int lenlast; 294 int lenthis, maxlen; 295 296 lenthis = strlen(str); 297 if (oddfield) { 298 /* 299 * We left off on an odd number of fields. If we haven't 300 * crossed the midpoint of the screen, and we have room for 301 * the next field, print it on the same line; otherwise, 302 * print it on a new line. 303 * 304 * Note: we insist on having the right hand fields start 305 * no less than 5 tabs out. 306 */ 307 maxlen = 5 * TAB_LEN; 308 if (maxlen < lenlast) 309 maxlen = lenlast; 310 if (((((maxlen / TAB_LEN) + 1) * TAB_LEN) + 311 lenthis) <= LINE_LEN) { 312 while(lenlast < (4 * TAB_LEN)) { 313 putchar('\t'); 314 lenlast += TAB_LEN; 315 } 316 (void)printf("\t%s\n", str); /* force one tab */ 317 } else { 318 (void)printf("\n%s", str); /* go to next line */ 319 oddfield = !oddfield; /* this'll be undone below */ 320 } 321 } else 322 (void)printf("%s", str); 323 oddfield = !oddfield; /* toggle odd/even marker */ 324 lenlast = lenthis; 325 return(oddfield); 326} 327 328static int 329show_text(const char *directory, const char *file_name, const char *header) 330{ 331 struct stat sb; 332 FILE *fp; 333 int ch, cnt, lastc; 334 char *p; 335 int fd, nr; 336 337 lastc = 0; 338 (void)snprintf(tbuf, sizeof(tbuf), "%s/%s", directory, file_name); 339 if ((fd = open(tbuf, O_RDONLY)) < 0 || fstat(fd, &sb) || 340 sb.st_size == 0) 341 return(0); 342 343 /* If short enough, and no newlines, show it on a single line.*/ 344 if (sb.st_size <= (off_t)(LINE_LEN - strlen(header) - 5)) { 345 nr = read(fd, tbuf, sizeof(tbuf)); 346 if (nr <= 0) { 347 (void)close(fd); 348 return(0); 349 } 350 for (p = tbuf, cnt = nr; cnt--; ++p) 351 if (*p == '\n') 352 break; 353 if (cnt <= 1) { 354 (void)printf("%s: ", header); 355 for (p = tbuf, cnt = nr; cnt--; ++p) 356 vputc(lastc = (unsigned char)*p); 357 if (lastc != '\n') 358 (void)putchar('\n'); 359 (void)close(fd); 360 return(1); 361 } 362 else 363 (void)lseek(fd, 0L, SEEK_SET); 364 } 365 if ((fp = fdopen(fd, "r")) == NULL) 366 return(0); 367 (void)printf("%s:\n", header); 368 while ((ch = getc(fp)) != EOF) 369 vputc(lastc = ch); 370 if (lastc != '\n') 371 (void)putchar('\n'); 372 (void)fclose(fp); 373 return(1); 374} 375 376static void 377vputc(int ch) 378{ 379 char visout[5], *s2; 380 381 if (eightflag || isprint(ch) || isspace(ch)) { 382 (void)putchar(ch); 383 return; 384 } 385 ch = toascii(ch); 386 vis(visout, ch, VIS_SAFE|VIS_NOSLASH, 0); 387 for (s2 = visout; *s2; s2++) 388 (void)putchar(*s2); 389} 390