home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / N / TCPIP / POPCLIEN.000 / POPCLIEN / pop / popclient.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-04-01  |  15.0 KB  |  593 lines
  1. /* Copyright 1993,1994 by Carl Harris, Jr.
  2.  * All rights reserved
  3.  *
  4.  * Distribute freely, except: don't remove my name from the source or
  5.  * documentation (don't take credit for my work), mark your changes (don't
  6.  * get me blamed for your possible bugs), don't alter or remove this
  7.  * notice.  May be sold if buildable source is provided to buyer.  No
  8.  * warrantee of any kind, express or implied, is included with this
  9.  * software; use at your own risk, responsibility for damages (if any) to
  10.  * anyone resulting from the use of this software rests entirely with the
  11.  * user.
  12.  *
  13.  * Send bug reports, bug fixes, enhancements, requests, flames, etc., and
  14.  * I'll try to keep a version up to date.  I can be reached as follows:
  15.  * Carl Harris <ceharris@vt.edu>
  16.  */
  17.  
  18.  
  19. /***********************************************************************
  20.   module:       popclient.c
  21.   program:      popclient
  22.   SCCS ID:      @(#)popclient.c    2.5  4/1/94
  23.   programmer:   Carl Harris, ceharris@vt.edu
  24.   date:         29 December 1993
  25.   compiler:     DEC RISC C compiler (Ultrix 4.1)
  26.   environment:  DEC Ultrix 4.3 
  27.   description:  main driver module for the popclient package.  contains
  28.                 code for command-line parsing and invocation of the
  29.                 appropriate POP driver routine.
  30.  ***********************************************************************/
  31.  
  32. #include <stdio.h>
  33. #include <stdlib.h>
  34. #include <string.h>
  35. #include <unistd.h>
  36. #include <signal.h>
  37. #include <pwd.h>
  38. #include <errno.h>
  39. #include <sys/types.h>
  40. #include <sys/file.h>
  41. #include <sys/wait.h>
  42. #include <sys/stat.h>
  43.  
  44. #include "config.h"
  45. #include "popclient.h"
  46.  
  47. /* release info */
  48. #define         COMPILE_SCCS    "2.21 [2.5] (4/1/94)"
  49.  
  50. /* requisite, venerable SCCS ID string */
  51. static char sccs_id [] = "@(#)popclient.c    2.5\t4/1/94";
  52.  
  53. #ifndef NO_PROTO
  54. /* prototypes for internal functions */
  55. int showoptions (struct optrec *options);
  56. int parseMDAargs (struct optrec *options);
  57. int parsecmdline (int argc, char **argv, struct optrec *options);
  58. int setdefaults (struct optrec *options);
  59. int showversioninfo (void);
  60. int clearbiffbit (void);
  61. int restorebiffbit (void);
  62. #endif
  63.  
  64. /* Controls the detail of status/progress messages written to stderr */
  65. int outlevel;      /* see the O_.* constants in popclient.h */
  66. int biffwas = -1;  /* previous chmod bits on the controlling tty */
  67.  
  68. /* args for the MDA, parsed out in the usual fashion by parseMDAargs() */
  69. #ifdef MDA_ARGS
  70. char *mda_argv [MDA_ARGCOUNT + 2];
  71. #else
  72. char *mda_argv [2];
  73. #endif
  74.  
  75.  
  76. /*********************************************************************
  77.   function:      main
  78.   description:   main driver routine 
  79.   arguments:     
  80.     argc         argument count as passed by runtime startup code.
  81.     argv         argument strings as passed by runtime startup code.
  82.  
  83.   return value:  an exit status code for the shell -- see the 
  84.                  PS_.* constants defined above.
  85.   calls:         parsecmdline, setdefaults, openuserfolder, doPOP2.
  86.   globals:       none.
  87.  *********************************************************************/
  88.  
  89. main (argc,argv)
  90. int argc;
  91. char **argv;
  92. { 
  93.   int mboxfd;
  94.   struct optrec options;
  95.   int popstatus;
  96.   int cleanup();
  97.  
  98.   signal(SIGINT,cleanup);
  99.   clearbiffbit();
  100.  
  101.   if (parsecmdline(argc,argv,&options) == 0)
  102.     if (!options.versioninfo)
  103.       if (setdefaults(&options) == 0) {
  104.         parseMDAargs(&options);
  105.         if (options.whichpop == 3) 
  106.           popstatus = doPOP3(&options);
  107.         else
  108.           popstatus = doPOP2(&options);
  109.       } 
  110.       else
  111.         popstatus = PS_UNDEFINED;
  112.     else
  113.       showversioninfo();
  114.   else
  115.     popstatus = PS_SYNTAX;
  116.  
  117.   restorebiffbit();
  118.   exit(popstatus);
  119. }
  120.     
  121.  
  122.  
  123. /*********************************************************************
  124.   function:      parsecmdline
  125.   description:   parse/validate the command line options.
  126.   arguments:
  127.     argc         argument count.
  128.     argv         argument strings.
  129.     options      pointer to a struct optrec to receive the parsed 
  130.                  options.
  131.  
  132.   return value:  zero if the command line was syntactically correct,
  133.                  else non-zero (an error message has been written to stderr).  
  134.   calls:         none.  
  135.   globals:       none.  
  136.  *********************************************************************/
  137.  
  138. int parsecmdline (argc,argv,options)
  139. int argc;
  140. char **argv;
  141. struct optrec *options;
  142. {
  143.   int c,i;
  144.   int fflag = 0;     /* TRUE when -o or -c has been specified */
  145.   int errflag = 0;   /* TRUE when a syntax error is detected */
  146.   extern int optind,opterr;     /* defined in getopt(2) */
  147.   extern char *optarg;          /* defined in getopt(2) */
  148.  
  149.   bzero(options,sizeof(struct optrec));    /* start clean */
  150.   while (!errflag && (c = getopt(argc,argv,"23Vkvscu:p:f:o:")) != EOF) {
  151.     switch (c) {
  152.       case '2':
  153.         options->whichpop = 2;
  154.         break;
  155.       case '3':
  156.         options->whichpop = 3;
  157.         break;
  158.       case 'V':
  159.         options->versioninfo = !0;
  160.         break;
  161.       case 'k':
  162.         options->keep = !0;
  163.         break;
  164.       case 'v':
  165.         options->verbose = !0;
  166.         break;
  167.       case 's':
  168.         options->silent = !0;
  169.         break;
  170.       case 'c':
  171.         if (fflag)
  172.           errflag++;
  173.         else {
  174.           fflag++;
  175.           options->foldertype = OF_STDOUT;
  176.         }
  177.         break;
  178.       case 'u':
  179.         strcpy(options->userid,optarg);
  180.         break;
  181.       case 'p':
  182.         strcpy(options->password,optarg);
  183.         break;
  184.       case 'o':
  185.         if (fflag) 
  186.           errflag++;
  187.         else {
  188.           fflag++;
  189.           options->foldertype = OF_USERMBOX;
  190.           strcpy(options->userfolder,optarg);
  191.         }
  192.         break;
  193.       case 'f':
  194.         strcpy(options->remotefolder,optarg);
  195.         break;
  196.       default:
  197.         errflag++;
  198.     }
  199.   }
  200.  
  201.   if (!options->versioninfo) {
  202.     /* get host argument -- error if not present */
  203.     if (optind < argc)
  204.       strcpy(options->host,argv[optind++]);
  205.     else
  206.       errflag++;
  207.  
  208.     /* error if more unparsed arguments are present */
  209.     if (optind < argc)
  210.       errflag++;
  211.     else
  212.       ;
  213.   }
  214.   else 
  215.     ;
  216.  
  217.  
  218.   /* squawk if syntax errors were detected */
  219.   if (errflag) {
  220.     fputs("usage:  popclient [-2|-3] [-Vksv] [-u server-userid] [-p server-password]\n",
  221.           stderr);
  222.     fputs("                  [-f remote-folder] [-c | -o local-folder]  host\n",
  223.           stderr);
  224.   }
  225.   else
  226.     ;
  227.  
  228.   /* clean up the command line in case -p was used */
  229.   for (i = 1; i < argc; i++)
  230.     argv[i] = (char *) 0;
  231.  
  232.   return(errflag);
  233. }
  234.          
  235.  
  236. /*********************************************************************
  237.   function:      setdefaults
  238.   description:   set reasonable default values for unspecified options.
  239.   arguments:     
  240.     options      option values parsed from the command-line; unspeci-
  241.                  fied options must be filled with zero.
  242.  
  243.   return value:  zero if defaults were successfully set, else non-zero
  244.                  (indicates a problem reading /etc/passwd).
  245.   calls:         none.
  246.   globals:       writes outlevel.
  247.  *********************************************************************/
  248.  
  249. int setdefaults (options)
  250. struct optrec *options;
  251. {
  252.   int uid;
  253.   struct passwd *pw;
  254.   char *mailvar;
  255.  
  256.   if ((pw = getpwuid(uid = getuid())) == NULL) {
  257.     fprintf(stderr,"No passwd entry for uid %d\n",uid);
  258.     return(-1);
  259.   }
  260.   /* save the login name for delivery use */
  261.   strcpy(options->loginid,pw->pw_name);
  262.  
  263.   if (options->whichpop == 0)
  264.     options->whichpop = DEF_PROTOCOL;
  265.   else
  266.     ; /* -2 or -3 was specified */
  267.  
  268.   if (*(options->userid) == '\0') 
  269.     strcpy(options->userid,pw->pw_name);
  270.   else
  271.     ;  /* -u was specified */
  272.  
  273.   if (options->foldertype == 0) 
  274.     options->foldertype = OF_SYSMBOX;
  275.   else
  276.     ;  /* -o or -c was specified */
  277.     
  278.   if (*(options->password) == '\0')  
  279.     strcpy(options->password,(char *) getpass("Enter mailserver password: "));
  280.   else
  281.     ;  /* -p was specified */
  282.  
  283.   if (options->verbose)
  284.     outlevel = O_VERBOSE;
  285.   else if (options->silent)
  286.     outlevel = O_SILENT;
  287.   else
  288.     outlevel = O_NORMAL;
  289.  
  290.   return(0);
  291. }
  292.  
  293.  
  294.  
  295. /*********************************************************************
  296.   function:      showversioninfo
  297.   description:   display program release and compiler info
  298.   arguments:     none.
  299.   return value:  none.
  300.   calls:         none.
  301.   globals:       none.
  302.  *********************************************************************/
  303.  
  304. int showversioninfo()
  305. {
  306.   printf("popclient release %s\n",COMPILE_SCCS);
  307. }
  308.  
  309.  
  310.  
  311. /*********************************************************************
  312.   function:      openuserfolder
  313.   description:   open the file to which the retrieved messages will
  314.                  be appended.  Do NOT call when options->foldertype
  315.                  is OF_SYSMBOX.
  316.  
  317.   arguments:     
  318.     options      fully-determined options (i.e. parsed, defaults invoked,
  319.                  etc).
  320.  
  321.   return value:  file descriptor for the open file, else -1.
  322.   calls:         none.
  323.   globals:       none.
  324.  *********************************************************************/
  325.  
  326. int openuserfolder (options)
  327. struct optrec *options;
  328. {
  329.   int fd;
  330.  
  331.   if (options->foldertype == OF_STDOUT)
  332.     return(1);
  333.   else    /* options->foldertype == OF_USERMBOX */
  334.     if ((fd = open(options->userfolder,O_CREAT|O_WRONLY|O_APPEND,0600)) >= 0) {
  335.       return(fd);
  336.     }
  337.     else {
  338.       perror("popclient: openuserfolder: open()");
  339.       return(-1);
  340.     }
  341.   
  342. }
  343.  
  344.  
  345.  
  346. /*********************************************************************
  347.   function:      openmailpipe
  348.   description:   open a one-way pipe to the mail delivery agent.
  349.   arguments:     
  350.     options      fully-determined options (i.e. parsed, defaults invoked,
  351.                  etc).
  352.  
  353.   return value:  open file descriptor for the pipe or -1.
  354.   calls:         none.
  355.   globals:       reads mda_argv.
  356.  *********************************************************************/
  357.  
  358. int openmailpipe (options)
  359. struct optrec *options;
  360. {
  361.   int pipefd [2];
  362.   int childpid;
  363.   char binmailargs [80];
  364.  
  365.   if (pipe(pipefd) < 0) {
  366.     perror("popclient: openmailpipe: pipe");
  367.     return(-1);
  368.   }
  369.   if ((childpid = fork()) < 0) {
  370.     perror("popclient: openmailpipe: fork");
  371.     return(-1);
  372.   }
  373.   else if (childpid == 0) {
  374.  
  375.     /* in child process space */
  376.     close(pipefd[1]);  /* close the 'write' end of the pipe */
  377.     close(0);          /* get rid of inherited stdin */
  378.     if (dup(pipefd[0]) != 0) {
  379.       fputs("popclient: openmailpipe: dup() failed\n",stderr);
  380.       exit(1);
  381.     }
  382.  
  383.     execv(MDA_PATH,mda_argv);
  384.  
  385.     /* if we got here, an error occurred */
  386.     perror("popclient: openmailpipe: exec");
  387.     return(-1);
  388.  
  389.   }
  390.  
  391.   /* in the parent process space */
  392.   close(pipefd[0]);  /* close the 'read' end of the pipe */
  393.   return(pipefd[1]);
  394. }
  395.  
  396.  
  397.  
  398. /*********************************************************************
  399.   function:      closeuserfolder
  400.   description:   close the user-specified mail folder.
  401.   arguments:     
  402.     fd           mail folder descriptor.
  403.  
  404.   return value:  zero if success else -1.
  405.   calls:         none.
  406.   globals:       none.
  407.  *********************************************************************/
  408.  
  409. int closeuserfolder(fd)
  410. int fd;
  411. {
  412.   int err;
  413.  
  414.   if (fd != 1) {   /* not stdout */
  415.     err = close(fd);
  416.   }   
  417.   else
  418.     err = 0;
  419.   
  420.   if (err)
  421.     perror("popclient: closeuserfolder: close");
  422.  
  423.   return(err);
  424. }
  425.  
  426.  
  427.  
  428. /*********************************************************************
  429.   function:      closemailpipe
  430.   description:   close pipe to the mail delivery agent.
  431.   arguments:     
  432.     options      fully-determined options record
  433.     fd           pipe descriptor.
  434.  
  435.   return value:  0 if success, else -1.
  436.   calls:         none.
  437.   globals:       none.
  438.  *********************************************************************/
  439.  
  440. int closemailpipe (fd)
  441. int fd;
  442. {
  443.   int err;
  444.   int childpid;
  445.  
  446.   err = close(fd);
  447.   childpid = wait((union wait *) 0);
  448.   if (err)
  449.     perror("popclient: closemailpipe: close");
  450.  
  451.   return(err);
  452. }
  453.  
  454.  
  455.  
  456. /*********************************************************************
  457.   function:      parseMDAargs
  458.   description:   parse the argument string given in MDA_ARGS into
  459.                  a regular *argv[] array.
  460.   arguments:
  461.     options      fully-determined options record pointer.
  462.  
  463.   return value:  none.
  464.   calls:         none.
  465.   globals:       writes mda_argv.
  466.  *********************************************************************/
  467.  
  468. int parseMDAargs (options)
  469. struct optrec *options;
  470. {
  471.   int argi;
  472.   char *argp;
  473.  
  474.   /* first put the MDA alias in as argv[0] */
  475.   mda_argv[0] = MDA_ALIAS;
  476.   
  477. #ifdef MDA_ARGS
  478.  
  479.   /* make a writeable copy of MDA_ARGS */
  480.   argp = strcpy((char *) malloc(strlen(MDA_ARGS)+1), MDA_ARGS);
  481.   
  482.   while (*argp != '\0' && isspace(*argp))    /* skip null first arg */
  483.     argp++;                    
  484.  
  485.   /* now punch nulls into the delimiting whitespace in the args */
  486.   for (argi = 1;  
  487.        *argp != '\0';
  488.        argi++) {
  489.  
  490.     mda_argv[argi] = argp;     /* store pointer to this argument */
  491.  
  492.     /* find end of this argument */
  493.     while (!(*argp == '\0' || isspace(*argp)))
  494.       argp++;
  495.  
  496.     /* punch in a null terminator */
  497.     if (*argp != '\0')
  498.       *(argp++) = '\0';  
  499.  
  500.     /* check for macros */
  501.     if (strcmp(mda_argv[argi],"$u") == 0)
  502.       mda_argv[argi] = 
  503.         strcpy((char *) malloc(strlen(options->loginid)+1),options->loginid);
  504.     else
  505.       ;  /* no macros to expand */
  506.  
  507.   }
  508.   mda_argv[argi] = (char *) 0;
  509.  
  510. #else 
  511.  
  512.   mda_argv[1] = (char *) 0;
  513.  
  514. #endif
  515.  
  516. }
  517.  
  518.  
  519.  
  520. /*********************************************************************
  521.   function:      clearbiffbit
  522.   description:   clear the owner execute bit on the controlling tty, so
  523.                  that biff messages do not appear on the terminal with
  524.                  the program output.
  525.  
  526.   arguments:     none.
  527.   return value:  none.
  528.   calls:         none.
  529.   globals:       writes biffwas
  530.  *********************************************************************/
  531.  
  532. int clearbiffbit ()
  533. {
  534.   struct stat buf;
  535.  
  536.   if (fstat(0,&buf) < 0) {
  537.     perror("popclient: clearbiffbit: fstat");  /* fuss but don't quit */
  538.     return;
  539.   }
  540.  
  541.   if (buf.st_mode & S_IFCHR) {
  542.     buf.st_mode &= 0777;        /* isolate the device permissions */
  543.     biffwas = buf.st_mode;    /* save for restore */
  544.     buf.st_mode &= ~S_IEXEC;    /* clear the execute bit */
  545.     if (fchmod(0,buf.st_mode) < 0) {
  546.       perror("popclient: clearbiffbit: fchmod");  /* fuss but don't quit */
  547.       return;
  548.     }
  549.   }
  550. }
  551.  
  552.  
  553.  
  554.  
  555. /*********************************************************************
  556.   function:      restorebiffbit
  557.   description:   restore the previous state of the owner execute bit
  558.                  on the controlling tty.
  559.   arguments:     none.
  560.   return value:  none.
  561.   calls:         none.
  562.   globals:       reads biffwas
  563.  *********************************************************************/
  564.  
  565. int restorebiffbit ()
  566. {
  567.   if (biffwas == -1)
  568.     return;    /* not a tty */
  569.   else {
  570.     if (fchmod(0,biffwas) < 0) 
  571.       perror("popclient: restorebiffbit: fchmod");   /* fuss but don't quit */
  572.   }
  573. }
  574.  
  575.  
  576.  
  577. /*********************************************************************
  578.   function:      cleanup
  579.   description:   signal catcher.
  580.   arguments:     none.
  581.   return value:  none.
  582.   calls:         restorebiff
  583.   globals:       reads biffwas.
  584.  *********************************************************************/
  585.     
  586. int cleanup ()
  587. {
  588.   if (biffwas != -1) 
  589.     restorebiffbit();
  590. }
  591.  
  592.  
  593.