BSD 4 release

[unix-history] / usr / src / cmd / login.c

diff --git a/usr/src/cmd/login.c b/usr/src/cmd/login.c
index 5ff334a..656910d 100644 (file)
--- a/usr/src/cmd/login.c
+++ b/usr/src/cmd/login.c
@@ -1,3 +1,4 @@
+static char *sccsid = "@(#)login.c     4.6 (Berkeley) 11/11/80";

 /*
  * login [ name ]
  */
 /*
  * login [ name ]
  */


@@ -9,15 +10,24 @@
 #include <pwd.h>
 #include <stdio.h>
 #include <sys/stat.h>
 #include <pwd.h>
 #include <stdio.h>
 #include <sys/stat.h>

+#include <lastlog.h>
+#include <whoami.h>

 #define SCPYN(a, b)    strncpy(a, b, sizeof(a))
 
 #define SCPYN(a, b)    strncpy(a, b, sizeof(a))
 

+#define NMAX sizeof(utmp.ut_name)
+#define LMAX sizeof(utmp.ut_line)
+
+char   user[20];

 char   maildir[30] =   "/usr/spool/mail/";
 char   maildir[30] =   "/usr/spool/mail/";

+char   lastlog[] =     "/usr/adm/lastlog";

 struct passwd nouser = {"", "nope"};
 struct sgttyb ttyb;
 struct utmp utmp;
 char   minusnam[16] = "-";
 char   homedir[64] = "HOME=";
 struct passwd nouser = {"", "nope"};
 struct sgttyb ttyb;
 struct utmp utmp;
 char   minusnam[16] = "-";
 char   homedir[64] = "HOME=";

-char   *envinit[] = {homedir, "PATH=:/bin:/usr/bin", 0};
+char   shell[64] = "SHELL=";
+char   term[64] = "TERM=";
+char   *envinit[] = {homedir, shell, "PATH=:/usr/ucb:/bin:/usr/bin", term, user,0};

 struct passwd *pwd;
 
 struct passwd *getpwnam();
 struct passwd *pwd;
 
 struct passwd *getpwnam();


@@ -27,14 +37,32 @@ char        *ttyname();
 char   *crypt();
 char   *getpass();
 char   *rindex();
 char   *crypt();
 char   *getpass();
 char   *rindex();

+char   *stypeof();

 extern char **environ;
 
 extern char **environ;
 

+#define        CTRL(c) ('c'&037)
+#define        CERASE  '#'
+#define        CEOT    CTRL(d)
+#define        CKILL   '@'
+#define        CQUIT   034             /* FS, cntl shift L */
+#define        CINTR   0177            /* DEL */
+#define        CSTOP   CTRL(s)
+#define        CSTART  CTRL(q)
+#define        CBRK    0377
+struct tchars tc = {
+       CINTR, CQUIT, CSTART, CSTOP, CEOT, CBRK
+};
+struct ltchars ltc = {
+       CTRL(z), CTRL(y), CTRL(r), CTRL(o), CTRL(w), CTRL(v)
+};
+

 main(argc, argv)
 char **argv;
 {
        register char *namep;
        int t, f, c;
        char *ttyn;
 main(argc, argv)
 char **argv;
 {
        register char *namep;
        int t, f, c;
        char *ttyn;

+       int ldisc = 0;

 
        alarm(60);
        signal(SIGQUIT, SIG_IGN);
 
        alarm(60);
        signal(SIGQUIT, SIG_IGN);


@@ -42,10 +70,14 @@ char **argv;
        nice(-100);
        nice(20);
        nice(0);
        nice(-100);
        nice(20);
        nice(0);

+       ioctl(0, TIOCLSET, 0);
+       ioctl(0, TIOCNXCL, 0);

        gtty(0, &ttyb);
        ttyb.sg_erase = '#';
        ttyb.sg_kill = '@';
        stty(0, &ttyb);
        gtty(0, &ttyb);
        ttyb.sg_erase = '#';
        ttyb.sg_kill = '@';
        stty(0, &ttyb);

+       ioctl(0, TIOCSETC, &tc);
+       ioctl(0, TIOCSLTC, &ltc);

        for (t=3; t<20; t++)
                close(t);
        ttyn = ttyname(0);
        for (t=3; t<20; t++)
                close(t);
        ttyn = ttyname(0);


@@ -53,6 +85,8 @@ char **argv;
                ttyn = "/dev/tty??";
 
     loop:
                ttyn = "/dev/tty??";
 
     loop:

+       ldisc = 0;
+       ioctl(0, TIOCSETD, &ldisc);

        SCPYN(utmp.ut_name, "");
        if (argc>1) {
                SCPYN(utmp.ut_name, argv[1]);
        SCPYN(utmp.ut_name, "");
        if (argc>1) {
                SCPYN(utmp.ut_name, argv[1]);


@@ -66,7 +100,7 @@ char **argv;
                                c = '_';
                        if (c == EOF)
                                exit(0);
                                c = '_';
                        if (c == EOF)
                                exit(0);

-                       if (namep < utmp.ut_name+8)
+                       if (namep < utmp.ut_name+NMAX)

                                *namep++ = c;
                }
        }
                                *namep++ = c;
                }
        }


