Initial revision

svn path=/trunk/; revision=2

1 files changed, 426 insertions, 0 deletions

diff --git a/fetchmail.c b/fetchmail.c
new file mode 100644
index 00000000..7a04ca2c
--- /dev/null
+++ b/fetchmail.c
@@ -0,0 +1,426 @@
+/* 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.c
+  project:      popclient
+  programmer:   Carl Harris, ceharris@mal.com
+  description:	main driver module for popclient
+
+  $Log: fetchmail.c,v $
+  Revision 1.1  1996/06/24 18:32:00  esr
+  Initial revision
+
+  Revision 1.7  1995/09/07 22:37:34  ceharris
+  Preparation for 3.0b4 release.
+
+  Revision 1.6  1995/08/14 18:36:43  ceharris
+  Patches to support POP3's LAST command.
+  Final revisions for beta3 release.
+
+  Revision 1.5  1995/08/10 00:32:39  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.4  1995/08/09 01:32:56  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.3  1995/08/08 01:01:25  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>
+
+#if defined(STDC_HEADERS)
+#include <stdlib.h>
+#include <string.h>
+#endif
+
+#if defined(HAVE_UNISTD_H)
+#include <unistd.h>
+#endif
+
+#include <signal.h>
+#include <pwd.h>
+#include <errno.h>
+
+#include <sys/types.h>
+#include <sys/file.h>
+#include <sys/wait.h>
+#include <sys/stat.h>
+#include <fcntl.h>
+
+#include "popclient.h"
+
+/* release info */
+#define         RELEASE_TAG	"3.0b6"
+
+#ifdef HAVE_PROTOTYPES
+/* prototypes for internal functions */
+int showoptions (struct optrec *options);
+int parseMDAargs (struct optrec *options);
+int showversioninfo (void);
+#endif
+
+/* Controls the detail of status/progress messages written to stderr */
+int outlevel;      /* see the O_.* constants in popclient.h */
+
+/* args for the MDA, parsed out in the usual fashion by parseMDAargs() */
+#ifdef MDA_ARGS
+char *mda_argv [MDA_ARGCOUNT + 2];
+#else
+char *mda_argv [2];
+#endif
+
+
+/*********************************************************************
+  function:      main
+  description:   main driver routine 
+  arguments:     
+    argc         argument count as passed by runtime startup code.
+    argv         argument strings as passed by runtime startup code.
+
+  return value:  an exit status code for the shell -- see the 
+                 PS_.* constants defined above.
+  calls:         parsecmdline, setdefaults, openuserfolder, doPOP2.
+  globals:       none.
+ *********************************************************************/
+
+main (argc,argv)
+int argc;
+char **argv;
+{ 
+  int mboxfd;
+  struct optrec cmd_opts, def_opts, merged_opts;
+  int popstatus;
+  int parsestatus;
+  char *servername; 
+
+  parsestatus = parsecmdline(argc,argv,&cmd_opts);
+  if (parsestatus >= 0) {
+    setoutlevel(&cmd_opts);
+    if (!cmd_opts.versioninfo)
+      if (setdefaults(&def_opts) == 0) {
+        if (prc_parse_file(prc_getpathname(&cmd_opts,&def_opts)) == 0) {
+          while ((servername = getnextserver(argc, argv, &parsestatus)) 
+                 != (char *) 0) {
+            if (outlevel != O_SILENT) 
+              fprintf(stderr, "querying %s\n", servername);
+            else
+              ;
+            prc_mergeoptions(servername, &cmd_opts, &def_opts, &merged_opts);
+            parseMDAargs(&merged_opts);
+	    switch (merged_opts.whichpop) {
+              case P_POP2:
+                popstatus = doPOP2(servername, &merged_opts);
+                break;
+              case P_POP3:
+              case P_APOP:
+                popstatus = doPOP3(servername, &merged_opts);
+                break;
+              default:
+                fprintf(stderr,"unsupported protocol selected.\n");
+            }
+          }
+        }
+	else
+          popstatus = PS_SYNTAX;
+      } 
+      else
+        popstatus = PS_UNDEFINED;
+    else
+      showversioninfo();
+  }
+  else
+    popstatus = PS_SYNTAX;
+
+  exit(popstatus);
+}
+    
+
+ 
+/*********************************************************************
+  function:      showversioninfo
+  description:   display program release and compiler info
+  arguments:     none.
+  return value:  none.
+  calls:         none.
+  globals:       none.
+ *********************************************************************/
+
+int showversioninfo()
+{
+  printf("popclient release %s\n",RELEASE_TAG);
+}
+
+
+
+
+/******************************************************************
+  function:	setoutlevel
+  description:	set output verbosity level.
+  arguments:
+    options	command-line options.
+
+  ret. value:	none.
+  globals:	writes outlevel.
+  calls:	none.
+ *****************************************************************/
+
+int setoutlevel (options)
+struct optrec *options;
+{
+  if (options->verbose) 
+    outlevel = O_VERBOSE;
+  else if (options->silent)
+    outlevel = O_SILENT;
+  else
+    outlevel = O_NORMAL;
+}
+
+
+
+/*********************************************************************
+  function:      openuserfolder
+  description:   open the file to which the retrieved messages will
+                 be appended.  Do NOT call when options->foldertype
+                 is OF_SYSMBOX.
+
+  arguments:     
+    options      fully-determined options (i.e. parsed, defaults invoked,
+                 etc).
+
+  return value:  file descriptor for the open file, else -1.
+  calls:         none.
+  globals:       none.
+ *********************************************************************/
+
+int openuserfolder (options)
+struct optrec *options;
+{
+  int fd;
+
+  if (options->foldertype == OF_STDOUT)
+    return(1);
+  else    /* options->foldertype == OF_USERMBOX */
+    if ((fd = open(options->userfolder,O_CREAT|O_WRONLY|O_APPEND,0600)) >= 0) {
+      return(fd);
+    }
+    else {
+      perror("popclient: openuserfolder: open()");
+      return(-1);
+    }
+  
+}
+
+
+
+/*********************************************************************
+  function:      openmailpipe
+  description:   open a one-way pipe to the mail delivery agent.
+  arguments:     
+    options      fully-determined options (i.e. parsed, defaults invoked,
+                 etc).
+
+  return value:  open file descriptor for the pipe or -1.
+  calls:         none.
+  globals:       reads mda_argv.
+ *********************************************************************/
+
+int openmailpipe (options)
+struct optrec *options;
+{
+  int pipefd [2];
+  int childpid;
+  char binmailargs [80];
+
+  if (pipe(pipefd) < 0) {
+    perror("popclient: openmailpipe: pipe");
+    return(-1);
+  }
+  if ((childpid = fork()) < 0) {
+    perror("popclient: openmailpipe: fork");
+    return(-1);
+  }
+  else if (childpid == 0) {
+
+    /* in child process space */
+    close(pipefd[1]);  /* close the 'write' end of the pipe */
+    close(0);          /* get rid of inherited stdin */
+    if (dup(pipefd[0]) != 0) {
+      fputs("popclient: openmailpipe: dup() failed\n",stderr);
+      exit(1);
+    }
+
+    execv(MDA_PATH,mda_argv);
+
+    /* if we got here, an error occurred */
+    perror("popclient: openmailpipe: exec");
+    return(-1);
+
+  }
+
+  /* in the parent process space */
+  close(pipefd[0]);  /* close the 'read' end of the pipe */
+  return(pipefd[1]);
+}
+
+
+
+/*********************************************************************
+  function:      closeuserfolder
+  description:   close the user-specified mail folder.
+  arguments:     
+    fd           mail folder descriptor.
+
+  return value:  zero if success else -1.
+  calls:         none.
+  globals:       none.
+ *********************************************************************/
+
+int closeuserfolder(fd)
+int fd;
+{
+  int err;
+
+  if (fd != 1) {   /* not stdout */
+    err = close(fd);
+  }   
+  else
+    err = 0;
+  
+  if (err)
+    perror("popclient: closeuserfolder: close");
+
+  return(err);
+}
+
+
+
+/*********************************************************************
+  function:      closemailpipe
+  description:   close pipe to the mail delivery agent.
+  arguments:     
+    options      fully-determined options record
+    fd           pipe descriptor.
+
+  return value:  0 if success, else -1.
+  calls:         none.
+  globals:       none.
+ *********************************************************************/
+
+int closemailpipe (fd)
+int fd;
+{
+  int err;
+  int childpid;
+
+  err = close(fd);
+#if defined(STDC_HEADERS)
+  childpid = wait(NULL);
+#else
+  childpid = wait((int *) 0);
+#endif
+  if (err)
+    perror("popclient: closemailpipe: close");
+
+  return(err);
+}
+
+
+
+/*********************************************************************
+  function:      parseMDAargs
+  description:   parse the argument string given in MDA_ARGS into
+                 a regular *argv[] array.
+  arguments:
+    options      fully-determined options record pointer.
+
+  return value:  none.
+  calls:         none.
+  globals:       writes mda_argv.
+ *********************************************************************/
+
+int parseMDAargs (options)
+struct optrec *options;
+{
+  int argi;
+  char *argp;
+
+  /* first put the MDA alias in as argv[0] */
+  mda_argv[0] = MDA_ALIAS;
+  
+#ifdef MDA_ARGS
+
+  /* make a writeable copy of MDA_ARGS */
+  argp = strcpy((char *) malloc(strlen(MDA_ARGS)+1), MDA_ARGS);
+  
+  while (*argp != '\0' && isspace(*argp))	/* skip null first arg */
+    argp++;					
+
+  /* now punch nulls into the delimiting whitespace in the args */
+  for (argi = 1;  
+       *argp != '\0';
+       argi++) {
+
+    mda_argv[argi] = argp;     /* store pointer to this argument */
+
+    /* find end of this argument */
+    while (!(*argp == '\0' || isspace(*argp)))
+      argp++;
+
+    /* punch in a null terminator */
+    if (*argp != '\0')
+      *(argp++) = '\0';  
+ 
+    /* check for macros */
+    if (strcmp(mda_argv[argi],"$u") == 0)
+      mda_argv[argi] = 
+        strcpy((char *) malloc(strlen(options->loginid)+1),options->loginid);
+    else
+      ;  /* no macros to expand */
+
+  }
+  mda_argv[argi] = (char *) 0;
+
+#else 
+
+  mda_argv[1] = (char *) 0;
+
+#endif
+
+}