Initial revision

svn path=/trunk/; revision=1

4 files changed, 747 insertions, 0 deletions

diff --git a/fetchmail.h b/fetchmail.h
new file mode 100644
index 00000000..63b8ca70
--- /dev/null
+++ b/fetchmail.h
@@ -0,0 +1,156 @@
+/* Copyright 1993-95 by Carl Harris, Jr.
+ * All rights reserved
+ *
+ * Distribute freely, except: don't remove my name from the source or
+ * documentation (don't take credit for my work), mark your changes (don't
+ * get me blamed for your possible bugs), don't alter or remove this
+ * notice.  May be sold if buildable source is provided to buyer.  No
+ * warrantee of any kind, express or implied, is included with this
+ * software; use at your own risk, responsibility for damages (if any) to
+ * anyone resulting from the use of this software rests entirely with the
+ * user.
+ *
+ * Send bug reports, bug fixes, enhancements, requests, flames, etc., and
+ * I'll try to keep a version up to date.  I can be reached as follows:
+ * Carl Harris <ceharris@mal.com>
+ */
+
+
+/***********************************************************************
+  module:       popclient.h
+  project:      popclient
+  programmer:   Carl Harris, ceharris@mal.com
+  description:  global constant, type, and variable definitions.
+
+  $Log: fetchmail.h,v $
+  Revision 1.1  1996/06/24 18:14:08  esr
+  Initial revision
+
+  Revision 1.6  1995/09/07 22:37:35  ceharris
+  Preparation for 3.0b4 release.
+
+  Revision 1.5  1995/08/14 18:36:44  ceharris
+  Patches to support POP3's LAST command.
+  Final revisions for beta3 release.
+
+  Revision 1.4  1995/08/10 00:32:40  ceharris
+  Preparation for 3.0b3 beta release:
+  -	added code for --kill/--keep, --limit, --protocol, --flush
+  	options; --pop2 and --pop3 options now obsoleted by --protocol.
+  - 	added support for APOP authentication, including --with-APOP
+  	argument for configure.
+  -	provisional and broken support for RPOP
+  -	added buffering to SockGets and SockRead functions.
+  -	fixed problem of command-line options not being correctly
+  	carried into the merged options record.
+
+  Revision 1.3  1995/08/09 01:32:57  ceharris
+  Version 3.0 beta 2 release.
+  Added
+  -	.poprc functionality
+  -	GNU long options
+  -	multiple servers on the command line.
+  Fixed
+  -	Passwords showing up in ps output.
+
+  Revision 1.2  1995/08/08 01:01:27  ceharris
+  Added GNU-style long options processing.
+  Fixed password in 'ps' output problem.
+  Fixed various RCS tag blunders.
+  Integrated .poprc parser, lexer, etc into Makefile processing.
+
+ ***********************************************************************/
+
+
+
+/* definitions for buffer sizes -- somewhat arbitrary */
+#define		POPBUFSIZE	512	/* per RFC 937 */
+#define		MSGBUFSIZE	1024   	/* size of message read buffer */
+#define		HOSTLEN		128	/* max hostname length */
+#define		USERIDLEN	32	/* max user-length */
+#define		PASSWORDLEN	MAX_PASSWORD_LENGTH
+#define		FOLDERLEN	256     /* max folder name length */
+#define		DIGESTLEN	33	/* length of MD5 digest */
+
+/* exit code values */
+#define		PS_SUCCESS	0	/* successful receipt of messages */
+#define		PS_NOMAIL       1	/* no mail available */
+#define		PS_SOCKET	2	/* socket I/O woes */
+#define		PS_AUTHFAIL	3	/* user authorization failed */
+#define		PS_PROTOCOL	4	/* protocol violation */
+#define		PS_SYNTAX	5	/* command-line syntax error */
+#define		PS_IOERR	6	/* local folder I/O woes */
+#define		PS_ERROR	7	/* some kind of POP3 error condition */
+#define		PS_UNDEFINED	9	/* something I hadn't thought of */
+
+/* output noise level */
+#define         O_SILENT	0	/* mute, max squelch, etc. */
+#define		O_NORMAL	1	/* user-friendly */
+#define		O_VERBOSE	2	/* excessive */
+
+/* output folder type, used in options record */
+#define		OF_SYSMBOX	1	/* use system default mailbox */
+#define		OF_USERMBOX	2	/* use user's specified mailbox */
+#define		OF_STDOUT	3	/* use stdout */
+
+/* Command-line arguments are passed in this structure type */
+struct optrec {
+  int versioninfo;
+  int keep;
+  int verbose;
+  int whichpop;
+  int silent;
+  int limit;
+  int fetchall;
+  int flush;
+  int foldertype;
+  char loginid [USERIDLEN];
+  char *poprcfile;
+  char userid [USERIDLEN];
+  char password [PASSWORDLEN];
+#if defined(HAVE_APOP_SUPPORT)
+  char digest [DIGESTLEN];
+#endif
+  char userfolder [FOLDERLEN];
+  char remotefolder [FOLDERLEN];
+};
+
+
+/* .poprc records are passed in this structure type */
+struct prc_server {
+  char *server;
+  int protocol;
+  char *username;
+  char *password;
+  char *remotefolder;
+  char *localfolder;
+};
+
+
+/* Controls the detail of status/progress messages written to stderr */
+extern int outlevel;     /* see the O_.* constants above */
+
+#ifdef HAVE_PROTOTYPES
+
+/* prototypes for globally callable functions */
+int doPOP2 (char *servername, struct optrec *options); 
+int doPOP3 (char *servername, struct optrec *options);
+
+int parsecmdline (int argc, char **argv, struct optrec *options);
+int setdefaults (struct optrec *options);
+char *getnextserver (int argc, char **argv, int *optind);
+int openuserfolder (struct optrec *options);
+int closeuserfolder (int fd);
+int openmailpipe (struct optrec *options);
+int closemailpipe (int fd);
+char *MD5Digest (char *);
+char *prc_getpathname (struct optrec *cmd_opts, struct optrec *def_opts);
+
+#else
+
+char *getnextserver();
+char *MD5Digest ();
+char *prc_getpathname();
+
+#endif
+
diff --git a/options.c b/options.c
new file mode 100644
index 00000000..f8bda4b2
--- /dev/null
+++ b/options.c
@@ -0,0 +1,381 @@
+/* Copyright 1993-95 by Carl Harris, Jr.
+ * All rights reserved
+ *
+ * Distribute freely, except: don't remove my name from the source or
+ * documentation (don't take credit for my work), mark your changes (don't
+ * get me blamed for your possible bugs), don't alter or remove this
+ * notice.  May be sold if buildable source is provided to buyer.  No
+ * warrantee of any kind, express or implied, is included with this
+ * software; use at your own risk, responsibility for damages (if any) to
+ * anyone resulting from the use of this software rests entirely with the
+ * user.
+ *
+ * Send bug reports, bug fixes, enhancements, requests, flames, etc., and
+ * I'll try to keep a version up to date.  I can be reached as follows:
+ * Carl Harris <ceharris@mal.com>
+ */
+
+/***********************************************************************
+  module:       options.c
+  project:      popclient
+  programmer:   Carl Harris, ceharris@mal.com
+  description:	command-line option processing
+  
+  $Log: options.c,v $
+  Revision 1.1  1996/06/24 18:11:08  esr
+  Initial revision
+
+  Revision 1.4  1995/08/14 18:36:39  ceharris
+  Patches to support POP3's LAST command.
+  Final revisions for beta3 release.
+
+  Revision 1.3  1995/08/10 00:32:34  ceharris
+  Preparation for 3.0b3 beta release:
+  -	added code for --kill/--keep, --limit, --protocol, --flush
+  	options; --pop2 and --pop3 options now obsoleted by --protocol.
+  - 	added support for APOP authentication, including --with-APOP
+  	argument for configure.
+  -	provisional and broken support for RPOP
+  -	added buffering to SockGets and SockRead functions.
+  -	fixed problem of command-line options not being correctly
+  	carried into the merged options record.
+
+  Revision 1.2  1995/08/09 01:32:51  ceharris
+  Version 3.0 beta 2 release.
+  Added
+  -	.poprc functionality
+  -	GNU long options
+  -	multiple servers on the command line.
+  Fixed
+  -	Passwords showing up in ps output.
+
+  Revision 1.1  1995/08/08 01:01:21  ceharris
+  Added GNU-style long options processing.
+  Fixed password in 'ps' output problem.
+  Fixed various RCS tag blunders.
+  Integrated .poprc parser, lexer, etc into Makefile processing.
+
+ ***********************************************************************/
+
+#include <config.h>
+#include <stdio.h>
+
+#include <pwd.h>
+#include "getopt.h"
+#include "popclient.h"
+#include "bzero.h"
+
+/* XXX -- Would like to use 'enum' here, but it causes type mismatch 
+          problems many compilers */
+#define LA_VERSION	1 
+#define LA_ALL          2
+#define LA_KILL		3
+#define	LA_KEEP		4 
+#define LA_VERBOSE	5 
+#define LA_SILENT	6 
+#define LA_STDOUT	7
+#define LA_LIMIT	8
+#define LA_FLUSH        9
+#define LA_PROTOCOL	10
+#define LA_DAEMON	11
+#define LA_POPRC	12
+#define LA_USERNAME	13
+#define LA_PASSWORD	14
+#define LA_REMOTEFILE	15
+#define	LA_LOCALFILE	16
+
+ 
+static char *shortoptions = "23VaKkvscl:Fd:f:u:p:r:o:";
+static struct option longoptions[] = {
+  {"version",   no_argument,       (int *) 0, LA_VERSION    },
+  {"all",	no_argument,       (int *) 0, LA_ALL        },
+  {"kill",	no_argument,	   (int *) 0, LA_KILL       },
+  {"keep",      no_argument,       (int *) 0, LA_KEEP       },
+  {"verbose",   no_argument,       (int *) 0, LA_VERBOSE    },
+  {"silent",    no_argument,       (int *) 0, LA_SILENT     },
+  {"stdout",    no_argument,       (int *) 0, LA_STDOUT     },
+  {"limit",     required_argument, (int *) 0, LA_LIMIT      },
+  {"flush",	no_argument,	   (int *) 0, LA_FLUSH      },
+  {"protocol",	required_argument, (int *) 0, LA_PROTOCOL   },
+  {"proto",	required_argument, (int *) 0, LA_PROTOCOL   },
+  {"daemon",	required_argument, (int *) 0, LA_DAEMON     },
+  {"poprc",	required_argument, (int *) 0, LA_POPRC      },
+  {"user",	required_argument, (int *) 0, LA_USERNAME   },
+  {"username",  required_argument, (int *) 0, LA_USERNAME   },
+  {"password",  required_argument, (int *) 0, LA_PASSWORD   },
+  {"remote",    required_argument, (int *) 0, LA_REMOTEFILE },
+  {"local",     required_argument, (int *) 0, LA_LOCALFILE  },
+  {(char *) 0,  no_argument,       (int *) 0, 0             }
+};
+
+
+/*********************************************************************
+  function:      parsecmdline
+  description:   parse/validate the command line options.
+  arguments:
+    argc         argument count.
+    argv         argument strings.
+    options      pointer to a struct optrec to receive the parsed 
+                 options.
+
+  return value:  if positive, argv index of last parsed option + 1
+		 (presumes one or more server names follows).
+		 if zero, the command line switches are such that
+		 no server names are required (e.g. --version).
+		 if negative, the command line is has one or more
+	   	 syntax errors.
+  calls:         none.  
+  globals:       none.  
+ *********************************************************************/
+
+int parsecmdline (argc,argv,options)
+int argc;
+char **argv;
+struct optrec *options;
+{
+  int c,i;
+  int fflag = 0;     /* TRUE when -o or -c has been specified */
+  int errflag = 0;   /* TRUE when a syntax error is detected */
+  int option_index;
+  int got_kill = 0;  /* TRUE when --kill is specified */
+
+  extern int optind, opterr;     /* defined in getopt(2) */
+  extern char *optarg;          /* defined in getopt(2) */
+
+  bzero(options,sizeof(struct optrec));    /* start clean */
+
+  while (!errflag && 
+         (c = getopt_long(argc,argv,shortoptions,
+                          longoptions,&option_index)) != -1) {
+
+    switch (c) {
+      case '2':
+        options->whichpop = P_POP2;
+        break;
+      case '3':
+        options->whichpop = P_POP3;
+        break;
+      case 'V':
+      case LA_VERSION:
+        options->versioninfo = !0;
+        break;
+      case 'a':
+      case LA_ALL:
+        options->fetchall = !0;
+        break;
+      case 'K':
+      case LA_KILL:
+        options->keep = 0;
+        got_kill = 1;
+        break;
+      case 'k':
+      case LA_KEEP:
+        options->keep = !0;
+        got_kill = 0;
+        break;
+      case 'v':
+      case LA_VERBOSE:
+        options->verbose = !0;
+        break;
+      case 's':
+      case LA_SILENT:
+        options->silent = !0;
+        break;
+      case 'c':
+      case LA_STDOUT:
+        if (fflag)
+          errflag++;
+        else {
+          fflag++;
+          options->foldertype = OF_STDOUT;
+        }
+        break;
+      case 'l':
+      case LA_LIMIT:
+        options->limit = atoi(optarg);
+        if (options->limit < 0) {
+          fprintf(stderr,"Line count limit must be non-negative");
+          errflag++;
+        }
+        break;
+      case 'F':
+      case LA_FLUSH:
+        options->flush = !0;
+        break;
+      case LA_PROTOCOL:
+        /* XXX -- should probably use a table lookup here */
+        if (strcasecmp(optarg,"pop2") == 0)
+          options->whichpop = P_POP2;
+        else if (strcasecmp(optarg,"pop3") == 0)
+          options->whichpop = P_POP3;
+        else if (strcasecmp(optarg,"imap") == 0)
+          options->whichpop = P_IMAP;
+        else if (strcasecmp(optarg,"apop") == 0)
+          options->whichpop = P_APOP;
+        else if (strcasecmp(optarg,"rpop") == 0)
+          options->whichpop = P_RPOP;
+        else {
+          fprintf(stderr,"Invalid protocol '%s'\n specified.\n", optarg);
+          errflag++;
+        }
+        break;
+      case 'd':
+      case LA_DAEMON:
+        fprintf(stderr,"Got daemonize option with argument '%s'\n",optarg);
+        break;
+      case 'f':
+      case LA_POPRC:
+        options->poprcfile = (char *) xmalloc(strlen(optarg)+1);
+        strcpy(options->poprcfile,optarg);
+        break;
+      case 'u':
+      case LA_USERNAME:
+        strncpy(options->userid,optarg,sizeof(options->userid)-1);
+        break;
+      case 'p':
+      case LA_PASSWORD:
+        strncpy(options->password,optarg,sizeof(options->password)-1);
+	for (i = strlen(options->password)-1;  i >= 0;  i--) 
+          argv[optind-1][i] = '*';
+        break;
+      case 'o':
+      case LA_LOCALFILE:
+        if (fflag) 
+          errflag++;
+        else {
+          fflag++;
+          options->foldertype = OF_USERMBOX;
+          strncpy(options->userfolder,optarg,sizeof(options->userfolder)-1);
+        }
+        break;
+      case 'r':
+      case LA_REMOTEFILE:
+        strncpy(options->remotefolder,optarg,sizeof(options->remotefolder)-1);
+        break;
+      default:
+        errflag++;
+    }
+  }
+
+  if (!options->versioninfo) 
+    /* if options don't obviate the need, we must have server name(s)
+       left on the command line. */
+    if (optind >= argc) 
+      errflag++;
+    else
+      ;
+  else
+    optind = 0;
+ 
+  if (errflag) {
+    /* squawk if syntax errors were detected */
+    fputs("usage:  popclient [options] server [server ...]\n", stderr);
+    fputs("  options\n",stderr);
+    fputs("  -2               use POP2 protocol\n", stderr);
+    fputs("  -3               use POP3 protocol\n", stderr);
+    fputs("      --protocol   specify pop2, pop3, imap, apop, or rpop\n",
+          stderr);
+    fputs("  -V, --version    display version info\n", stderr);
+    fputs("  -a, --all        retrieve old and new messages\n", stderr);
+    fputs("  -F, --flush      delete old messages from server\n", stderr);
+    fputs("  -K, --kill       delete new messages after retrieval\n", stderr);
+    fputs("  -k, --keep       save new messages after retrieval\n", stderr);
+    fputs("  -l, --limit      retrieve at most n message lines\n", stderr);
+    fputs("  -s, --silent     work silently\n", stderr);
+    fputs("  -v, --verbose    work noisily (diagnostic output)\n", stderr);
+    fputs("  -d, --daemon     run as a daemon\n", stderr);
+    fputs("  -f, --poprc      specify alternate config file\n", stderr);
+    fputs("  -u, --username   specify server user ID\n", stderr);
+    fputs("  -p, --password   specify server password\n", stderr);
+    fputs("  -c, --stdout     write received mail to stdout\n", stderr);
+    fputs("  -o, --local      specify filename for received mail\n", stderr);
+    fputs("  -r, --remote     specify remote folder name\n", stderr);
+    return(-1);
+  }
+  else {
+    if (options->limit && !got_kill) 
+      options->keep = !0;
+    else
+      ;
+    return(optind);
+  }
+}
+         
+
+/*********************************************************************
+  function:      setdefaults
+  description:   set reasonable default values for unspecified options.
+  arguments:     
+    options      option values parsed from the command-line; unspeci-
+                 fied options must be filled with zero.
+
+  return value:  zero if defaults were successfully set, else non-zero
+                 (indicates a problem reading /etc/passwd).
+  calls:         none.
+  globals:       writes outlevel.
+ *********************************************************************/
+
+int setdefaults (options)
+struct optrec *options;
+{
+  int uid;
+  struct passwd *pw;
+  char *mailvar;
+
+  bzero(options,sizeof(*options));
+
+  if ((pw = getpwuid(uid = getuid())) == NULL) {
+    fprintf(stderr,"No passwd entry for uid %d\n",uid);
+    return(-1);
+  }
+  /* save the login name for delivery use */
+  strcpy(options->loginid,pw->pw_name);
+
+  options->whichpop = DEF_PROTOCOL;
+  options->foldertype = OF_SYSMBOX;
+
+#if defined(KEEP_IS_DEFAULT)
+  options->keep = 1;
+#else
+  options->keep = 0;
+#endif
+
+  strcpy(options->userid,pw->pw_name);
+
+  options->poprcfile = 
+      (char *) xmalloc(strlen(pw->pw_dir)+strlen(POPRC_NAME)+2);
+
+  strcpy(options->poprcfile, pw->pw_dir);
+  strcat(options->poprcfile, "/");
+  strcat(options->poprcfile, POPRC_NAME);
+
+  return(0);
+}
+
+
+
+/******************************************************************
+  function:	getnextserver
+  description:	read next server name from the command line.
+  arguments:	
+    argc	from main()
+    argv	from main()
+    optind	as returned by parsecmdline and this function.
+
+  ret. value:	next server name from command line or NULL if all
+	        server names have been retrieved.
+  globals:	none.
+  calls:	none.
+ *****************************************************************/
+char *getnextserver (argc,argv,optind)
+int argc;
+char **argv;
+int *optind;
+{
+   if (*optind >= argc) {
+     /* no more servers */
+     return((char *) 0);
+   }
+   else
+     return(argv[(*optind)++]);
+}
diff --git a/rcfile_l.l b/rcfile_l.l
new file mode 100644
index 00000000..9b37da55
--- /dev/null
+++ b/rcfile_l.l
@@ -0,0 +1,89 @@
+%{
+
+/* Copyright 1993-95 by Carl Harris, Jr.
+ * All rights reserved
+ *
+ * Distribute freely, except: don't remove my name from the source or
+ * documentation (don't take credit for my work), mark your changes (don't
+ * get me blamed for your possible bugs), don't alter or remove this
+ * notice.  May be sold if buildable source is provided to buyer.  No
+ * warrantee of any kind, express or implied, is included with this
+ * software; use at your own risk, responsibility for damages (if any) to
+ * anyone resulting from the use of this software rests entirely with the
+ * user.
+ *
+ * Send bug reports, bug fixes, enhancements, requests, flames, etc., and
+ * I'll try to keep a version up to date.  I can be reached as follows:
+ * Carl Harris <ceharris@mal.com>
+ */
+
+
+/***********************************************************************
+  module:       poprc_l.l
+  project:      popclient
+  programmer:   Carl Harris, ceharris@mal.com
+  description:  .poprc lexer
+
+  $Log: rcfile_l.l,v $
+  Revision 1.1  1996/06/24 18:16:08  esr
+  Initial revision
+
+  Revision 1.4  1995/08/10 00:32:43  ceharris
+  Preparation for 3.0b3 beta release:
+  -	added code for --kill/--keep, --limit, --protocol, --flush
+  	options; --pop2 and --pop3 options now obsoleted by --protocol.
+  - 	added support for APOP authentication, including --with-APOP
+  	argument for configure.
+  -	provisional and broken support for RPOP
+  -	added buffering to SockGets and SockRead functions.
+  -	fixed problem of command-line options not being correctly
+  	carried into the merged options record.
+
+  Revision 1.3  1995/08/09 01:33:01  ceharris
+  Version 3.0 beta 2 release.
+  Added
+  -	.poprc functionality
+  -	GNU long options
+  -	multiple servers on the command line.
+  Fixed
+  -	Passwords showing up in ps output.
+
+  Revision 1.2  1995/08/08 01:01:34  ceharris
+  Added GNU-style long options processing.
+  Fixed password in 'ps' output problem.
+  Fixed various RCS tag blunders.
+  Integrated .poprc parser, lexer, etc into Makefile processing.
+
+ ***********************************************************************/
+
+#include <config.h>
+#include "poproto.h"
+#include "poprc_y.h"
+
+int prc_lineno = 0;
+%}
+
+
+%%
+
+server 		{ return KW_SERVER; }
+proto(col)? 	{ return KW_PROTOCOL; }
+user(name)?	{ return KW_USERNAME; }
+pass(word)?	{ return KW_PASSWORD; }
+remote(folder)? { return KW_REMOTEFOLDER; }
+local(folder)?	{ return KW_LOCALFOLDER; }
+
+(pop2)|(POP2)	{ yylval.proto = P_POP2;  return PROTO_POP2; }
+(pop3)|(POP3)	{ yylval.proto = P_POP3;  return PROTO_POP3; }
+(imap)|(IMAP)	{ yylval.proto = P_IMAP;  return PROTO_IMAP; }
+(apop)|(APOP)   { yylval.proto = P_APOP;  return PROTO_APOP; }
+(rpop)|(RPOP)   { yylval.proto = P_RPOP;  return PROTO_RPOP; }
+
+(#.*)?\\\n	{ prc_lineno++;	}   /* escaped newline is ignored */
+
+(#.*)?\n	{ prc_lineno++; return KW_EOL; }
+
+[^ \t\r\n#]+	{ yylval.sval = (char *) strdup(yytext); return PARAM_STRING; }
+
+[ \t\r]+	;	/* whitespace */
+
diff --git a/rcfile_y.y b/rcfile_y.y
new file mode 100644
index 00000000..f3adc0e8
--- /dev/null
+++ b/rcfile_y.y
@@ -0,0 +1,121 @@
+%{
+/* Copyright 1993-95 by Carl Harris, Jr.
+ * All rights reserved
+ *
+ * Distribute freely, except: don't remove my name from the source or
+ * documentation (don't take credit for my work), mark your changes (don't
+ * get me blamed for your possible bugs), don't alter or remove this
+ * notice.  May be sold if buildable source is provided to buyer.  No
+ * warrantee of any kind, express or implied, is included with this
+ * software; use at your own risk, responsibility for damages (if any) to
+ * anyone resulting from the use of this software rests entirely with the
+ * user.
+ *
+ * Send bug reports, bug fixes, enhancements, requests, flames, etc., and
+ * I'll try to keep a version up to date.  I can be reached as follows:
+ * Carl Harris <ceharris@mal.com>
+ */
+
+
+/***********************************************************************
+  module:       poprc_y.y
+  project:      popclient
+  programmer:   Carl Harris, ceharris@mal.com
+  description:  .poprc parser
+
+  $Log: rcfile_y.y,v $
+  Revision 1.1  1996/06/24 18:17:24  esr
+  Initial revision
+
+  Revision 1.4  1995/08/10 00:32:45  ceharris
+  Preparation for 3.0b3 beta release:
+  -	added code for --kill/--keep, --limit, --protocol, --flush
+  	options; --pop2 and --pop3 options now obsoleted by --protocol.
+  - 	added support for APOP authentication, including --with-APOP
+  	argument for configure.
+  -	provisional and broken support for RPOP
+  -	added buffering to SockGets and SockRead functions.
+  -	fixed problem of command-line options not being correctly
+  	carried into the merged options record.
+
+  Revision 1.3  1995/08/09 01:33:02  ceharris
+  Version 3.0 beta 2 release.
+  Added
+  -	.poprc functionality
+  -	GNU long options
+  -	multiple servers on the command line.
+  Fixed
+  -	Passwords showing up in ps output.
+
+  Revision 1.2  1995/08/08 01:01:36  ceharris
+  Added GNU-style long options processing.
+  Fixed password in 'ps' output problem.
+  Fixed various RCS tag blunders.
+  Integrated .poprc parser, lexer, etc into Makefile processing.
+
+ ***********************************************************************/
+
+#include <config.h>
+#include <stdio.h>
+extern char *prc_pathname;
+extern int prc_lineno;
+extern int prc_errflag;
+extern char yytext[];
+%}
+
+%union {
+  int proto;
+  char *sval;
+}
+
+%token KW_SERVER KW_PROTOCOL KW_USERNAME KW_PASSWORD
+%token KW_REMOTEFOLDER KW_LOCALFOLDER KW_EOL
+%token <proto> PROTO_POP2 PROTO_POP3 PROTO_IMAP PROTO_APOP PROTO_RPOP
+%token <sval> PARAM_STRING
+%type <proto> proto;
+
+%%
+
+rcfile:		rcline
+	|	rcfile rcline
+  ;
+
+rcline:		statement KW_EOL
+  ;
+
+statement:
+	|	define_server			{prc_register(); prc_reset();}
+  ;
+
+define_server:	KW_SERVER PARAM_STRING server_options 	{prc_setserver($2);}	
+	|	KW_SERVER PARAM_STRING			{prc_setserver($2);}
+  ;
+
+server_options:	serv_option_clause
+	|	server_options serv_option_clause
+  ;
+
+serv_option_clause: 
+		KW_PROTOCOL proto		{prc_setproto($2);}
+	|	KW_USERNAME PARAM_STRING	{prc_setusername($2);}
+	|	KW_PASSWORD PARAM_STRING	{prc_setpassword($2);}
+	|	KW_REMOTEFOLDER PARAM_STRING	{prc_setremote($2);}
+	|	KW_LOCALFOLDER PARAM_STRING	{prc_setlocal($2);}
+  ;
+
+proto:		PROTO_POP2
+	|	PROTO_POP3
+	|	PROTO_IMAP
+	|	PROTO_APOP
+	|	PROTO_RPOP
+  ;
+
+%%
+
+
+yyerror (s)
+char *s;
+{
+  fprintf(stderr,"%s line %d: %s at %s\n", prc_pathname, prc_lineno, s, yytext);
+  prc_errflag++;
+}