crypto/heimdal-0.6.3/appl/popper/pop_send.c

   1 /*
   2  * Copyright (c) 1989 Regents of the University of California.
   3  * All rights reserved.  The Berkeley software License Agreement
   4  * specifies the terms and conditions for redistribution.
   5  */
   6
   7 #include <popper.h>
   8 RCSID("$Id: pop_send.c,v 1.25 1999/03/05 14:14:28 joda Exp $");
   9
  10 /*
  11  *  sendline:   Send a line of a multi-line response to a client.
  12  */
  13 static int
  14 pop_sendline(POP *p, char *buffer)
  15 {
  16     char        *   bp;
  17
  18     /*  Byte stuff lines that begin with the termination octet */
  19     if (*buffer == POP_TERMINATE)
  20       fputc(POP_TERMINATE,p->output);
  21
  22     /*  Look for a <NL> in the buffer */
  23     if ((bp = strchr(buffer, '\n')))
  24       *bp = 0;
  25
  26     /*  Send the line to the client */
  27     fputs(buffer,p->output);
  28
  29 #ifdef DEBUG
  30     if(p->debug)
  31       pop_log(p,POP_DEBUG,"Sending line \"%s\"",buffer);
  32 #endif /* DEBUG */
  33
  34     /*  Put a <CR><NL> if a newline was removed from the buffer */
  35     if (bp)
  36       fputs ("\r\n",p->output);
  37     return bp != NULL;
  38 }
  39
  40 /*
  41  *  send:   Send the header and a specified number of lines
  42  *          from a mail message to a POP client.
  43  */
  44
  45 int
  46 pop_send(POP *p)
  47 {
  48     MsgInfoList         *   mp;         /*  Pointer to message info list */
  49     int                     msg_num;
  50     int                     msg_lines;
  51     char                    buffer[MAXMSGLINELEN];
  52 #ifdef RETURN_PATH_HANDLING
  53     char                *   return_path_adr;
  54     char                *   return_path_end;
  55     int                     return_path_sent;
  56     int                     return_path_linlen;
  57 #endif
  58     int                 sent_nl = 0;
  59
  60     /*  Convert the first parameter into an integer */
  61     msg_num = atoi(p->pop_parm[1]);
  62
  63     /*  Is requested message out of range? */
  64     if ((msg_num < 1) || (msg_num > p->msg_count))
  65         return (pop_msg (p,POP_FAILURE,"Message %d does not exist.",msg_num));
  66
  67     /*  Get a pointer to the message in the message list */
  68     mp = &p->mlp[msg_num-1];
  69
  70     /*  Is the message flagged for deletion? */
  71     if (mp->flags & DEL_FLAG)
  72         return (pop_msg (p,POP_FAILURE,
  73                          "Message %d has been deleted.",msg_num));
  74
  75     /*  If this is a TOP command, get the number of lines to send */
  76     if (strcmp(p->pop_command, "top") == 0) {
  77         /*  Convert the second parameter into an integer */
  78         msg_lines = atoi(p->pop_parm[2]);
  79     }
  80     else {
  81         /*  Assume that a RETR (retrieve) command was issued */
  82         msg_lines = -1;
  83         /*  Flag the message as retreived */
  84         mp->flags |= RETR_FLAG;
  85     }
  86
  87     /*  Display the number of bytes in the message */
  88     pop_msg(p, POP_SUCCESS, "%ld octets", mp->length);
  89
  90     if(IS_MAILDIR(p)) {
  91         int e = pop_maildir_open(p, mp);
  92         if(e != POP_SUCCESS)
  93             return e;
  94     }
  95
  96     /*  Position to the start of the message */
  97     fseek(p->drop, mp->offset, 0);
  98
  99     return_path_sent = 0;
 100
 101     if(!IS_MAILDIR(p)) {
 102         /*  Skip the first line (the sendmail "From" line) */
 103         fgets (buffer,MAXMSGLINELEN,p->drop);
 104
 105 #ifdef RETURN_PATH_HANDLING
 106         if (strncmp(buffer,"From ",5) == 0) {
 107             return_path_linlen = strlen(buffer);
 108             for (return_path_adr = buffer+5;
 109                  (*return_path_adr == ' ' || *return_path_adr == '\t') &&
 110                      return_path_adr < buffer + return_path_linlen;
 111                  return_path_adr++)
 112                 ;
 113             if (return_path_adr < buffer + return_path_linlen) {
 114                 if ((return_path_end = strchr(return_path_adr, ' ')) != NULL)
 115                     *return_path_end = '\0';
 116                 if (strlen(return_path_adr) != 0 && *return_path_adr != '\n') {
 117                     static char tmpbuf[MAXMSGLINELEN + 20];
 118                     if (snprintf (tmpbuf,
 119                                   sizeof(tmpbuf),
 120                                   "Return-Path: %s\n",
 121                                   return_path_adr) < MAXMSGLINELEN) {
 122                         pop_sendline (p,tmpbuf);
 123                         if (hangup)
 124                             return pop_msg (p, POP_FAILURE,
 125                                             "SIGHUP or SIGPIPE flagged");
 126                         return_path_sent++;
 127                     }
 128                 }
 129             }
 130         }
 131 #endif
 132     }
 133
 134     /*  Send the header of the message followed by a blank line */
 135     while (fgets(buffer,MAXMSGLINELEN,p->drop)) {
 136 #ifdef RETURN_PATH_HANDLING
 137         /* Don't send existing Return-Path-header if already sent own */
 138         if (!return_path_sent || strncasecmp(buffer, "Return-Path:", 12) != 0)
 139 #endif
 140             sent_nl = pop_sendline (p,buffer);
 141         /*  A single newline (blank line) signals the
 142             end of the header.  sendline() converts this to a NULL,
 143             so that's what we look for. */
 144         if (*buffer == 0) break;
 145         if (hangup)
 146             return (pop_msg (p,POP_FAILURE,"SIGHUP or SIGPIPE flagged"));
 147     }
 148     /*  Send the message body */
 149     {
 150         int blank_line = 1;
 151         while (fgets(buffer, MAXMSGLINELEN-1, p->drop)) {
 152             /*  Look for the start of the next message */
 153             if (!IS_MAILDIR(p) && blank_line && strncmp(buffer,"From ",5) == 0)
 154                 break;
 155             blank_line = (strncmp(buffer, "\n", 1) == 0);
 156             /*  Decrement the lines sent (for a TOP command) */
 157             if (msg_lines >= 0 && msg_lines-- == 0) break;
 158             sent_nl = pop_sendline(p,buffer);
 159             if (hangup)
 160                 return (pop_msg (p,POP_FAILURE,"SIGHUP or SIGPIPE flagged"));
 161         }
 162         /* add missing newline at end */
 163         if(!sent_nl)
 164             fputs("\r\n", p->output);
 165         /* some pop-clients want a blank line at the end of the
 166            message, we always add one here, but what the heck -- in
 167            outer (white) space, no one can hear you scream */
 168         if(IS_MAILDIR(p))
 169             fputs("\r\n", p->output);
 170     }
 171     /*  "." signals the end of a multi-line transmission */
 172     fputs(".\r\n",p->output);
 173     fflush(p->output);
 174
 175     return(POP_SUCCESS);
 176 }