/* Read and parse the .netrc file to get hosts, accounts, and passwords.
- Copyright (C) 1996, 2007 Free Software Foundation, Inc.
+ Copyright (C) 1996, 2007, 2008, 2009, 2010, 2011 Free Software
+ Foundation, Inc.
This file is part of GNU Wget.
You should have received a copy of the GNU General Public License
along with Wget. If not, see <http://www.gnu.org/licenses/>.
-In addition, as a special exception, the Free Software Foundation
-gives permission to link the code of its release of Wget with the
-OpenSSL project's "OpenSSL" library (or with modified versions of it
-that use the same license as the "OpenSSL" library), and distribute
-the linked executables. You must obey the GNU General Public License
-in all respects for all of the code used other than "OpenSSL". If you
-modify this file, you may extend this exception to your version of the
-file, but you are not obligated to do so. If you do not wish to do
-so, delete this exception statement from your version. */
+Additional permission under GNU GPL version 3 section 7
+
+If you modify this program, or any covered work, by linking or
+combining it with the OpenSSL project's OpenSSL library (or a
+modified version of that library), containing parts covered by the
+terms of the OpenSSL or SSLeay licenses, the Free Software Foundation
+grants you additional permission to convey the resulting work.
+Corresponding Source for a non-source form of such a combination
+shall include the source code for the parts of OpenSSL used as well
+as that of the covered work. */
/* This file used to be kept in synch with the code in Fetchmail, but
the latter has diverged since. */
-#ifdef HAVE_CONFIG_H
-# include <config.h>
-#endif
+#include "wget.h"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>
-#include "wget.h"
#include "utils.h"
#include "netrc.h"
#include "init.h"
#define NETRC_FILE_NAME ".netrc"
-acc_t *netrc_list;
+static acc_t *netrc_list;
static acc_t *parse_netrc (const char *);
+void
+netrc_cleanup(void)
+{
+ free_netrc (netrc_list);
+}
+
/* Return the correct user and password, given the host, user (as
given in the URL), and password (as given in the URL). May return
NULL.
/* Find ~/.netrc. */
if (!processed_netrc)
{
+#ifdef __VMS
+
+ int err;
+ struct_stat buf;
+ char *path = "SYS$LOGIN:.netrc";
+
+ netrc_list = NULL;
+ processed_netrc = 1;
+
+ err = stat (path, &buf);
+ if (err == 0)
+ netrc_list = parse_netrc (path);
+
+#else /* def __VMS */
+
char *home = home_dir ();
netrc_list = NULL;
if (err == 0)
netrc_list = parse_netrc (path);
}
+
+#endif /* def __VMS [else] */
}
/* If nothing to do... */
if (!netrc_list)
# define xrealloc realloc
-/* Read a line from FP. The function reallocs the storage as needed
- to accomodate for any length of the line. Reallocs are done
- storage exponentially, doubling the storage after each overflow to
- minimize the number of calls to realloc() and fgets(). The newline
- character at the end of line is retained.
-
- After end-of-file is encountered without anything being read, NULL
- is returned. NULL is also returned on error. To distinguish
- between these two cases, use the stdio function ferror(). */
-
-char *
-read_whole_line (FILE *fp)
-{
- int length = 0;
- int bufsize = 81;
- char *line = xmalloc (bufsize);
-
- while (fgets (line + length, bufsize - length, fp))
- {
- length += strlen (line + length);
- assert (length > 0);
- if (line[length - 1] == '\n')
- break;
- /* fgets() guarantees to read the whole line, or to use up the
- space we've given it. We can double the buffer
- unconditionally. */
- bufsize <<= 1;
- line = xrealloc (line, bufsize);
- }
- if (length == 0 || ferror (fp))
- {
- xfree (line);
- return NULL;
- }
- if (length + 1 < bufsize)
- /* Relieve the memory from our exponential greediness. We say
- `length + 1' because the terminating \0 is not included in
- LENGTH. We don't need to zero-terminate the string ourselves,
- though, because fgets() does that. */
- line = xrealloc (line, length + 1);
- return line;
-}
#endif /* STANDALONE */
/* Maybe add NEWENTRY to the account information list, LIST. NEWENTRY is
shift_left(char *string)
{
char *p;
-
+
for (p=string; *p; ++p)
*p = *(p+1);
}
parse_netrc (const char *path)
{
FILE *fp;
- char *line, *p, *tok;
+ char *line = NULL, *p, *tok;
const char *premature_token;
acc_t *current, *retval;
- int ln, quote;
+ int ln, qmark;
+ size_t bufsize = 0;
/* The latest token we've seen in the file. */
enum
premature_token = NULL;
/* While there are lines in the file... */
- while ((line = read_whole_line (fp)) != NULL)
+ while (getline (&line, &bufsize, fp) > 0)
{
ln ++;
/* Parse the line. */
p = line;
- quote = 0;
+ qmark = 0;
/* Skip leading whitespace. */
while (*p && c_isspace (*p))
/* If the token starts with quotation mark, note this fact,
and squash the quotation character */
if (*p == '"'){
- quote = 1;
+ qmark = 1;
shift_left (p);
}
tok = p;
/* Find the end of the token, handling quotes and escapes. */
- while (*p && (quote ? *p != '"' : !c_isspace (*p))){
+ while (*p && (qmark ? *p != '"' : !c_isspace (*p))){
if (*p == '\\')
shift_left (p);
p ++;
}
/* If field was quoted, squash the trailing quotation mark
- and reset quote flag. */
- if (quote)
+ and reset qmark flag. */
+ if (qmark)
{
shift_left (p);
- quote = 0;
+ qmark = 0;
}
/* Null-terminate the token, if it isn't already. */
if (premature_token)
{
fprintf (stderr, _("\
-%s: %s:%d: warning: \"%s\" token appears before any machine name\n"),
- exec_name, path, ln, premature_token);
+%s: %s:%d: warning: %s token appears before any machine name\n"),
+ exec_name, path, ln, quote (premature_token));
premature_token = NULL;
}
exec_name, path, ln, tok);
}
}
-
- xfree (line);
}
+ xfree (line);
fclose (fp);
/* Finalize the last machine entry we found. */