RCS_ID_C = "$Id: lprint.c,v 6.2 93/10/15 03:00:11 ppessi Exp $"; /* * lprint.c - print finger information in long format * * Copyright © 1993 AmiTCP/IP Group, * Helsinki University of Technology, Finland. * * This program is derived from original work distributed in BSD Net 2. * * Created : Fri Oct 15 01:29:07 1993 ppessi * Last modified: Fri Oct 15 01:32:34 1993 ppessi * * $Log: lprint.c,v $ * Revision 6.2 93/10/15 03:00:11 ppessi * Polished AmiTCP support * */ /* Copyright (c) 1989 The Regents of the University of California. * All rights reserved. * * This code is derived from software contributed to Berkeley by * Tony Nardo of the Johns Hopkins University/Applied Physics Lab. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by the University of * California, Berkeley and its contributors. * 4. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #if AMIGA #include #else #include #endif #include #include #include #include #include #include #include #if !AMIGA #include #endif #include "finger.h" #define LINE_LEN 80 #define TAB_LEN 8 /* 8 spaces between tabs */ #define _PATH_PLAN ".plan" #define _PATH_PROJECT ".project" #if AMIGA #define _PATH_BSHELL "CLI" #endif void lprint(register PERSON *pn); int show_text(char *directory, char *file_name, char *header); int demi_print(char *str, int oddfield); void vputc(register int ch); void lflag_print(void) { extern int pplan; register PERSON *pn; for (pn = phead;;) { lprint(pn); if (!pplan) { (void)show_text(pn->dir, _PATH_PROJECT, "Project:"); if (!show_text(pn->dir, _PATH_PLAN, "Plan:")) (void)printf("No Plan.\n"); } if (!(pn = pn->next)) break; putchar('\n'); } } void lprint(register PERSON *pn) { extern time_t now; register struct tm *delta; register WHERE *w; register int cpr, len, maxlen; struct tm *tp; int oddfield; time_t time(); char *t, *tzn, *prphone(); /* * long format -- * login name * real name * home directory * shell * office, office phone, home phone if available */ (void)printf("Login: %-15s\t\t\tName: %s\nDirectory: %-25s", pn->name, pn->realname, pn->dir); (void)printf("\tShell: %-s\n", *pn->shell ? pn->shell : _PATH_BSHELL); /* * try and print office, office phone, and home phone on one line; * if that fails, do line filling so it looks nice. */ #define OFFICE_TAG "Office" #define OFFICE_PHONE_TAG "Office Phone" oddfield = 0; if (pn->office && pn->officephone && strlen(pn->office) + strlen(pn->officephone) + sizeof(OFFICE_TAG) + 2 <= 5 * TAB_LEN) { (void)sprintf(tbuf, "%s: %s, %s", OFFICE_TAG, pn->office, prphone(pn->officephone)); oddfield = demi_print(tbuf, oddfield); } else { if (pn->office) { (void)sprintf(tbuf, "%s: %s", OFFICE_TAG, pn->office); oddfield = demi_print(tbuf, oddfield); } if (pn->officephone) { (void)sprintf(tbuf, "%s: %s", OFFICE_PHONE_TAG, prphone(pn->officephone)); oddfield = demi_print(tbuf, oddfield); } } if (pn->homephone) { (void)sprintf(tbuf, "%s: %s", "Home Phone", prphone(pn->homephone)); oddfield = demi_print(tbuf, oddfield); } if (oddfield) putchar('\n'); /* * long format con't: * if logged in * terminal * idle time * if messages allowed * where logged in from * if not logged in * when last logged in */ /* find out longest device name for this user for formatting */ for (w = pn->whead, maxlen = -1; w != NULL; w = w->next) if ((len = strlen(w->tty)) > maxlen) maxlen = len; /* find rest of entries for user */ for (w = pn->whead; w != NULL; w = w->next) { switch (w->info) { case LOGGEDIN: tp = localtime(&w->loginat); t = asctime(tp); #if HAVE_TZONE tzn = tp->tm_zone; #else tzn = getenv("TZ"); if (!tzn) tzn = "Local"; #endif cpr = printf("On since %.16s (%s) on %s", t, tzn, w->tty); /* * idle time is tough; if have one, print a comma, * then spaces to pad out the device name, then the * idle time. Follow with a comma if a remote login. */ delta = gmtime(&w->idletime); if (delta->tm_yday || delta->tm_hour || delta->tm_min) { cpr += printf("%-*s idle ", maxlen - strlen(w->tty) + 1, ","); if (delta->tm_yday > 0) { cpr += printf("%d day%s ", delta->tm_yday, delta->tm_yday == 1 ? "" : "s"); } cpr += printf("%d:%02d", delta->tm_hour, delta->tm_min); if (*w->host) { putchar(','); ++cpr; } } if (!w->writable) cpr += printf(" (messages off)"); break; case LASTLOG: if (w->loginat == 0) { (void)printf("Never logged in."); break; } tp = localtime(&w->loginat); t = asctime(tp); #if HAVE_TZONE tzn = tp->tm_zone; #else tzn = getenv("TZ"); if (!tzn) tzn = "Local"; #endif if (now - w->loginat > SECSPERDAY * DAYSPERNYEAR / 2) cpr = printf("Last login %.16s %.4s (%s) on %s", t, t + 20, tzn, w->tty); else cpr = printf("Last login %.16s (%s) on %s", t, tzn, w->tty); break; } if (*w->host) { if (LINE_LEN < (cpr + 6 + strlen(w->host))) (void)printf("\n "); (void)printf(" from %s", w->host); } putchar('\n'); } } int demi_print(char *str, int oddfield) { static int lenlast; int lenthis, maxlen; lenthis = strlen(str); if (oddfield) { /* * We left off on an odd number of fields. If we haven't * crossed the midpoint of the screen, and we have room for * the next field, print it on the same line; otherwise, * print it on a new line. * * Note: we insist on having the right hand fields start * no less than 5 tabs out. */ maxlen = 5 * TAB_LEN; if (maxlen < lenlast) maxlen = lenlast; if (((((maxlen / TAB_LEN) + 1) * TAB_LEN) + lenthis) <= LINE_LEN) { while(lenlast < (4 * TAB_LEN)) { putchar('\t'); lenlast += TAB_LEN; } (void)printf("\t%s\n", str); /* force one tab */ } else { (void)printf("\n%s", str); /* go to next line */ oddfield = !oddfield; /* this'll be undone below */ } } else (void)printf("%s", str); oddfield = !oddfield; /* toggle odd/even marker */ lenlast = lenthis; return(oddfield); } int show_text(char *directory, char *file_name, char *header) { register int ch, lastc; register FILE *fp; #if AMIGA { char *dp = tbuf; while (*dp = *directory++) dp++; if (dp[-1] != '/' && dp[-1] != ':') *dp++ = '/'; while (*dp++ = *file_name++) ; } #else (void)sprintf(tbuf, "%s/%s", directory, file_name); #endif if ((fp = fopen(tbuf, "r")) == NULL) return(0); (void)printf("%s\n", header); while ((ch = getc(fp)) != EOF) vputc(lastc = ch); if (lastc != '\n') (void)putchar('\n'); (void)fclose(fp); return(1); } void vputc(register int ch) { #if !AMIGA int meta; if (!isascii(ch)) { (void)putchar('M'); (void)putchar('-'); ch = toascii(ch); meta = 1; } else meta = 0; if (isprint(ch) || !meta && (ch == ' ' || ch == '\t' || ch == '\n')) (void)putchar(ch); #else /* AMIGA */ if (isprint(ch) || (ch == ' ' || ch == '\t' || ch == '\n')) (void)putchar(ch); #endif else { (void)putchar('^'); (void)putchar(ch == '\177' ? '?' : ch | 0100); } }