Added -clobber switch to mhstore(1) [Bug #11160].
[mmh] / docs / historical / mh-6.8.5 / sbr / RCS / ruserpass.c,v
1 head    1.1;
2 access;
3 symbols;
4 locks
5         shettich:1.1; strict;
6 comment @ * @;
7
8
9 1.1
10 date    97.04.11.19.49.50;      author shettich;        state Exp;
11 branches;
12 next    ;
13
14
15 desc
16 @@
17
18
19 1.1
20 log
21 @Initial revision
22 @
23 text
24 @/*
25  * Copyright (c) 1985 Regents of the University of California.
26  * All rights reserved.
27  *
28  * Redistribution and use in source and binary forms are permitted
29  * provided that the above copyright notice and this paragraph are
30  * duplicated in all such forms and that any documentation,
31  * advertising materials, and other materials related to such
32  * distribution and use acknowledge that the software was developed
33  * by the University of California, Berkeley.  The name of the
34  * University may not be used to endorse or promote products derived
35  * from this software without specific prior written permission.
36  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
37  * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
38  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
39  */
40
41 #ifndef lint
42 static char sccsid[] = "@@(#)ruserpass.c        5.1 (Berkeley) 3/1/89";
43 #endif /* not lint */
44
45 #include <sys/types.h>
46 #include <sys/stat.h>
47 #include <stdio.h>
48 #include <ctype.h>
49 #include <pwd.h>
50 #include <errno.h>
51
52 char    *malloc(), *index(), *getenv(), *getpass(), *getlogin();
53 char    *strcpy();
54 static  FILE *cfile;
55
56 #ifndef MAXHOSTNAMELEN
57 #define MAXHOSTNAMELEN 64
58 #endif
59
60 #define DEFAULT 1
61 #define LOGIN   2
62 #define PASSWD  3
63 #define ACCOUNT 4
64 #define MACDEF  5
65 #define ID      10
66 #define MACH    11
67
68 static int token();
69 static char tokval[100];
70
71 static struct toktab {
72         char *tokstr;
73         int tval;
74 } toktab[]= {
75         "default",      DEFAULT,
76         "login",        LOGIN,
77         "password",     PASSWD,
78         "passwd",       PASSWD,
79         "account",      ACCOUNT,
80         "machine",      MACH,
81         "macdef",       MACDEF,
82         0,              0
83 };
84
85 ruserpass(host, aname, apass)
86      char *host, **aname, **apass;
87 {
88         char *hdir, buf[BUFSIZ], *tmp;
89         char myname[MAXHOSTNAMELEN], *mydomain;
90         int t, i, c, usedefault = 0;
91         struct stat stb;
92         extern int errno;
93
94         hdir = getenv("HOME");
95         if (hdir == NULL)
96                 hdir = ".";
97         (void) sprintf(buf, "%s/.netrc", hdir);
98         cfile = fopen(buf, "r");
99         if (cfile == NULL) {
100                 if (errno != ENOENT)
101                         perror(buf);
102                 goto done;
103         }
104
105         while ((t = token())) switch(t) {
106         case DEFAULT:
107                 usedefault = 1;
108                 /* FALL THROUGH */
109
110         case MACH:
111                 if (!usedefault) {
112                         if (token() != ID)
113                                 continue;
114                         /*
115                          * Allow match either for user's host name.
116                          */
117                         if (strcasecmp(host, tokval) == 0)
118                                 goto match;
119                         continue;
120                 }
121         match:
122                 while ((t = token()) && t != MACH && t != DEFAULT) switch(t) {
123
124                 case LOGIN:
125                         if (token() && *aname == 0) {
126                                 *aname = malloc((unsigned) strlen(tokval) + 1);
127                                 (void) strcpy(*aname, tokval);
128                         }
129                         break;
130                 case PASSWD:
131                         if (fstat(fileno(cfile), &stb) >= 0 &&
132                             (stb.st_mode & 077) != 0) {
133         fprintf(stderr, "Error - .netrc file not correct mode.\n");
134         fprintf(stderr, "Remove password or correct mode.\n");
135                                 goto bad;
136                         }
137                         if (token() && *apass == 0) {
138                                 *apass = malloc((unsigned) strlen(tokval) + 1);
139                                 (void) strcpy(*apass, tokval);
140                         }
141                         break;
142                 case ACCOUNT:
143                         break;
144
145                 case MACDEF:
146                         goto done_close;
147                         break;
148                 default:
149         fprintf(stderr, "Unknown .netrc keyword %s\n", tokval);
150                         break;
151                 }
152                 goto done;
153         }
154
155 done_close:
156         (void) fclose(cfile);
157
158 done:
159         if (!*aname) {
160                 char tmp[80];
161                 char *myname;
162
163                 if ((myname = getlogin()) == NULL) {
164                         struct passwd *pp;
165
166                         if ((pp = getpwuid (getuid())) != NULL)
167                                 myname = pp->pw_name;
168                 }
169                 printf("Name (%s:%s): ", host, myname);
170
171                 (void) fgets(tmp, sizeof(tmp) - 1, stdin);
172                 tmp[strlen(tmp) - 1] = '\0';
173                 if (*tmp != '\0') {
174                         myname = tmp;
175                 }
176
177                 *aname = malloc((unsigned) strlen(myname) + 1);
178                 strcpy (*aname, myname);
179         }
180
181         if (!*apass) {
182                 char prompt[256];
183                 char *mypass;
184
185                 sprintf(prompt, "Password (%s:%s): ", host, *aname);
186                 mypass = getpass (prompt);
187         
188                 if (*mypass == '\0') {
189                         mypass = *aname;
190                 }
191
192                 *apass = malloc((unsigned) strlen(mypass) + 1);
193                 strcpy (*apass, mypass);
194         }
195
196         return(0);
197 bad:
198         (void) fclose(cfile);
199         return(-1);
200 }
201
202 static int
203 token()
204 {
205         char *cp;
206         int c;
207         struct toktab *t;
208
209         if (feof(cfile))
210                 return (0);
211         while ((c = getc(cfile)) != EOF &&
212             (c == '\n' || c == '\t' || c == ' ' || c == ','))
213                 continue;
214         if (c == EOF)
215                 return (0);
216         cp = tokval;
217         if (c == '"') {
218                 while ((c = getc(cfile)) != EOF && c != '"') {
219                         if (c == '\\')
220                                 c = getc(cfile);
221                         *cp++ = c;
222                 }
223         } else {
224                 *cp++ = c;
225                 while ((c = getc(cfile)) != EOF
226                     && c != '\n' && c != '\t' && c != ' ' && c != ',') {
227                         if (c == '\\')
228                                 c = getc(cfile);
229                         *cp++ = c;
230                 }
231         }
232         *cp = 0;
233         if (tokval[0] == 0)
234                 return (0);
235         for (t = toktab; t->tokstr; t++)
236                 if (!strcmp(t->tokstr, tokval))
237                         return (t->tval);
238         return (ID);
239 }
240 @