+
+/* rest should be done with nameserver or database */
+
+#include <pwd.h>
+#include <grp.h>
+#include <utmp.h>
+
+struct utmp utmp;
+#define NMAX (sizeof (utmp.ut_name))
+#define SCPYN(a, b) strncpy(a, b, NMAX)
+
+#define NUID 64
+#define NGID 300
+
+struct ncache {
+ int uid;
+ char name[NMAX+1];
+} nc[NUID];
+char outrangename[NMAX+1];
+int outrangeuid = -1;
+char groups[NGID][NMAX+1];
+char outrangegroup[NMAX+1];
+int outrangegid = -1;
+
+/*
+ * This function assumes that the password file is hashed
+ * (or some such) to allow fast access based on a name key.
+ * If this isn't true, duplicate the code for getgroup().
+ */
+char *
+getname(uid)
+{
+ register struct passwd *pw;
+ struct passwd *getpwent();
+ register int cp;
+ extern int _pw_stayopen;
+
+ _pw_stayopen = 1;
+
+#if (((NUID) & ((NUID) - 1)) != 0)
+ cp = uid % (NUID);
+#else
+ cp = uid & ((NUID) - 1);
+#endif
+ if (uid >= 0 && nc[cp].uid == uid && nc[cp].name[0])
+ return (nc[cp].name);
+ pw = getpwuid(uid);
+ if (!pw)
+ return (0);
+ nc[cp].uid = uid;
+ SCPYN(nc[cp].name, pw->pw_name);
+ return (nc[cp].name);
+}
+
+char *
+getgroup(gid)
+{
+ register struct group *gr;
+ static init;
+ struct group *getgrent();
+
+ if (gid >= 0 && gid < NGID && groups[gid][0])
+ return (&groups[gid][0]);
+ if (gid >= 0 && gid == outrangegid)
+ return (outrangegroup);
+rescan:
+ if (init == 2) {
+ if (gid < NGID)
+ return (0);
+ setgrent();
+ while (gr = getgrent()) {
+ if (gr->gr_gid != gid)
+ continue;
+ outrangegid = gr->gr_gid;
+ SCPYN(outrangegroup, gr->gr_name);
+ endgrent();
+ return (outrangegroup);
+ }
+ endgrent();
+ return (0);
+ }
+ if (init == 0)
+ setgrent(), init = 1;
+ while (gr = getgrent()) {
+ if (gr->gr_gid < 0 || gr->gr_gid >= NGID) {
+ if (gr->gr_gid == gid) {
+ outrangegid = gr->gr_gid;
+ SCPYN(outrangegroup, gr->gr_name);
+ return (outrangegroup);
+ }
+ continue;
+ }
+ if (groups[gr->gr_gid][0])
+ continue;
+ SCPYN(groups[gr->gr_gid], gr->gr_name);
+ if (gr->gr_gid == gid)
+ return (&groups[gid][0]);
+ }
+ init = 2;
+ goto rescan;
+}
+
+int
+getuid(username)
+ char *username;
+{
+ register struct passwd *pw;
+ struct passwd *getpwnam();
+#ifndef NO_PW_STAYOPEN
+ extern int _pw_stayopen;
+
+ _pw_stayopen = 1;
+#endif
+
+ pw = getpwnam(username);
+ if (pw != NULL)
+ return (pw->pw_uid);
+ else
+ return (-1);
+}
+
+int
+getgid(groupname)
+ char *groupname;
+{
+ register struct group *gr;
+ struct group *getgrnam();
+
+ gr = getgrnam(groupname);
+ if (gr != NULL)
+ return (gr->gr_gid);
+ else
+ return (-1);
+}
+
+#define permoffset(who) ((who) * 3)
+#define permission(who, type) ((type) >> permoffset(who))
+#define kbytes(bytes) (((bytes) + 1023) / 1024)
+
+list(file, stp)
+ char *file;
+ register struct stat *stp;
+{
+ char pmode[32], uname[32], gname[32], fsize[32], ftime[32];
+ char *getname(), *getgroup(), *ctime();
+ static long special[] = { S_ISUID, 's', S_ISGID, 's', S_ISVTX, 't' };
+ static time_t sixmonthsago = -1;
+#ifdef S_IFLNK
+ char flink[MAXPATHLEN + 1];
+#endif
+ register int who;
+ register char *cp;
+ time_t now;
+
+ if (file == NULL || stp == NULL)
+ return (-1);
+
+ time(&now);
+ if (sixmonthsago == -1)
+ sixmonthsago = now - 6L*30L*24L*60L*60L;
+
+ switch (stp->st_mode & S_IFMT) {
+#ifdef S_IFDIR
+ case S_IFDIR: /* directory */
+ pmode[0] = 'd';
+ break;
+#endif
+#ifdef S_IFCHR
+ case S_IFCHR: /* character special */
+ pmode[0] = 'c';
+ break;
+#endif
+#ifdef S_IFBLK
+ case S_IFBLK: /* block special */
+ pmode[0] = 'b';
+ break;
+#endif
+#ifdef S_IFLNK
+ case S_IFLNK: /* symbolic link */
+ pmode[0] = 'l';
+ break;
+#endif
+#ifdef S_IFSOCK
+ case S_IFSOCK: /* socket */
+ pmode[0] = 's';
+ break;
+#endif
+#ifdef S_IFREG
+ case S_IFREG: /* regular */
+#endif
+ default:
+ pmode[0] = '-';
+ break;
+ }
+
+ for (who = 0; who < 3; who++) {
+ if (stp->st_mode & permission(who, S_IREAD))
+ pmode[permoffset(who) + 1] = 'r';
+ else
+ pmode[permoffset(who) + 1] = '-';
+
+ if (stp->st_mode & permission(who, S_IWRITE))
+ pmode[permoffset(who) + 2] = 'w';
+ else
+ pmode[permoffset(who) + 2] = '-';
+
+ if (stp->st_mode & special[who * 2])
+ pmode[permoffset(who) + 3] = special[who * 2 + 1];
+ else if (stp->st_mode & permission(who, S_IEXEC))
+ pmode[permoffset(who) + 3] = 'x';
+ else
+ pmode[permoffset(who) + 3] = '-';
+ }
+ pmode[permoffset(who) + 1] = '\0';
+
+ cp = getname(stp->st_uid);
+ if (cp != NULL)
+ sprintf(uname, "%-9.9s", cp);
+ else
+ sprintf(uname, "%-9d", stp->st_uid);
+
+ cp = getgroup(stp->st_gid);
+ if (cp != NULL)
+ sprintf(gname, "%-9.9s", cp);
+ else
+ sprintf(gname, "%-9d", stp->st_gid);
+
+ if (pmode[0] == 'b' || pmode[0] == 'c')
+ sprintf(fsize, "%3d,%4d",
+ major(stp->st_rdev), minor(stp->st_rdev));
+ else {
+ sprintf(fsize, "%8ld", stp->st_size);
+#ifdef S_IFLNK
+ if (pmode[0] == 'l') {
+ /*
+ * Need to get the tail of the file name, since we have
+ * already chdir()ed into the directory of the file
+ */
+ cp = rindex(file, '/');
+ if (cp == NULL)
+ cp = file;
+ else
+ cp++;
+ who = readlink(cp, flink, sizeof flink - 1);
+ if (who >= 0)
+ flink[who] = '\0';
+ else
+ flink[0] = '\0';
+ }
+#endif
+ }
+
+ cp = ctime(&stp->st_mtime);
+ if (stp->st_mtime < sixmonthsago || stp->st_mtime > now)
+ sprintf(ftime, "%-7.7s %-4.4s", cp + 4, cp + 20);
+ else
+ sprintf(ftime, "%-12.12s", cp + 4);
+
+ printf("%5lu %4ld %s %2d %s%s%s %s %s%s%s\n",
+ stp->st_ino, /* inode # */
+#ifdef S_IFSOCK
+ (long) kbytes(dbtob(stp->st_blocks)), /* kbytes */
+#else
+ (long) kbytes(stp->st_size), /* kbytes */
+#endif
+ pmode, /* protection */
+ stp->st_nlink, /* # of links */
+ uname, /* owner */
+ gname, /* group */
+ fsize, /* # of bytes */
+ ftime, /* modify time */
+ file, /* name */
+#ifdef S_IFLNK
+ (pmode[0] == 'l') ? " -> " : "",
+ (pmode[0] == 'l') ? flink : "" /* symlink */
+#else
+ "",
+ ""
+#endif
+ );
+
+ return (0);
+}