[moira.git] / clients / userreg / userreg.c

/*
 * $Source$
 * $Author$
 * $Locker$
 * $Header$ 
 *
 *  (c) Copyright 1988 by the Massachusetts Institute of Technology.
 *  For copying and distribution information, please see the file
 *  <mit-copyright.h>.
 */

#ifndef lint
static char    *rcsid_userreg_c = "$Header$";
#endif	lint

#include <mit-copyright.h>
#include <curses.h>
#include <signal.h>
#include <sys/time.h>
#include <setjmp.h>
#include <ctype.h>
#include <krb.h>
#include <errno.h>
#include "userreg.h"
#include "ureg_err.h"

#define EXIT -1


struct user     user, db_user;
struct alias    alias;
char            typed_mit_id[100];

jmp_buf         redo;
int             restart();

extern int      errno;
int             user_is_valid = 0;
int		user_has_login = 0;
int             already_registered = 0;
extern char *disabled();

fix_display(sig)
{
	signal(sig, SIG_IGN);	/* let us clean up, please */
	noraw();
	echo();
	endwin();
	exit(1);
}

main(argc, argv)
	int             argc;
	char          **argv;
{
	register int    ntimes;
	register int    reencrypt;
	char            line[100], *when, *msg;
	int status;
	char tmpfirst[100], tmplast[100], tmpmid[100];
	
	status = ureg_init();
	if (status) {
		com_err(argv[0], status, "while trying to initialize");
		exit(1);
	}

	if (when = disabled(&msg)) {
	    printf("We're sorry, the registration service is unavailable right now\n");
	    if (msg)
	      printf("because %s\n", msg);
	    printf("You should be able to register after %s", when);
	    printf("\nPress ENTER or RETURN to continue ");
	    fflush(stdout);
	    getchar();
	    exit(0);
	}

	setup_display();

	signal(SIGINT, fix_display);
	signal(SIGQUIT, fix_display);
	signal(SIGHUP, fix_display);

	do {
		
		setjmp(redo);
		reset();
		ntimes = 0;

		display_text(WELCOME);

		gfirst();
		gmi();
		glast();
		strcpy(tmpfirst, user.u_first);
		strcpy(tmplast, user.u_last);
		FixName(tmplast, tmpfirst, user.u_last, user.u_first, tmpmid);
		redisp();
		
		gmitid();
		
		while (dolook()) {
			ntimes++;
			if (ntimes > 3) {
			    	display_text_line(0);
				display_text_line("Sorry, you still cannot be found in the database.");
				display_text_line(" ");
				display_text_line("Please call the account administrator at x3-1325 for help.");
				wait_for_user();
				break;
			}
			display_text_line(0);	/* clear the window */
			display_text_line("You could not be found in the database.");
			display_text_line("Do you want to change some input (for example, the spelling");
			display_text_line("of part of your name) and try again?");
			if (askyn("Do you want to try again ? ") == YES) {
				reencrypt = 0;
				display_text_line(0);
				sprintf(line,
					"You entered your first name as \"%s\"", user.u_first);
				display_text_line(line);
				if (askyn("Do you want to change it? ") == YES) {
					gfirst();
					strcpy(tmpfirst, user.u_first);
					strcpy(tmplast, user.u_last);
					FixName(tmplast, tmpfirst, user.u_last, user.u_first, tmpmid);
					redisp();
					reencrypt = 1;
				}
				display_text_line(0);
				sprintf(line,
					"You entered your middle initial as \"%s\"", user.u_mid_init);
				display_text_line(line);
				if (askyn("Do you want to change it? ") == YES)
					gmi();
				display_text_line(0);
				sprintf(line,
					"You entered your family name as \"%s\"", user.u_last);
				display_text_line(line);
				if (askyn("Do you want to change it? ") == YES) {
					glast();
					strcpy(tmpfirst, user.u_first);
					strcpy(tmplast, user.u_last);
					FixName(tmplast, tmpfirst, user.u_last, user.u_first, tmpmid);
					redisp();
					reencrypt = 1;
				}
				display_text_line(0);
				sprintf(line,
					"You entered your MIT id number as \"%s\"", typed_mit_id);
				display_text_line(line);
				if (askyn("Do you want to change it? ") == YES) {
					gmitid();
					reencrypt = 0;
				}
				if (reencrypt) {
					encrypt_mitid();
				}
			} else
				break;
		}
		if (!user_is_valid || already_registered) {
			qexit();
			continue;
		}
		redisp();
		if (!user_has_login) {
			if (negotiate_login() == -1) {
				qexit();
				continue;
			}
		}
		if (negotiate_passwd() == -1) {
			qexit();
			continue;
		}
		sleep(1);
		display_text_line(0);
		display_text_line("You are now registered to get an Athena account.");
		sprintf(line, "Please remember your username of \"%s\" and the password",
			user.u_login);
		display_text_line(line);
		display_text_line("you typed in earlier.");
		display_text_line("");
		display_text_line("Your account should be created by tomorrow\n");
		
		display_text_line("");
		display_text_line("You are now finished. Thank you!");
		wait_for_user();
		qexit();
	} while (getuid() == 0);/* Loop forever if we're root */
	restore_display();
	exit(0);
}

reset()
{
	reset_display();
	bzero(&user, sizeof(user));
	user_is_valid = 0;
	already_registered = 0;
	redisp();
}

