Login Initialization program: logininit (Version 2.0)

Lenny Tropiano lenny at icus.islp.ny.us
Mon Jan 23 15:00:43 AEST 1989


See the enclosed README files for more of a description...

-- cut here -- -- cut here -- -- cut here -- -- cut here -- -- cut here -- 
#! /bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#		"End of shell archive."
# Contents:  Makefile README1.0 README2.0 chtime.c fsinfo.sample
#   logininit.c
# Wrapped by lenny at icus on Mon Jan 23 00:00:07 1989
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f Makefile -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"Makefile\"
else
echo shar: Extracting \"Makefile\" \(681 characters\)
sed "s/^X//" >Makefile <<'END_OF_Makefile'
X#
X# Makefile to compile logininit.c  (Login Information)
X# By Lenny Tropiano
X# (c)1988,1989 ICUS Software Systems UUCP: ...icus!lenny (lenny at icus.islp.ny.us)
X# All rights reserved
X#
XCFLAGS=-v -O -DMAXPERCENT=10 -DMAXINODES=500
XLDFLAGS=-s
XLIBS=/lib/crt0s.o /lib/shlib.ifile
XDEST=/usr/lbin/
X#
Xlogininit:  logininit.o chtime.o
X	@echo "Loading ..."
X	$(LD) $(LDFLAGS) -o logininit logininit.o chtime.o $(LIBS) 
X#
Xlogininit.o:
X	$(CC) $(CFLAGS) -c logininit.c
X#
X# You need to be super-user to do this.
X#
X$(DEST):
X	mkdir $(DEST)
X	chmod 755 $(DEST)
X#
Xinstall: logininit $(DEST)
X	cp logininit $(DEST)
X	chown root $(DEST)/logininit
X	chgrp bin  $(DEST)/logininit
X	chmod 4755 $(DEST)/logininit
END_OF_Makefile
if test 681 -ne `wc -c <Makefile`; then
    echo shar: \"Makefile\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f README1.0 -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"README1.0\"
else
echo shar: Extracting \"README1.0\" \(1989 characters\)
sed "s/^X//" >README1.0 <<'END_OF_README1.0'
X
XThis is a little ditty I whipped up one day... Basically it tells you all
Xkinds of neat stuff when you login.  It can be called from inside 
X/etc/profile and will print this kind of information...
X---
XIt's Tuesday, May 31, 1988 at 8:00pm ... 
XNode: icus, up for 22 hours, 38 minutes, and 27 seconds.
X21% available disk storage in the root filesystem. (26968 blocks, 8692 i-nodes)
X1.29MB of main memory currently available. (48%)
X
XNo mail.
X---
XIt's Tuesday, May 31, 1988 at 11:02pm ... 
XNode: icus, up for 1 day, 2 hours, 36 minutes, and 1 second.
X21% available disk storage in the root filesystem. (24968 blocks, 8777 i-nodes)
X1.45MB of main memory currently available. (54%)
X
X       **************************************************************
X       * This is my message of the day.  It can say whatever I like *
X       **************************************************************
X
XYou have mail! (13 mail messages in your mailbox)
X
X---
XIt will tell you when you have mail (and how many mail messages you have). It
Xprints the /etc/motd out so the call to "cat /etc/motd" can be removed from
X/etc/profile.
X
XAnother nice feature is that it monitors the space left on the hard disk
Xwhen you login.  It checks the percentage (%) left to MAXPERCENT (compile
Xtime option [defaults to 10%]) and the inodes left with MAXINODES [defaults
Xto 500].
X
XSnipped from /etc/profile
X
X...
X# Print login initialization information
X/usr/lbin/logininit
X
X#The following line (if uncommented) will set TERM and TERMCAP (see ttytype)
X#eval `tset -s -Q`
X#For now, just set TERM to s4
XNAME=`tty`
Xif [ \( "`expr $NAME : '/dev/w' `"      != "0" -o \
X	"`expr $NAME : '/dev/sys' `"    != "0" \) ]
Xthen
X...
X
Xlogininit is called before the question to ask what terminal you are
Xrunning on...  It can be put almost anywhere... Even in your /etc/localprofile
Xor wherever.   Remember to take out redundant processing from /etc/profile
Xlike the "if..fi" statement to check the mailbox status, and the 
X"cat /etc/motd"
X
END_OF_README1.0
if test 1989 -ne `wc -c <README1.0`; then
    echo shar: \"README1.0\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f README2.0 -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"README2.0\"
