1 /* Read and parse the .netrc file to get hosts, accounts, and passwords.
2 Copyright (C) 1996, 2007 Free Software Foundation, Inc.
4 This file is part of GNU Wget.
6 GNU Wget 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 3 of the License, or
9 (at your option) any later version.
11 GNU Wget 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 Wget. If not, see <http://www.gnu.org/licenses/>.
19 In addition, as a special exception, the Free Software Foundation
20 gives permission to link the code of its release of Wget with the
21 OpenSSL project's "OpenSSL" library (or with modified versions of it
22 that use the same license as the "OpenSSL" library), and distribute
23 the linked executables. You must obey the GNU General Public License
24 in all respects for all of the code used other than "OpenSSL". If you
25 modify this file, you may extend this exception to your version of the
26 file, but you are not obligated to do so. If you do not wish to do
27 so, delete this exception statement from your version. */
29 /* This file used to be kept in synch with the code in Fetchmail, but
30 the latter has diverged since. */
43 #define NETRC_FILE_NAME ".netrc"
47 static acc_t *parse_netrc (const char *);
49 /* Return the correct user and password, given the host, user (as
50 given in the URL), and password (as given in the URL). May return
53 If SLACK_DEFAULT is set, allow looking for a "default" account.
54 You will typically turn it off for HTTP. */
56 search_netrc (const char *host, const char **acc, const char **passwd,
60 static int processed_netrc;
67 char *home = home_dir ();
75 char *path = (char *)alloca (strlen (home) + 1
76 + strlen (NETRC_FILE_NAME) + 1);
77 sprintf (path, "%s/%s", home, NETRC_FILE_NAME);
79 err = stat (path, &buf);
81 netrc_list = parse_netrc (path);
84 /* If nothing to do... */
87 /* Acc and password found; all OK. */
90 /* Some data not given -- try finding the host. */
91 for (l = netrc_list; l; l = l->next)
95 else if (!strcasecmp (l->host, host))
102 /* Looking for password in .netrc. */
103 if (!strcmp (l->acc, *acc))
104 *passwd = l->passwd; /* usernames match; password OK */
106 *passwd = NULL; /* usernames don't match */
110 /* If password was given, use it. The account is l->acc. */
123 /* Try looking for the default account. */
124 for (l = netrc_list; l; l = l->next)
141 /* Normally, these functions would be defined by your package. */
142 # define xmalloc malloc
144 # define xstrdup strdup
146 # define xrealloc realloc
148 /* Read a line from FP. The function reallocs the storage as needed
149 to accomodate for any length of the line. Reallocs are done
150 storage exponentially, doubling the storage after each overflow to
151 minimize the number of calls to realloc() and fgets(). The newline
152 character at the end of line is retained.
154 After end-of-file is encountered without anything being read, NULL
155 is returned. NULL is also returned on error. To distinguish
156 between these two cases, use the stdio function ferror(). */
159 read_whole_line (FILE *fp)
163 char *line = xmalloc (bufsize);
165 while (fgets (line + length, bufsize - length, fp))
167 length += strlen (line + length);
169 if (line[length - 1] == '\n')
171 /* fgets() guarantees to read the whole line, or to use up the
172 space we've given it. We can double the buffer
175 line = xrealloc (line, bufsize);
177 if (length == 0 || ferror (fp))
182 if (length + 1 < bufsize)
183 /* Relieve the memory from our exponential greediness. We say
184 `length + 1' because the terminating \0 is not included in
185 LENGTH. We don't need to zero-terminate the string ourselves,
186 though, because fgets() does that. */
187 line = xrealloc (line, length + 1);
190 #endif /* STANDALONE */
192 /* Maybe add NEWENTRY to the account information list, LIST. NEWENTRY is
193 set to a ready-to-use acc_t, in any event. */
195 maybe_add_to_list (acc_t **newentry, acc_t **list)
201 /* We need an account name in order to add the entry to the list. */
204 /* Free any allocated space. */
205 xfree_null (a->host);
207 xfree_null (a->passwd);
213 /* Add the current machine into our list. */
218 /* Allocate a new acc_t structure. */
219 a = xmalloc (sizeof (acc_t));
222 /* Zero the structure, so that it is ready to use. */
223 memset (a, 0, sizeof(*a));
225 /* Return the new pointers. */
231 /* Helper function for the parser, shifts contents of
232 null-terminated string once character to the left.
233 Used in processing \ and " constructs in the netrc file */
235 shift_left(char *string)
239 for (p=string; *p; ++p)
243 /* Parse a .netrc file (as described in the ftp(1) manual page). */
245 parse_netrc (const char *path)
248 char *line, *p, *tok;
249 const char *premature_token;
250 acc_t *current, *retval;
253 /* The latest token we've seen in the file. */
256 tok_nothing, tok_account, tok_login, tok_macdef, tok_machine, tok_password
257 } last_token = tok_nothing;
259 current = retval = NULL;
261 fp = fopen (path, "r");
264 fprintf (stderr, _("%s: Cannot read %s (%s).\n"), exec_name,
265 path, strerror (errno));
269 /* Initialize the file data. */
271 premature_token = NULL;
273 /* While there are lines in the file... */
274 while ((line = read_whole_line (fp)) != NULL)
278 /* Parse the line. */
282 /* Skip leading whitespace. */
283 while (*p && c_isspace (*p))
286 /* If the line is empty, then end any macro definition. */
287 if (last_token == tok_macdef && !*p)
288 /* End of macro if the line is empty. */
289 last_token = tok_nothing;
291 /* If we are defining macros, then skip parsing the line. */
292 while (*p && last_token != tok_macdef)
294 /* Skip any whitespace. */
295 while (*p && c_isspace (*p))
298 /* Discard end-of-line comments; also, stop processing if
299 the above `while' merely skipped trailing whitespace. */
300 if (*p == '#' || !*p)
303 /* If the token starts with quotation mark, note this fact,
304 and squash the quotation character */
312 /* Find the end of the token, handling quotes and escapes. */
313 while (*p && (quote ? *p != '"' : !c_isspace (*p))){
319 /* If field was quoted, squash the trailing quotation mark
320 and reset quote flag. */
327 /* Null-terminate the token, if it isn't already. */
335 current->acc = xstrdup (tok);
337 premature_token = "login";
341 /* Start a new machine entry. */
342 maybe_add_to_list (¤t, &retval);
343 current->host = xstrdup (tok);
348 current->passwd = xstrdup (tok);
350 premature_token = "password";
353 /* We handle most of tok_macdef above. */
356 premature_token = "macdef";
359 /* We don't handle the account keyword at all. */
362 premature_token = "account";
365 /* We handle tok_nothing below this switch. */
372 fprintf (stderr, _("\
373 %s: %s:%d: warning: \"%s\" token appears before any machine name\n"),
374 exec_name, path, ln, premature_token);
375 premature_token = NULL;
378 if (last_token != tok_nothing)
379 /* We got a value, so reset the token state. */
380 last_token = tok_nothing;
383 /* Fetch the next token. */
384 if (!strcmp (tok, "account"))
385 last_token = tok_account;
386 else if (!strcmp (tok, "default"))
388 maybe_add_to_list (¤t, &retval);
390 else if (!strcmp (tok, "login"))
391 last_token = tok_login;
393 else if (!strcmp (tok, "macdef"))
394 last_token = tok_macdef;
396 else if (!strcmp (tok, "machine"))
397 last_token = tok_machine;
399 else if (!strcmp (tok, "password"))
400 last_token = tok_password;
403 fprintf (stderr, _("%s: %s:%d: unknown token \"%s\"\n"),
404 exec_name, path, ln, tok);
413 /* Finalize the last machine entry we found. */
414 maybe_add_to_list (¤t, &retval);
417 /* Reverse the order of the list so that it appears in file order. */
422 acc_t *saved_reference;
424 /* Change the direction of the pointers. */
425 saved_reference = current->next;
426 current->next = retval;
428 /* Advance to the next node. */
430 current = saved_reference;
437 /* Free a netrc list. */
447 xfree_null (l->passwd);
448 xfree_null (l->host);
455 #include <sys/types.h>
456 #include <sys/stat.h>
459 main (int argc, char **argv)
462 char *program_name, *file, *target;
465 if (argc < 2 || argc > 3)
467 fprintf (stderr, _("Usage: %s NETRC [HOSTNAME]\n"), argv[0]);
471 program_name = argv[0];
475 if (stat (file, &sb))
477 fprintf (stderr, _("%s: cannot stat %s: %s\n"), argv[0], file,
482 head = parse_netrc (file);
486 /* Skip if we have a target and this isn't it. */
487 if (target && a->host && strcmp (target, a->host))
495 /* Print the host name if we have no target. */
497 fputs (a->host, stdout);
499 fputs ("DEFAULT", stdout);
504 /* Print the account name. */
505 fputs (a->acc, stdout);
509 /* Print the password, if there is any. */
511 fputs (a->passwd, stdout);
514 fputc ('\n', stdout);
516 /* Exit if we found the target. */
522 /* Exit with failure if we had a target, success otherwise. */
528 #endif /* STANDALONE */