1 /* Read and parse the .netrc file to get hosts, accounts, and passwords.
2 Copyright (C) 1996, 2007, 2008, 2009, 2010, 2011 Free Software
5 This file is part of GNU Wget.
7 GNU Wget is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
12 GNU Wget is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with Wget. If not, see <http://www.gnu.org/licenses/>.
20 Additional permission under GNU GPL version 3 section 7
22 If you modify this program, or any covered work, by linking or
23 combining it with the OpenSSL project's OpenSSL library (or a
24 modified version of that library), containing parts covered by the
25 terms of the OpenSSL or SSLeay licenses, the Free Software Foundation
26 grants you additional permission to convey the resulting work.
27 Corresponding Source for a non-source form of such a combination
28 shall include the source code for the parts of OpenSSL used as well
29 as that of the covered work. */
31 /* This file used to be kept in synch with the code in Fetchmail, but
32 the latter has diverged since. */
45 #define NETRC_FILE_NAME ".netrc"
47 static acc_t *netrc_list;
49 static acc_t *parse_netrc (const char *);
54 free_netrc (netrc_list);
57 /* Return the correct user and password, given the host, user (as
58 given in the URL), and password (as given in the URL). May return
61 If SLACK_DEFAULT is set, allow looking for a "default" account.
62 You will typically turn it off for HTTP. */
64 search_netrc (const char *host, const char **acc, const char **passwd,
68 static int processed_netrc;
79 char *path = "SYS$LOGIN:.netrc";
84 err = stat (path, &buf);
86 netrc_list = parse_netrc (path);
90 char *home = home_dir ();
98 char *path = (char *)alloca (strlen (home) + 1
99 + strlen (NETRC_FILE_NAME) + 1);
100 sprintf (path, "%s/%s", home, NETRC_FILE_NAME);
102 err = stat (path, &buf);
104 netrc_list = parse_netrc (path);
107 #endif /* def __VMS [else] */
109 /* If nothing to do... */
112 /* Acc and password found; all OK. */
115 /* Some data not given -- try finding the host. */
116 for (l = netrc_list; l; l = l->next)
120 else if (!strcasecmp (l->host, host))
127 /* Looking for password in .netrc. */
128 if (!strcmp (l->acc, *acc))
129 *passwd = l->passwd; /* usernames match; password OK */
131 *passwd = NULL; /* usernames don't match */
135 /* If password was given, use it. The account is l->acc. */
148 /* Try looking for the default account. */
149 for (l = netrc_list; l; l = l->next)
166 /* Normally, these functions would be defined by your package. */
167 # define xmalloc malloc
169 # define xstrdup strdup
171 # define xrealloc realloc
173 #endif /* STANDALONE */
175 /* Maybe add NEWENTRY to the account information list, LIST. NEWENTRY is
176 set to a ready-to-use acc_t, in any event. */
178 maybe_add_to_list (acc_t **newentry, acc_t **list)
184 /* We need an account name in order to add the entry to the list. */
187 /* Free any allocated space. */
188 xfree_null (a->host);
190 xfree_null (a->passwd);
196 /* Add the current machine into our list. */
201 /* Allocate a new acc_t structure. */
202 a = xmalloc (sizeof (acc_t));
205 /* Zero the structure, so that it is ready to use. */
206 memset (a, 0, sizeof(*a));
208 /* Return the new pointers. */
214 /* Helper function for the parser, shifts contents of
215 null-terminated string once character to the left.
216 Used in processing \ and " constructs in the netrc file */
218 shift_left(char *string)
222 for (p=string; *p; ++p)
226 /* Parse a .netrc file (as described in the ftp(1) manual page). */
228 parse_netrc (const char *path)
231 char *line = NULL, *p, *tok;
232 const char *premature_token;
233 acc_t *current, *retval;
237 /* The latest token we've seen in the file. */
240 tok_nothing, tok_account, tok_login, tok_macdef, tok_machine, tok_password
241 } last_token = tok_nothing;
243 current = retval = NULL;
245 fp = fopen (path, "r");
248 fprintf (stderr, _("%s: Cannot read %s (%s).\n"), exec_name,
249 path, strerror (errno));
253 /* Initialize the file data. */
255 premature_token = NULL;
257 /* While there are lines in the file... */
258 while (getline (&line, &bufsize, fp) > 0)
262 /* Parse the line. */
266 /* Skip leading whitespace. */
267 while (*p && c_isspace (*p))
270 /* If the line is empty, then end any macro definition. */
271 if (last_token == tok_macdef && !*p)
272 /* End of macro if the line is empty. */
273 last_token = tok_nothing;
275 /* If we are defining macros, then skip parsing the line. */
276 while (*p && last_token != tok_macdef)
278 /* Skip any whitespace. */
279 while (*p && c_isspace (*p))
282 /* Discard end-of-line comments; also, stop processing if
283 the above `while' merely skipped trailing whitespace. */
284 if (*p == '#' || !*p)
287 /* If the token starts with quotation mark, note this fact,
288 and squash the quotation character */
296 /* Find the end of the token, handling quotes and escapes. */
297 while (*p && (qmark ? *p != '"' : !c_isspace (*p))){
303 /* If field was quoted, squash the trailing quotation mark
304 and reset qmark flag. */
311 /* Null-terminate the token, if it isn't already. */
319 current->acc = xstrdup (tok);
321 premature_token = "login";
325 /* Start a new machine entry. */
326 maybe_add_to_list (¤t, &retval);
327 current->host = xstrdup (tok);
332 current->passwd = xstrdup (tok);
334 premature_token = "password";
337 /* We handle most of tok_macdef above. */
340 premature_token = "macdef";
343 /* We don't handle the account keyword at all. */
346 premature_token = "account";
349 /* We handle tok_nothing below this switch. */
356 fprintf (stderr, _("\
357 %s: %s:%d: warning: %s token appears before any machine name\n"),
358 exec_name, path, ln, quote (premature_token));
359 premature_token = NULL;
362 if (last_token != tok_nothing)
363 /* We got a value, so reset the token state. */
364 last_token = tok_nothing;
367 /* Fetch the next token. */
368 if (!strcmp (tok, "account"))
369 last_token = tok_account;
370 else if (!strcmp (tok, "default"))
372 maybe_add_to_list (¤t, &retval);
374 else if (!strcmp (tok, "login"))
375 last_token = tok_login;
377 else if (!strcmp (tok, "macdef"))
378 last_token = tok_macdef;
380 else if (!strcmp (tok, "machine"))
381 last_token = tok_machine;
383 else if (!strcmp (tok, "password"))
384 last_token = tok_password;
387 fprintf (stderr, _("%s: %s:%d: unknown token \"%s\"\n"),
388 exec_name, path, ln, tok);
396 /* Finalize the last machine entry we found. */
397 maybe_add_to_list (¤t, &retval);
400 /* Reverse the order of the list so that it appears in file order. */
405 acc_t *saved_reference;
407 /* Change the direction of the pointers. */
408 saved_reference = current->next;
409 current->next = retval;
411 /* Advance to the next node. */
413 current = saved_reference;
420 /* Free a netrc list. */
430 xfree_null (l->passwd);
431 xfree_null (l->host);
438 #include <sys/types.h>
439 #include <sys/stat.h>
442 main (int argc, char **argv)
445 char *program_name, *file, *target;
448 if (argc < 2 || argc > 3)
450 fprintf (stderr, _("Usage: %s NETRC [HOSTNAME]\n"), argv[0]);
454 program_name = argv[0];
458 if (stat (file, &sb))
460 fprintf (stderr, _("%s: cannot stat %s: %s\n"), argv[0], file,
465 head = parse_netrc (file);
469 /* Skip if we have a target and this isn't it. */
470 if (target && a->host && strcmp (target, a->host))
478 /* Print the host name if we have no target. */
480 fputs (a->host, stdout);
482 fputs ("DEFAULT", stdout);
487 /* Print the account name. */
488 fputs (a->acc, stdout);
492 /* Print the password, if there is any. */
494 fputs (a->passwd, stdout);
497 fputc ('\n', stdout);
499 /* Exit if we found the target. */
505 /* Exit with failure if we had a target, success otherwise. */
511 #endif /* STANDALONE */