1 /* 2 * Copyright (c) 1989, 1993 3 * The Regents of the University of California. All rights reserved. 4 * 5 * This code is derived from software contributed to Berkeley by 6 * Tony Nardo of the Johns Hopkins University/Applied Physics Lab. 7 * 8 * Redistribution and use in source and binary forms, with or without 9 * modification, are permitted provided that the following conditions 10 * are met: 11 * 1. Redistributions of source code must retain the above copyright 12 * notice, this list of conditions and the following disclaimer. 13 * 2. Redistributions in binary form must reproduce the above copyright 14 * notice, this list of conditions and the following disclaimer in the 15 * documentation and/or other materials provided with the distribution. 16 * 3. All advertising materials mentioning features or use of this software 17 * must display the following acknowledgement: 18 * This product includes software developed by the University of 19 * California, Berkeley and its contributors. 20 * 4. Neither the name of the University nor the names of its contributors 21 * may be used to endorse or promote products derived from this software 22 * without specific prior written permission. 23 * 24 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 25 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 26 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 27 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 28 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 29 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 30 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 31 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 32 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 33 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 34 * SUCH DAMAGE. 35 */ 36 37 #include <sys/cdefs.h> 38 39 __FBSDID("$FreeBSD$"); 40 41 #ifndef lint 42 static const char sccsid[] = "@(#)util.c 8.3 (Berkeley) 4/28/95"; 43 #endif 44 45 #include <sys/param.h> 46 #include <sys/stat.h> 47 #include <ctype.h> 48 #include <db.h> 49 #include <err.h> 50 #include <errno.h> 51 #include <fcntl.h> 52 #include <paths.h> 53 #include <pwd.h> 54 #include <stdio.h> 55 #include <stdlib.h> 56 #include <string.h> 57 #include <unistd.h> 58 #include <utmp.h> 59 #include "finger.h" 60 #include "pathnames.h" 61 62 static void find_idle_and_ttywrite __P((WHERE *)); 63 static void userinfo __P((PERSON *, struct passwd *)); 64 static WHERE *walloc __P((PERSON *)); 65 66 int 67 match(pw, user) 68 struct passwd *pw; 69 char *user; 70 { 71 char *p, *t; 72 char name[1024]; 73 74 if (!strcasecmp(pw->pw_name, user)) 75 return(1); 76 77 /* 78 * XXX 79 * Why do we skip asterisks!?!? 80 */ 81 (void)strncpy(p = tbuf, pw->pw_gecos, sizeof(tbuf)); 82 tbuf[sizeof(tbuf) - 1] = '\0'; 83 if (*p == '*') 84 ++p; 85 86 /* Ampersands get replaced by the login name. */ 87 if ((p = strtok(p, ",")) == NULL) 88 return(0); 89 90 for (t = name; t < &name[sizeof(name) - 1] && (*t = *p) != '\0'; ++p) { 91 if (*t == '&') { 92 (void)strncpy(t, pw->pw_name, 93 sizeof(name) - (t - name)); 94 name[sizeof(name) - 1] = '\0'; 95 while (t < &name[sizeof(name) - 1] && *++t) 96 continue; 97 } else { 98 ++t; 99 } 100 } 101 *t = '\0'; 102 for (t = name; (p = strtok(t, "\t ")) != NULL; t = NULL) 103 if (!strcasecmp(p, user)) 104 return(1); 105 return(0); 106 } 107 108 void 109 enter_lastlog(pn) 110 PERSON *pn; 111 { 112 WHERE *w; 113 static int opened, fd; 114 struct lastlog ll; 115 char doit = 0; 116 117 /* some systems may not maintain lastlog, don't report errors. */ 118 if (!opened) { 119 fd = open(_PATH_LASTLOG, O_RDONLY, 0); 120 opened = 1; 121 } 122 if (fd == -1 || 123 lseek(fd, (long)pn->uid * sizeof(ll), SEEK_SET) != 124 (long)pn->uid * sizeof(ll) || 125 read(fd, (char *)&ll, sizeof(ll)) != sizeof(ll)) { 126 /* as if never logged in */ 127 ll.ll_line[0] = ll.ll_host[0] = '\0'; 128 ll.ll_time = 0; 129 } 130 if ((w = pn->whead) == NULL) 131 doit = 1; 132 else if (ll.ll_time != 0) { 133 /* if last login is earlier than some current login */ 134 for (; !doit && w != NULL; w = w->next) 135 if (w->info == LOGGEDIN && w->loginat < ll.ll_time) 136 doit = 1; 137 /* 138 * and if it's not any of the current logins 139 * can't use time comparison because there may be a small 140 * discrepancy since login calls time() twice 141 */ 142 for (w = pn->whead; doit && w != NULL; w = w->next) 143 if (w->info == LOGGEDIN && 144 strncmp(w->tty, ll.ll_line, UT_LINESIZE) == 0) 145 doit = 0; 146 } 147 if (doit) { 148 w = walloc(pn); 149 w->info = LASTLOG; 150 bcopy(ll.ll_line, w->tty, UT_LINESIZE); 151 w->tty[UT_LINESIZE] = 0; 152 bcopy(ll.ll_host, w->host, UT_HOSTSIZE); 153 w->host[UT_HOSTSIZE] = 0; 154 w->loginat = ll.ll_time; 155 } 156 } 157 158 void 159 enter_where(ut, pn) 160 struct utmp *ut; 161 PERSON *pn; 162 { 163 WHERE *w; 164 165 w = walloc(pn); 166 w->info = LOGGEDIN; 167 bcopy(ut->ut_line, w->tty, UT_LINESIZE); 168 w->tty[UT_LINESIZE] = 0; 169 bcopy(ut->ut_host, w->host, UT_HOSTSIZE); 170 w->host[UT_HOSTSIZE] = 0; 171 w->loginat = (time_t)ut->ut_time; 172 find_idle_and_ttywrite(w); 173 } 174 175 PERSON * 176 enter_person(pw) 177 struct passwd *pw; 178 { 179 DBT data, key; 180 PERSON *pn; 181 182 if (db == NULL && 183 (db = dbopen(NULL, O_RDWR, 0, DB_BTREE, NULL)) == NULL) 184 err(1, NULL); 185 186 key.data = pw->pw_name; 187 key.size = strlen(pw->pw_name); 188 189 switch ((*db->get)(db, &key, &data, 0)) { 190 case 0: 191 memmove(&pn, data.data, sizeof pn); 192 return (pn); 193 default: 194 case -1: 195 err(1, "db get"); 196 /* NOTREACHED */ 197 case 1: 198 ++entries; 199 pn = palloc(); 200 userinfo(pn, pw); 201 pn->whead = NULL; 202 203 data.size = sizeof(PERSON *); 204 data.data = &pn; 205 if ((*db->put)(db, &key, &data, 0)) 206 err(1, "db put"); 207 return (pn); 208 } 209 } 210 211 PERSON * 212 find_person(name) 213 char *name; 214 { 215 struct passwd *pw; 216 217 int cnt; 218 DBT data, key; 219 PERSON *p; 220 char buf[UT_NAMESIZE + 1]; 221 222 if (!db) 223 return(NULL); 224 225 if ((pw = getpwnam(name)) && hide(pw)) 226 return(NULL); 227 228 /* Name may be only UT_NAMESIZE long and not NUL terminated. */ 229 for (cnt = 0; cnt < UT_NAMESIZE && *name; ++name, ++cnt) 230 buf[cnt] = *name; 231 buf[cnt] = '\0'; 232 key.data = buf; 233 key.size = cnt; 234 235 if ((*db->get)(db, &key, &data, 0)) 236 return (NULL); 237 memmove(&p, data.data, sizeof p); 238 return (p); 239 } 240 241 PERSON * 242 palloc() 243 { 244 PERSON *p; 245 246 if ((p = malloc((u_int) sizeof(PERSON))) == NULL) 247 err(1, NULL); 248 return(p); 249 } 250 251 static WHERE * 252 walloc(pn) 253 PERSON *pn; 254 { 255 WHERE *w; 256 257 if ((w = malloc((u_int) sizeof(WHERE))) == NULL) 258 err(1, NULL); 259 if (pn->whead == NULL) 260 pn->whead = pn->wtail = w; 261 else { 262 pn->wtail->next = w; 263 pn->wtail = w; 264 } 265 w->next = NULL; 266 return(w); 267 } 268 269 char * 270 prphone(num) 271 char *num; 272 { 273 char *p; 274 int len; 275 static char pbuf[20]; 276 277 /* don't touch anything if the user has their own formatting */ 278 for (p = num; *p; ++p) 279 if (!isdigit(*p)) 280 return(num); 281 len = p - num; 282 p = pbuf; 283 switch(len) { 284 case 11: /* +0-123-456-7890 */ 285 *p++ = '+'; 286 *p++ = *num++; 287 *p++ = '-'; 288 /* FALLTHROUGH */ 289 case 10: /* 012-345-6789 */ 290 *p++ = *num++; 291 *p++ = *num++; 292 *p++ = *num++; 293 *p++ = '-'; 294 /* FALLTHROUGH */ 295 case 7: /* 012-3456 */ 296 *p++ = *num++; 297 *p++ = *num++; 298 *p++ = *num++; 299 break; 300 case 5: /* x0-1234 */ 301 case 4: /* x1234 */ 302 *p++ = 'x'; 303 *p++ = *num++; 304 break; 305 default: 306 return(num); 307 } 308 if (len != 4) { 309 *p++ = '-'; 310 *p++ = *num++; 311 } 312 *p++ = *num++; 313 *p++ = *num++; 314 *p++ = *num++; 315 *p = '\0'; 316 return(pbuf); 317 } 318 319 static void 320 find_idle_and_ttywrite(w) 321 WHERE *w; 322 { 323 extern time_t now; 324 struct stat sb; 325 time_t touched; 326 327 (void)snprintf(tbuf, sizeof(tbuf), "%s/%s", _PATH_DEV, w->tty); 328 if (stat(tbuf, &sb) < 0) { 329 warn("%s", tbuf); 330 return; 331 } 332 touched = sb.st_atime; 333 if (touched < w->loginat) { 334 /* tty untouched since before login */ 335 touched = w->loginat; 336 } 337 w->idletime = now < touched ? 0 : now - touched; 338 339 #define TALKABLE 0220 /* tty is writable if 220 mode */ 340 w->writable = ((sb.st_mode & TALKABLE) == TALKABLE); 341 } 342 343 static void 344 userinfo(pn, pw) 345 PERSON *pn; 346 struct passwd *pw; 347 { 348 char *p, *t; 349 char *bp, name[1024]; 350 struct stat sb; 351 352 pn->realname = pn->office = pn->officephone = pn->homephone = NULL; 353 354 pn->uid = pw->pw_uid; 355 if ((pn->name = strdup(pw->pw_name)) == NULL) 356 err(1, "strdup failed"); 357 if ((pn->dir = strdup(pw->pw_dir)) == NULL) 358 err(1, "strdup failed"); 359 if ((pn->shell = strdup(pw->pw_shell)) == NULL) 360 err(1, "strdup failed"); 361 362 /* why do we skip asterisks!?!? */ 363 (void)strncpy(bp = tbuf, pw->pw_gecos, sizeof(tbuf)); 364 tbuf[sizeof(tbuf) - 1] = '\0'; 365 if (*bp == '*') 366 ++bp; 367 368 /* ampersands get replaced by the login name */ 369 if (!(p = strsep(&bp, ","))) 370 return; 371 for (t = name; t < &name[sizeof(name) - 1] && (*t = *p) != '\0'; ++p) { 372 if (*t == '&') { 373 (void)strncpy(t, pw->pw_name, 374 sizeof(name) - (t - name)); 375 name[sizeof(name) - 1] = '\0'; 376 if (islower(*t)) 377 *t = toupper(*t); 378 while (t < &name[sizeof(name) - 1] && *++t) 379 continue; 380 } else { 381 ++t; 382 } 383 } 384 *t = '\0'; 385 if ((pn->realname = strdup(name)) == NULL) 386 err(1, "strdup failed"); 387 pn->office = ((p = strsep(&bp, ",")) && *p) ? 388 strdup(p) : NULL; 389 pn->officephone = ((p = strsep(&bp, ",")) && *p) ? 390 strdup(p) : NULL; 391 pn->homephone = ((p = strsep(&bp, ",")) && *p) ? 392 strdup(p) : NULL; 393 (void)snprintf(tbuf, sizeof(tbuf), "%s/%s", _PATH_MAILDIR, pw->pw_name); 394 pn->mailrecv = -1; /* -1 == not_valid */ 395 if (stat(tbuf, &sb) < 0) { 396 if (errno != ENOENT) { 397 warn("%s", tbuf); 398 return; 399 } 400 } else if (sb.st_size != 0) { 401 pn->mailrecv = sb.st_mtime; 402 pn->mailread = sb.st_atime; 403 } 404 } 405 406 /* 407 * Is this user hiding from finger? 408 * If ~<user>/.nofinger exists, return 1 (hide), else return 0 (nohide). 409 */ 410 411 int 412 hide(pw) 413 struct passwd *pw; 414 { 415 struct stat st; 416 char buf[MAXPATHLEN]; 417 418 if (!pw->pw_dir) 419 return 0; 420 421 snprintf(buf, sizeof(buf), "%s/%s", pw->pw_dir, _PATH_NOFINGER); 422 423 if (stat(buf, &st) == 0) 424 return 1; 425 426 return 0; 427 } 428