/*****************************************************************************
NAME:
idle.c -- code for interruptible delays without sleep(3).
ENTRY POINTS:
interruptible_idle() -- delay for some time, interruptible by signal.
THEORY:
Sometimes you need more than one time delay per program, so alarm(3)
won't cut it. This code illustrates time delays with select(2).
AUTHOR:
Eric S. Raymond <esr@thyrsus.com>, 1997. This source code example
is part of fetchmail and the Unix Cookbook, and are released under the
MIT license. Compile with -DMAIN to build the demonstrator.
******************************************************************************/
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <signal.h>
#include <errno.h>
#include <fetchmail.h> /* for ROOT_UID */
#ifndef TRUE
#define TRUE 1
#define FALSE 0
#endif
volatile pre { line-height: 125%; }
td.linenos .normal { color: inherit; background-color: transparent; padding-left: 5px; padding-right: 5px; }
span.linenos { color: inherit; background-color: transparent; padding-left: 5px; padding-right: 5px; }
td.linenos .special { color: #000000; background-color: #ffffc0; padding-left: 5px; padding-right: 5px; }
span.linenos.special { color: #000000; background-color: #ffffc0; padding-left: 5px; padding-right: 5px; }
.highlight .hll { background-color: #ffffcc }
.highlight .c { color: #888888 } /* Comment */
.highlight .err { color: #a61717; background-color: #e3d2d2 } /* Error */
.highlight .k { color: #008800; font-weight: bold } /* Keyword */
.highlight .ch { color: #888888 } /* Comment.Hashbang */
.highlight .cm { color: #888888 } /* Comment.Multiline */
.highlight .cp { color: #cc0000; font-weight: bold } /* Comment.Preproc */
.highlight .cpf { color: #888888 } /* Comment.PreprocFile */
.highlight .c1 { color: #888888 } /* Comment.Single */
.highlight .cs { color: #cc0000; font-weight: bold; background-color: #fff0f0 } /* Comment.Special */
.highlight .gd { color: #000000; background-color: #ffdddd } /* Generic.Deleted */
.highlight .ge { font-style: italic } /* Generic.Emph */
.highlight .gr { color: #aa0000 } /* Generic.Error */
.highlight .gh { color: #333333 } /* Generic.Heading */
.highlight .gi { color: #000000; background-color: #ddffdd } /* Generic.Inserted */
.highlight .go { color: #888888 } /* Generic.Output */
.highlight .gp { color: #555555 } /* Generic.Prompt */
.highlight .gs { font-weight: bold } /* Generic.Strong */
.highlight .gu { color: #666666 } /* Generic.Subheading */
.highlight .gt { color: #aa0000 } /* Generic.Traceback */
.highlight .kc { color: #008800; font-weight: bold } /* Keyword.Constant */
.highlight .kd { color: #008800; font-weight: bold } /* Keyword.Declaration */
.highlight .kn { color: #008800; font-weight: bold } /* Keyword.Namespace */
.highlight .kp { color: #008800 } /* Keyword.Pseudo */
.highlight .kr { color: #008800; font-weight: bold } /* Keyword.Reserved */
.highlight .kt { color: #888888; font-weight: bold } /* Keyword.Type */
.highlight .m { color: #0000DD; font-weight: bold } /* Literal.Number */
.highlight .s { color: #dd2200; background-color: #fff0f0 } /* Literal.String */
.highlight .na { color: #336699 } /* Name.Attribute */
.highlight .nb { color: #003388 } /* Name.Builtin */
.highlight .nc { color: #bb0066; font-weight: bold } /* Name.Class */
.highlight .no { color: #003366; font-weight: bold } /* Name.Constant */
.highlight .nd { color: #555555 } /* Name.Decorator */
.highlight .ne { color: #bb0066; font-weight: bold } /* Name.Exception */
.highlight .nf { color: #0066bb; font-weight: bold } /* Name.Function */
.highlight .nl { color: #336699; font-style: italic } /* Name.Label */
.highlight .nn { color: #bb0066; font-weight: bold } /* Name.Namespace */
.highlight .py { color: #336699; font-weight: bold } /* Name.Property */
.highlight .nt { color: #bb0066; font-weight: bold } /* Name.Tag */
.highlight .nv { color: #336699 } /* Name.Variable */
.highlight .ow { color: #008800 } /* Operator.Word */
.highlight .w { color: #bbbbbb } /* Text.Whitespace */
.highlight .mb { color: #0000DD; font-weight: bold } /* Literal.Number.Bin */
.highlight .mf { color: #0000DD; font-weight: bold } /* Literal.Number.Float */
.highlight .mh { color: #0000DD; font-weight: bold } /* Literal.Number.Hex */
.highlight .mi { color: #0000DD; font-weight: bold } /* Literal.Number.Integer */
.highlight .mo { color: #0000DD; font-weight: bold } /* Literal.Number.Oct */
.highlight .sa { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Affix */
.highlight .sb { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Backtick */
.highlight .sc { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Char */
.highlight .dl { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Delimiter */
.highlight .sd { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Doc */
.highlight .s2 { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Double */
.highlight .se { color: #0044dd; background-color: #fff0f0 } /* Literal.String.Escape */
.highlight .sh { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Heredoc */
.highlight .si { color: #3333bb; background-color: #fff0f0 } /* Literal.String.Interpol */
.highlight .sx { color: #22bb22; background-color: #f0fff0 } /* Literal.String.Other */
.highlight .sr { color: #008800; background-color: #fff0ff } /* Literal.String.Regex */
.highlight .s1 { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Single */
.highlight .ss { color: #aa6600; background-color: #fff0f0 } /* Literal.String.Symbol */
.highlight .bp { color: #003388 } /* Name.Builtin.Pseudo */
.highlight .fm { color: #0066bb; font-weight: bold } /* Name.Function.Magic */
.highlight .vc { color: #336699 } /* Name.Variable.Class */
.highlight .vg { color: #dd7700 } /* Name.Variable.Global */
.highlight .vi { color: #3333bb } /* Name.Variable.Instance */
.highlight .vm { color: #336699 } /* Name.Variable.Magic */
.highlight .il { color: #0000DD; font-weight: bold } /* Literal.Number.Integer.Long *//* netrc.c -- parse the .netrc file to get hosts, accounts, and passwords
Copyright (C) 1996, Free Software Foundation, Inc.
Gordon Matzigkeit <gord@gnu.ai.mit.edu>, 1996
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
/* Compile with -DSTANDALONE to test this module. */
#include <stdio.h>
#include <ctype.h>
#include <stdlib.h>
#include <string.h>
#include "config.h"
#include "fetchmail.h"
#include "netrc.h"
#ifdef STANDALONE
/* Normally defined in xstrdup.c. */
# define xstrdup strdup
/* Normally defined in xmalloc.c */
# define xmalloc malloc
# define xrealloc realloc
#endif
/* Maybe add NEWENTRY to the account information list, LIST. NEWENTRY is
set to a ready-to-use netrc_entry, in any event. */
static void
maybe_add_to_list (newentry, list)
netrc_entry **newentry;
netrc_entry **list;
{
netrc_entry *a, *l;
a = *newentry;
l = *list;
/* We need an account name in order to add the entry to the list. */
if (a && ! a->account)
{
/* Free any allocated space. */
free (a->host);
free (a->account);
free (a->password);
}
else
{
if (a)
{
/* Add the current machine into our list. */
a->next = l;
l = a;
}
/* Allocate a new netrc_entry structure. */
a = (netrc_entry *) xmalloc (sizeof (netrc_entry));
}
/* Zero the structure, so that it is ready to use. */
memset (a, 0, sizeof(*a));
/* Return the new pointers. */
*newentry = a;
*list = l;
return;
}
/* Parse FILE as a .netrc file (as described in ftp(1)), and return a
list of entries. NULL is returned if the file could not be
parsed. */
netrc_entry *
parse_netrc (file)
char *file;
{
FILE *fp;
char buf[POPBUFSIZE+1], *p, *tok, *premature_token;
netrc_entry *current, *retval;
int ln;
/* The latest token we've seen in the file. */
enum
{
tok_nothing, tok_account, tok_login, tok_macdef, tok_machine, tok_password
} last_token = tok_nothing;
current = retval = NULL;
fp = fopen (file, "r");
if (!fp)
{
/* Just return NULL if we can't open the file. */
return NULL;
}
/* Initialize the file data. */
ln = 0;
premature_token = NULL;
/* While there are lines in the file... */
while (fgets(buf, POPBUFSIZE, fp))
{
ln ++;
/* Strip trailing CRLF */
p = buf + strlen(buf) - 1;
while (*p && isspace(*p))
*p-- = '\0';
/* Parse the line. */
p = buf;
/* If the line is empty... */
if (!*p)
if (last_token == tok_macdef) /* end of macro */
last_token = tok_nothing;
else
continue; /* otherwise ignore it */
/* If we are defining macros, then skip parsing the line. */
while (*p && last_token != tok_macdef)
{
/* Skip any whitespace. */
while (*p && isspace (*p))
p++;
/* Discard end-of-line comments. */
if (*p == '#')
break;
tok = p;
/* Find the end of the token. */
while (*p && !isspace (*p))
p ++;
/* Null-terminate the token, if it isn't already. */
if (*p)
*p ++ = '\0';
switch (last_token)
{
case tok_login:
if (current)
current->account = (char *) xstrdup (tok);
else
premature_token = "login";
break;
case tok_machine:
/* Start a new machine entry. */
maybe_add_to_list (¤t, &retval);
current->host = (char *) xstrdup (tok);
break;
case tok_password:
if (current)
current->password = (char *) xstrdup (tok);
else
premature_token = "password";
break;
/* We handle most of tok_macdef above. */
case tok_macdef:
if (!current)
premature_token = "macdef";
break;
/* We don't handle the account keyword at all. */
case tok_account:
if (!current)
premature_token = "account";
break;
/* We handle tok_nothing below this switch. */
case tok_nothing:
break;
}
if (premature_token)
{
#ifdef HAVE_ERROR
error_at_line (0, 0, file, ln,
_("warning: found \"%s\" before any host names"),
premature_token);
#else
fprintf (stderr,
"%s:%d: warning: found \"%s\" before any host names\n",
file, ln, premature_token);
#endif
premature_token = NULL;
}
if (last_token != tok_nothing)
/* We got a value, so reset the token state. */
last_token = tok_nothing;
else
{
/* Fetch the next token. */
if (!strcmp (tok, "account"))
last_token = tok_account;
if (!strcmp (tok, "default"))
{
maybe_add_to_list (¤t, &retval);
}
else if (!strcmp (tok, "login"))
last_token = tok_login;
else if (!strcmp (tok, "macdef"))
last_token = tok_macdef;
else if (!strcmp (tok, "machine"))
last_token = tok_machine;
else if (!strcmp (tok, "password"))
last_token = tok_password;
else
{
fprintf (stderr, "%s:%d: warning: unknown token \"%s\"\n",
file, ln, tok);
}
}
}
}
fclose (fp);
/* Finalize the last machine entry we found. */
maybe_add_to_list (¤t, &retval);
free (current);
/* Reverse the order of the list so that it appears in file order. */
current = retval;
retval = NULL;
while (current)
{
netrc_entry *saved_reference;
/* Change the direction of the pointers. */
saved_reference = current->next;
current->next = retval;
/* Advance to the next node. */
retval = current;
current = saved_reference;
}
return retval;
}
/* Return the netrc entry from LIST corresponding to HOST. NULL is
returned if no such entry exists. */
netrc_entry *
search_netrc (list, host)
netrc_entry *list;
char *host;
{
/* Look for the HOST in LIST. */
while (list)
{
if (!list->host)
/* We hit the default entry. */
break;
else if (!strcmp (list->host, host))
/* We found a matching entry. */
break;
list = list->next;
}
/* Return the matching entry, or NULL. */
return list;
}
#ifdef STANDALONE
#include <sys/types.h>
#include <sys/stat.h>
extern int errno;
int
main (argc, argv)
int argc;
char **argv;
{
struct stat sb;
char *program_name, *file, *target;
netrc_entry *head, *a;
if (argc < 2)
{
fprintf (stderr, "Usage: %s NETRC [HOSTNAME]...\n", argv[0]);
exit (1);
}
program_name = argv[0];
file = argv[1];
target = argv[2];
if (stat (file, &sb))
{
fprintf (stderr, "%s: cannot stat %s: %s\n", argv[0], file,
strerror (errno));
exit (1);
}
head = parse_netrc (file);
if (!head)
{
fprintf (stderr, "%s: no entries found in %s\n", argv[0], file);
exit (1);
}
if (argc > 2)
{
int i, status;
status = 0;
for (i = 2; i < argc; i++)
{
/* Print out the host that we are checking for. */
fputs (argv[i], stdout);
a = search_netrc (head, argv[i]);
if (a)
{
/* Print out the account and password (if any). */
fputc (' ', stdout);
fputs (a->account, stdout);
if (a->password)
{
fputc (' ', stdout);
fputs (a->password, stdout);
}
}
else
status = 1;
fputc ('\n', stdout);
}
exit (status);
}
/* Print out the entire contents of the netrc. */
a = head;
while (a)
{
/* Print the host name. */
if (a->host)
fputs (a->host, stdout);
else
fputs ("DEFAULT", stdout);
fputc (' ', stdout);
/* Print the account name. */
fputs (a->account, stdout);
if (a->password)
{
/* Print the password, if there is any. */
fputc (' ', stdout);
fputs (a->password, stdout);
}
fputc ('\n', stdout);
a = a->next;
}
exit (0);
}
#endif /* STANDALONE */