@@ -74,13 +108,55 @@ char **argv;
        if ((pwd = getpwnam(utmp.ut_name)) == NULL)
                pwd = &nouser;
        endpwent();
        if ((pwd = getpwnam(utmp.ut_name)) == NULL)
                pwd = &nouser;
        endpwent();

+       if (!strcmp(pwd->pw_shell, "/bin/csh")) {
+               ldisc = NTTYDISC;
+               ioctl(0, TIOCSETD, &ldisc);
+       }

        if (*pwd->pw_passwd != '\0') {
        if (*pwd->pw_passwd != '\0') {

+               nice(-4);

                namep = crypt(getpass("Password:"),pwd->pw_passwd);
                namep = crypt(getpass("Password:"),pwd->pw_passwd);

+               nice(4);

                if (strcmp(namep, pwd->pw_passwd)) {
                if (strcmp(namep, pwd->pw_passwd)) {

+bad:

                        printf("Login incorrect\n");
                        printf("Login incorrect\n");

+                       if (ttyn[LMAX] == 'd') {
+                               FILE *console = fopen("/dev/console", "w");
+                               if (console != NULL) {
+                                       fprintf(console, "\r\nBADDIALUP %s %s\r\n", ttyn+5, utmp.ut_name);
+                                       fclose(console);
+                               }
+                       }

                        goto loop;
                }
        }
                        goto loop;
                }
        }

+       sprintf(user, "USER=%.*s", NMAX, pwd->pw_name);
+#ifdef ERNIE
+       if (pwd->pw_uid == 0 && ttyn[5] != 'c')
+               goto bad;
+#endif
+       if (ttyn[LMAX] == 'd') {
+               FILE *console = fopen("/dev/console", "w");
+               if (console != NULL) {
+                       fprintf(console, "\r\nDIALUP %s %s\r\n", ttyn+5, pwd->pw_name);
+                       fclose(console);
+               }
+       }
+       if((f = open(lastlog, 2)) >= 0) {
+               struct lastlog ll;
+
+               lseek(f, (long) pwd->pw_uid * sizeof (struct lastlog), 0);
+               if (read(f, (char *) &ll, sizeof ll) == sizeof ll && ll.ll_time != 0) {
+                       register char *ep = (char *) ctime(&ll.ll_time);
+                       printf("Last login: ");
+                       ep[24 - 5] = 0;
+                       printf("%s on %.*s\n", ep, LMAX, ll.ll_line);
+               }
+               lseek(f, (long) pwd->pw_uid * sizeof (struct lastlog), 0);
+               time(&ll.ll_time);
+               strcpyn(ll.ll_line, ttyn+5, LMAX);
+               write(f, (char *) &ll, sizeof ll);
+               close(f);
+       }

        if(chdir(pwd->pw_dir) < 0) {
                printf("No directory\n");
                goto loop;
        if(chdir(pwd->pw_dir) < 0) {
                printf("No directory\n");
                goto loop;


@@ -105,13 +181,15 @@ char **argv;
                pwd->pw_shell = "/bin/sh";
        environ = envinit;
        strncat(homedir, pwd->pw_dir, sizeof(homedir)-6);
                pwd->pw_shell = "/bin/sh";
        environ = envinit;
        strncat(homedir, pwd->pw_dir, sizeof(homedir)-6);

+       strncat(shell, pwd->pw_shell, sizeof(shell)-7);
+       strncat(term, stypeof(ttyn), sizeof(term)-6);

        if ((namep = rindex(pwd->pw_shell, '/')) == NULL)
                namep = pwd->pw_shell;
        else
                namep++;
        strcat(minusnam, namep);
        alarm(0);
        if ((namep = rindex(pwd->pw_shell, '/')) == NULL)
                namep = pwd->pw_shell;
        else
                namep++;
        strcat(minusnam, namep);
        alarm(0);

-       umask(02);
+       umask(022);

        showmotd();
        strcat(maildir, pwd->pw_name);
        if(access(maildir,4)==0) {
        showmotd();
        strcat(maildir, pwd->pw_name);
        if(access(maildir,4)==0) {


@@ -147,3 +225,43 @@ showmotd()
        }
        signal(SIGINT, SIG_IGN);
 }
        }
        signal(SIGINT, SIG_IGN);
 }

+
+#define UNKNOWN "su"
+
+char *
+stypeof(ttyid)
+char   *ttyid;
+{
+       static char     typebuf[16];
+       char            buf[50];
+       register FILE   *f;
+       register char   *p, *t, *q;
+
+       if (ttyid == NULL)
+               return (UNKNOWN);
+       f = fopen("/etc/ttytype", "r");
+       if (f == NULL)
+               return (UNKNOWN);
+       /* split off end of name */
+       for (p = q = ttyid; *p != 0; p++)
+               if (*p == '/')
+                       q = p + 1;
+
+       /* scan the file */
+       while (fgets(buf, sizeof buf, f) != NULL)
+       {
+               for (t=buf; *t!=' '; t++)
+                       ;
+               *t++ = 0;
+               for (p=t; *p>' '; p++)
+                       ;
+               *p = 0;
+               if (strcmp(q,t)==0) {
+                       strcpy(typebuf, buf);
+                       fclose(f);
+                       return (typebuf);
+               }
+       }
+       fclose (f);
+       return (UNKNOWN);
+}