pulsar@lsrhs.UUCP (Jim King) (05/15/88)
comp.sources.misc: Volume 3, Issue 17
Submitted-By: "Jim King" <pulsar@lsrhs.UUCP>
Archive-Name: welcome
#!/bin/sh
# shar: Shell Archiver (v1.22)
#
# Run the following text with /bin/sh to create:
# README
# Makefile
# welcome.1
# welcome.c
# cpu.h
#
sed 's/^X//' << 'SHAR_EOF' > README &&
XDisclaimer: I originally found this program for VAX/VMS systems in
Xthe March 1988 issue of Hardcopy magazine (page 83). I do not credit
Xthe idea to me, but since the actual program was in VMS command form,
XI deided it would be nice to put it on an Ultrix compatible system.
XThis program is intended to be shareware.
X
XWelcome prints out a nice welcome message for the user.
X
XVersion 1: Initial program translated, debugged. At this time there is only
Xa set message in the middle box. Future copies should work so that it will
Xnlist the kernel and find the type of VAX and version of Ultrix.
X
XVersion 2: Added load average box and LOAD define in cpu.h
X
XVersion 3: Added CPU type and CPU define, along with Ultrix version and
Xhostname.
X
X** This program translated from VMS command language by Jim King at lsrhs
X** (And added a few extra features...)
X
XNOTES --
X
XDefine LOAD if you want the little load average box
X
XDefine CPU If you want to know the type of CPU you are using.
X
XDefine LIGHT if you want the messages in the box highlighted.
X
XDefine UVERS If you want to know the version of Ultrix.
X NOTE: This program assumes that /etc/motd is a known file
X produced by /etc/rc.
SHAR_EOF
chmod 1711 README || echo "restore of README fails"
set `wc -c README`;Sum=$1
if test "$Sum" != "1183"
then echo original size 1183, current size $Sum;fi
sed 's/^X//' << 'SHAR_EOF' > Makefile &&
X#
X# Makefile for welcome
X#
XDESTDIR= /u/pulsar/Utilities/Welcome
XCFLAGS= -g
XPROGRAM= welcome
XSRCS= welcome.c
XLIBS=
X
X${PROGRAM}: ${SRCS}
X ${CC} ${CFLAGS} -o $@ $@.c ${LIBS}
X
Xinstall:
X install ${PROGRAM} ${DESTDIR}/welcome
X
Xtags:
X ctags -tdw *.c
X
Xclean:
X rm -f a.out core *.o made
X
Xdepend:
X echo 'Welcome Compiled.'
SHAR_EOF
chmod 1711 Makefile || echo "restore of Makefile fails"
set `wc -c Makefile`;Sum=$1
if test "$Sum" != "315"
then echo original size 315, current size $Sum;fi
sed 's/^X//' << 'SHAR_EOF' > welcome.1 &&
X.TH welcome 1
X.SH NAME
Xwelcome \- prints out a nice welcome message with useful statistics
X.SH SYNTAX
X.B welcome
X.SH DESCRIPTION
XThe
X.PN welcome
Xcommand makes a graphic box over box and prints out the time,
Xday,
Xand system stats
X.PP
X.PN welcome
Xassumes that the file /etc/motd exists.
X.SH SEE ALSO
X/etc/motd
X.SH AUTHOR
XJim King (pulsar) Lincoln-Sudbury Regional High '88.
SHAR_EOF
chmod 1711 welcome.1 || echo "restore of welcome.1 fails"
set `wc -c welcome.1`;Sum=$1
if test "$Sum" != "374"
then echo original size 374, current size $Sum;fi
sed 's/^X//' << 'SHAR_EOF' > welcome.c &&
X#include <time.h>
X#include <stdio.h>
X#include "cpu.h"
X#include <nlist.h>
X
Xextern struct nlist namelist[];
Xextern struct nlist nl[];
X
Xstruct nlist nl[] = { { "_cpu" }, { "" } };
Xdouble loadavg[4];
Xint kmem;
X
Xstruct nlist namelist[] = {
X { "_avenrun" },
X { 0 }
X};
X
Xchar *days[] = { "Sunday", "Monday", "Tuesday", "Wednesday",
X "Thursday", "Friday", "Saturday" };
X
Xchar *mons[] = { "January", "February", "March", "April",
X "May", "June", "July", "August",
X "September", "October", "November", "December" };
X
Xchar *ttime[] = { "morning ", "afternoon ", "evening " };
X
Xmain()
X{
X register struct tm *det;
X int a, b, x, y, num, cpu;
X long secs;
X char bot[100], *foo, goo[50], ap;
X time(&secs);
X#ifdef LOAD
X nlist("/vmunix", namelist);
X if (namelist[0].n_type == 1)
X puts("/vmunix no namelist\n"), exit(1);
X kmem = open("/dev/kmem", 0);
X if (kmem <= 0)
X printf("cannot open /dev/kmem\n"), exit(1);
X lseek(kmem, (long)namelist[0].n_value, 0);
X read(kmem, &loadavg[0], sizeof loadavg);
X close(kmem);
X#endif LOAD
X#ifdef CPU
X nlist("/vmunix", nl);
X if (nl[0].n_type == 1)
X puts("/vmunix no namelist\n"), exit(1);
X kmem = open("/dev/kmem", 0);
X if (kmem <= 0)
X printf("cannot open /dev/kmem\n"), exit(1);
X lseek(kmem, nl[0].n_value, 0);
X read(kmem, &cpu, sizeof(cpu));
X close(kmem);
X#endif CPU
X ap = "AP"[(det = localtime(&secs))->tm_hour >= 12];
X if (det->tm_hour > 0 && det->tm_hour < 12)
X foo = ttime[0];
X else if (det->tm_hour > 11 && det->tm_hour < 18)
X foo = ttime[1];
X else if (det->tm_hour > 17 && det->tm_hour < 24)
X foo = ttime[2];
X if ((det->tm_hour %= 12) == 0)
X det->tm_hour = 12;
X fflush(stdout);
X printf("\033[2J\033(0\033)0\033[m");
X#ifdef LOAD
X printf("\033[3;11H\033(B\033)B Load Average\033(0\033)0");
X printf("\033[4;11Hlqqqqqqqqqqqqqqqqk");
X printf("\033[5;11Hx x");
X printf("\033[6;11Hmqqqqqqqqqqqqqqwqj");
X printf("\033[5;13H%4.2f %4.2f %4.2f", loadavg[0], loadavg[1], loadavg[2]);
X printf("\033[7;16Hlqqqqqqqqqvqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk");
X#else LOAD
X printf("\033[7;16Hlqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk");
X#endif LOAD
X printf("\033[8;16Hx x");
X printf("\033[9;13Hlqqvqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqvqqk");
X printf("\033[10;10Hlqqvqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqvqqk");
X printf("\033[11;10Hx\033[11;63Hx\033[12;10Hx\033[12;63Hx\033[13;10Hx\033[13;63Hx");
X printf("\033[14;10Hmqqwqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqwqqj");
X printf("\033[15;13Hmqqwqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqwqqj");
X printf("\033[16;16Hx x");
X printf("\033[17;16Hmqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqj");
X printf("\033(B\033)B");
X#ifdef LIGHT
X printf("\033[11;13H\033[7m ");
X#endif LIGHT
X printf("\033[11;13H Good %s%s,", foo, getenv("USER"));
X gethostname(goo, sizeof(goo));
X#ifdef LIGHT
X printf("\033[12;13H\033[7m ");
X printf("\033[12;13H\033[7m You have connected to %s", goo);
X#else LIGHT
X printf("\033[12;13H You have connected to %s", goo);
X#endif
X#ifdef LIGHT
X printf("\033[13;13H\033[7m ");
X#endif LIGHT
X#ifdef CPU
X printf("\033[m");
X switch(cpu) {
X case VAX_780:
X#ifdef LIGHT
X printf("\033[13;13H\033[7m A VAX 11/780 running Ultrix");
X#else LIGHT
X printf("\033[13;13H A VAX 11/780 running Ultrix");
X#endif LIGHT
X break;
X case VAX_750:
X#ifdef LIGHT
X printf("\033[13;13H\033[7m A VAX 11/750 running Ultrix");
X#else LIGHT
X printf("\033[13;13H A VAX 11/750 runing Ultrix");
X#endif LIGHT
X break;
X case VAX_730:
X#ifdef LIGHT
X printf("\033[13;13H\033[7m A VAX 11/730 running Ultrix");
X#else LIGHT
X printf("\033[13;13H A VAX 11/730 runing Ultrix");
X#endif LIGHT
X break;
X case VAX_8600:
X#ifdef LIGHT
X printf("\033[13;13H\033[7m A VAX 8600 running Ultrix");
X#else LIGHT
X printf("\033[13;13H A VAX 8600 runing Ultrix");
X#endif LIGHT
X break;
X case VAX_8200:
X#ifdef LIGHT
X printf("\033[13;13H\033[7m A VAX 8200 running Ultrix");
X#else LIGHT
X printf("\033[13;13H A VAX 8200 runing Ultrix");
X#endif LIGHT
X break;
X case VAX_8800:
X#ifdef LIGHT
X printf("\033[13;13H\033[7m A VAX 8800 running Ultrix");
X#else LIGHT
X printf("\033[13;13H A VAX 8800 runing Ultrix");
X#endif LIGHT
X break;
X case MVAX_I:
X#ifdef LIGHT
X printf("\033[13;13H\033[7m A MicroVAX I running Ultrix");
X#else LIGHT
X printf("\033[13;13H A MicroVAX I runing Ultrix");
X#endif LIGHT
X break;
X case MVAX_II:
X#ifdef LIGHT
X printf("\033[13;13H\033[7m A MicroVAX II running Ultrix");
X#else LIGHT
X printf("\033[13;13H A MicroVAX II runing Ultrix");
X#endif LIGHT
X break;
X default:
X printf("\033[13;13H CPU ident error");
X break;
X }
X#else CPU
X#ifdef LIGHT
X printf("\033[13;13H\033[7m A system running Ultrix");
X#else LIGHT
X printf("\033[13;13H A system running Ultrix");
X#endif LIGHT
X#endif CPU
X#ifdef UVERS
X fp = fopen("/etc/motd", "r");
X fscanf(fp, "%s%s", poo, doo);
X printf(" V%c.%c", doo[1], doo[3]);
X fclose(fp);
X unlink("/tmp/foo");
X#endif UVERS
X#ifdef LIGHT
X printf("\033[8;18H ");
X printf("\033[16;18H ");
X#endif LIGHT
X x = 40 - (strlen(days[det->tm_wday]) / 2);
X y = (69 - x);
X printf("\033[8;%dH%s", y, days[det->tm_wday]);
X sprintf(bot, "%s %d, 19%d %d:%02d %cM", mons[det->tm_mon],
X det->tm_mday, det->tm_year, det->tm_hour,
X det->tm_min, ap);
X a = 40 -(strlen(bot) / 2);
X b = (54 - a);
X printf("\033[m");
X#ifdef LIGHT
X printf("\033[7m");
X#endif LIGHT
X printf("\033[16;%dH%s", b, bot);
X printf("\033[23;1H");
X printf("\033[m");
X exit(0);
X}
SHAR_EOF
chmod 0755 welcome.c || echo "restore of welcome.c fails"
set `wc -c welcome.c`;Sum=$1
if test "$Sum" != "5802"
then echo original size 5802, current size $Sum;fi
sed 's/^X//' << 'SHAR_EOF' > cpu.h &&
Xint i;
Xchar doo[100];
Xchar poo[100];
XFILE *fp;
X
X#define VAX_780 1
X#define VAX_750 2
X#define VAX_730 3
X#define VAX_8600 4
X#define VAX_8200 5
X#define VAX_8800 6
X#define MVAX_I 7
X#define MVAX_II 8
X
X/* System defines to be changed-- */
X
X#define LOAD /* If you want the load average box, keep this defined. */
X#define CPU /* If you want to know what type CPU you are using, keep
X this defined. NOTE: This option has only been tested for
X Ultrix V2.0, nothing else. Please... Try it and mail
X me back! */
X#define UVERS /* If you want to know the version of Ultrix, keep this
X defined. This will work for any system with /etc/motd.
X#define LIGHT /* If you want the stuff inside the welcome box inversed,
X keep this defined. To make it dark, just comment it out. */
X
SHAR_EOF
chmod 1711 cpu.h || echo "restore of cpu.h fails"
set `wc -c cpu.h`;Sum=$1
if test "$Sum" != "791"
then echo original size 791, current size $Sum;fi
exit 0