dolook()
{
	/* do the database lookup */

	char            line[100];
	register int    result;
	if (user_is_valid) {
		/* !! */
		return (0);
	}
	display_text_line(0);
	display_text_line("Looking you up in the database.... This may take from 30 seconds to 10");
	display_text_line("minutes, depending on how busy the system is at the moment.");

	timer_off();
	result = verify_user(user.u_first, user.u_last,
			     typed_mit_id, user.u_mit_id, db_user.u_login);
	wfeep();
	display_text_line(0);
	timer_on();
	switch(result) {
	case 0:
		display_text_line("You have been located in the user registration database.");
		user_is_valid = 1;
		user_has_login = 0;
		sleep(1);
		return 0;
	case UREG_NO_PASSWD_YET:
		user_is_valid = 1;
		user_has_login = 1;
		display_text_line ("You have chosen a login name, but you have not yet chosen a password.");
		sprintf(line, "Remember: the username you chose was '%s'",
			db_user.u_login);
		strcpy(user.u_login, db_user.u_login);
		display_text_line(line);
		redisp();
		sleep(5);
		return (0);
		
	case UREG_ALREADY_REGISTERED:
		already_registered = 1;
		/*
		 * we have to reset this so we dont ask for a
		 * new username 
		 */	
		user_is_valid = 0;
		display_text_line("You are already registered.  An account for you probably already exists");
		display_text_line("(if not, it will appear within 12 hours).");
		display_text_line("");
		display_text_line("Refer to the documents 'Essential Athena' and 'Essential Unix'");
		strcpy(user.u_login, db_user.u_login);
		sprintf(line, "for help logging in.  Remember, the username you chose was '%s'",
			db_user.u_login);
		display_text_line(line);
		redisp();
		wait_for_user();
		return (0);
	case UREG_DELETED:
		display_text(DELETED_ACCT);
		wait_for_user();
		restore_display();
		exit(0);
	case UREG_NOT_ALLOWED:
		display_text(NOT_ALLOWED);
		wait_for_user();
		restore_display();
		exit(0);
	case UREG_KRB_TAKEN:
		display_text(IMPROPER_LOGIN);
		wait_for_user();
		return(0);
	case UREG_USER_NOT_FOUND:
		return (1);

	case ECONNREFUSED:
	case ETIMEDOUT:
	case UREG_MISC_ERROR:
		display_text(NETWORK_DOWN);
		wait_for_user();
		return (0);
		
	default:
		display_text_line("An unexpected error occurred while trying to access the database");
		display_text_line(error_message(result));
		redisp();
		wait_for_user();
		return(1);
	}
}

negotiate_login()
{
	register int    result;
	char            line[100];
	char            old_login[LOGIN_SIZE];
	char		realm[REALM_SZ];
	int		i;
	char *cp;
	
	display_text(USERNAME_BLURB);
	cp = user.u_login;
	if (isalpha(user.u_first[0]))
		*cp++ = user.u_first[0];
	if (isalpha(user.u_mid_init[0]))
		*cp++ = user.u_mid_init[0];
	
	for (i = 0; user.u_last[i] && cp - user.u_login < 8; i++) {
	        if (isalpha(user.u_last[i])) *cp++ = user.u_last[i];
	}

	for (i=0; user.u_login[i]; i++)
		if (isupper(user.u_login[i]))
			user.u_login[i]=tolower(user.u_login[i]);
	
	strcpy(old_login, user.u_login);
	sprintf(line, "We suggest the username '%s'.", user.u_login);
	display_text_line(line);
	display_text_line(
			  "If you are sure you would prefer another username, feel free to enter");
	display_text_line(
			  "a different one, but keep in mind that it will remain with you for all the ");
	display_text_line("time you are at MIT.");

	while (1) {
		glogin();

		display_text_line(0);
		display_text_line("Trying to assign that username...  This may take a few minutes.");
		timer_off();
		/*
		 * Rather than bother SMS with a bunch of different
		 * usernames, all in use, we first try and see if this
		 * guy is known to Kerberos.
		 */
		if ((result = krb_get_lrealm(realm, 1)) != KSUCCESS) {
		    display_text_line("System error; please try another workstation.");
		    continue;
		}
		result = krb_get_pw_in_tkt(user.u_login, "", realm, 
					   "krbtgt", realm, 1, "");
		timer_on();
		if (result != KDC_PR_UNKNOWN) {
		in_use:
			strcpy(user.u_login, old_login);
			redisp();
			display_text_line("That username is already taken.  Please try again with a different username");
			continue;
		}

		/*
		 * If he isn't, let's try through SMS.
		 */
		timer_off();
		result = grab_login(user.u_first, user.u_last,
				    typed_mit_id, user.u_mit_id,
				    user.u_login);
		wfeep();
		timer_on();
		if (result != 0) {
		    	char buf[BUFSIZ];

			if (result == UREG_LOGIN_USED) goto in_use;
			display_text(NETWORK_DOWN);
			display_text_line(" ");
			sprintf(buf, "The specific error was: %s",
				error_message(result));
			display_text_line(buf);
			wait_for_user();
			return (qexit());
		} else break;
	}
	/* at this point we have successfully negotiated a username */

	sprintf(line, "O.K. your username will be \"%s\".", user.u_login);
	display_text_line(0);
	display_text_line(line);
	redisp();
	sleep(3);
	return 0;
}
negotiate_passwd()
{
	display_text_line(0);
	display_text(PASSWORD_BLURB);

	gpass();
	display_text_line("Storing password in the database...  This may take a few minutes.");
	if (do_replace()) {
		return (-1);
	}
	display_text_line("done.");
	return(0);
}

