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 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 2 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, write to the Free Software
18 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
20 In addition, as a special exception, the Free Software Foundation
21 gives permission to link the code of its release of Wget with the
22 OpenSSL project's "OpenSSL" library (or with modified versions of it
23 that use the same license as the "OpenSSL" library), and distribute
24 the linked executables. You must obey the GNU General Public License
25 in all respects for all of the code used other than "OpenSSL". If you
26 modify this file, you may extend this exception to your version of the
27 file, but you are not obligated to do so. If you do not wish to do
28 so, delete this exception statement from your version. */
30 /* This file used to be kept in synch with the code in Fetchmail, but
31 the latter has diverged since. */
44 #include <sys/types.h>
56 #define NETRC_FILE_NAME ".netrc"
60 static acc_t *parse_netrc PARAMS ((const char *));
62 /* Return the correct user and password, given the host, user (as
63 given in the URL), and password (as given in the URL). May return
66 If SLACK_DEFAULT is set, allow looking for a "default" account.
67 You will typically turn it off for HTTP. */
69 search_netrc (const char *host, const char **acc, const char **passwd,
73 static int processed_netrc;
80 char *home = home_dir ();
88 char *path = (char *)alloca (strlen (home) + 1
89 + strlen (NETRC_FILE_NAME) + 1);
90 sprintf (path, "%s/%s", home, NETRC_FILE_NAME);
92 err = stat (path, &buf);
94 netrc_list = parse_netrc (path);
97 /* If nothing to do... */
100 /* Acc and password found; all OK. */
103 /* Some data not given -- try finding the host. */
104 for (l = netrc_list; l; l = l->next)
108 else if (!strcasecmp (l->host, host))
115 /* Looking for password in .netrc. */
116 if (!strcmp (l->acc, *acc))
117 *passwd = l->passwd; /* usernames match; password OK */
119 *passwd = NULL; /* usernames don't match */
123 /* If password was given, use it. The account is l->acc. */
136 /* Try looking for the default account. */
137 for (l = netrc_list; l; l = l->next)
154 /* Normally, these functions would be defined by your package. */
155 # define xmalloc malloc
157 # define xstrdup strdup
159 # define xrealloc realloc
161 /* Read a line from FP. The function reallocs the storage as needed
162 to accomodate for any length of the line. Reallocs are done
163 storage exponentially, doubling the storage after each overflow to
164 minimize the number of calls to realloc() and fgets(). The newline
165 character at the end of line is retained.
167 After end-of-file is encountered without anything being read, NULL
168 is returned. NULL is also returned on error. To distinguish
169 between these two cases, use the stdio function ferror(). */
172 read_whole_line (FILE *fp)
176 char *line = (char *)xmalloc (bufsize);
178 while (fgets (line + length, bufsize - length, fp))
180 length += strlen (line + length);
182 if (line[length - 1] == '\n')
184 /* fgets() guarantees to read the whole line, or to use up the
185 space we've given it. We can double the buffer
188 line = xrealloc (line, bufsize);
190 if (length == 0 || ferror (fp))
195 if (length + 1 < bufsize)
196 /* Relieve the memory from our exponential greediness. We say
197 `length + 1' because the terminating \0 is not included in
198 LENGTH. We don't need to zero-terminate the string ourselves,
199 though, because fgets() does that. */
200 line = xrealloc (line, length + 1);
203 #endif /* STANDALONE */
205 /* Maybe add NEWENTRY to the account information list, LIST. NEWENTRY is
206 set to a ready-to-use acc_t, in any event. */
208 maybe_add_to_list (acc_t **newentry, acc_t **list)
214 /* We need an account name in order to add the entry to the list. */
217 /* Free any allocated space. */
218 xfree_null (a->host);
220 xfree_null (a->passwd);
226 /* Add the current machine into our list. */
231 /* Allocate a new acc_t structure. */
232 a = (acc_t *)xmalloc (sizeof (acc_t));
235 /* Zero the structure, so that it is ready to use. */
236 memset (a, 0, sizeof(*a));
238 /* Return the new pointers. */
244 /* Helper function for the parser, shifts contents of
245 null-terminated string once character to the left.
246 Used in processing \ and " constructs in the netrc file */
248 shift_left(char *string)
252 for (p=string; *p; ++p)
256 /* Parse a .netrc file (as described in the ftp(1) manual page). */
258 parse_netrc (const char *path)
261 char *line, *p, *tok;
262 const char *premature_token;
263 acc_t *current, *retval;
266 /* The latest token we've seen in the file. */
269 tok_nothing, tok_account, tok_login, tok_macdef, tok_machine, tok_password
270 } last_token = tok_nothing;
272 current = retval = NULL;
274 fp = fopen (path, "r");
277 fprintf (stderr, _("%s: Cannot read %s (%s).\n"), exec_name,
278 path, strerror (errno));
282 /* Initialize the file data. */
284 premature_token = NULL;
286 /* While there are lines in the file... */
287 while ((line = read_whole_line (fp)))
291 /* Parse the line. */
295 /* Skip leading whitespace. */
296 while (*p && ISSPACE (*p))
299 /* If the line is empty, then end any macro definition. */
300 if (last_token == tok_macdef && !*p)
301 /* End of macro if the line is empty. */
302 last_token = tok_nothing;
304 /* If we are defining macros, then skip parsing the line. */
305 while (*p && last_token != tok_macdef)
307 /* Skip any whitespace. */
308 while (*p && ISSPACE (*p))
311 /* Discard end-of-line comments; also, stop processing if
312 the above `while' merely skipped trailing whitespace. */
313 if (*p == '#' || !*p)
316 /* If the token starts with quotation mark, note this fact,
317 and squash the quotation character */
325 /* Find the end of the token, handling quotes and escapes. */
326 while (*p && (quote ? *p != '"' : !ISSPACE (*p))){
332 /* If field was quoted, squash the trailing quotation mark
333 and reset quote flag. */
340 /* Null-terminate the token, if it isn't already. */
348 current->acc = xstrdup (tok);
350 premature_token = "login";
354 /* Start a new machine entry. */
355 maybe_add_to_list (¤t, &retval);
356 current->host = xstrdup (tok);
361 current->passwd = xstrdup (tok);
363 premature_token = "password";
366 /* We handle most of tok_macdef above. */
369 premature_token = "macdef";
372 /* We don't handle the account keyword at all. */
375 premature_token = "account";
378 /* We handle tok_nothing below this switch. */
385 fprintf (stderr, _("\
386 %s: %s:%d: warning: \"%s\" token appears before any machine name\n"),
387 exec_name, path, ln, premature_token);
388 premature_token = NULL;
391 if (last_token != tok_nothing)
392 /* We got a value, so reset the token state. */
393 last_token = tok_nothing;
396 /* Fetch the next token. */
397 if (!strcmp (tok, "account"))
398 last_token = tok_account;
399 else if (!strcmp (tok, "default"))
401 maybe_add_to_list (¤t, &retval);
403 else if (!strcmp (tok, "login"))
404 last_token = tok_login;
406 else if (!strcmp (tok, "macdef"))
407 last_token = tok_macdef;
409 else if (!strcmp (tok, "machine"))
410 last_token = tok_machine;
412 else if (!strcmp (tok, "password"))
413 last_token = tok_password;
416 fprintf (stderr, _("%s: %s:%d: unknown token \"%s\"\n"),
417 exec_name, path, ln, tok);
426 /* Finalize the last machine entry we found. */
427 maybe_add_to_list (¤t, &retval);
430 /* Reverse the order of the list so that it appears in file order. */
435 acc_t *saved_reference;
437 /* Change the direction of the pointers. */
438 saved_reference = current->next;
439 current->next = retval;
441 /* Advance to the next node. */
443 current = saved_reference;
450 /* Free a netrc list. */
460 xfree_null (l->passwd);
461 xfree_null (l->host);
468 #include <sys/types.h>
469 #include <sys/stat.h>
472 main (int argc, char **argv)
475 char *program_name, *file, *target;
478 if (argc < 2 || argc > 3)
480 fprintf (stderr, _("Usage: %s NETRC [HOSTNAME]\n"), argv[0]);
484 program_name = argv[0];
488 if (stat (file, &sb))
490 fprintf (stderr, _("%s: cannot stat %s: %s\n"), argv[0], file,
495 head = parse_netrc (file);
499 /* Skip if we have a target and this isn't it. */
500 if (target && a->host && strcmp (target, a->host))
508 /* Print the host name if we have no target. */
510 fputs (a->host, stdout);
512 fputs ("DEFAULT", stdout);
517 /* Print the account name. */
518 fputs (a->acc, stdout);
522 /* Print the password, if there is any. */
524 fputs (a->passwd, stdout);
527 fputc ('\n', stdout);
529 /* Exit if we found the target. */
535 /* Exit with failure if we had a target, success otherwise. */
541 #endif /* STANDALONE */