1 /* Read and parse the .netrc file to get hosts, accounts, and passwords.
2 Copyright (C) 1996, Free Software Foundation, Inc.
4 This file is part of Wget.
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
20 /* This file used to be kept in synch with the code in Fetchmail, but
21 the latter has diverged since. */
35 #include <sys/types.h>
47 #define NETRC_FILE_NAME ".netrc"
51 static acc_t *parse_netrc PARAMS ((const char *));
53 /* Return the correct user and password, given the host, user (as
54 given in the URL), and password (as given in the URL). May return
57 If SLACK_DEFAULT is set, allow looking for a "default" account.
58 You will typically turn it off for HTTP. */
60 search_netrc (const char *host, const char **acc, const char **passwd,
64 static int processed_netrc;
71 char *home = home_dir();
79 char *path = (char *)alloca (strlen (home) + 1
80 + strlen (NETRC_FILE_NAME) + 1);
81 sprintf (path, "%s/%s", home, NETRC_FILE_NAME);
83 err = stat (path, &buf);
85 netrc_list = parse_netrc (path);
88 /* If nothing to do... */
91 /* Acc and password found; all OK. */
94 if (!*acc && !slack_default)
96 /* Some data not given -- try finding the host. */
97 for (l = netrc_list; l; l = l->next)
101 else if (!strcasecmp (l->host, host))
108 /* Looking for password in .netrc. */
109 if (!strcmp (l->acc, *acc))
110 *passwd = l->passwd; /* usernames match; password OK */
112 *passwd = NULL; /* usernames don't match */
116 /* If password was given, use it. The account is l->acc. */
129 /* Try looking for the default account. */
130 for (l = netrc_list; l; l = l->next)
144 /* Normally, these functions would be defined by your package. */
145 # define xmalloc malloc
146 # define xstrdup strdup
148 /* The function reads a whole line. It reads the line realloc-ing the
149 storage exponentially, doubling the storage after each overflow to
150 minimize the number of calls to realloc().
152 It is not an exemplary of correctness, since it kills off the
153 newline (and no, there is no way to know if there was a newline at
155 # define xrealloc realloc
156 # define DYNAMIC_LINE_BUFFER 40
159 read_whole_line (FILE *fp)
165 bufsize = DYNAMIC_LINE_BUFFER;
166 line = xmalloc(bufsize);
167 /* Construct the line. */
168 while ((c = getc(fp)) != EOF && c != '\n')
171 line = (char *)xrealloc(line, (bufsize <<= 1));
180 /* Check for overflow at zero-termination (no need to double the
181 buffer in this case. */
183 line = (char *)xrealloc(line, i + 1);
188 #endif /* STANDALONE */
190 /* Maybe add NEWENTRY to the account information list, LIST. NEWENTRY is
191 set to a ready-to-use acc_t, in any event. */
193 maybe_add_to_list (acc_t **newentry, acc_t **list)
199 /* We need an account name in order to add the entry to the list. */
202 /* Free any allocated space. */
211 /* Add the current machine into our list. */
216 /* Allocate a new acc_t structure. */
217 a = (acc_t *)xmalloc (sizeof (acc_t));
220 /* Zero the structure, so that it is ready to use. */
221 memset (a, 0, sizeof(*a));
223 /* Return the new pointers. */
229 /* Helper function for the parser, shifts contents of
230 null-terminated string once character to the left.
231 Used in processing \ and " constructs in the netrc file */
233 shift_left(char *string){
236 for (p=string; *p; ++p)
240 /* Parse a .netrc file (as described in the ftp(1) manual page). */
242 parse_netrc (const char *path)
245 char *line, *p, *tok, *premature_token;
246 acc_t *current, *retval;
249 /* The latest token we've seen in the file. */
252 tok_nothing, tok_account, tok_login, tok_macdef, tok_machine, tok_password
253 } last_token = tok_nothing;
255 current = retval = NULL;
257 fp = fopen (path, "r");
260 fprintf (stderr, _("%s: Cannot read %s (%s).\n"), exec_name,
261 path, strerror (errno));
265 /* Initialize the file data. */
267 premature_token = NULL;
269 /* While there are lines in the file... */
270 while ((line = read_whole_line (fp)))
274 /* Parse the line. */
278 /* If the line is empty, then end any macro definition. */
279 if (last_token == tok_macdef && !*p)
280 /* End of macro if the line is empty. */
281 last_token = tok_nothing;
283 /* If we are defining macros, then skip parsing the line. */
284 while (*p && last_token != tok_macdef)
286 /* Skip any whitespace. */
287 while (*p && ISSPACE (*p))
290 /* Discard end-of-line comments. */
294 /* If the token starts with quotation mark, note this fact,
295 and squash the quotation character */
303 /* Find the end of the token, handling quotes and escapes. */
304 while (*p && (quote ? *p != '"' : !ISSPACE (*p))){
310 /* if field was quoted, squash the trailing quotation mark */
314 /* Null-terminate the token, if it isn't already. */
322 current->acc = xstrdup (tok);
324 premature_token = "login";
328 /* Start a new machine entry. */
329 maybe_add_to_list (¤t, &retval);
330 current->host = xstrdup (tok);
335 current->passwd = xstrdup (tok);
337 premature_token = "password";
340 /* We handle most of tok_macdef above. */
343 premature_token = "macdef";
346 /* We don't handle the account keyword at all. */
349 premature_token = "account";
352 /* We handle tok_nothing below this switch. */
359 fprintf (stderr, _("\
360 %s: %s:%d: warning: \"%s\" token appears before any machine name\n"),
361 exec_name, path, ln, premature_token);
362 premature_token = NULL;
365 if (last_token != tok_nothing)
366 /* We got a value, so reset the token state. */
367 last_token = tok_nothing;
370 /* Fetch the next token. */
371 if (!strcmp (tok, "account"))
372 last_token = tok_account;
373 else if (!strcmp (tok, "default"))
375 maybe_add_to_list (¤t, &retval);
377 else if (!strcmp (tok, "login"))
378 last_token = tok_login;
380 else if (!strcmp (tok, "macdef"))
381 last_token = tok_macdef;
383 else if (!strcmp (tok, "machine"))
384 last_token = tok_machine;
386 else if (!strcmp (tok, "password"))
387 last_token = tok_password;
390 fprintf (stderr, _("%s: %s:%d: unknown token \"%s\"\n"),
391 exec_name, path, ln, tok);
400 /* Finalize the last machine entry we found. */
401 maybe_add_to_list (¤t, &retval);
404 /* Reverse the order of the list so that it appears in file order. */
409 acc_t *saved_reference;
411 /* Change the direction of the pointers. */
412 saved_reference = current->next;
413 current->next = retval;
415 /* Advance to the next node. */
417 current = saved_reference;
424 /* Free a netrc list. */
434 FREE_MAYBE (l->passwd);
435 FREE_MAYBE (l->host);
442 #include <sys/types.h>
443 #include <sys/stat.h>
446 main (int argc, char **argv)
449 char *program_name, *file, *target;
452 if (argc < 2 || argc > 3)
454 fprintf (stderr, _("Usage: %s NETRC [HOSTNAME]\n"), argv[0]);
458 program_name = argv[0];
462 if (stat (file, &sb))
464 fprintf (stderr, _("%s: cannot stat %s: %s\n"), argv[0], file,
469 head = parse_netrc (file);
473 /* Skip if we have a target and this isn't it. */
474 if (target && a->host && strcmp (target, a->host))
482 /* Print the host name if we have no target. */
484 fputs (a->host, stdout);
486 fputs ("DEFAULT", stdout);
491 /* Print the account name. */
492 fputs (a->acc, stdout);
496 /* Print the password, if there is any. */
498 fputs (a->passwd, stdout);
501 fputc ('\n', stdout);
503 /* Exit if we found the target. */
509 /* Exit with failure if we had a target, success otherwise. */
515 #endif /* STANDALONE */