else
echo shar: Extracting \"README2.0\" \(2877 characters\)
sed "s/^X//" >README2.0 <<'END_OF_README2.0'
X
XIn version 2.0 of logininit, I modified it to handle multiple filesystems
Xthat are mounted on the hard disk.   This is done by looking up in /etc/mnttab
Xfor the currently mounted partitions and displaying the information.  Also
Xyou can describe the partition (up to 25 characters by putting it in a file
Xcalled /etc/fsinfo [which can be changed]).
X
X/etc/fsinfo:
Xfp002	/		HD1 : System Partition
Xfp003	/mnta		HD1 : Partition 2
Xfp003	/mntb		HD1 : Partition 2
Xfp011	/tmp		HD2 : Temporary Partition
Xfp011	/mnta		HD2 : Partition 1
Xfp011	/mntb		HD2 : Partition 1
Xfp012	/usr/spool	HD2 : Spool Partition
Xfp012	/mnta		HD2 : Partition 2
Xfp012	/mntb		HD2 : Partition 2
Xfp021	/mnt		FD  : Floppy Partition
Xfp021	/floppy		FD  : Floppy Partition
X
XI have two hard disks installed, so that is why fp01[12] is being accessed.
XThis is what ultimately pushed me to modify my older logininit.c.
X
XI also changed the output slightly, it looks nicer now. 
X
XNOTES:  The program looks at /etc/mnttab, and reads it backwards, much like
Xwhat "df(1)" does.  To get the partitions in the correct order, you basically
Xhave to set up the /etc/mnttab in reverse order.
X
X# devnm /usr/spool /tmp / | setmnt 
X# df 
X/         (/dev/fp002):    44596 blocks   11558 i-nodes
X/tmp      (/dev/fp011):     9788 blocks    1481 i-nodes
X/usr/spool(/dev/fp012):    25786 blocks   11672 i-nodes
X
X# devnm / /tmp /usr/spool | setmnt 
X# df 
X/usr/spool(/dev/fp012):    25786 blocks   11672 i-nodes
X/tmp      (/dev/fp011):     9788 blocks    1481 i-nodes
X/         (/dev/fp002):    44596 blocks   11558 i-nodes
X
XNew output format:
X------------------
XIt's Sunday, January 22, 1989 at 11:48pm ... 
XNode: icus, up for 3 hours, 41 minutes, and 4 seconds.
X/          HD1 : System Partition   : 21.8MB,  44618 blocks, 11562 i-nodes, 37%
X/tmp       HD2 : Temporary Partition:  4.8MB,   9794 blocks,  1482 i-nodes, 98%
X/usr/spool HD2 : News Partition     : 12.6MB,  25786 blocks, 11672 i-nodes, 36%
X/floppy    FD  : Floppy Partition   :  0.0MB,     64 blocks,     7 i-nodes,  9%
X           WARNING: Filesystem disk space is low.
X           WARNING: Filesystem i-nodes are low.
X           Total Storage Available  : 39.2MB,  80262 blocks
X                            out of  : 99.4MB, 203514 blocks, 39% free
X1.71MB of main memory currently available. (54%)
X
X        *****************************************************************
X        * Display the /etc/motd (Message-of-the-day) here, if it exists *
X        *****************************************************************
X
XYou have mail! (32 mail messages in your mailbox)
X
X----
XLenny Tropiano             ICUS Software Systems         [w] +1 (516) 582-5525
Xlenny at icus.islp.ny.us      Telex; 154232428 ICUS         [h] +1 (516) 968-8576
X{talcott,decuac,boulder,hombre,pacbell,sbcs}!icus!lenny  attmail!icus!lenny
X        ICUS Software Systems -- PO Box 1; Islip Terrace, NY  11752
END_OF_README2.0
if test 2877 -ne `wc -c <README2.0`; then
    echo shar: \"README2.0\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f chtime.c -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"chtime.c\"
