argv@island.uu.net (Dan Heller) (05/30/89)
Submitted-by: Markus Stumpf <stumpf@lan.informatik.tu-muenchen.dbp.de> Posting-number: Volume 4, Issue 9 Archive-name: xlogin/part01 This program does all the management stuff login does, but Xdm does not. For a full description see the manual page. I only could test it on a mVaxII with Qvss and X.V11R3 all 10 patches in, and it works right for me. Please drop me a note, if something has to be changed to get it distributed. Enjoy! \Maex +------------------------------------------------------------------------------+ | Markus Stumpf | | TU Muenchen local: lan.informatik.tu-muenchen.dbp.de | | Inst. f. Informatik DFN: stumpf@{local} | | Arcisstrasse UUCP: stumpf%{local}@unido.uucp | | D-8000 Muenchen ARPA/CS: stumpf%{local}@relay.cs.net | | West Germany BITNET: infrza02@dm0tui1s.bitnet | +------------------------------------------------------------------------------+ --------------------------------- 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: README Imakefile Makefile patchlevel.h xlogin.c xlogin.man # Wrapped by stumpf@gshalle2 on Mon May 22 19:51:33 1989 PATH=/bin:/usr/bin:/usr/ucb ; export PATH if test -f 'README' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'README'\" else echo shar: Extracting \"'README'\" \(1538 characters\) sed "s/^X//" >'README' <<'END_OF_FILE' XThis is the README file for Xlogin. 22-05-1989 X X I would like to thank Elmar Bartel and Berni Schneck here at Xthe TU for giving me some hints and helping me to make the code more Xsecure and the people at MIT for helping me with a few questions and for Xdoing the whole X stuff. X X This program was written, to do some stuff, which is no longer Xbe done, when using Xdm from X Windows Version 11 Release 3. X It handles /etc/motd, /etc/nologin, user quotas (EPROCLIM, EUSERS), X/usr/adm/lastlog, /usr/adm/wtmp and $USER/.hushlogin. XFor more information see the manual page. X I tried to write it as secure as possible (range checking in Xstrings etc.), but any further security hints are welcome. X Further I don't know how good my try was, to use the X Toolkit. XIt is my first program using this mechanism, so don't be too critical. XBut here too, every improvements are welcome. X XEnjoy! X X\Maex X X+------------------------------------------------------------------------------+ X| Markus Stumpf | X| TU Muenchen local: lan.informatik.tu-muenchen.dbp.de | X| Inst. f. Informatik DFN: stumpf@{local} | X| Arcisstrasse UUCP: stumpf%{local}@unido.uucp | X| D-8000 Muenchen ARPA/CS: stumpf%{local}@relay.cs.net | X| West Germany BITNET: infrza02@dm0tui1s.bitnet | X+------------------------------------------------------------------------------+ END_OF_FILE if test 1538 -ne `wc -c <'README'`; then echo shar: \"'README'\" unpacked with wrong size! fi # end of 'README' fi if test -f 'Imakefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Imakefile'\" else echo shar: Extracting \"'Imakefile'\" \(142 characters\) sed "s/^X//" >'Imakefile' <<'END_OF_FILE' X SRCS = xlogin.c X OBJS = xlogin.o XLOCAL_LIBRARIES = $(XAWLIB) $(XMULIB) $(XTOOLLIB) $(XLIB) X XComplexProgramTarget(xlogin) END_OF_FILE if test 142 -ne `wc -c <'Imakefile'`; then echo shar: \"'Imakefile'\" unpacked with wrong size! fi # end of 'Imakefile' fi if test -f 'Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Makefile'\" else echo shar: Extracting \"'Makefile'\" \(8014 characters\) sed "s/^X//" >'Makefile' <<'END_OF_FILE' X# Makefile generated by imake - do not edit! X# $XConsortium: imake.c,v 1.37 88/10/08 20:08:30 jim Exp $ X X########################################################################### X# X Window System Makefile generated from template file Imake.tmpl X# $XConsortium: Imake.tmpl,v 1.91 88/10/23 22:37:10 jim Exp $ X# X# Do not change the body of the imake template file. Server-specific X# parameters may be set in the appropriate .macros file; site-specific X# parameters (but shared by all servers) may be set in site.def. If you X# make any changes, you'll need to rebuild the makefiles using X# "make World" (at best) or "make Makefile; make Makefiles" (at least) in X# the top level directory. X# X# If your C preprocessor doesn't define any unique symbols, you'll need X# to set BOOTSTRAPCFLAGS when rebuilding imake (usually when doing X# "make Makefile", "make Makefiles", or "make World"). X# X# If you absolutely can't get imake to work, you'll need to set the X# variables at the top of each Makefile as well as the dependencies at the X# bottom (makedepend will do this automatically). X# X X########################################################################### X# platform-specific configuration parameters - edit Vax.macros to change X X# platform: $XConsortium: Vax.macros,v 1.49 88/10/23 11:01:02 jim Exp $ X XBOOTSTRAPCFLAGS = X AS = /usr/local/gas X CC = /usr/local/gcc X CPP = /lib/gcc-cpp X LD = /usr/local/gld X LINT = lint X INSTALL = install X TAGS = ctags X RM = rm -f X MV = mv X LN = ln -s X RANLIB = /usr/bin/ranlib XRANLIBINSTFLAGS = -t X AR = ar clq X LS = ls X LINTOPTS = -axz X LINTLIBFLAG = -C X MAKE = make XSTD_CPP_DEFINES = X STD_DEFINES = -traditional -fwritable-strings X X########################################################################### X# site-specific configuration parameters - edit site.def to change X X# site: $XConsortium: site.def,v 1.16 88/10/12 10:30:24 jim Exp $ X X########################################################################### X# definitions common to all Makefiles - do not edit X X SHELL = /bin/sh X X DESTDIR = X USRLIBDIR = $(DESTDIR)/usr/lib X BINDIR = $(DESTDIR)/usr/bin/X11 X INCDIR = $(DESTDIR)/usr/include/X11 X ADMDIR = $(DESTDIR)/usr/adm X LIBDIR = $(USRLIBDIR)/X11 X LINTLIBDIR = $(USRLIBDIR)/lint X FONTDIR = $(LIBDIR)/fonts X XINITDIR = $(LIBDIR)/xinit X XDMDIR = $(LIBDIR)/xdm X UWMDIR = $(LIBDIR)/uwm X AWMDIR = $(LIBDIR)/awm X TWMDIR = $(LIBDIR)/twm X MANPATH = $(DESTDIR)/usr/man X MANSOURCEPATH = $(MANPATH)/man X MANDIR = $(MANSOURCEPATH)n X LIBMANDIR = $(MANSOURCEPATH)3 X XAPPLOADDIR = $(LIBDIR)/app-defaults X X INSTBINFLAGS = -m 0755 X INSTUIDFLAGS = -m 4755 X INSTLIBFLAGS = -m 0664 X INSTINCFLAGS = -m 0444 X INSTMANFLAGS = -m 0444 X INSTAPPFLAGS = -m 0444 X INSTKMEMFLAGS = -m 4755 X FCFLAGS = -t X CDEBUGFLAGS = -O X X PATHSEP = / X DEPEND = $(DEPENDSRC)/makedepend X IMAKE = $(IMAKESRC)/imake X RGB = $(RGBSRC)/rgb X FC = $(BDFTOSNFSRC)/bdftosnf X MKFONTDIR = $(MKFONTDIRSRC)/mkfontdir X MKDIRHIER = $(SCRIPTSSRC)/mkdirhier.sh X X CFLAGS = $(CDEBUGFLAGS) $(INCLUDES) $(STD_DEFINES) $(DEFINES) X LINTFLAGS = $(LINTOPTS) $(INCLUDES) $(STD_DEFINES) $(DEFINES) -DLINT X LDFLAGS = $(CDEBUGFLAGS) $(SYS_LIBRARIES) $(SYSAUX_LIBRARIES) X TOP = ./../../.. X CLIENTSRC = $(TOP)/clients X DEMOSRC = $(TOP)/demos X LIBSRC = $(TOP)/lib X FONTSRC = $(TOP)/fonts X INCLUDESRC = $(TOP)/X11 X SERVERSRC = $(TOP)/server X UTILSRC = $(TOP)/util X SCRIPTSSRC = $(UTILSRC)/scripts X EXAMPLESRC = $(TOP)/examples X CONTRIBSRC = $(TOP)/contrib X DOCSRC = $(TOP)/doc X RGBSRC = $(TOP)/rgb X DEPENDSRC = $(UTILSRC)/makedepend X IMAKESRC = $(UTILSRC)/imake X IRULESRC = $(UTILSRC)/imake.includes X XLIBSRC = $(LIBSRC)/X X XMUSRC = $(LIBSRC)/Xmu X TOOLKITSRC = $(LIBSRC)/Xt X AWIDGETSRC = $(LIBSRC)/Xaw X OLDXLIBSRC = $(LIBSRC)/oldX X BDFTOSNFSRC = $(FONTSRC)/bdftosnf X MKFONTDIRSRC = $(FONTSRC)/mkfontdir X EXTENSIONSRC = $(TOP)/extensions X EXTENSIONLIB = $(EXTENSIONSRC)/lib/libXext.a X XLIB = $(XLIBSRC)/libX11.a X XMULIB = $(XMUSRC)/libXmu.a X OLDXLIB = $(OLDXLIBSRC)/liboldX.a X XTOOLLIB = $(TOOLKITSRC)/libXt.a X XAWLIB = $(AWIDGETSRC)/libXaw.a X LINTXLIB = $(XLIBSRC)/llib-lX11.ln X LINTXMU = $(XMUSRC)/llib-lXmu.ln X LINTXTOOL = $(TOOLKITSRC)/llib-lXt.ln X LINTXAW = $(AWIDGETSRC)/llib-lXaw.ln X INCLUDES = -I$(TOP) X MACROFILE = Vax.macros X ICONFIGFILES = $(IRULESRC)/Imake.tmpl \ X $(IRULESRC)/$(MACROFILE) $(IRULESRC)/site.def X IMAKE_DEFINES = X IMAKE_CMD = $(NEWTOP)$(IMAKE) -TImake.tmpl -I$(NEWTOP)$(IRULESRC) \ X -s Makefile $(IMAKE_DEFINES) X RM_CMD = $(RM) *.CKP *.ln *.BAK *.bak *.o core errs ,* *~ *.a \ X .emacs_* tags TAGS make.log MakeOut X X########################################################################### X# rules: $XConsortium: Imake.rules,v 1.71 88/10/23 22:46:34 jim Exp $ X X########################################################################### X# start of Imakefile X X SRCS = xlogin.c X OBJS = xlogin.o XLOCAL_LIBRARIES = $(XAWLIB) $(XMULIB) $(XTOOLLIB) $(XLIB) X X PROGRAM = xlogin X Xall:: xlogin X Xxlogin: $(OBJS) $(LOCAL_LIBRARIES) X $(RM) $@ X $(CC) -o $@ $(OBJS) $(LOCAL_LIBRARIES) $(LDFLAGS) $(SYSLAST_LIBRARIES) X Xrelink:: X $(RM) $(PROGRAM) X $(MAKE) $(MFLAGS) $(PROGRAM) X Xinstall:: xlogin X $(INSTALL) -c $(INSTALLFLAGS) xlogin $(BINDIR) X Xinstall.man:: xlogin.man X $(INSTALL) -c $(INSTMANFLAGS) xlogin.man $(MANDIR)/xlogin.n X Xdepend:: $(DEPEND) X Xdepend:: X $(DEPEND) -s "# DO NOT DELETE" -- $(CFLAGS) -- $(SRCS) X X$(DEPEND): X @echo "making $@"; \ X cd $(DEPENDSRC); $(MAKE) X Xclean:: X $(RM) $(PROGRAM) X X########################################################################### X# Imake.tmpl common rules for all Makefiles - do not edit X Xemptyrule:: X Xclean:: X $(RM_CMD) \#* X XMakefile:: $(IMAKE) X XMakefile:: Imakefile \ X $(IRULESRC)/Imake.tmpl \ X $(IRULESRC)/Imake.rules \ X $(IRULESRC)/site.def \ X $(IRULESRC)/$(MACROFILE) X -@if [ -f Makefile ]; then \ X echo "$(RM) Makefile.bak; $(MV) Makefile Makefile.bak"; \ X $(RM) Makefile.bak; $(MV) Makefile Makefile.bak; \ X else exit 0; fi X $(IMAKE_CMD) -DTOPDIR=$(TOP) X X$(IMAKE): X @echo "making $@"; \ X cd $(IMAKESRC); $(MAKE) BOOTSTRAPCFLAGS=$(BOOTSTRAPCFLAGS) X Xtags:: X $(TAGS) -w *.[ch] X $(TAGS) -xw *.[ch] > TAGS X X########################################################################### X# empty rules for directories that do not have SUBDIRS - do not edit X Xinstall:: X @echo "install done" X Xinstall.man:: X @echo "install.man done" X XMakefiles:: X X########################################################################### X# dependencies generated by makedepend X X# DO NOT DELETE X Xxlogin.o: /usr/include/sys/param.h /usr/include/machine/param.h Xxlogin.o: /usr/include/sys/signal.h /usr/include/sys/types.h Xxlogin.o: /usr/include/sys/quota.h /usr/include/sys/stat.h Xxlogin.o: /usr/include/sys/time.h /usr/include/errno.h /usr/include/lastlog.h Xxlogin.o: /usr/include/pwd.h /usr/include/utmp.h /usr/include/stdio.h Xxlogin.o: ./../../../X11/StringDefs.h ./../../../X11/Intrinsic.h Xxlogin.o: ./../../../X11/Xlib.h ./../../../X11/X.h ./../../../X11/Xutil.h Xxlogin.o: ./../../../X11/Xresource.h ./../../../X11/Xos.h Xxlogin.o: /usr/include/strings.h /usr/include/sys/file.h Xxlogin.o: ./../../../X11/Core.h ./../../../X11/Composite.h Xxlogin.o: ./../../../X11/Constraint.h ./../../../X11/Command.h Xxlogin.o: ./../../../X11/Label.h ./../../../X11/Simple.h Xxlogin.o: ./../../../X11/copyright.h ./../../../X11/Xmu.h Xxlogin.o: ./../../../X11/Form.h ./../../../X11/Constraint.h Xxlogin.o: ./../../../X11/AsciiText.h ./../../../X11/Text.h patchlevel.h END_OF_FILE if test 8014 -ne `wc -c <'Makefile'`; then echo shar: \"'Makefile'\" unpacked with wrong size! fi # end of 'Makefile' fi if test -f 'patchlevel.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'patchlevel.h'\" else echo shar: Extracting \"'patchlevel.h'\" \(21 characters\) sed "s/^X//" >'patchlevel.h' <<'END_OF_FILE' X#define PATCHLEVEL 0 END_OF_FILE if test 21 -ne `wc -c <'patchlevel.h'`; then echo shar: \"'patchlevel.h'\" unpacked with wrong size! fi # end of 'patchlevel.h' fi if test -f 'xlogin.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'xlogin.c'\" else echo shar: Extracting \"'xlogin.c'\" \(13294 characters\) sed "s/^X//" >'xlogin.c' <<'END_OF_FILE' X/* X * xlogin - X login manager X * X * $Header: gshalle2 xlogin.c,v 1.6 89/05/22 17:49:56 stumpf Exp $ X * X * Copyright 1989 Technische Universitaet Muenchen (TUM), Germany X * X * Permission to use, copy, modify, and distribute this software and its X * documentation for any purpose and without fee is hereby granted, provided X * that the above copyright notice appear in all copies and that both that X * copyright notice and this permission notice appear in supporting X * documentation, and that the name of TUM not be used in advertising or X * publicity pertaining to distribution of the software without specific, X * written prior permission. TUM makes no representations about the X * suitability of this software for any purpose. It is provided "as is" X * without express or implied warranty. X * X * X * Author: Markus Stumpf, Technische Universitaet Muenchen X * (stumpf@lan.informatik.tu-muenchen.dbp.de) X * X * $Source: /usr/wiss/stumpf/work/xlogin/RCS/xlogin.c,v $ X * X */ X X#include <sys/param.h> X#include <sys/quota.h> X#include <sys/stat.h> X#include <sys/time.h> X#include <sys/types.h> X X#include <errno.h> X#include <lastlog.h> X#include <pwd.h> X#include <utmp.h> X#include <stdio.h> X X#include <X11/StringDefs.h> X#include <X11/Intrinsic.h> X#include <X11/Command.h> X#include <X11/Form.h> X#include <X11/AsciiText.h> X X#include "patchlevel.h" X X X#define MAXLEN 1024 X X#define STRCPY(a, b) strncpy(a, b, sizeof(a)) X Xstruct passwd *pwd; Xstruct utmp wtmp; X Xchar path_delimiter[]= "/"; Xchar XTTYname[] = "Xlogin"; Xchar HushLog[] = ".hushlogin"; Xchar XLogFile[] = ".Xlogin"; Xchar HushLogin[MAXLEN]; Xchar Lastlog[] = "/usr/adm/lastlog"; Xchar Wtmp[] = "/usr/adm/wtmp"; Xchar Motd[] = "/etc/motd"; Xchar NoLogin[] = "/etc/nologin"; Xchar lastltime[100]; Xchar Myname[255]; Xchar XLogin[MAXLEN]; X Xint do_login = TRUE; Xint do_logout; Xint info_atall; Xint info_eproclim = FALSE; Xint info_eusers = FALSE; Xint info_lastlog = FALSE; Xint info_motd = FALSE; Xint info_nolog = FALSE; Xint is_hushlogin; X Xchar *strcat(), *getenv(); Xint strlen(); X Xextern int errno; Xextern int lseek(), exit(); X Xstatic void ExitMotd(); Xstatic XtCallbackRec callbacks[] = X { {ExitMotd, NULL}, {NULL, NULL} }; X X X X/* X * This is the routine that is called on press of the X * endbutton; exits program when login permitted X */ Xstatic void ExitMotd() X{ X exit(!do_login); X} X X X X/* X * This procedure is called to initialize the passwd struct, X * the paths to the various files and the utmp struct. X */ Xvoid Init() X{ X char *user, *home; X int home_len; X X /* X * get the user from the environment X */ X if ((user = getenv("USER")) == NULL) { X fprintf(stderr,"%s: cannot getenv(\"USER\") \n", Myname); X exit(1); X } X /* X * get the passwd entry of the user X */ X if ((pwd = getpwnam(user)) == NULL) { X endpwent(); X fprintf(stderr,"%s: cannot getpwnam(%s) \n", Myname, user); X exit(1); X } X endpwent(); X /* X * set the path to the users home directory X */ X if ((home = getenv("HOME")) == NULL) { X home = pwd->pw_dir; X } X /* X * build up the variables pointing to the files we want X * to use and check, whether we reserved enough space X * otherwise exit X */ X home_len = strlen(home) + 1; /* pathname + delimiter */ X if (home_len >= MAXLEN) { X fprintf(stderr, "%s: pathname length overflow \n"); X exit(1); X } X STRCPY(HushLogin, home); strcat(HushLogin, path_delimiter); X STRCPY(XLogin, home); strcat(XLogin, path_delimiter); X if (home_len + strlen(HushLog) > MAXLEN) { X fprintf(stderr, "%s: pathname length overflow \n"); X exit(1); X } X if (home_len + strlen(XLogFile) > MAXLEN) { X fprintf(stderr, "%s: pathname length overflow \n"); X exit(1); X } X strncat(HushLogin, HushLog, MAXLEN-strlen(HushLogin)); X strncat(XLogin, XLogFile, MAXLEN-strlen(XLogFile)); X X /* X * set up the utmp struct for the wtmp file X */ X STRCPY(wtmp.ut_name, pwd->pw_name); X STRCPY(wtmp.ut_host, EMPTY); X STRCPY(wtmp.ut_line, XTTYname); X time((long *) &wtmp.ut_time); X X /* X * check if $HOME/.hushlogin exists and set the X * appropriate flag X */ X is_hushlogin = (access(HushLogin, F_OK) == 0); X} X X X X/* X * this procedure checks, whether logins are permitted X * and sets the appropriate flags X */ Xvoid CheckNologin() X{ X if (access(NoLogin, F_OK) == 0) { X /* X * deny login only, if user not root X */ X do_login = FALSE | (pwd->pw_uid == 0); X info_nolog = TRUE; X } X} X X X X/* X * deny login because of bad quota ? X */ Xvoid CheckQuota() X{ X if ((quota(Q_SETUID, pwd->pw_uid, 0, (caddr_t) 0) < 0) X && (errno != EINVAL)) { X if (errno == EUSERS) { X do_login = FALSE; X info_eusers = TRUE; X } else { X if (errno = EPROCLIM) { X do_login = FALSE; X info_eproclim = TRUE; X } X } X } X} X X X X/* X * check if motd file exists and whether it is newer than X * a eventually existing file $HOME/.Xlogin X */ Xvoid CheckMotd() X{ X struct stat buf; X time_t xlast; X X info_motd = TRUE; X if (stat(XLogin, &buf) == 0) { X xlast = buf.st_mtime; X utime(XLogin, NULL); X } else xlast = (time_t) 0; X X if (stat(Motd, &buf) == 0) X info_motd = (xlast < buf.st_mtime); X else info_motd = FALSE; X X /* X * display motd only if no .hushlogin exists X */ X info_motd = info_motd && !is_hushlogin; X} X X X X/* X * this procedure writes the wtmp entry X */ Xvoid WriteWtmp() X{ X int wtmpfd; X X /* X * write only if file exists, don't create it X */ X if ((wtmpfd = open(Wtmp, O_WRONLY|O_APPEND)) >= 0) { X write(wtmpfd, (char *) &wtmp, sizeof(wtmp)); X close(wtmpfd); X } X} X X X X/* X * this procedure reads from and writes to the X * lastlogin file. If none exists, it will not be created. X */ Xvoid DoLastLogin() X{ X struct lastlog rll, wll; X int llfd; /* Lastlog file descriptor */ X X STRCPY(lastltime, "Last Login: "); X if ((llfd = open(Lastlog, O_RDWR)) >= 0) { X /* X * get time of last login, if any X */ X lseek(llfd, (long) pwd->pw_uid * sizeof(struct lastlog), 0); X if (read(llfd, (char *) &rll, sizeof(rll)) == sizeof(rll) X && (rll.ll_time != 0)) { X strncat(lastltime, ctime((long *) &rll.ll_time), 24); X if (strcmp(rll.ll_host, "") != 0) { X strcat(lastltime, " from "); X strcat(lastltime, rll.ll_host); X } X info_lastlog = !is_hushlogin; X } X /* X * write new last login time X */ X lseek(llfd, (long) pwd->pw_uid * sizeof(struct lastlog), 0); X wll.ll_time = wtmp.ut_time; X STRCPY(wll.ll_line, XTTYname); X STRCPY(wll.ll_host, wtmp.ut_host); X write(llfd, (char *) &wll, sizeof(wll)); X close(llfd); X } X} X X X X/* X * this procedure does all the display stuff: X * defining, creating and starting widgets X */ Xvoid DoXDisplay(argc, argv) X int argc; X char *argv[]; X{ X#define LABELLEN 255 X Widget toplevel, form, endbutton, lastlogin, motd, X eproclim, eusers, motd_label, nologin_label; X Widget queue; X Arg args[11]; X int width, height, X dpywidth, dpyheight, X formwidth, formheight; X char motd_label_text[LABELLEN], nolog_label_text[LABELLEN]; X X /* X * THIS IS UGLY, but don't how to do it better in the moment. X * I assume a 6x13 font and set width and height to X * 12 lines and 80 columns X */ X width = 80 * 6; X height = 12 * 13; X X toplevel = XtInitialize(NULL, "XLogin", NULL, 0, &argc, argv); X X form = XtCreateWidget("form", formWidgetClass, toplevel, X (ArgList) NULL, 0); X XtManageChild(form); X X queue = (Widget) NULL; X X if (info_lastlog) { X XtSetArg(args[0], XtNresize, True); X XtSetArg(args[1], XtNjustify, XtJustifyCenter); X XtSetArg(args[2], XtNlabel, lastltime); X XtSetArg(args[3], XtNborderWidth, (Dimension) 0); X XtSetArg(args[4], XtNwidth, (Dimension) width); X lastlogin = XtCreateWidget("lastlogin", labelWidgetClass, form, X args, 5); X XtManageChild(lastlogin); X queue = lastlogin; X } X X if (do_login) { X if (info_motd) { X strcpy(motd_label_text,"Message Of The Day follows:"); X } else { X STRCPY(motd_label_text, "Nothing changed in "); X strncat(motd_label_text, Motd, X LABELLEN-strlen(motd_label_text)); X strncat(motd_label_text, " since your last login", X LABELLEN-strlen(motd_label_text)); X } X } else { X STRCPY(motd_label_text, "Sorry, no login permitted"); X } X X XtSetArg(args[0], XtNresize, True); X XtSetArg(args[1], XtNjustify, XtJustifyCenter); X XtSetArg(args[2], XtNlabel, motd_label_text); X XtSetArg(args[3], XtNborderWidth, (Dimension) 0); X XtSetArg(args[4], XtNfromVert, queue); X XtSetArg(args[5], XtNwidth, (Dimension) width); X motd_label = XtCreateWidget("motd_label", labelWidgetClass, form, X (ArgList) args, 6); X XtManageChild(motd_label); X queue = motd_label; X X if (info_eusers) { X XtSetArg(args[0], XtNresize, True); X XtSetArg(args[1], XtNjustify, XtJustifyCenter); X XtSetArg(args[2], XtNlabel, X "Too many users already logged in. Try again later"); X XtSetArg(args[3], XtNborderWidth, (Dimension) 0); X XtSetArg(args[4], XtNfromVert, queue); X XtSetArg(args[5], XtNwidth, (Dimension) width); X eusers = XtCreateWidget("eusers", labelWidgetClass, form, X (ArgList) args, 6); X XtManageChild(eusers); X queue = eusers; X } X X X if (info_eproclim) { X XtSetArg(args[0], XtNresize, True); X XtSetArg(args[1], XtNjustify, XtJustifyCenter); X XtSetArg(args[2], XtNlabel, X "You have too many processes running."); X XtSetArg(args[3], XtNborderWidth, (Dimension) 0); X XtSetArg(args[4], XtNfromVert, queue); X XtSetArg(args[5], XtNwidth, (Dimension) width); X eproclim = XtCreateWidget("eproclim", labelWidgetClass, form, X (ArgList) args, 6); X XtManageChild(eproclim); X queue = eproclim; X } X X if (info_nolog) { X STRCPY(nolog_label_text, "Text in file "); X strncat(nolog_label_text, NoLogin, X LABELLEN-strlen(nolog_label_text)); X strncat(nolog_label_text, " follows:", X LABELLEN-strlen(nolog_label_text)); X XtSetArg(args[0], XtNresize, True); X XtSetArg(args[1], XtNjustify, XtJustifyCenter); X XtSetArg(args[2], XtNlabel, nolog_label_text); X XtSetArg(args[3], XtNborderWidth, (Dimension) 0); X XtSetArg(args[4], XtNfromVert, queue); X XtSetArg(args[5], XtNwidth, (Dimension) width); X nologin_label = XtCreateWidget("nologin_label", labelWidgetClass, form, X (ArgList) args, 6); X XtManageChild(nologin_label); X queue = nologin_label; X X XtSetArg(args[0], XtNfile, NoLogin); X XtSetArg(args[1], XtNtextOptions, resizeWidth|resizeHeight| X scrollVertical|scrollHorizontal); X XtSetArg(args[2], XtNeditType, XttextRead); X XtSetArg(args[3], XtNfromVert, queue); X XtSetArg(args[4], XtNheight, (Dimension) height); X XtSetArg(args[5], XtNwidth, (Dimension) width); X motd = XtCreateWidget("motd", asciiDiskWidgetClass, form, X (ArgList) args, 6); X XtManageChild(motd); X queue = motd; X } else { X if (info_motd) { X XtSetArg(args[0], XtNfile, Motd); X XtSetArg(args[1], XtNtextOptions, resizeWidth|resizeHeight| X scrollVertical|scrollHorizontal); X XtSetArg(args[2], XtNeditType, XttextRead); X XtSetArg(args[3], XtNfromVert, queue); X XtSetArg(args[4], XtNheight, (Dimension) height); X XtSetArg(args[5], XtNwidth, (Dimension) width); X motd = XtCreateWidget("motd", asciiDiskWidgetClass, form, X (ArgList) args, 6); X XtManageChild(motd); X queue = motd; X } X } X X XtSetArg(args[0], XtNcallback, callbacks); X XtSetArg(args[1], XtNjustify, XtJustifyCenter); X XtSetArg(args[2], XtNresize, True); X XtSetArg(args[3], XtNresizable, False); X XtSetArg(args[4], XtNwidth, (Dimension) width); X XtSetArg(args[5], XtNfromVert, queue); X XtSetArg(args[6], XtNborderWidth, (Dimension) 2); X XtSetArg(args[7], XtNhighlightThickness, (Dimension) 2); X XtSetArg(args[8], XtNinternalHeight, (Dimension) 3); X XtSetArg(args[9], XtNinternalWidth, (Dimension) 3); X XtSetArg(args[10],XtNlabel, "Click here to continue"); X endbutton = XtCreateWidget("endbutton", commandWidgetClass, form, X (ArgList) args, 11); X XtManageChild(endbutton); X queue = endbutton; X X /* X * Get the size of the screen. X * Want the window to be centered. X */ X dpywidth = DisplayWidth(XtDisplay(form), DefaultScreen(XtDisplay(form))); X dpyheight = DisplayHeight(XtDisplay(form), DefaultScreen(XtDisplay(form))); X X /* X * Don't map, but realize it, to get the size of the window X */ X XtSetMappedWhenManaged(toplevel, False); X XtRealizeWidget(toplevel); X X while (!XtIsRealized(form)) X formwidth=2; X X /* X * Get the size of the window X */ X args[0].name = XtNwidth; X args[0].value = (XtArgVal) &formwidth; X args[1].name = XtNheight; X args[1].value = (XtArgVal) &formheight; X XtGetValues(form, args, 2); X X /* X * Place the window centered on the screen. X */ X XtMoveWidget(toplevel, (Position) (dpywidth - formwidth) / 2, X (Position) (dpyheight - formheight) / 2); X X /* X * Now map the window to get it visible X */ X XtSetMappedWhenManaged(toplevel, True); X XtMapWidget(toplevel); X /* X * Warp the pointer in the button-click window X */ X XWarpPointer(XtDisplay(toplevel), (Window) NULL, XtWindow(endbutton), X 0, 0, 0, 0, width/2, 3); X XtMainLoop(); X} X X X Xmain(argc, argv) X int argc; X char *argv[]; X{ X STRCPY(Myname, argv[0]); X X do_logout = FALSE; X if (argc > 1) { X do_logout = (strcmp(argv[1], "-logout") == 0); X if (!do_logout) { X fprintf(stderr,"%s: unknown option %s \n",Myname, X argv[1]); X fprintf(stderr,"Usage:\n %s [-logout] \n",Myname); X exit(1); X } X } X do_login = !do_logout; X X Init(); X X if (do_logout) { X STRCPY(wtmp.ut_name, EMPTY); X WriteWtmp(); X exit(0); X } X X CheckNologin(); X CheckQuota(); X X if (do_login) { X WriteWtmp(); X DoLastLogin(); X CheckMotd(); X } X X info_atall = info_lastlog | info_motd | info_eusers X | info_eproclim | info_nolog; X if (info_atall) { X DoXDisplay(argc, argv); X } X} END_OF_FILE if test 13294 -ne `wc -c <'xlogin.c'`; then echo shar: \"'xlogin.c'\" unpacked with wrong size! fi # end of 'xlogin.c' fi if test -f 'xlogin.man' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'xlogin.man'\" else echo shar: Extracting \"'xlogin.man'\" \(2955 characters\) sed "s/^X//" >'xlogin.man' <<'END_OF_FILE' X.TH XLOGIN 1 "25 April 1989" "X Version 11" X.SH NAME Xxlogin - login for X X.SH SYNOPSIS X.B "xlogin" X[-logout] X.SH SUMMARY X.PP XThe X.I xlogin Xutility is for logging in from \fIxdm(1)\fB . It supports motd, wtmp, Xlastlog, nologin and quota handling. X.SH OPTIONS X.PP X.TP 8 X.B "-logout" Xonly writes an logout entry to the wtmp file X.SH DESCRIPTION X.PP XThe \fIxlogin\fP Xcommand is used, after \fIxdm(1)\fP has validated the password and Xlet the user log in. It should be called from within the Xstartup file X(run setuid root) and again with the \-logout option from within Xthe Xreset file. (see \fIxdm(1)\fP for more information on these files) X.PP X\fIXlogin\fP does all the login stuff \fIxdm(1)\fP does not: X.ta \w'.\ \ 'u X.br X.PP X\- it checks, whether the file /etc/nolog exists and displays its contents Xin a window. X.br X.PP X\- it checks the users quota and displays appropriate messages, if exceeded. XNo login is permitted in this case. X.br X.PP X\- if login is permitted, it writes an entry to the /usr/adm/wtmp Xfile indicating Xlogin as the user's tty. If the file does not exist, Xnone is created. X.br X.PP X\- if login is permitted, it writes an entry to /usr/adm/lastlog Xindicating Xlogin as the user's tty. If the file does not exist, Xnone is created. X.br X.PP X\- it checks, whether a $HOME/.hushlogin file exists. No message-of-the-day Xand no last login message is diplayed in this case. X.br X.PP X\- it checks, whether a $HOME/.Xlogin file exists, compares its Xlast change time against those of the /etc/motd file, displays the Xmotd if this file is newer and touches the .Xlogin file. If no .Xlogin Xfile exists /etc/motd is displayed every time. X.br X.PP XIf anything is to be displayed, \fIxlogin\fP Xcreates a window and waits for a button click to exit. X.SH RETURN VALUE X.PP XIf login is permitted \fIxlogin\fP returns 0 otherwise the value 1 Xis returned. X.SH ENVIRONMENT X.PP X.TP 8 X.B DISPLAY XTo get default display. X.TP 8 X.B USER XTo get the name of the user to log in. (normally set by \fIxdm(1)\fP Xcorrectly.) X.TP 8 X.B HOME XTo get the user's home directory. If not set, it is obtained from /etc/passwd. X.PP X.SH EXAMPLES X.PP Xin the file Xstartup: X.PP X /usr/local/dist/xlogin X.PP X.PP Xin the file Xstartup: X.PP X /usr/local/dist/xlogin -logout X.SH FILES X.ta \w'/usr/adm/lastlog\ \ 'u X/usr/adm/wtmp accounting X.br X/usr/adm/lastlog last logins X.br X/etc/motd message-of-the-day X.br X/etc/nologin stops login X.br X/etc/passwd passwd file X.br X\&.hushlogin makes xlogin much quieter X.br X\&.Xlogin makes xlogin a bit quieter X.SH WINDOW XTo display the contents of /etc/motd or /etc/nologin, a widget Xof 12x80 characters is created. XAll other messages are boxes up to 80 characters in width. X.SH BUGS XA font of 6x13 is assumed, to set the width and height of the Xvarious widgets. X.SH SEE ALSO XX(1), xdm(1), login(1) X.SH COPYRIGHT XCopyright 1989, Technische Universitaet Muenchen (TUM). X.SH AUTHOR XMarkus Stumpf, TU Muenchen X (stumpf@lan.informatik.tu-muenchen.dbp.de) END_OF_FILE if test 2955 -ne `wc -c <'xlogin.man'`; then echo shar: \"'xlogin.man'\" unpacked with wrong size! fi # end of 'xlogin.man' fi echo shar: End of shell archive. exit 0