/* Copyright 1993-95 by Carl Harris, Jr. Copyright 1996 by Eric S. Raymond
 * All rights reserved.
 * For license terms, see the file COPYING in this directory.
 */

/***********************************************************************
  module:       pop2.c
  project:      fetchmail
  programmer:   Carl Harris, ceharris@mal.com
		Hacks and bug fixes by esr.
  description:  POP2 client code.

 ***********************************************************************/

#include  <config.h>

#include  <stdio.h>
#if defined(STDC_HEADERS)
#include  <string.h>
#endif
#if defined(HAVE_UNISTD_H)
#include  <unistd.h>
#endif

#include  <sys/time.h>
#include  <errno.h>

#include  "socket.h"
#include  "fetchmail.h"

#if HAVE_PROTOTYPES
#endif

/*********************************************************************

 Method declarations for POP2

 *********************************************************************/

static int pound_arg, equal_arg;

int pop2_ok (argbuf,socket)
/* parse POP2 command response */
char *argbuf;
int socket;
{
    int ok;
    char buf [POPBUFSIZE+1];

    pound_arg = equal_arg = -1;
    if (SockGets(socket, buf, sizeof(buf)) >= 0) {
	if (outlevel == O_VERBOSE)
	    fprintf(stderr,"%s\n",buf);

	if (buf[0] == '+')
	    ok = 0;
	else if (buf[0] == '#')
	{
	    pound_arg = atoi(buf+1);
	    ok = 0;
	}
	else if (buf[0] == '=')
	{
	    equal_arg = atoi(buf+1);
	    ok = 0;
	}
	else if (buf[0] == '-')
	    ok = PS_ERROR;
	else
	    ok = PS_PROTOCOL;

	if (argbuf != NULL)
	    strcpy(argbuf,buf);
    }
    else 
	ok = PS_SOCKET;

    return(ok);
}

int pop2_getauth(socket, queryctl, buf)
/* apply for connection authorization */
int socket;
struct hostrec *queryctl;
char *buf;
{
    return(gen_transact(socket,
		  "HELO %s %s",
		  queryctl->remotename, queryctl->password));
}

static pop2_getrange(socket, queryctl, countp, firstp)
/* get range of messages to be fetched */
int socket;
struct hostrec *queryctl;
int *countp;
int *firstp;
{
    /*
     * We should have picked up a count of messages in the user's
     * default inbox from the pop2_getauth() response.
     */
    if (pound_arg == -1)
	return(PS_ERROR);

    /* maybe the user wanted a non-default folder */
    if (queryctl->remotefolder[0])
    {
	int	ok = gen_transact(socket, "FOLD %s", queryctl->remotefolder);

	if (ok != 0)
	    return(ok);
	if (pound_arg == -1)
	    return(PS_ERROR);
    }

    *firstp = 1;
    *countp = pound_arg;

    return(0);
}

static int pop2_fetch(socket, number, limit, lenp)
/* request nth message */
int socket;
int number;
int limit;
int *lenp; 
{
    int	ok;

    *lenp = 0;
    ok = gen_transact(socket, "READ %d", number);
    if (ok)
	return(0);
    *lenp = equal_arg;

    gen_send(socket, "RETR");

    return(ok);
}

static pop2_trail(socket, queryctl, number)
/* send acknowledgement for message data */
int socket;
struct hostrec *queryctl;
int number;
{
    return(gen_transact(socket, queryctl->keep ? "ACKS" : "ACKD"));
}

static struct method pop2 =
{
    "POP2",				/* Post Office Protocol v2 */
    109,				/* standard POP2 port */
    0,					/* this is not a tagged protocol */
    0,					/* does not use message delimiter */
    pop2_ok,				/* parse command response */
    pop2_getauth,			/* get authorization */
    pop2_getrange,			/* query range of messages */
    pop2_fetch,				/* request given message */
    pop2_trail,				/* eat message trailer */
    NULL,				/* no POP2 delete command */
    NULL,				/* no POP2 expunge command */
    "QUIT",				/* the POP2 exit command */
};

int doPOP2 (queryctl)
struct hostrec *queryctl;
{
    /* check for unsupported options */
    if (linelimit) {
	fprintf(stderr,"Option --limit is not supported with POP2\n");
	return(PS_SYNTAX);
    }
    else if (queryctl->flush) {
	fprintf(stderr,"Option --flush is not supported with POP2\n");
	return(PS_SYNTAX);
    }
    else if (queryctl->fetchall) {
	fprintf(stderr,"Option --all is not supported with POP2\n");
	return(PS_SYNTAX);
    }

    return(do_protocol(queryctl, &pop2));
}