else
echo shar: Extracting \"chtime.c\" \(1648 characters\)
sed "s/^X//" >chtime.c <<'END_OF_chtime.c'
X/*
X * ch_time - format elapsed time into a character string.
X *
X * Mikel Manitius - 85-01-08 - (mikel at codas.att.com.uucp)
X * Lenny Tropiano - 88-04-14 - (lenny at icus.UUCP) - modified slightly
X *
X */
X
X#define			NULL		(0)
X#define			SECOND		1L
X#define			MINUTE		60L
X#define			HOUR		(60L * 60L)
X#define			DAY		(24L * 60L * 60L)
X#define			WEEK		(7L  * 24L * 60L * 60L)
X#define			BUFSIZE		1024
X
Xchar	*malloc();
X
Xchar	*day[] =
X{
X	"Sunday", "Monday", "Tuesday",
X	"Wednesday", "Thursday", "Friday",
X	"Saturday", 0
X};
X
Xchar	*mon[] =
X{
X	"January", "February", "March", "April", "May",
X	"June", "July", "August", "September", "October",
X	"November", "December", 0
X};
X
X
Xchar *ch_time(sec)
Xint	sec;
X{
X	unsigned long	hrs = 0L;
X	unsigned long	days = 0L;
X	unsigned long	mins = 0L;
X	unsigned long	weeks = 0L;
X	char	*buff;
X
X	buff = malloc(BUFSIZE);
X	if(buff == NULL)
X		return(NULL);
X	weeks = sec / WEEK;
X	sec -= WEEK * weeks;
X	days = sec / DAY;
X	sec -= DAY * days;
X	hrs = sec / HOUR;
X	sec -= HOUR * hrs;
X	mins = sec / MINUTE;
X	sec -= MINUTE * mins;
X
X	if(weeks)
X		sprintf(buff, "%d week%s, ", weeks, (weeks == 1) ? "" : "s");
X	if(days)
X		sprintf(buff, "%s%d day%s, ", (weeks) ? buff : "",
X			days, (days == 1L) ? "" : "s");
X	if(hrs || days || weeks)
X		sprintf(buff, "%s%d hour%s, ", (days || weeks) ? buff : "",
X			hrs, (hrs == 1L) ? "" : "s");
X	if(mins || hrs || days || weeks)
X		sprintf(buff, "%s%d minute%s, ",
X			(hrs || days || weeks) ? buff : "",
X			mins, (mins == 1L) ? "" : "s");
X	sprintf(buff, "%s%s%d second%s.",
X			(mins || hrs || days || weeks) ? buff : "",
X			(mins || hrs || days || weeks) ? "and " : "",
X			sec, (sec == 1L) ? "" : "s");
X	return(buff);
X}
END_OF_chtime.c
if test 1648 -ne `wc -c <chtime.c`; then
    echo shar: \"chtime.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f fsinfo.sample -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"fsinfo.sample\"
else
echo shar: Extracting \"fsinfo.sample\" \(368 characters\)
sed "s/^X//" >fsinfo.sample <<'END_OF_fsinfo.sample'
Xfp002	/		HD1 : System Partition
Xfp003	/mnta		HD1 : Partition 2
Xfp003	/mntb		HD1 : Partition 2
Xfp011	/tmp		HD2 : Temporary Partition
Xfp011	/mnta		HD2 : Partition 1
Xfp011	/mntb		HD2 : Partition 1
Xfp012	/usr/spool	HD2 : Spool Partition
Xfp012	/mnta		HD2 : Partition 2
Xfp012	/mntb		HD2 : Partition 2
Xfp021	/mnt		FD  : Floppy Partition
Xfp021	/floppy		FD  : Floppy Partition
END_OF_fsinfo.sample
if test 368 -ne `wc -c <fsinfo.sample`; then
    echo shar: \"fsinfo.sample\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f logininit.c -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"logininit.c\"