gfirst()
{
	/* input the first name */
	char            buf[FIRST_NAME_SIZE+2];

	signal(SIGALRM, restart);
	input("Enter first Name:", buf, FIRST_NAME_SIZE+1,
	      FIRSTNAME_TIMEOUT, TRUE);
	strncpy(user.u_first, buf, FIRST_NAME_SIZE);
	user.u_first[FIRST_NAME_SIZE - 1] = '\0';
	canon_name(user.u_first);
	redisp();
}

glast()
{
	/* input the last name */
	char            buf[LAST_NAME_SIZE+2];

	signal(SIGALRM, restart);
	input("Enter family Name:", buf, LAST_NAME_SIZE+1,
	      LASTNAME_TIMEOUT, FALSE);
	strncpy(user.u_last, buf, LAST_NAME_SIZE);
	user.u_last[LAST_NAME_SIZE - 1] = '\0';
	canon_name(user.u_last);
	redisp();
}

gpass()
{
	/* input password */
	char            new_password[PASSWORD_SIZE];
	char            new_password_again[PASSWORD_SIZE];

do_input:
	signal(SIGALRM, restart);
	input_no_echo("Enter password:", new_password,
		      PASSWORD_SIZE, NEW_PASSWORD_TIMEOUT);
	if (strlen(new_password) < 4) {
		display_text_line("Please use a password of at least 4 characters.");
		goto do_input;
	}
	signal(SIGALRM, restart);
	input_no_echo("Enter password again:", new_password_again,
		      PASSWORD_SIZE, REENTER_PASSWORD_TIMEOUT);
	if (strcmp(new_password, new_password_again)) {
		display_text_line("Sorry, the two passwords you just typed in don't match.");
		display_text_line("Please try again.");
		goto do_input;
	}

	strcpy(user.u_password, new_password);
	redisp();
}

glogin()
{
	/* get login name */
	register int    i;
	char            buf[LOGIN_SIZE+2];
	register char  *nbuf = buf;

input_login:
	i = 0;
	user.u_login[0] = '\0';
	nbuf = &buf[0];
	signal(SIGALRM, restart);
	input("Enter username:", buf, LOGIN_SIZE+1, USERNAME_TIMEOUT, FALSE);
	if (!islower(*nbuf) && !isdigit(*nbuf)) {
	    display_text_line("Your username must start with a letter or number.");
	    goto input_login;
	}
	while (*nbuf != '\0') {
		if (!islower(*nbuf) && !isdigit(*nbuf)
		    && (*nbuf != '_') && (*nbuf != '.')) {
			display_text_line("Your username must be all lowercase alphabetic characters.");
			goto input_login;
		}
		user.u_login[i] = *nbuf++;
		i++;
		if (i > LOGIN_SIZE - 1) {
			display_text_line("Your username must be no more than 8 characters long.");
			goto input_login;
		}
	}
	if (i != 0) {
		user.u_login[i] = '\0';
	}
	if (strlen(user.u_login) < 3) {
		display_text_line("Your username must be 3 or more characters long.\n");
		goto input_login;
	}
	redisp();
}

gmitid()
{
	/* get mid id */
	register int    i;
	char            buf[15];
	register char  *nbuf = buf;

input_mit_id:
	signal(SIGALRM, restart);
	input("Enter MIT Id:", buf, 14, MITID_TIMEOUT, FALSE);
	i = 0;
	nbuf = &buf[0];
	while (*nbuf != '\0') {
		if (*nbuf == ' ' || *nbuf == '-') {
			nbuf++;
			continue;
		}
		if (!isdigit(*nbuf)) {
			i = 0;
			break;
		}
		typed_mit_id[i] = *nbuf;
		nbuf++;
		i++;
	}
	if (i != 9) {
		display_text_line(
				  "Your MIT id must be a nine-digit number.  Please try again.");
		goto input_mit_id;
	}
	typed_mit_id[9] = '\0';
	redisp();
	encrypt_mitid();
}

encrypt_mitid()
{
	char            salt[3];

	make_salt(salt, user.u_first, user.u_last);
	strcpy(user.u_mit_id, crypt(&typed_mit_id[2], salt));
}


#define _tolower(c) ((c)|0x60)

make_salt(salt, first, last)
	char           *salt, *first, *last;
{
	salt[0] = _tolower(last[0]);
	salt[1] = _tolower(first[0]);
}


gmi()
{
	/* get middle initial */
	char            buf[MID_INIT_SIZE+2];

	signal(SIGALRM, restart);
	input("Enter Middle Initial:", buf, MID_INIT_SIZE+1, MI_TIMEOUT, TRUE);
	strncpy(user.u_mid_init, buf, MID_INIT_SIZE);
	user.u_mid_init[MID_INIT_SIZE - 1] = '\0';
	canon_name(user.u_mid_init);
	redisp();
}

qexit()
{
	/* exit quickly, not saving anything in the database */
	bzero(&user, sizeof(user));
	typed_mit_id[0] = '\0';
	user_is_valid = 0;
	already_registered = 0;
	sleep(2);		/* give the user a chance to see the screen */
	display_text_line(0);
	return (EXIT);
}


do_replace()
{
	int status;
	
	/*
	 * replaces a user in the database. If there is an error, it informs
	 * the user and calls qexit(); It returns only if is is successful 
	 */
	timer_off();
	status = set_password(user.u_first, user.u_last, typed_mit_id,
			      user.u_mit_id, user.u_password);
	wfeep();
	timer_on();
	if (status) {
		display_text (NETWORK_DOWN);
		return (-1);
	} else return 0;
}

