From 5ee8b08111e628809995c11020edabceef7d12d7 Mon Sep 17 00:00:00 2001
From: Unknown User PSV <psv@it.su.se>
Date: Thu, 11 Mar 1993 12:29:08 +0000
Subject: [PATCH] Initial revision

git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@5 ec53bebd-3082-4978-b11e-865c3cabbd6b
---
 appl/popper/pop_send.c | 113 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 113 insertions(+)
 create mode 100644 appl/popper/pop_send.c

diff --git a/appl/popper/pop_send.c b/appl/popper/pop_send.c
new file mode 100644
index 000000000..e05b6b982
--- /dev/null
+++ b/appl/popper/pop_send.c
@@ -0,0 +1,113 @@
+/*
+ * Copyright (c) 1989 Regents of the University of California.
+ * All rights reserved.  The Berkeley software License Agreement
+ * specifies the terms and conditions for redistribution.
+ */
+
+#ifndef lint
+static char copyright[] = "Copyright (c) 1990 Regents of the University of California.\nAll rights reserved.\n";
+static char SccsId[] = "@(#)@(#)pop_send.c	2.1  2.1 3/18/91";
+#endif not lint
+
+#include <stdio.h>
+#include <sys/types.h>
+#include <strings.h>
+#include "popper.h"
+
+/* 
+ *  send:   Send the header and a specified number of lines 
+ *          from a mail message to a POP client.
+ */
+
+pop_send(p)
+POP     *   p;
+{
+    MsgInfoList         *   mp;         /*  Pointer to message info list */
+    register int            msg_num;
+    register int            msg_lines;
+    char                    buffer[MAXMSGLINELEN];
+
+    /*  Convert the first parameter into an integer */
+    msg_num = atoi(p->pop_parm[1]);
+
+    /*  Is requested message out of range? */
+    if ((msg_num < 1) || (msg_num > p->msg_count))
+        return (pop_msg (p,POP_FAILURE,"Message %d does not exist.",msg_num));
+
+    /*  Get a pointer to the message in the message list */
+    mp = &p->mlp[msg_num-1];
+
+    /*  Is the message flagged for deletion? */
+    if (mp->del_flag)
+        return (pop_msg (p,POP_FAILURE,
+            "Message %d has been deleted.",msg_num));
+
+    /*  If this is a TOP command, get the number of lines to send */
+    if (strcmp(p->pop_command,"top") == 0) {
+        /*  Convert the second parameter into an integer */
+        msg_lines = atoi(p->pop_parm[2]);
+    }
+    else {
+        /*  Assume that a RETR (retrieve) command was issued */
+        msg_lines = -1;
+        /*  Flag the message as retreived */
+        mp->retr_flag = TRUE;
+    }
+    
+    /*  Display the number of bytes in the message */
+    pop_msg(p,POP_SUCCESS,"%u octets",mp->length);
+
+    /*  Position to the start of the message */
+    (void)fseek(p->drop,mp->offset,0);
+
+    /*  Skip the first line (the sendmail "From" line) */
+    (void)fgets (buffer,MAXMSGLINELEN,p->drop);
+
+    /*  Send the header of the message followed by a blank line */
+    while (fgets(buffer,MAXMSGLINELEN,p->drop)) {
+        pop_sendline (p,buffer);
+        /*  A single newline (blank line) signals the 
+            end of the header.  sendline() converts this to a NULL, 
+            so that's what we look for. */
+        if (*buffer == 0) break;
+    }
+    /*  Send the message body */
+    while (fgets(buffer,MAXMSGLINELEN,p->drop)) {
+        /*  Look for the start of the next message */
+        if (strncmp(buffer,"From ",5) == 0) break;
+        /*  Decrement the lines sent (for a TOP command) */
+        if (msg_lines >= 0 && msg_lines-- == 0) break;
+        pop_sendline(p,buffer);
+    }
+    /*  "." signals the end of a multi-line transmission */
+    (void)fputs(".\r\n",p->output);
+    (void)fflush(p->output);
+
+    return(POP_SUCCESS);
+}
+
+/*
+ *  sendline:   Send a line of a multi-line response to a client.
+ */
+pop_sendline(p,buffer)
+POP         *   p;
+char        *   buffer;
+{
+    char        *   bp;
+
+    /*  Byte stuff lines that begin with the temirnation octet */
+    if (*buffer == POP_TERMINATE) (void)fputc(POP_TERMINATE,p->output);
+
+    /*  Look for a <NL> in the buffer */
+    if (bp = index(buffer,NEWLINE)) *bp = 0;
+
+    /*  Send the line to the client */
+    (void)fputs(buffer,p->output);
+
+#ifdef DEBUG
+    if(p->debug)pop_log(p,POP_DEBUG,"Sending line \"%s\"",buffer);
+#endif DEBUG
+
+    /*  Put a <CR><NL> if a newline was removed from the buffer */
+    if (bp) (void)fputs ("\r\n",p->output);
+}