else
echo shar: Extracting \"logininit.c\" \(8666 characters\)
sed "s/^X//" >logininit.c <<'END_OF_logininit.c'
X/************************************************************************\
X**                                                                      **
X** Program name: logininit.c (Login Initialization)                     **
X** Programmer:   Lenny Tropiano            UUCP: ...icus!lenny          **
X** Organization: ICUS Software Systems     (c)1989 All rights reserved  **
X** Date:         April 3, 1988                                          **
X** Revision 2.0: January 19, 1989  - temporary for more partitions      **
X**                                                                      **
X**************************************************************************
X**                                                                      **
X** Program use:  Program is run as information apon login called from   **
X**               the /etc/profile. This program the filesystem          **
X**               information, available main memory and mail messages.  **
X**                                                                      **
X**   This programs must be setuid root (ie. 4755) and can be placed     **
X**   in any directory you choose.                                       **
X**                                                                      **
X**************************************************************************
X**                                                                      **
X**   Credits:  Thanks to Gil Kloepfer, Jr. (gil at limbic) for his insight **
X**   and suggestions about adding the capability of /etc/fsinfo         **
X**                                                                      **
X**************************************************************************
X** Permission granted to redistribute without profit in the public      **
X** domain only.  This header must remain in-tact as is.  This program   **
X** carries no warranties, express or implied, and all consequences      **
X** resulting from the use of this program are the sole responsibility   **
X** of the user.                                                         **
X\************************************************************************/
X
X#include <stdio.h>
X#include <fcntl.h>
X#include <errno.h>
X#include <signal.h>
X#include <sys/types.h>
X#include <sys/filsys.h>
X#include <mnttab.h>
X#include <sys/utsname.h>
X#include <utmp.h>
X#include <time.h>
X#include <nlist.h>
X
X#ifndef ctob			
X#include <sys/sysmacros.h>
X#endif
X
X#define UNIX	"/unix"
X#define KMEM	"/dev/kmem"
X#define FSINFO	"/etc/fsinfo"
X#define MNTTAB	"/etc/mnttab"
X
Xstruct nlist unixsym[] = {
X#define X_MAXMEM	0
X	{ "maxmem" },
X#define X_FREEMEM	1
X	{ "freemem" },
X	{ NULL }
X};
X
X#define MEGABYTE 1048576.0
X
X#ifndef MAXPERCENT
X# define MAXPERCENT	10
X#endif
X
X#ifndef MAXINODES
X# define MAXINODES	500
X#endif
X
Xchar	*progname;			/* program name			*/
Xchar	mailfile[30];			/* mailbox file name            */
Xstruct  filsys fs;			/* Filesystem superblock struct */
Xstruct	tm	*today, *localtime();
X
X/************************************************************************/
X
Xmain(argc,argv)
Xint	argc;
Xchar	*argv[];
X{
X	char	*getenv();
X
X    	progname = *argv;
X	sprintf(mailfile,"%s",getenv("MAIL"));
X
X	printf("\n");
X
X	showtime();		/* what time is it?    */
X	uptime();		/* get system uptime   */
X	filestatus();		/* get filesystem info */
X	memory();		/* get current memory  */
X	show_motd();		/* print the /etc/motd */
X	mailcheck();		/* get mailbox status  */
X
X	printf("\n");
X	exit(0);
X}
X
Xfilestatus()
X{
X	int	mntfd, fsfd, 
X		nmount, percleft;
X	float	megs, totmegs, maxmegs;
X	long	totblocks, maxblocks;
X	struct	mnttab	mtable;
X	char	rawdevice[12];
X
X	/* initialize */
X	nmount = totblocks = maxblocks = 0;
X	totmegs = maxmegs = 0.0;
X
X	if ((mntfd = open(MNTTAB, O_RDONLY)) == -1) {
X		fprintf(stderr,"%s: cannot open %s for read\n",
X			progname, MNTTAB);
X		exit(1);
X	}
X
X	/* move to EOF */
X	if (lseek(mntfd, sizeof(struct mnttab) * -1, 2) == -1) {
X		fprintf(stderr,"%s: cannot lseek to end of file: %s\n",
X			progname, MNTTAB);
X		exit(1);
X	}
X
X	do  {
X
X	    read(mntfd, &mtable, sizeof(struct mnttab));
X
X	    sprintf(rawdevice,"/dev/r%s", mtable.mt_dev);
X	    if ((fsfd = open(rawdevice, O_RDONLY)) != -1) {
X	 	if (lseek(fsfd, 512, 0) == -1) {
X		    fprintf(stderr,"%s: cannot lseek to superblock\n", 
X			progname);
X		    exit(1);
X	        }
X
X	        if (read(fsfd, &fs, sizeof(struct filsys)) == -1) {
X		    fprintf(stderr,"%s: cannot read the superblock\n", 
X			progname);
X		    exit(1);
X	        }
X
X	    	close(fsfd);
X
X	    	percleft = (int)((((float)fs.s_tfree / (float)fs.s_fsize) 
X			+ 0.005) * 100.0);
X	    	megs = (fs.s_tfree * 1024) / MEGABYTE;
X	    	totmegs += megs;
X	    	totblocks += (fs.s_tfree * 2);
X	    	maxblocks += (fs.s_fsize * 2);
X
X	    	nmount++;
X
X	    	describe(mtable.mt_dev, mtable.mt_filsys);
X	    	printf(":%5.1fMB, %6d blocks, %5d i-nodes, %2d%%\n",
X			megs, fs.s_tfree * 2, fs.s_tinode, percleft);
X
X	    	if (percleft < MAXPERCENT)
X			printf("           WARNING: Filesystem disk space is low.\007\n");
X
X	    	if (fs.s_tinode < MAXINODES) 
X			printf("           WARNING: Filesystem i-nodes are low.\007\n");
X	    } /* cannot open device */
X
X	} while (lseek(mntfd, sizeof(struct mnttab) * -2, 1) != -1);
X
X	close(mntfd);
X
X	if (nmount > 1) {	/* more than on filesystem mounted */
X	    maxmegs = (maxblocks * 512) / MEGABYTE;
X	    percleft = (int)((((float)totblocks / maxblocks) + 0.005) 
X			* 100.0);
X	    printf("           Total Storage Available  :%5.1fMB, %6d blocks\n",
X		totmegs, totblocks);
X	    printf("                            out of  :%5.1fMB, %6d blocks, %2d%% free\n",
X		maxmegs, maxblocks, percleft);
X	}
X
X}
X
Xdescribe(device, filesys)
Xchar *device, *filesys;
X{
X	FILE	*infofp;
X	int	devlen, fslen;
X	char	devbuf[12], fsbuf[12], infobuf[26];
X
X	devlen = strlen(device);
X	fslen  = strlen(filesys);
X
X	if ((infofp = fopen(FSINFO, "r")) != NULL) {
X	    while (fscanf(infofp, "%s %s %[\ -~]\n", 
X		devbuf, fsbuf, infobuf) > 0) {
X		if (strncmp(devbuf, device, devlen) == 0 &&
X		    strncmp(fsbuf, filesys, fslen) == 0) {
X			fclose(infofp);
X			printf("%-10.10s %-25.25s", filesys, infobuf);
X			return;
X		}
X	    }
X	    fclose(infofp);
X	}
X	printf("%-10.10s %-25.25s", filesys, " "); /* just blank info */
X}
X
Xmailcheck()
X{
X	FILE	*fp;
X	char	buffer[BUFSIZ], *strrchr();
X	int	msgs = 0, forward = 0, line = 0;
X
X	if (access(mailfile,4) == 0) {
X		msgs = 0;
X		if ((fp = fopen(mailfile,"r")) != NULL) {
X			while (fgets(buffer, BUFSIZ, fp) != NULL) {
X				line++;
X				if (line == 1 &&
X				    strncmp(buffer,"Forward",7) == 0) {
X					forward = 1;
X					break;
X				}
X				if (strncmp(buffer,"From ",5) == 0)
X					msgs++;
X			}
X		}
X		fclose(fp);
X	} else  msgs = 0;
X
X	if (forward)
X		printf("Your mail is being forwarded to%s\n",
X			strrchr(buffer,' '));
X	else if (msgs != 0)
X		printf("You have mail! (%d mail message%s in your mailbox)\007\n",
X			msgs, (msgs == 1) ? "" : "s");
X	else
X		printf("No mail.\n");
X}
X
X
Xmemory()
X{
X	int	kmem;
X	int	maxmem, freemem;
X	float	megs, max, free, perc;
X
X	if (nlist(UNIX, unixsym) < 0) {
X		fprintf(stderr, "%s: no namelist.\n", UNIX);
X		exit(1);
X	}
X
X	if ((kmem = open(KMEM, 0)) < 0) {
X		perror(KMEM);
X		exit(1);
X	}
X
X	lseek(kmem, (long) unixsym[X_MAXMEM].n_value, 0);
X	read(kmem, (char *) &maxmem, sizeof(int));
X	lseek(kmem, (long) unixsym[X_FREEMEM].n_value, 0);
X	read(kmem, (char *) &freemem, sizeof(int));
X
X	close(kmem);
X
X	free = ctob(freemem);
X	max  = ctob(maxmem);
X	perc = free / max;
X	perc *= 100.0;
X
X	printf("%4.2fMB of main memory currently available. (%-2.0f%%)\n",
X		(ctob(freemem) / MEGABYTE), perc);
X		
X}
X
Xuptime()
X{
X	int	now, boottime;
X	char	*up, *ch_time();
X	struct	utmp	*utent, *getutent();
X	struct	utsname	utsname;
X
X	time(&now);
X	today = localtime(&now);
X
X	setutent();
X	while ((utent = getutent()) != (struct utmp *)NULL) {
X		if (utent->ut_type == BOOT_TIME) {
X			boottime = utent->ut_time;
X			break;
X		}
X	}
X	endutent();
X
X	up = ch_time(now - boottime);
X	uname(&utsname);
X	printf("Node: %s, up for %s\n", utsname.nodename, up);
X
X}
X
Xshowtime()
X{
X	int	now, ampm;
X	extern	char	*day[], *mon[];
X
X	time(&now);
X	today = localtime(&now);
X
X	if (today->tm_hour == 0) {
X		ampm = 0;
X		today->tm_hour += 12;
X	} else if (today->tm_hour > 12) {
X		ampm = 1;
X		today->tm_hour -= 12;
X	} else  if (today->tm_hour == 12)
X		ampm = 1;
X	else	ampm = 0;
X
X	printf("It's %s, %s %d, %d at %2d:%.2d%s ... \n",
X		day[today->tm_wday], mon[today->tm_mon], today->tm_mday,
X		today->tm_year + 1900, today->tm_hour, today->tm_min,
X		(ampm == 0) ? "am" : "pm");
X
X}
X
Xshow_motd()
X{
X	FILE	*fp;
X	char	buffer[BUFSIZ];
X
X	printf("\n");
X	if ((fp = fopen("/etc/motd","r")) != NULL) {
X		while (fgets(buffer, BUFSIZ, fp) != NULL) 
X			printf("%s", buffer);
X	
X		fclose(fp);
X	}
X	printf("\n");
X}
END_OF_logininit.c
if test 8666 -ne `wc -c <logininit.c`; then
    echo shar: \"logininit.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
echo shar: End of shell archive.
exit 0
-- 
Lenny Tropiano             ICUS Software Systems         [w] +1 (516) 582-5525
lenny at icus.islp.ny.us      Telex; 154232428 ICUS         [h] +1 (516) 968-8576
{talcott,decuac,boulder,hombre,pacbell,sbcs}!icus!lenny  attmail!icus!lenny
        ICUS Software Systems -- PO Box 1; Islip Terrace, NY  11752



More information about the Unix-pc.sources mailing list