#define _toupper(c) ((c) & ~0x20)

lenient_strcmp(string1, string2)
	register char  *string1, *string2;
{
	/*
	 * a primitive case insensitive string comparison. It returns only 0
	 * if the strings are equal (ignoring case) and 1 if they are
	 * different. Also ignores spaces. 
	 */

	while (1) {
		if (*string1 == '\0' && *string2 == '\0') {
			return (0);
		}
		if (*string1 == ' ' || *string1 == '.' || *string1 == '-' || *string1 == '\'') {
			string1++;
			continue;
		}
		if (*string2 == ' ' || *string2 == '.' || *string2 == '-' || *string2 == '\'') {
			string2++;
			continue;
		}
		if (_toupper(*string1) != _toupper(*string2)) {
			return (1);
		}
		string1++;
		string2++;
	}
}

/*
 * Input timeout handler.  Loop back to asking for the first name. 
 */

restart()
/* Go to asking for first name. */
{
	qexit();
	longjmp(redo);
}

canon_name(cp)
	register char *cp;
{
	register char *p2 = cp;
      
	/* Trim whitespace off both ends. */
	for (; *p2 && isspace(*p2); p2++) ;
	if (*p2) {
		strcpy(cp, p2);
		p2 = cp + strlen(cp);
		--p2;
		while (p2 >= cp && isspace(*p2)) *(--p2) = '\0';
	}
	/* Make it capitalized */
	for (p2=cp; *p2; p2++) {
		if (isupper(*p2)) *p2 = tolower(*p2);
	}
	if (islower(*cp)) *cp=toupper(*cp);
}
Commit	Line	Data
989a2c2c	1	/*
569ee3f8	2	* $Source$
	3	* $Author$
	4	* $Locker$
	5	* $Header$
7189310c	6	*
	7	* (c) Copyright 1988 by the Massachusetts Institute of Technology.
	8	* For copying and distribution information, please see the file
	9	* <mit-copyright.h>.
989a2c2c	10	*/
	11
	12	#ifndef lint
569ee3f8	13	static char *rcsid_userreg_c = "$Header$";
989a2c2c	14	#endif lint
989a2c2c	15
7189310c	16	#include <mit-copyright.h>
989a2c2c	17	#include <curses.h>
989a2c2c	18	#include <signal.h>
	19	#include <sys/time.h>
	20	#include <setjmp.h>
6f742fd0	21	#include <ctype.h>
6f742fd0	22	#include <krb.h>
6f742fd0	23	#include <errno.h>
f05412e4	24	#include "userreg.h"
	25	#include "ureg_err.h"
	26
989a2c2c	27	#define EXIT -1
	28
	29
569ee3f8	30	struct user user, db_user;
	31	struct alias alias;
	32	char typed_mit_id[100];
989a2c2c	33
569ee3f8	34	jmp_buf redo;
569ee3f8	35	int restart();
989a2c2c	36
569ee3f8	37	extern int errno;
569ee3f8	38	int user_is_valid = 0;
6f742fd0	39	int user_has_login = 0;
569ee3f8	40	int already_registered = 0;
b92a6895	41	extern char *disabled();
989a2c2c	42
569ee3f8	43	fix_display(sig)
989a2c2c	44	{
569ee3f8	45	signal(sig, SIG_IGN); /* let us clean up, please */
989a2c2c	46	noraw();
	47	echo();
	48	endwin();
569ee3f8	49	exit(1);
989a2c2c	50	}
989a2c2c	51
569ee3f8	52	main(argc, argv)
	53	int argc;
	54	char **argv;
