install approved copyright notice

[unix-history] / usr / src / usr.bin / ftp / ruserpass.c

/*
* Copyright (c) 1985 Regents of the University of California.
* All rights reserved.
*
* Redistribution and use in source and binary forms are permitted
* provided that the above copyright notice and this paragraph are
* duplicated in all such forms and that any documentation,
* advertising materials, and other materials related to such
* distribution and use acknowledge that the software was developed
* by the University of California, Berkeley.  The name of the
* University may not be used to endorse or promote products derived
* from this software without specific prior written permission.
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
* WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
*/

#ifndef lint
static char sccsid[] = "@(#)ruserpass.c 1.5 (Berkeley) %G%";
#endif /* not lint */

struct macel {
       char mac_name[9];       /* macro name */
       char *mac_start;        /* start of macro in macbuf */
       char *mac_end;          /* end of macro in macbuf */
};

extern int macnum, proxy;                       /* number of defined macros */
extern struct macel macros[16], *macpt;
extern char macbuf[4096];

#include <stdio.h>
#include <utmp.h>
#include <ctype.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <errno.h>

char    *renvlook(), *malloc(), *index(), *getenv(), *getpass(), *getlogin();
char    *strcpy();
struct  utmp *getutmp();
static  FILE *cfile;

ruserpass(host, aname, apass, aacct)
       char *host, **aname, **apass, **aacct;
{

       /* renv(host, aname, apass, aacct);
       if (*aname == 0 || *apass == 0) */
               return(rnetrc(host, aname, apass, aacct));
}

#define DEFAULT 1
#define LOGIN   2
#define PASSWD  3
#define ACCOUNT 4
#define MACDEF  5
#define ID      10
#define MACHINE 11

static char tokval[100];

static struct toktab {
       char *tokstr;
       int tval;
} toktab[]= {
       "default",      DEFAULT,
       "login",        LOGIN,
       "password",     PASSWD,
       "account",      ACCOUNT,
       "machine",      MACHINE,
       "macdef",       MACDEF,
       0,              0
};

static
rnetrc(host, aname, apass, aacct)
       char *host, **aname, **apass, **aacct;
{
       char *hdir, buf[BUFSIZ], *tmp;
       int t, i, c;
       struct stat stb;
       extern int errno;

       hdir = getenv("HOME");
       if (hdir == NULL)
               hdir = ".";
       (void) sprintf(buf, "%s/.netrc", hdir);
       cfile = fopen(buf, "r");
       if (cfile == NULL) {
               if (errno != ENOENT)
                       perror(buf);
               return(0);
       }
next:
       while ((t = token())) switch(t) {

       case DEFAULT:
               (void) token();
               continue;

       case MACHINE:
               if (token() != ID || strcmp(host, tokval))
                       continue;
               while ((t = token()) && t != MACHINE) switch(t) {

               case LOGIN:
                       if (token())
                               if (*aname == 0) { 
                                       *aname = malloc((unsigned) strlen(tokval) + 1);
                                       (void) strcpy(*aname, tokval);
                               } else {
                                       if (strcmp(*aname, tokval))
                                               goto next;
                               }
                       break;
               case PASSWD:
                       if (fstat(fileno(cfile), &stb) >= 0
                           && (stb.st_mode & 077) != 0) {
       fprintf(stderr, "Error - .netrc file not correct mode.\n");
       fprintf(stderr, "Remove password or correct mode.\n");
                               return(-1);
                       }
                       if (token() && *apass == 0) {
                               *apass = malloc((unsigned) strlen(tokval) + 1);
                               (void) strcpy(*apass, tokval);
                       }
                       break;
               case ACCOUNT:
                       if (fstat(fileno(cfile), &stb) >= 0
                           && (stb.st_mode & 077) != 0) {
       fprintf(stderr, "Error - .netrc file not correct mode.\n");
       fprintf(stderr, "Remove account or correct mode.\n");
                               return(-1);
                       }
                       if (token() && *aacct == 0) {
                               *aacct = malloc((unsigned) strlen(tokval) + 1);
                               (void) strcpy(*aacct, tokval);
                       }
                       break;
               case MACDEF:
                       if (proxy) {
                               return(0);
                       }
                       while ((c=getc(cfile)) != EOF && c == ' ' || c == '\t');
                       if (c == EOF || c == '\n') {
                               printf("Missing macdef name argument.\n");
                               return(-1);
                       }
                       if (macnum == 16) {
                               printf("Limit of 16 macros have already been defined\n");
                               return(-1);
                       }
                       tmp = macros[macnum].mac_name;
                       *tmp++ = c;
                       for (i=0; i < 8 && (c=getc(cfile)) != EOF &&
                           !isspace(c); ++i) {
                               *tmp++ = c;
                       }
                       if (c == EOF) {
                               printf("Macro definition missing null line terminator.\n");
                               return(-1);
                       }
                       *tmp = '\0';
                       if (c != '\n') {
                               while ((c=getc(cfile)) != EOF && c != '\n');
                       }
                       if (c == EOF) {
                               printf("Macro definition missing null line terminator.\n");
                               return(-1);
                       }
                       if (macnum == 0) {
                               macros[macnum].mac_start = macbuf;
                       }
                       else {
                               macros[macnum].mac_start = macros[macnum-1].mac_end + 1;
                       }
                       tmp = macros[macnum].mac_start;
                       while (tmp != macbuf + 4096) {
                               if ((c=getc(cfile)) == EOF) {
                               printf("Macro definition missing null line terminator.\n");
                                       return(-1);
                               }
                               *tmp = c;
                               if (*tmp == '\n') {
                                       if (*(tmp-1) == '\0') {
                                          macros[macnum++].mac_end = tmp - 1;
                                          break;
                                       }
                                       *tmp = '\0';
                               }
                               tmp++;
                       }
                       if (tmp == macbuf + 4096) {
                               printf("4K macro buffer exceeded\n");
                               return(-1);
                       }
                       break;
               default:
       fprintf(stderr, "Unknown .netrc keyword %s\n", tokval);
                       break;
               }
               goto done;
       }
done:
       (void) fclose(cfile);
       return(0);
}

static
token()
{
       char *cp;
       int c;
       struct toktab *t;

       if (feof(cfile))
               return (0);
       while ((c = getc(cfile)) != EOF &&
           (c == '\n' || c == '\t' || c == ' ' || c == ','))
               continue;
       if (c == EOF)
               return (0);
       cp = tokval;
       if (c == '"') {
               while ((c = getc(cfile)) != EOF && c != '"') {
                       if (c == '\\')
                               c = getc(cfile);
                       *cp++ = c;
               }
       } else {
               *cp++ = c;
               while ((c = getc(cfile)) != EOF
                   && c != '\n' && c != '\t' && c != ' ' && c != ',') {
                       if (c == '\\')
                               c = getc(cfile);
                       *cp++ = c;
               }
       }
       *cp = 0;
       if (tokval[0] == 0)
               return (0);
       for (t = toktab; t->tokstr; t++)
               if (!strcmp(t->tokstr, tokval))
                       return (t->tval);
       return (ID);
}