mirror of https://github.com/GnoConsortium/gno.git
gdr-ftp
parent
d9d4770f9f
commit
68d2224e5b
|
|
@ -79,262 +79,244 @@ void time_out(void)
|
|||
|
||||
/* Borrowed from Eric's passwd.cc */
|
||||
|
||||
void makesalt(char *salt, long seed)
|
||||
void
|
||||
makesalt(char *salt, long seed)
|
||||
{
|
||||
int num = 2;
|
||||
while (--num >= 0) {
|
||||
*salt++ = salttab[seed&0x3f];
|
||||
seed >= 6;
|
||||
}
|
||||
}
|
||||
|
||||
{
|
||||
int num = 2;
|
||||
while (--num >= 0)
|
||||
int
|
||||
get_next_uid(void)
|
||||
{
|
||||
FILE *FPtr;
|
||||
int uid;
|
||||
|
||||
FPtr = fopen(NEWID_FILE,"r+");
|
||||
fscanf(FPtr,"%d\n",&uid);
|
||||
rewind(FPtr);
|
||||
fprintf(FPtr,"%d\n",uid+1);
|
||||
fclose(FPtr);
|
||||
|
||||
return(uid);
|
||||
}
|
||||
|
||||
{
|
||||
*salt++ = salttab[seed&0x3f];
|
||||
seed >= 6;
|
||||
}
|
||||
void
|
||||
getpassword(char *password, char *salt, char *passstring)
|
||||
{
|
||||
char *pass, *passcode;
|
||||
|
||||
pass = getpass(passstring);
|
||||
passcode = crypt(pass,salt);
|
||||
strcpy(password,passcode);
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
int get_next_uid(void)
|
||||
|
||||
{
|
||||
FILE *FPtr;
|
||||
int uid;
|
||||
|
||||
FPtr = fopen(NEWID_FILE,"r+");
|
||||
fscanf(FPtr,"%d\n",&uid);
|
||||
rewind(FPtr);
|
||||
fprintf(FPtr,"%d\n",uid+1);
|
||||
fclose(FPtr);
|
||||
|
||||
return(uid);
|
||||
}
|
||||
|
||||
void getpassword(char *password, char *salt, char *passstring)
|
||||
|
||||
{
|
||||
char *pass, *passcode;
|
||||
|
||||
pass = getpass(passstring);
|
||||
passcode = crypt(pass,salt);
|
||||
strcpy(password,passcode);
|
||||
}
|
||||
|
||||
int bad_name(char *acct_name)
|
||||
|
||||
{
|
||||
if (!isalpha(*acct_name++))
|
||||
int
|
||||
bad_name(char *acct_name)
|
||||
{
|
||||
if (!isalpha(*acct_name++))
|
||||
return(TRUE);
|
||||
|
||||
while (*acct_name != '\0')
|
||||
if (!isalnum(*acct_name++))
|
||||
return(TRUE);
|
||||
|
||||
while (*acct_name != '\0')
|
||||
if (!isalnum(*acct_name++))
|
||||
return(TRUE);
|
||||
|
||||
return(FALSE);
|
||||
}
|
||||
|
||||
void myfgets(char *string, int maxchar, FILE *FilePtr)
|
||||
|
||||
{
|
||||
int last_char;
|
||||
char *tmp_buf;
|
||||
|
||||
return(FALSE);
|
||||
}
|
||||
|
||||
void
|
||||
myfgets(char *string, int maxchar, FILE *FilePtr)
|
||||
{
|
||||
int last_char;
|
||||
char *tmp_buf;
|
||||
|
||||
tmp_buf = (char *) malloc (256);
|
||||
|
||||
|
||||
maxchar++;
|
||||
fgets(tmp_buf,maxchar,FilePtr);
|
||||
if (*tmp_buf == 0x00) /* ^D */
|
||||
exit(1);
|
||||
exit(1);
|
||||
last_char = strlen(tmp_buf)-1;
|
||||
|
||||
/* remove terminating \n if necessary */
|
||||
|
||||
|
||||
/* remove terminating \n if necessary */
|
||||
|
||||
if ((tmp_buf[last_char] == '\n') || (tmp_buf[last_char] == '\r'))
|
||||
tmp_buf[last_char] = '\0';
|
||||
|
||||
tmp_buf[last_char] = '\0';
|
||||
|
||||
strcpy(string,tmp_buf);
|
||||
fflush(stdin);
|
||||
free(tmp_buf);
|
||||
}
|
||||
}
|
||||
|
||||
/* try multiple times to open /etc/passwd file */
|
||||
|
||||
FILE *smartopen(char *file, char *mode)
|
||||
|
||||
{
|
||||
FILE *FOutPtr;
|
||||
int i;
|
||||
|
||||
for (i = 0; i < MAX_TRIES; i++)
|
||||
|
||||
{
|
||||
FOutPtr = fopen(file,mode);
|
||||
if (FOutPtr == NULL)
|
||||
sleep(1);
|
||||
else
|
||||
break;
|
||||
}
|
||||
|
||||
return(FOutPtr);
|
||||
}
|
||||
|
||||
int main (int argc, char **argv)
|
||||
|
||||
{
|
||||
int validate, uid;
|
||||
FILE *FInPtr, *FOutPtr;
|
||||
|
||||
struct sgttyb *s;
|
||||
s = (struct sgttyb *) malloc (sizeof(struct sgttyb));
|
||||
|
||||
signal(SIGINT,SIG_IGN);
|
||||
signal(SIGHUP,SIG_IGN);
|
||||
signal(SIGQUIT,SIG_IGN);
|
||||
signal(SIGTSTP,SIG_IGN);
|
||||
signal(SIGALRM,time_out);
|
||||
|
||||
/* Set proper erase character */
|
||||
|
||||
gtty(STDIN_FILENO,s);
|
||||
s->sg_erase = 0x7f;
|
||||
stty(STDIN_FILENO,s);
|
||||
free(s);
|
||||
|
||||
validate = FALSE;
|
||||
|
||||
if (argc == 2 && !strcmp(argv[1],"-v"))
|
||||
validate = TRUE;
|
||||
else if (argc == 1);
|
||||
else
|
||||
exit(1);
|
||||
|
||||
/* Make sure all required files exist before going any further */
|
||||
|
||||
if ((FInPtr = fopen(NEWID_FILE,"r+")) == NULL)
|
||||
|
||||
{
|
||||
fprintf(stderr,"unable to open %s; exiting.\n",NEWID_FILE);
|
||||
exit(1);
|
||||
}
|
||||
|
||||
fclose(FInPtr);
|
||||
|
||||
if ((FInPtr = fopen(NEWGSHRC_FILE,"r+")) == NULL)
|
||||
|
||||
{
|
||||
fprintf(stderr,"unable to open %s; exiting.\n",NEWGSHRC_FILE);
|
||||
exit(1);
|
||||
}
|
||||
|
||||
fclose(FInPtr);
|
||||
|
||||
/* Get information */
|
||||
|
||||
printf("\nReal Name: ");
|
||||
myfgets(name,REAL_NAME_LEN,stdin);
|
||||
|
||||
/* Get login name. If the login name is duplicate, prompt for */
|
||||
/* a new login name. If the login name would call for the */
|
||||
/* creation of a bogus directory, prompt for a new login name. */
|
||||
/* Note that I'm using the restrictions of the ProDOS FST, */
|
||||
/* since HFS is less restrictive. In other words, the username */
|
||||
/* must start with a character and may only contain letters */
|
||||
/* and numbers. */
|
||||
|
||||
while(1)
|
||||
|
||||
{
|
||||
printf("Login Name: ");
|
||||
myfgets(acct_name,ACCT_NAME_LEN,stdin);
|
||||
printf("\n\n(login name: '%s')\n\n",acct_name);
|
||||
if (getpwnam(acct_name) != NULL)
|
||||
printf("Duplicate username: please choose another.\n");
|
||||
else if (bad_name(acct_name))
|
||||
|
||||
{
|
||||
printf("\n** Invalid username: please choose a name comprised of\n");
|
||||
printf(" alphanumeric characters which starts with an alphabetic\n");
|
||||
printf(" character.\n");
|
||||
}
|
||||
|
||||
else
|
||||
break;
|
||||
}
|
||||
|
||||
printf("Terminal Type: ");
|
||||
myfgets(term_type,TERM_TYPE_LEN,stdin);
|
||||
|
||||
/* Get password of > 4 chars, with verification */
|
||||
|
||||
makesalt(salt, rand());
|
||||
while(1)
|
||||
|
||||
{
|
||||
getpassword(pass1,salt,"Password: ");
|
||||
getpassword(pass2,salt,"Verify: ");
|
||||
if (!strcmp(pass1,pass2) && (strlen(pass1) > 4))
|
||||
break;
|
||||
else
|
||||
printf("*** Failed verification.\n");
|
||||
}
|
||||
|
||||
uid = get_next_uid(); /* get and update next free ID# */
|
||||
FILE *
|
||||
smartopen(char *file, char *mode)
|
||||
{
|
||||
FILE *FOutPtr;
|
||||
int i;
|
||||
|
||||
/* make home directory */
|
||||
for (i = 0; i < MAX_TRIES; i++) {
|
||||
FOutPtr = fopen(file,mode);
|
||||
if (FOutPtr == NULL) {
|
||||
sleep(1);
|
||||
} else {
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
return(FOutPtr);
|
||||
}
|
||||
|
||||
sprintf(scratch,"mkdir -s /user/%s",acct_name);
|
||||
exec("/bin/mkdir",scratch);
|
||||
sleep(2);
|
||||
int
|
||||
main (int argc, char **argv)
|
||||
{
|
||||
int validate, uid;
|
||||
FILE *FInPtr, *FOutPtr;
|
||||
|
||||
struct sgttyb *s;
|
||||
s = (struct sgttyb *) malloc (sizeof(struct sgttyb));
|
||||
|
||||
signal(SIGINT,SIG_IGN);
|
||||
signal(SIGHUP,SIG_IGN);
|
||||
signal(SIGQUIT,SIG_IGN);
|
||||
signal(SIGTSTP,SIG_IGN);
|
||||
signal(SIGALRM,time_out);
|
||||
|
||||
/* and copy default gshrc to it */
|
||||
/* Set proper erase character */
|
||||
|
||||
sprintf(scratch,"/user/%s/gshrc",acct_name);
|
||||
FOutPtr = fopen(scratch,"w");
|
||||
gtty(STDIN_FILENO,s);
|
||||
s->sg_erase = 0x7f;
|
||||
stty(STDIN_FILENO,s);
|
||||
free(s);
|
||||
|
||||
validate = FALSE;
|
||||
|
||||
FInPtr = fopen(NEWGSHRC_FILE,"r");
|
||||
if (argc == 2 && !strcmp(argv[1],"-v"))
|
||||
validate = TRUE;
|
||||
else if (argc == 1);
|
||||
else
|
||||
exit(1);
|
||||
|
||||
/* Make sure all required files exist before going any further */
|
||||
|
||||
if ((FInPtr = fopen(NEWID_FILE,"r+")) == NULL) {
|
||||
fprintf(stderr,"unable to open %s; exiting.\n",NEWID_FILE);
|
||||
exit(1);
|
||||
}
|
||||
|
||||
while(fgets(buffer,80,FInPtr) != NULL)
|
||||
fputs(buffer,FOutPtr);
|
||||
fclose(FInPtr);
|
||||
fclose(FInPtr);
|
||||
|
||||
/* update default gshrc to have correct $home, $user, and $term */
|
||||
if ((FInPtr = fopen(NEWGSHRC_FILE,"r+")) == NULL) {
|
||||
fprintf(stderr,"unable to open %s; exiting.\n",NEWGSHRC_FILE);
|
||||
exit(1);
|
||||
}
|
||||
|
||||
/* Phil asked that this be removed, so... :)
|
||||
fprintf(FOutPtr,"set home=/user/%s\n",acct_name);
|
||||
fprintf(FOutPtr,"set user=%s\n",acct_name);
|
||||
*/
|
||||
fclose(FInPtr);
|
||||
|
||||
fprintf(FOutPtr,"set term=%s\n",term_type);
|
||||
/* Get information */
|
||||
|
||||
/*
|
||||
fprintf(FOutPtr,"export home user term\n");
|
||||
*/
|
||||
fprintf(FOutPtr,"export term\n");
|
||||
fclose(FOutPtr);
|
||||
printf("\nReal Name: ");
|
||||
myfgets(name,REAL_NAME_LEN,stdin);
|
||||
|
||||
/* Get login name. If the login name is duplicate, prompt for */
|
||||
/* a new login name. If the login name would call for the */
|
||||
/* creation of a bogus directory, prompt for a new login name. */
|
||||
/* Note that I'm using the restrictions of the ProDOS FST, */
|
||||
/* since HFS is less restrictive. In other words, the username */
|
||||
/* must start with a character and may only contain letters */
|
||||
/* and numbers. */
|
||||
|
||||
if (!validate) /* no validation, so append new entry to /etc/passwd */
|
||||
while(1) {
|
||||
printf("Login Name: ");
|
||||
myfgets(acct_name,ACCT_NAME_LEN,stdin);
|
||||
printf("\n\n(login name: '%s')\n\n",acct_name);
|
||||
if (getpwnam(acct_name) != NULL) {
|
||||
printf("Duplicate username: please choose another.\n");
|
||||
} else if (bad_name(acct_name)) {
|
||||
printf("\n** Invalid username: please choose a name comprised of\n");
|
||||
printf(" alphanumeric characters which starts with an alphabetic\n");
|
||||
printf(" character.\n");
|
||||
} else {
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
{
|
||||
FOutPtr = smartopen("/etc/passwd","a");
|
||||
if (FOutPtr == NULL)
|
||||
|
||||
{
|
||||
fprintf(stderr,"Trouble opening /etc/passwd file.\nExiting\n");
|
||||
exit(1);
|
||||
}
|
||||
printf("Terminal Type: ");
|
||||
myfgets(term_type,TERM_TYPE_LEN,stdin);
|
||||
|
||||
/* Get password of > 4 chars, with verification */
|
||||
|
||||
fprintf(FOutPtr,"%s:%s:%d:%d:%s:/user/%s:/bin/gsh\n",acct_name,pass1,
|
||||
uid,DEFAULT_GID,name,acct_name);
|
||||
fclose(FOutPtr);
|
||||
printf("You may now log in.\n");
|
||||
}
|
||||
makesalt(salt, rand());
|
||||
while(1) {
|
||||
getpassword(pass1,salt,"Password: ");
|
||||
getpassword(pass2,salt,"Verify: ");
|
||||
if (!strcmp(pass1,pass2) && (strlen(pass1) > 4)) {
|
||||
break;
|
||||
} else {
|
||||
printf("*** Failed verification.\n");
|
||||
}
|
||||
}
|
||||
|
||||
else /* validation selected -- so append new entry to NEWUSERS_FILE */
|
||||
uid = get_next_uid(); /* get and update next free ID# */
|
||||
|
||||
/* make home directory */
|
||||
|
||||
sprintf(scratch,"mkdir -s /user/%s",acct_name);
|
||||
exec("/bin/mkdir",scratch);
|
||||
sleep(2);
|
||||
|
||||
/* and copy default gshrc to it */
|
||||
|
||||
sprintf(scratch,"/user/%s/gshrc",acct_name);
|
||||
FOutPtr = fopen(scratch,"w");
|
||||
|
||||
FInPtr = fopen(NEWGSHRC_FILE,"r");
|
||||
|
||||
{
|
||||
FOutPtr = fopen(NEWUSERS_FILE,"a");
|
||||
fprintf(FOutPtr,"%s:%s:%d:0:%s:/user/%s:/bin/gsh\n",acct_name,pass1,
|
||||
uid,name,acct_name);
|
||||
fclose(FOutPtr);
|
||||
printf("Try back in 24 hours.\n");
|
||||
}
|
||||
while(fgets(buffer,80,FInPtr) != NULL) {
|
||||
fputs(buffer,FOutPtr);
|
||||
}
|
||||
fclose(FInPtr);
|
||||
|
||||
exit(0);
|
||||
}
|
||||
/* update default gshrc to have correct $home, $user, and $term */
|
||||
|
||||
/* Phil asked that this be removed, so... :) */
|
||||
#if 0
|
||||
fprintf(FOutPtr,"set home=/user/%s\n",acct_name);
|
||||
fprintf(FOutPtr,"set user=%s\n",acct_name);
|
||||
#endif
|
||||
fprintf(FOutPtr,"set term=%s\n",term_type);
|
||||
|
||||
#if 0
|
||||
fprintf(FOutPtr,"export home user term\n");
|
||||
#else
|
||||
fprintf(FOutPtr,"export term\n");
|
||||
#endif
|
||||
fclose(FOutPtr);
|
||||
|
||||
if (!validate) { /* no validation, so append new entry to /etc/passwd */
|
||||
FOutPtr = smartopen("/etc/passwd","a");
|
||||
if (FOutPtr == NULL) {
|
||||
fprintf(stderr,"Trouble opening /etc/passwd file.\nExiting\n");
|
||||
exit(1);
|
||||
}
|
||||
|
||||
fprintf(FOutPtr,"%s:%s:%d:%d:%s:/user/%s:/bin/gsh\n",acct_name,pass1,
|
||||
uid,DEFAULT_GID,name,acct_name);
|
||||
fclose(FOutPtr);
|
||||
printf("You may now log in.\n");
|
||||
|
||||
} else { /* validation selected -- so append new entry to NEWUSERS_FILE */
|
||||
|
||||
FOutPtr = fopen(NEWUSERS_FILE,"a");
|
||||
fprintf(FOutPtr,"%s:%s:%d:0:%s:/user/%s:/bin/gsh\n",acct_name,pass1,
|
||||
uid,name,acct_name);
|
||||
fclose(FOutPtr);
|
||||
printf("Try back in 24 hours.\n");
|
||||
}
|
||||
|
||||
exit(0);
|
||||
}
|
||||
|
|
|
|||
Loading…
Reference in New Issue