989a2c2c	55	{
569ee3f8	56	register int ntimes;
569ee3f8	57	register int reencrypt;
b92a6895	58	char line[100], when, msg;
6f742fd0	59	int status;
c16914a2	60	char tmpfirst[100], tmplast[100], tmpmid[100];
6f742fd0	61
	62	status = ureg_init();
	63	if (status) {
	64	com_err(argv[0], status, "while trying to initialize");
	65	exit(1);
	66	}
569ee3f8	67
b92a6895	68	if (when = disabled(&msg)) {
	69	printf("We're sorry, the registration service is unavailable right now\n");
	70	if (msg)
	71	printf("because %s\n", msg);
	72	printf("You should be able to register after %s", when);
ce36e992	73	printf("\nPress ENTER or RETURN to continue ");
	74	fflush(stdout);
	75	getchar();
b92a6895	76	exit(0);
	77	}
	78
569ee3f8	79	setup_display();
	80
	81	signal(SIGINT, fix_display);
	82	signal(SIGQUIT, fix_display);
	83	signal(SIGHUP, fix_display);
	84
	85	do {
c16914a2	86
569ee3f8	87	setjmp(redo);
	88	reset();
	89	ntimes = 0;
	90
	91	display_text(WELCOME);
	92
	93	gfirst();
	94	gmi();
	95	glast();
c16914a2	96	strcpy(tmpfirst, user.u_first);
	97	strcpy(tmplast, user.u_last);
	98	FixName(tmplast, tmpfirst, user.u_last, user.u_first, tmpmid);
	99	redisp();
	100
569ee3f8	101	gmitid();
c16914a2	102
569ee3f8	103	while (dolook()) {
	104	ntimes++;
	105	if (ntimes > 3) {
ce36e992	106	display_text_line(0);
569ee3f8	107	display_text_line("Sorry, you still cannot be found in the database.");
569ee3f8	108	display_text_line(" ");
ce36e992	109	display_text_line("Please call the account administrator at x3-1325 for help.");
ce36e992	110	wait_for_user();
569ee3f8	111	break;
	112	}
	113	display_text_line(0); /* clear the window */
ce36e992	114	display_text_line("You could not be found in the database.");
569ee3f8	115	display_text_line("Do you want to change some input (for example, the spelling");
	116	display_text_line("of part of your name) and try again?");
	117	if (askyn("Do you want to try again ? ") == YES) {
	118	reencrypt = 0;
	119	display_text_line(0);
	120	sprintf(line,
	121	"You entered your first name as \"%s\"", user.u_first);
	122	display_text_line(line);
	123	if (askyn("Do you want to change it? ") == YES) {
	124	gfirst();
c16914a2	125	strcpy(tmpfirst, user.u_first);
	126	strcpy(tmplast, user.u_last);
	127	FixName(tmplast, tmpfirst, user.u_last, user.u_first, tmpmid);
	128	redisp();
569ee3f8	129	reencrypt = 1;
	130	}
	131	display_text_line(0);
	132	sprintf(line,
	133	"You entered your middle initial as \"%s\"", user.u_mid_init);
	134	display_text_line(line);
	135	if (askyn("Do you want to change it? ") == YES)
	136	gmi();
	137	display_text_line(0);
	138	sprintf(line,
f05412e4	139	"You entered your family name as \"%s\"", user.u_last);
569ee3f8	140	display_text_line(line);
	141	if (askyn("Do you want to change it? ") == YES) {
	142	glast();
c16914a2	143	strcpy(tmpfirst, user.u_first);
	144	strcpy(tmplast, user.u_last);
	145	FixName(tmplast, tmpfirst, user.u_last, user.u_first, tmpmid);
	146	redisp();
569ee3f8	147	reencrypt = 1;
	148	}
	149	display_text_line(0);
	150	sprintf(line,
	151	"You entered your MIT id number as \"%s\"", typed_mit_id);
	152	display_text_line(line);
	153	if (askyn("Do you want to change it? ") == YES) {
	154	gmitid();
	155	reencrypt = 0;
	156	}
	157	if (reencrypt) {
	158	encrypt_mitid();
	159	}
	160	} else
	161	break;
	162	}
	163	if (!user_is_valid \|\| already_registered) {
	164	qexit();
	165	continue;
	166	}
	167	redisp();
6f742fd0	168	if (!user_has_login) {
	169	if (negotiate_login() == -1) {
	170	qexit();
	171	continue;
	172	}
	173	}
	174	if (negotiate_passwd() == -1) {
569ee3f8	175	qexit();
	176	continue;
	177	}
	178	sleep(1);
	179	display_text_line(0);
	180	display_text_line("You are now registered to get an Athena account.");
	181	sprintf(line, "Please remember your username of \"%s\" and the password",
	182	user.u_login);
	183	display_text_line(line);
	184	display_text_line("you typed in earlier.");
c16914a2	185	display_text_line("");
7eb8fc4d	186	display_text_line("Your account should be created by tomorrow\n");
c16914a2	187
569ee3f8	188	display_text_line("");
569ee3f8	189	display_text_line("You are now finished. Thank you!");
ce36e992	190	wait_for_user();
569ee3f8	191	qexit();
	192	} while (getuid() == 0);/* Loop forever if we're root */
	193	restore_display();
	194	exit(0);
989a2c2c	195	}
989a2c2c	196
569ee3f8	197	reset()
	198	{
	199	reset_display();
	200	bzero(&user, sizeof(user));
	201	user_is_valid = 0;
	202	already_registered = 0;
	203	redisp();
989a2c2c	204	}
989a2c2c	205
569ee3f8	206	dolook()
	207	{
	208	/* do the database lookup */
989a2c2c	209
569ee3f8	210	char line[100];
	211	register int result;
	212	if (user_is_valid) {
	213	/* !! */
	214	return (0);
	215	}
	216	display_text_line(0);
ce36e992	217	display_text_line("Looking you up in the database.... This may take from 30 seconds to 10");
ce36e992	218	display_text_line("minutes, depending on how busy the system is at the moment.");
6f742fd0	219
c16914a2	220	timer_off();
6f742fd0	221	result = verify_user(user.u_first, user.u_last,
6f742fd0	222	typed_mit_id, user.u_mit_id, db_user.u_login);
ce36e992	223	wfeep();
ce36e992	224	display_text_line(0);
c16914a2	225	timer_on();
6f742fd0	226	switch(result) {
	227	case 0:
	228	display_text_line("You have been located in the user registration database.");
	229	user_is_valid = 1;
	230	user_has_login = 0;
	231	sleep(1);
	232	return 0;
	233	case UREG_NO_PASSWD_YET:
	234	user_is_valid = 1;
	235	user_has_login = 1;
	236	display_text_line ("You have chosen a login name, but you have not yet chosen a password.");
	237	sprintf(line, "Remember: the username you chose was '%s'",
	238	db_user.u_login);
	239	strcpy(user.u_login, db_user.u_login);
	240	display_text_line(line);
	241	redisp();
	242	sleep(5);
	243	return (0);
	244
	245	case UREG_ALREADY_REGISTERED:
	246	already_registered = 1;
	247	/*
	248	* we have to reset this so we dont ask for a
	249	* new username
	250	*/
	251	user_is_valid = 0;
	252	display_text_line("You are already registered. An account for you probably already exists");
	253	display_text_line("(if not, it will appear within 12 hours).");
	254	display_text_line("");
	255	display_text_line("Refer to the documents 'Essential Athena' and 'Essential Unix'");
	256	strcpy(user.u_login, db_user.u_login);
	257	sprintf(line, "for help logging in. Remember, the username you chose was '%s'",
	258	db_user.u_login);
	259	display_text_line(line);
	260	redisp();
ce36e992	261	wait_for_user();
6f742fd0	262	return (0);
b92a6895	263	case UREG_DELETED:
b92a6895	264	display_text(DELETED_ACCT);
ce36e992	265	wait_for_user();
b92a6895	266	restore_display();
	267	exit(0);
	268	case UREG_NOT_ALLOWED:
	269	display_text(NOT_ALLOWED);
ce36e992	270	wait_for_user();
b92a6895	271	restore_display();
	272	exit(0);
	273	case UREG_KRB_TAKEN:
	274	display_text(IMPROPER_LOGIN);
ce36e992	275	wait_for_user();
b92a6895	276	return(0);
6f742fd0	277	case UREG_USER_NOT_FOUND:
6f742fd0	278	return (1);
c16914a2	279
6f742fd0	280	case ECONNREFUSED:
c16914a2	281	case ETIMEDOUT:
b92a6895	282	case UREG_MISC_ERROR:
569ee3f8	283	display_text(NETWORK_DOWN);
ce36e992	284	wait_for_user();
6f742fd0	285	return (0);
	286
	287	default:
	288	display_text_line("An unexpected error occurred while trying to access the database");
	289	display_text_line(error_message(result));
	290	redisp();
ce36e992	291	wait_for_user();
6f742fd0	292	return(1);
989a2c2c	293	}
989a2c2c	294	}
989a2c2c	295
6f742fd0	296	negotiate_login()
569ee3f8	297	{
b92a6895	298	register int result;
569ee3f8	299	char line[100];
569ee3f8	300	char old_login[LOGIN_SIZE];
f05412e4	301	char realm[REALM_SZ];
6f742fd0	302	int i;
c16914a2	303	char *cp;
6f742fd0	304
569ee3f8	305	display_text(USERNAME_BLURB);
c16914a2	306	cp = user.u_login;
	307	if (isalpha(user.u_first[0]))
	308	*cp++ = user.u_first[0];
	309	if (isalpha(user.u_mid_init[0]))
	310	*cp++ = user.u_mid_init[0];
	311
	312	for (i = 0; user.u_last[i] && cp - user.u_login < 8; i++) {
	313	if (isalpha(user.u_last[i])) *cp++ = user.u_last[i];
	314	}
	315
6f742fd0	316	for (i=0; user.u_login[i]; i++)
	317	if (isupper(user.u_login[i]))
	318	user.u_login[i]=tolower(user.u_login[i]);
	319
569ee3f8	320	strcpy(old_login, user.u_login);
	321	sprintf(line, "We suggest the username '%s'.", user.u_login);
	322	display_text_line(line);
	323	display_text_line(
ce36e992	324	"If you are sure you would prefer another username, feel free to enter");
569ee3f8	325	display_text_line(
ce36e992	326	"a different one, but keep in mind that it will remain with you for all the ");
6f742fd0	327	display_text_line("time you are at MIT.");
569ee3f8	328
569ee3f8	329	while (1) {
569ee3f8	330	glogin();
6f742fd0	331
569ee3f8	332	display_text_line(0);
ce36e992	333	display_text_line("Trying to assign that username... This may take a few minutes.");
c16914a2	334	timer_off();
6f742fd0	335	/*
	336	* Rather than bother SMS with a bunch of different
	337	* usernames, all in use, we first try and see if this
	338	* guy is known to Kerberos.
	339	*/
f4f2cbe9	340	if ((result = krb_get_lrealm(realm, 1)) != KSUCCESS) {
f4f2cbe9	341	display_text_line("System error; please try another workstation.");
f05412e4	342	continue;
f05412e4	343	}
f4f2cbe9	344	result = krb_get_pw_in_tkt(user.u_login, "", realm,
f4f2cbe9	345	"krbtgt", realm, 1, "");
c16914a2	346	timer_on();
6f742fd0	347	if (result != KDC_PR_UNKNOWN) {
6f742fd0	348	in_use:
569ee3f8	349	strcpy(user.u_login, old_login);
569ee3f8	350	redisp();
ce36e992	351	display_text_line("That username is already taken. Please try again with a different username");
569ee3f8	352	continue;
569ee3f8	353	}
c16914a2	354
6f742fd0	355	/*
	356	* If he isn't, let's try through SMS.
	357	*/
c16914a2	358	timer_off();
6f742fd0	359	result = grab_login(user.u_first, user.u_last,
	360	typed_mit_id, user.u_mit_id,
	361	user.u_login);
ce36e992	362	wfeep();
c16914a2	363	timer_on();
6f742fd0	364	if (result != 0) {
ce36e992	365	char buf[BUFSIZ];
ce36e992	366
6f742fd0	367	if (result == UREG_LOGIN_USED) goto in_use;
6f742fd0	368	display_text(NETWORK_DOWN);
ce36e992	369	display_text_line(" ");
	370	sprintf(buf, "The specific error was: %s",
	371	error_message(result));
	372	display_text_line(buf);
	373	wait_for_user();
6f742fd0	374	return (qexit());
6f742fd0	375	} else break;
569ee3f8	376	}
569ee3f8	377	/* at this point we have successfully negotiated a username */
569ee3f8	378
6f742fd0	379	sprintf(line, "O.K. your username will be \"%s\".", user.u_login);
569ee3f8	380	display_text_line(0);
	381	display_text_line(line);
	382	redisp();
	383	sleep(3);
6f742fd0	384	return 0;
	385	}
	386	negotiate_passwd()
	387	{
569ee3f8	388	display_text_line(0);
569ee3f8	389	display_text(PASSWORD_BLURB);
6f742fd0	390
569ee3f8	391	gpass();
6f742fd0	392	display_text_line("Storing password in the database... This may take a few minutes.");
569ee3f8	393	if (do_replace()) {
	394	return (-1);
	395	}
	396	display_text_line("done.");
b92a6895	397	return(0);
989a2c2c	398	}
989a2c2c	399
569ee3f8	400	gfirst()
	401	{
	402	/* input the first name */
ce36e992	403	char buf[FIRST_NAME_SIZE+2];
569ee3f8	404
569ee3f8	405	signal(SIGALRM, restart);
ce36e992	406	input("Enter first Name:", buf, FIRST_NAME_SIZE+1,
ce36e992	407	FIRSTNAME_TIMEOUT, TRUE);
569ee3f8	408	strncpy(user.u_first, buf, FIRST_NAME_SIZE);
569ee3f8	409	user.u_first[FIRST_NAME_SIZE - 1] = '\0';
6f742fd0	410	canon_name(user.u_first);
569ee3f8	411	redisp();
569ee3f8	412	}
989a2c2c	413
569ee3f8	414	glast()
	415	{
	416	/* input the last name */
ce36e992	417	char buf[LAST_NAME_SIZE+2];
569ee3f8	418
569ee3f8	419	signal(SIGALRM, restart);
ce36e992	420	input("Enter family Name:", buf, LAST_NAME_SIZE+1,
ce36e992	421	LASTNAME_TIMEOUT, FALSE);
569ee3f8	422	strncpy(user.u_last, buf, LAST_NAME_SIZE);
569ee3f8	423	user.u_last[LAST_NAME_SIZE - 1] = '\0';
6f742fd0	424	canon_name(user.u_last);
569ee3f8	425	redisp();
989a2c2c	426	}
989a2c2c	427
569ee3f8	428	gpass()
	429	{
	430	/* input password */
569ee3f8	431	char new_password[PASSWORD_SIZE];
	432	char new_password_again[PASSWORD_SIZE];
	433
569ee3f8	434	do_input:
	435	signal(SIGALRM, restart);
	436	input_no_echo("Enter password:", new_password,
	437	PASSWORD_SIZE, NEW_PASSWORD_TIMEOUT);
	438	if (strlen(new_password) < 4) {
	439	display_text_line("Please use a password of at least 4 characters.");
	440	goto do_input;
	441	}
	442	signal(SIGALRM, restart);
	443	input_no_echo("Enter password again:", new_password_again,
	444	PASSWORD_SIZE, REENTER_PASSWORD_TIMEOUT);
	445	if (strcmp(new_password, new_password_again)) {
	446	display_text_line("Sorry, the two passwords you just typed in don't match.");
	447	display_text_line("Please try again.");
	448	goto do_input;
	449	}
569ee3f8	450
6f742fd0	451	strcpy(user.u_password, new_password);
569ee3f8	452	redisp();
989a2c2c	453	}
989a2c2c	454
569ee3f8	455	glogin()
	456	{
	457	/* get login name */
	458	register int i;
ce36e992	459	char buf[LOGIN_SIZE+2];
569ee3f8	460	register char *nbuf = buf;
	461
	462	input_login:
	463	i = 0;
	464	user.u_login[0] = '\0';
	465	nbuf = &buf[0];
	466	signal(SIGALRM, restart);
ce36e992	467	input("Enter username:", buf, LOGIN_SIZE+1, USERNAME_TIMEOUT, FALSE);
	468	if (!islower(nbuf) && !isdigit(nbuf)) {
	469	display_text_line("Your username must start with a letter or number.");
	470	goto input_login;
	471	}
569ee3f8	472	while (*nbuf != '\0') {
22c45376	473	if (!islower(nbuf) && !isdigit(nbuf)
22c45376	474	&& (nbuf != '_') && (nbuf != '.')) {
569ee3f8	475	display_text_line("Your username must be all lowercase alphabetic characters.");
	476	goto input_login;
	477	}
	478	user.u_login[i] = *nbuf++;
	479	i++;
	480	if (i > LOGIN_SIZE - 1) {
	481	display_text_line("Your username must be no more than 8 characters long.");
	482	goto input_login;
	483	}
	484	}
	485	if (i != 0) {
	486	user.u_login[i] = '\0';
	487	}
c16914a2	488	if (strlen(user.u_login) < 3) {
c16914a2	489	display_text_line("Your username must be 3 or more characters long.\n");
569ee3f8	490	goto input_login;
569ee3f8	491	}
569ee3f8	492	redisp();
989a2c2c	493	}
989a2c2c	494
569ee3f8	495	gmitid()
	496	{
	497	/* get mid id */
	498	register int i;
ce36e992	499	char buf[15];
569ee3f8	500	register char *nbuf = buf;
	501
	502	input_mit_id:
	503	signal(SIGALRM, restart);
ce36e992	504	input("Enter MIT Id:", buf, 14, MITID_TIMEOUT, FALSE);
569ee3f8	505	i = 0;
	506	nbuf = &buf[0];
	507	while (*nbuf != '\0') {
	508	if (nbuf == ' ' \|\| nbuf == '-') {
	509	nbuf++;
	510	continue;
	511	}
	512	if (!isdigit(*nbuf)) {
	513	i = 0;
	514	break;
	515	}
	516	typed_mit_id[i] = *nbuf;
	517	nbuf++;
	518	i++;
	519	}
	520	if (i != 9) {
	521	display_text_line(
	522	"Your MIT id must be a nine-digit number. Please try again.");
	523	goto input_mit_id;
	524	}
	525	typed_mit_id[9] = '\0';
	526	redisp();
	527	encrypt_mitid();
989a2c2c	528	}
989a2c2c	529
569ee3f8	530	encrypt_mitid()
	531	{
	532	char salt[3];
989a2c2c	533
569ee3f8	534	make_salt(salt, user.u_first, user.u_last);
569ee3f8	535	strcpy(user.u_mit_id, crypt(&typed_mit_id[2], salt));
989a2c2c	536	}
	537
	538
	539	#define _tolower(c) ((c)\|0x60)
	540
