/* This file used to be kept in synch with the code in Fetchmail, but
the latter has diverged since. */
-#define USE_GNULIB_ALLOC
-
#include "wget.h"
#include <stdio.h>
/* 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)
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;
}