569ee3f8	541	make_salt(salt, first, last)
569ee3f8	542	char salt, first, *last;
989a2c2c	543	{
569ee3f8	544	salt[0] = _tolower(last[0]);
569ee3f8	545	salt[1] = _tolower(first[0]);
989a2c2c	546	}
	547
	548
569ee3f8	549	gmi()
	550	{
	551	/* get middle initial */
ce36e992	552	char buf[MID_INIT_SIZE+2];
569ee3f8	553
569ee3f8	554	signal(SIGALRM, restart);
ce36e992	555	input("Enter Middle Initial:", buf, MID_INIT_SIZE+1, MI_TIMEOUT, TRUE);
569ee3f8	556	strncpy(user.u_mid_init, buf, MID_INIT_SIZE);
569ee3f8	557	user.u_mid_init[MID_INIT_SIZE - 1] = '\0';
6f742fd0	558	canon_name(user.u_mid_init);
569ee3f8	559	redisp();
989a2c2c	560	}
989a2c2c	561
569ee3f8	562	qexit()
	563	{
	564	/* exit quickly, not saving anything in the database */
	565	bzero(&user, sizeof(user));
	566	typed_mit_id[0] = '\0';
	567	user_is_valid = 0;
	568	already_registered = 0;
ce36e992	569	sleep(2); /* give the user a chance to see the screen */
569ee3f8	570	display_text_line(0);
569ee3f8	571	return (EXIT);
989a2c2c	572	}
	573
	574
569ee3f8	575	do_replace()
569ee3f8	576	{
6f742fd0	577	int status;
6f742fd0	578
569ee3f8	579	/*
	580	* replaces a user in the database. If there is an error, it informs
	581	* the user and calls qexit(); It returns only if is is successful
	582	*/
c16914a2	583	timer_off();
6f742fd0	584	status = set_password(user.u_first, user.u_last, typed_mit_id,
c16914a2	585	user.u_mit_id, user.u_password);
ce36e992	586	wfeep();
c16914a2	587	timer_on();
6f742fd0	588	if (status) {
6f742fd0	589	display_text (NETWORK_DOWN);
569ee3f8	590	return (-1);
6f742fd0	591	} else return 0;
989a2c2c	592	}
	593
	594	#define _toupper(c) ((c) & ~0x20)
	595
569ee3f8	596	lenient_strcmp(string1, string2)
569ee3f8	597	register char string1, string2;
989a2c2c	598	{
569ee3f8	599	/*
	600	* a primitive case insensitive string comparison. It returns only 0
	601	* if the strings are equal (ignoring case) and 1 if they are
	602	* different. Also ignores spaces.
	603	*/
	604
	605	while (1) {
	606	if (string1 == '\0' && string2 == '\0') {
	607	return (0);
	608	}
	609	if (string1 == ' ' \|\| string1 == '.' \|\| string1 == '-' \|\| string1 == '\'') {
	610	string1++;
	611	continue;
	612	}
	613	if (string2 == ' ' \|\| string2 == '.' \|\| string2 == '-' \|\| string2 == '\'') {
	614	string2++;
	615	continue;
	616	}
	617	if (_toupper(string1) != _toupper(string2)) {
	618	return (1);
	619	}
	620	string1++;
	621	string2++;
	622	}
989a2c2c	623	}
989a2c2c	624
569ee3f8	625	/*
569ee3f8	626	* Input timeout handler. Loop back to asking for the first name.
989a2c2c	627	*/
	628
	629	restart()
	630	/* Go to asking for first name. */
	631	{
569ee3f8	632	qexit();
569ee3f8	633	longjmp(redo);
989a2c2c	634	}
6f742fd0	635
	636	canon_name(cp)
	637	register char *cp;
	638	{
	639	register char *p2 = cp;
	640
	641	/* Trim whitespace off both ends. */
	642	for (; p2 && isspace(p2); p2++) ;
	643	if (*p2) {
	644	strcpy(cp, p2);
	645	p2 = cp + strlen(cp);
	646	--p2;
	647	while (p2 >= cp && isspace(p2)) (--p2) = '\0';
	648	}
	649	/* Make it capitalized */
	650	for (p2=cp; *p2; p2++) {
	651	if (isupper(p2)) p2 = tolower(*p2);
	652	}
	653	if (islower(cp)) cp=toupper(*cp);
	654	}