Removing old POP applications

git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@9427 dc483132-0cff-0310-8789-dd5450dbe970

8 files changed, 0 insertions, 940 deletions

diff --git a/src/appl/mailquery/.Sanitize b/src/appl/mailquery/.Sanitize
deleted file mode 100644
index d58a60ee5..000000000
--- a/src/appl/mailquery/.Sanitize
+++ /dev/null
@@ -1,40 +0,0 @@
-# Sanitize.in for Kerberos V5
-
-# Each directory to survive it's way into a release will need a file
-# like this one called "./.Sanitize".  All keyword lines must exist,
-# and must exist in the order specified by this file.  Each directory
-# in the tree will be processed, top down, in the following order.
-
-# Hash started lines like this one are comments and will be deleted
-# before anything else is done.  Blank lines will also be squashed
-# out.
-
-# The lines between the "Do-first:" line and the "Things-to-keep:"
-# line are executed as a /bin/sh shell script before anything else is
-# done in this 
-
-Do-first:
-
-# All files listed between the "Things-to-keep:" line and the
-# "Files-to-sed:" line will be kept.  All other files will be removed.
-# Directories listed in this section will have their own Sanitize
-# called.  Directories not listed will be removed in their entirety
-# with rm -rf.
-
-Things-to-keep:
-
-.cvsignore
-ChangeLog
-Makefile.in
-configure
-configure.in
-mailquery.M
-mailquery.c
-pop.h
-poplib.c
-
-Things-to-lose:
-
-Do-last:
-
-# End of file.
diff --git a/src/appl/mailquery/ChangeLog b/src/appl/mailquery/ChangeLog
deleted file mode 100644
index 7d6322905..000000000
--- a/src/appl/mailquery/ChangeLog
+++ /dev/null
@@ -1,114 +0,0 @@
-Fri Nov  8 17:01:28 1996  Theodore Ts'o  <tytso@rsts-11.mit.edu>
-
-	* poplib.c:
-	* mailquery.c: Cleaned up gcc -Wall warnings.
-
-Thu Nov  7 15:20:25 1996  Theodore Ts'o  <tytso@rsts-11.mit.edu>
-
-	* poplib.c (reserved;): Check the error return from
- 		krb5_init_context(), and print an error message if
- 		necessary.
-
-Tue Sep 10 14:08:06 1996  Tom Yu  <tlyu@mit.edu>
-
-	* mailquery.M: remove ".so man1/header.doc"
-
-Fri Jul 7 15:43:24 EDT 1995	Paul Park	(pjpark@mit.edu)
-	* Makefile.in - Remove all explicit library handling.
-	* configure.in - Add KRB5_LIBRARIES.
-
-Tue Jun 20 14:29:23 1995  Tom Yu  (tlyu@dragons-lair)
-
-	* poplib.c: HAS_STDLIB_H -> HAVE_STDLIB_H
-
-Thu Jun 15 17:36:11 EDT 1995	Paul Park	(pjpark@mit.edu)
-	* Makefile.in - Change explicit library names to -l<lib> form, and
-		change target link line to use $(LD) and associated flags.
-	* configure.in - Add shared library usage check.
-
-Sat Jun 10 22:57:11 1995  Tom Yu  (tlyu@dragons-lair)
-
-	* poplib.c: krb5_auth_context redefinitions
-
-Fri Jun  9 18:27:03 1995    <tytso@rsx-11.mit.edu>
-
-	* configure.in: Remove standardized set of autoconf macros, which
-		are now handled by CONFIG_RULES.
-
-Tue May  9 10:29:44 1995  Ezra Peisach  <epeisach@kangaroo.mit.edu>
-
-	* configure.in: Check for stdlib.h
-
-	* poplib.c: Include <string.h>. Include <stdlib.h> if present or
-		define malloc().
-
-Mon Mar 27 07:56:26 1995 Chris Provenzano (proven@mit.edu)
-
-	* poplib.c (pop_init()): Use new calling convention for krb5_sendauth().
-
-Thu Mar  2 12:28:20 1995  Theodore Y. Ts'o  <tytso@dcl>
-
-	* Makefile.in (ISODELIB): Remove reference to $(ISODELIB).
-
-Wed Mar  1 11:55:43 1995  Theodore Y. Ts'o  <tytso@dcl>
-
-	* configure.in: Replace check for -lsocket and -lnsl with
-	        WITH_NETLIB check.
-
-Tue Feb 28 01:52:34 1995  John Gilmore  (gnu at toad.com)
-
-	* poplib.c:  Avoid <krb5/...> includes.
-
-Tue Feb 14 15:30:55 1995 Chris Provenzano  (proven@mit.edu)
-
-	* poplib.c (pop_init): Call krb5_sendauth() with new calling convention
-
-Fri Jan 13 15:23:47 1995  Chris Provenzano (proven@mit.edu)
-
-    * Added krb5_context to all krb5_routines
-
-Mon Jan  2 14:41:14 1995  Richard Basch  (probe@tardis)
-
-	* mailquery.c
-	  	Issue QUIT pop command, when done retrieving messages.
-
-Wed Nov  2 21:08:04 1994  Theodore Y. Ts'o  (tytso@dcl)
-
-	* poplib.c (getline, multiline): NULL should not be used as a
-		character assignment value.  Use '\0' instead.
-
-Mon Oct  3 19:17:31 1994  Theodore Y. Ts'o  (tytso@dcl)
-
-	* Makefile.in: Use $(srcdir) to find manual page for make install.
-
-Thu Sep 29 22:53:17 1994  Theodore Y. Ts'o  (tytso@dcl)
-
-	* Makefile.in: Relink executables if libraries change
-
-Thu Sep 15 11:34:46 1994  Theodore Y. Ts'o  (tytso@dcl)
-
-	* configure.in: Moved CONFIG_RULES before AC_HAVE_LIBRARY() rules,
-		so that they work. 
-
-Thu Aug 18 16:15:36 1994  Theodore Y. Ts'o  (tytso@dcl)
-
-	* Makefile.in: Added missing $(LIBS) to link line.
-
-Thu Aug 18 13:43:07 1994  Theodore Y. Ts'o  (tytso at tsx-11)
-
-	* mailquery.c: Move usage() before main() to solve redeclaration
-	error.
-
-	* mailquery.c: Add #include <string.h> to fix compiler kvetching.
-
-Tue Aug  9 16:45:53 1994  Tom Yu  (tlyu@dragons-lair)
-
-	* poplib.c: fix stupid sterror bug
-
-	* Makefile.in:
-	* configure.in: make install fixes
-
-	* poplib.c: Ultrix cpp doesn't like '#error'
-
-	* Makefile.in: oops forgot about $(COMERRLIB)
-
diff --git a/src/appl/mailquery/Makefile.in b/src/appl/mailquery/Makefile.in
deleted file mode 100644
index eb740403e..000000000
--- a/src/appl/mailquery/Makefile.in
+++ /dev/null
@@ -1,23 +0,0 @@
-CFLAGS = $(CCOPTS) -DKPOP -DKRB5 $(DEFS) $(LOCALINCLUDE)
-
-all::
-
-HESIODLIB =
-LOCAL_LIBRARIES = $(HESIODLIB)
-DEPLOCAL_LIBRARIES = $(HESIODLIB)
-
-mailquery: mailquery.o poplib.o $(DEPLIBS)
-	$(LD) $(LDFLAGS) $(LDARGS) -o mailquery mailquery.o poplib.o $(LIBS)
-
-mailquery.o:	$(srcdir)/mailquery.c
-poplib.o:	$(srcdir)/poplib.c
-
-all:: mailquery
-
-clean::
-	$(RM) mailquery.o poplib.o mailquery
-
-install::
-	$(INSTALL_PROGRAM) mailquery ${DESTDIR}$(CLIENT_BINDIR)/mailquery
-	$(INSTALL_DATA) $(srcdir)/mailquery.M ${DESTDIR}$(CLIENT_MANDIR)/mailquery.1
-
diff --git a/src/appl/mailquery/configure.in b/src/appl/mailquery/configure.in
deleted file mode 100644
index c93e62d34..000000000
--- a/src/appl/mailquery/configure.in
+++ /dev/null
@@ -1,8 +0,0 @@
-AC_INIT(mailquery.c)
-CONFIG_RULES
-AC_PROG_INSTALL
-AC_HAVE_HEADERS(unistd.h stdlib.h)
-AC_FUNC_CHECK(strerror,AC_DEFINE(HAS_STRERROR))
-KRB5_LIBRARIES
-V5_USE_SHARED_LIB
-V5_AC_OUTPUT_MAKEFILE
diff --git a/src/appl/mailquery/mailquery.M b/src/appl/mailquery/mailquery.M
deleted file mode 100644
index 113146f40..000000000
--- a/src/appl/mailquery/mailquery.M
+++ /dev/null
@@ -1,41 +0,0 @@
-.\"
-.\" (c) Copyright 1994 HEWLETT-PACKARD COMPANY
-.\" 
-.\" To anyone who acknowledges that this file is provided 
-.\" "AS IS" without any express or implied warranty:
-.\" permission to use, copy, modify, and distribute this 
-.\" file for any purpose is hereby granted without fee, 
-.\" provided that the above copyright notice and this 
-.\" notice appears in all copies, and that the name of 
-.\" Hewlett-Packard Company not be used in advertising or 
-.\" publicity pertaining to distribution of the software 
-.\" without specific, written prior permission.  Hewlett-
-.\" Packard Company makes no representations about the 
-.\" suitability of this software for any purpose.
-.\"
-.\" $Id
-.\"
-.TH mailquery 1
-.SH NAME
-mailquery \- queries a pop server about how much mail is available
-.SH SYNTAX
-.B mailquery
-[-\fId\fR\|]
-[-\fIv\fR\|]
-[\fI user\fR[@\fIhost\fR\|]]
-.SH DESCRIPTION
-The
-.PN mailquery 
-command queries a POP server for information about how much mail a user
-has.  The program will exit with status = 0 if there is mail, and with
-status = 1 if there is no mail.  The -v flag can be used to get a more 
-verbose report.  The -d flag can be used to turn on debugging output
-in the pop library code.  The pop server can be specified either by
-setting the environment variable MAILHOST, or on the command line.
-If no user is specified, user is set to the person who ran the program.
-.SH OPTIONS
-
-.SH BUGS/LIMITATIONS
-
-.SH SEE ALSO
-popper(8)
diff --git a/src/appl/mailquery/mailquery.c b/src/appl/mailquery/mailquery.c
deleted file mode 100644
index a2946f484..000000000
--- a/src/appl/mailquery/mailquery.c
+++ /dev/null
@@ -1,181 +0,0 @@
-/*
- * (c) Copyright 1994 HEWLETT-PACKARD COMPANY
- * 
- * To anyone who acknowledges that this file is provided 
- * "AS IS" without any express or implied warranty:
- * permission to use, copy, modify, and distribute this 
- * file for any purpose is hereby granted without fee, 
- * provided that the above copyright notice and this 
- * notice appears in all copies, and that the name of 
- * Hewlett-Packard Company not be used in advertising or 
- * publicity pertaining to distribution of the software 
- * without specific, written prior permission.  Hewlett-
- * Packard Company makes no representations about the 
- * suitability of this software for any purpose.
- */
-/*
- * Mailquery - contact the POP mail host an see if a user has
- *             mail. By default the result if reflected in the
- *             exit status.
- *             
- * Usage: mailquery [-dv] [-e <cmd>]
- *      -d - debug
- *      -v - print result
- *      -e - exec this command if there is mail.
- */
-#include <stdio.h>
-#ifdef HAVE_UNISTD_H
-#include <unistd.h>
-#endif
-#ifdef HAVE_STDLIB_H
-#include <stdlib.h>
-#endif
-#include <string.h>
-#include <pwd.h>
-#include <fcntl.h>
-#include <sys/file.h>  
-#ifdef HESIOD
-#include <hesiod.h>
-#endif
-#include "pop.h"
-
-extern int pop_debug;
-int verbose = 0;
-char *exec_cmd;
-
-int mailquery();
-
-void usage()
-{
-    fprintf(stderr, "usage: mailquery [-d] [-v] [-e cmd] [user[@host]]\n");
-} 
-
-int main(argc, argv)
-     int argc;
-     char *argv[];
-{
-    extern char *getenv();
-    int nbytes;
-    char *mhost = NULL, *mhp;
-    char *user = 0;
-    struct passwd * pwd;
-    char c;
-    extern int optind;
-    extern char *optarg;
-#ifdef HESIOD
-    struct hes_postoffice *p;
-#endif /* HESIOD */
-
-    while ((c = getopt(argc, argv, "dve:")) != EOF) {
-	switch (c) {
-	  case 'd':
-	    pop_debug = 1;
-	    break;
-
-	  case 'e':
-	    exec_cmd = optarg;
-	    break;
-	    
-	  case 'v':
-	    verbose = 1;
-	    break;
-	    
-	  case '?':
-	    usage();
-	    exit(1);
-	}
-    }
-    
-    argc -= optind;
-    argv += optind;
-
-    if (argc > 0) {
-	user = argv[0];
-	if ((mhost = strchr(argv[0], '@')) != NULL) {
-	    *mhost = '\0';
-	    mhost++;
-	}
-#ifndef HESIOD
-        else {
-	    mhost = DEFMAILHOST;
-	}
-#endif
-    }
-    
-    if (user == (char *) 0 || *user == '\0') {
-	if ((pwd = getpwuid(getuid())) == NULL) {
-	    perror("getpwuid");
-	    exit(1);
-	}
-	user = pwd->pw_name;
-    }
-
-    if ((mhost == NULL) &&
-        (mhp = getenv("MAILHOST")))
-            mhost = mhp;
-
-#ifdef HESIOD
-    if (mhost == NULL) {
-            p = hes_getmailhost(user);
-            if (p != NULL && strcmp(p->po_type, "POP") == 0)
-                    mhost = p->po_host;
-            else {
-                    fprintf(stderr,"no POP server listed in Hesiod for %s\n", user);
-                    exit(1);
-            } 
-    }
-#endif	/* HESIOD */
-
-    if (mhost == NULL) {
-	mhost = DEFMAILHOST;
-    }
-
-    nbytes = mailquery(mhost, user);
-    
-    if ((nbytes > 0) && (exec_cmd != 0)) {
-	if (pop_debug)
-	  fprintf(stderr, "about to execute %s\n", exec_cmd);
-	system(exec_cmd);
-    }
-    
-    exit(nbytes == 0);
-
-}
-
-int mailquery(mhost, user)
-     char *mhost;
-     char *user;
-{
-    int nbytes, nmsgs;
-    
-    if (pop_init(mhost, 0) == NOTOK) {
-	error(Errmsg);
-	exit(1);
-    }
-
-#ifdef KPOP
-    if (pop_command("USER %s", user) == NOTOK || 
-        pop_command("PASS %s", user) == NOTOK) {
-#else /* !KPOP */
-    if (pop_command("USER %s", user) == NOTOK || 
-        pop_command("RPOP %s", user) == NOTOK) {
-#endif /* KPOP */
-            error(Errmsg);
-            (void) pop_command("QUIT");
-            exit (1);
-    } 
-
-    if (pop_stat(&nmsgs, &nbytes) == NOTOK) {
-            error(Errmsg);
-            (void) pop_command("QUIT");
-            exit (1);
-    }
-
-    (void) pop_command("QUIT");
-    
-    if (verbose)
-      printf("%d messages (%d bytes) on host %s\n", nmsgs, nbytes, mhost);
-
-    return nbytes;
-}
-    
diff --git a/src/appl/mailquery/pop.h b/src/appl/mailquery/pop.h
deleted file mode 100644
index d2f9071a3..000000000
--- a/src/appl/mailquery/pop.h
+++ /dev/null
@@ -1,35 +0,0 @@
-/*
- * (c) Copyright 1994 HEWLETT-PACKARD COMPANY
- * 
- * To anyone who acknowledges that this file is provided 
- * "AS IS" without any express or implied warranty:
- * permission to use, copy, modify, and distribute this 
- * file for any purpose is hereby granted without fee, 
- * provided that the above copyright notice and this 
- * notice appears in all copies, and that the name of 
- * Hewlett-Packard Company not be used in advertising or 
- * publicity pertaining to distribution of the software 
- * without specific, written prior permission.  Hewlett-
- * Packard Company makes no representations about the 
- * suitability of this software for any purpose.
- *
- */
-
-/* defines for pop library */
-
-#define NOTOK (-1)
-#define OK 0
-#define DONE 1
-
-#define DEFMAILHOST "mailhost"
-
-int pop_init(), pop_getline();
-char *get_errmsg();
-int pop_command();
-int pop_stat();
-int pop_retr();
-int pop_query();
-char *concat();
-void fatal(), error(), pfatal_with_name();
-
-extern char Errmsg[];
diff --git a/src/appl/mailquery/poplib.c b/src/appl/mailquery/poplib.c
deleted file mode 100644
index fe54ba54d..000000000
--- a/src/appl/mailquery/poplib.c
+++ /dev/null
@@ -1,498 +0,0 @@
-/*
- * (c) Copyright 1994 HEWLETT-PACKARD COMPANY
- * 
- * To anyone who acknowledges that this file is provided 
- * "AS IS" without any express or implied warranty:
- * permission to use, copy, modify, and distribute this 
- * file for any purpose is hereby granted without fee, 
- * provided that the above copyright notice and this 
- * notice appears in all copies, and that the name of 
- * Hewlett-Packard Company not be used in advertising or 
- * publicity pertaining to distribution of the software 
- * without specific, written prior permission.  Hewlett-
- * Packard Company makes no representations about the 
- * suitability of this software for any purpose.
- */
-
-/*
- * Poplib - library routines for speaking POP
- */
-#include <stdio.h>
-#include <unistd.h>
-#include <string.h>
-#include <sys/types.h>
-#include <sys/stat.h>
-#include <sys/file.h>
-#include <errno.h>
-
-#include <sys/socket.h>
-#include <netinet/in.h>
-#include <netdb.h>
-#if defined(KRB4) && defined(KRB5)
-error You cannot define both KRB4 and KRB5
-#endif
-#ifndef KPOP_SERVICE
-#define KPOP_SERVICE "kpop"
-#endif
-#ifdef KPOP
-#ifdef KRB4
-#include <krb.h>
-#endif
-#ifdef KRB5
-#include "krb5.h"
-#include "com_err.h"
-#include <ctype.h>
-#endif
-#endif
-
-#ifdef HAVE_STDLIB_H
-#include <stdlib.h>
-#else
-extern char *malloc();
-#endif
-
-#include "pop.h"
-
-void *xmalloc();
-int getline(), multiline(), putline();
-
-char Errmsg[80];		/* to return error messages */
-int pop_debug;
-
-static FILE *sfi = 0;
-static FILE *sfo = 0;
-
-int pop_init(host, reserved)
-char *host;
-int reserved;
-{
-    register struct hostent *hp;
-    register struct servent *sp;
-#ifndef KPOP
-    int lport = IPPORT_RESERVED - 1;
-#endif
-    struct sockaddr_in sin;
-    int s;
-    char *get_errmsg();
-    char response[1024];
-    char *routine;
-#ifdef KPOP
-#ifdef KRB4
-    CREDENTIALS cred;
-    KTEXT ticket = (KTEXT)NULL;
-    int rem;
-#endif
-#ifdef KRB5
-    krb5_error_code retval;
-    krb5_context context;
-    krb5_ccache ccdef;
-    krb5_principal client = NULL, server = NULL;
-    krb5_error *err_ret = NULL;
-    krb5_auth_context auth_context;
-#endif
-#endif
-
-    if (sfi && sfo) {
-	return OK;		/* guessing at this -- eichin -- XXX */
-    }
-
-    hp = gethostbyname(host);
-    if (hp == NULL) {
-	sprintf(Errmsg, "MAILHOST unknown: %s", host);
-	return(NOTOK);
-    }
-
-#ifdef KPOP
-    sp = getservbyname(KPOP_SERVICE, "tcp");
-    if (sp == 0) {
-	(void) strcpy(Errmsg, "tcp/kpop: unknown service");
-	return(NOTOK);
-    }
-#else /* !KPOP */
-    sp = getservbyname("pop", "tcp");
-    if (sp == 0) {
-	(void) strcpy(Errmsg, "tcp/pop: unknown service");
-	return(NOTOK);
-    }
-#endif /* KPOP */
-    if (sp == 0) {
-	strcpy(Errmsg, "tcp/pop: unknown service");
-	return(NOTOK);
-    }
-
-    sin.sin_family = hp->h_addrtype;
-    memcpy((char *)&sin.sin_addr, hp->h_addr, hp->h_length);
-    sin.sin_port = sp->s_port;
-#ifdef KPOP
-    s = socket(AF_INET, SOCK_STREAM, 0);
-#else /* !KPOP */
-    if (reserved) 
-      s = rresvport(&lport);
-    else
-      s = socket(AF_INET, SOCK_STREAM, 0);
-#endif /* KPOP */
-    
-    if (s < 0) {
-	sprintf(Errmsg, "error creating socket: %s", get_errmsg());
-	return(NOTOK);
-    }
-
-    if (connect(s, (struct sockaddr *)&sin, sizeof sin) < 0) {
-	sprintf(Errmsg, "error during connect: %s", get_errmsg());
-	close(s);
-	return(NOTOK);
-    }
-
-#ifdef KPOP
-#ifdef KRB4
-    /* Get tgt creds from ticket file. This is used to calculate the
-     * lifetime for the pop ticket so that it expires with the
-     * tgt */
-    rem = krb_get_cred("krbtgt", krb_realmofhost(hp->h_name), krb_realmofhost(hp->h_name), &cred);
-    if (rem == KSUCCESS) {
-            long lifetime;
-            lifetime = ((cred.issue_date + ((unsigned char)cred.lifetime * 5 * 60)) - time(0)) / (5 * 60);
-            if (lifetime > 0)
-                    krb_set_lifetime(lifetime);
-    }            
-    ticket = (KTEXT)malloc( sizeof(KTEXT_ST) );
-    rem = krb_sendauth(0L, s, ticket, "pop", hp->h_name, (char *)0,
-		       0, (MSG_DAT *) 0, (CREDENTIALS *) 0,
-		       (bit_64 *) 0, (struct sockaddr_in *)0,
-		       (struct sockaddr_in *)0,"ZMAIL0.0");
-    if (rem != KSUCCESS) {
-	(void) sprintf(Errmsg, "kerberos error: %s",krb_err_txt[rem]);
-	(void) close(s);
-	return(NOTOK);
-    }
-#endif /* KRB4 */
-#ifdef KRB5
-    retval = krb5_init_context(&context);
-    if (retval) {
-	    com_err("pop_init", retval, "while initializing krb5");
-	    close(s);
-	    return(NOTOK);
-    }
-    routine = "krb5_cc_default";
-    if ((retval = krb5_cc_default(context, &ccdef))) {
-    krb5error:
-	sprintf(Errmsg, "%s: krb5 error: %s", routine, error_message(retval));
-	close(s);
-	return(NOTOK);
-    }
-    routine = "krb5_cc_get_principal";
-    if ((retval = krb5_cc_get_principal(context, ccdef, &client))) {
-	goto krb5error;
-    }
-
-    routine = "krb5_sname_to_principal";
-    if ((retval = krb5_sname_to_principal(context, hp->h_name, "pop",
-					  KRB5_NT_UNKNOWN, &server))) {
-	goto krb5error;
-    }
-
-    retval = krb5_sendauth(context, &auth_context, (krb5_pointer) &s, 
-			   "KPOPV1.0", client, server,
-			   AP_OPTS_MUTUAL_REQUIRED,
-			   NULL,	/* no data to checksum */
-			   0,		/* no creds, use ccache instead */
-			   ccdef,
-			   &err_ret, 0,
-			   NULL);	/* don't need reply */
-    krb5_free_principal(context, server);
-    if (retval) {
-	if (err_ret && err_ret->text.length) {
-	    sprintf(Errmsg, "krb5 error: %s [server says '%*s'] ",
-		    error_message(retval),
-		    err_ret->text.length,
-		    err_ret->text.data);
-	    krb5_free_error(context, err_ret);
-	} else
-	    sprintf(Errmsg, "krb5_sendauth: krb5 error: %s", error_message(retval));
-	close(s);
-	return(NOTOK);
-    }
-#endif /* KRB5 */
-#endif /* KPOP */
-
-    sfi = fdopen(s, "r");
-    sfo = fdopen(s, "w");
-    if (sfi == NULL || sfo == NULL) {
-	sprintf(Errmsg, "error in fdopen: %s", get_errmsg());
-	close(s);
-	return(NOTOK);
-    }
-
-    if (getline(response, sizeof response, sfi) != OK) {
-	error(response);
-	return(NOTOK);
-    }
-    if (pop_debug)
-      fprintf(stderr, "<--- %s\n", response);
-
-    return(OK);
-}
-
-int pop_command(fmt, a, b, c, d)
-char *fmt;
-char *a, *b, *c, *d;
-{
-    char buf[1024];
-
-    sprintf(buf, fmt, a, b, c, d);
-
-    if (pop_debug) fprintf(stderr, "---> %s\n", buf);
-    if (putline(buf, Errmsg, sfo) == NOTOK) return(NOTOK);
-
-    if (getline(buf, sizeof buf, sfi) != OK) {
-	strcpy(Errmsg, buf);
-	return(NOTOK);
-    }
-
-    if (pop_debug) fprintf(stderr, "<--- %s\n", buf);
-    if (*buf != '+') {
-	strcpy(Errmsg, buf);
-	return(NOTOK);
-    } else {
-	return(OK);
-    }
-}
-
-int pop_query(nbytes, user)
-     int *nbytes;
-     char *user;
-{
-    char buf[1024];
-
-    if (strlen(user) > 120) {
-	if (pop_debug) fprintf(stderr, "username %s too long\n", user);
-	return NOTOK;
-    }
-    
-    sprintf(buf, "QUERY %s", user);    
-    if (pop_debug) fprintf(stderr, "---> %s\n", buf);
-    if (putline(buf, Errmsg, sfo) == NOTOK) return (NOTOK);
-
-    if (getline(buf, sizeof buf, sfi) != OK) {
-	strcpy(Errmsg, buf);
-	return NOTOK;
-    }
-
-    if (pop_debug) fprintf(stderr, "<--- %s\n", buf);
-    if (*buf != '+') {
-	strcpy(Errmsg, buf);
-	return NOTOK;
-    } else {
-	sscanf(buf, "+OK %d", nbytes);
-	return OK;
-    }
-}
-    
-int pop_stat(nmsgs, nbytes)
-int *nmsgs, *nbytes;
-{
-    char buf[1024];
-
-    if (pop_debug) fprintf(stderr, "---> STAT\n");
-    if (putline("STAT", Errmsg, sfo) == NOTOK) return(NOTOK);
-
-    if (getline(buf, sizeof buf, sfi) != OK) {
-	strcpy(Errmsg, buf);
-	return(NOTOK);
-    }
-
-    if (pop_debug) fprintf(stderr, "<--- %s\n", buf);
-    if (*buf != '+') {
-	strcpy(Errmsg, buf);
-	return(NOTOK);
-    } else {
-	sscanf(buf, "+OK %d %d", nmsgs, nbytes);
-	return(OK);
-    }
-}
-
-int pop_retr(msgno, action, arg)
-int msgno;
-int (*action)();
-char *arg;			/* is this always FILE*??? -- XXX */
-{
-    char buf[1024];
-    int nbytes = 0;
-    
-    sprintf(buf, "RETR %d", msgno);
-
-    if (pop_debug)
-      fprintf(stderr, "---> %s\n", buf);
-
-    if (putline(buf, Errmsg, sfo) == NOTOK) return(NOTOK);
-
-    if (getline(buf, sizeof buf, sfi) != OK) {
-	strcpy(Errmsg, buf);
-	return(NOTOK);
-    }
-    if (pop_debug)
-      fprintf(stderr, "<--- %s\n", buf);
-
-    sscanf(buf, "+OK %d", &nbytes);
-
-    while (1) {
-	switch (multiline(buf, sizeof buf, sfi)) {
-	case OK:
-            if ((*action)(buf, arg, nbytes) < 0) {
-                strcat(Errmsg, get_errmsg());
-                return (DONE);	/* Some error occured in action */
-            }
-	    break;
-	case DONE:
-	    return (OK);
-	case NOTOK:
-	    strcpy(Errmsg, buf);
-	    return (NOTOK);
-	}
-    }
-}
-
-int pop_getline(buf, n)
-     char *buf;
-     int n;
-{
-    return getline(buf, n, sfi);
-}
-
-int getline(buf, n, f)
-char *buf;
-register int n;
-FILE *f;
-{
-    register char *p;
-    int c;
-
-    p = buf;
-    while (--n > 0 && (c = fgetc(f)) != EOF)
-      if ((*p++ = c) == '\n') break;
-
-    if (ferror(f)) {
-	strcpy(buf, "error on connection");
-	return (NOTOK);
-    }
-
-    if (c == EOF && p == buf) {
-	strcpy(buf, "connection closed by foreign host");
-	return (DONE);
-    }
-
-    *p = '\0';
-    if (*--p == '\n') *p = '\0';
-    if (*--p == '\r') *p = '\0';
-    return(OK);
-}
-
-int multiline(buf, n, f)
-char *buf;
-register int n;
-FILE *f;
-{
-    if (getline(buf, n, f) != OK) return (NOTOK);
-    if (*buf == '.') {
-	if (*(buf+1) == '\0') {
-	    return (DONE);
-	} else {
-	    strcpy(buf, buf+1);
-	}
-    }
-    return(OK);
-}
-
-#ifndef HAS_STRERROR
-char *
-strerror(e)
-    int e;
-{
-    extern int errno, sys_nerr;
-    extern char *sys_errlist[];
-
-    if (errno < sys_nerr)
-      return sys_errlist[errno];
-    else
-      return "unknown error";
-}
-#endif
-
-char *
-get_errmsg()
-{
-    char *s = strerror(errno);
-    
-    return(s);
-}
-
-int putline(buf, err, f)
-char *buf;
-char *err;
-FILE *f;
-{
-    fprintf(f, "%s\r\n", buf);
-    fflush(f);
-    if (ferror(f)) {
-	strcpy(err, "lost connection");
-	return(NOTOK);
-    }
-    return(OK);
-}
-
-
-/* Print error message and exit.  */
-
-void fatal (s1, s2)
-     char *s1, *s2;
-{
-  error (s1, s2);
-  exit (1);
-}
-
-/* Print error message.  `s1' is printf control string, `s2' is arg for it. */
-
-void error (s1, s2, s3)
-     char *s1, *s2, *s3;
-{
-  printf ("poplib: ");
-  printf (s1, s2, s3);
-  printf ("\n");
-}
-
-void pfatal_with_name (name)
-     char *name;
-{
-  char *s = concat ("", strerror(errno), " for %s");
-
-  fatal (s, name);
-}
-
-/* Return a newly-allocated string whose contents concatenate those of s1, s2, s3.  */
-
-char *
-concat (s1, s2, s3)
-     char *s1, *s2, *s3;
-{
-  int len1 = strlen (s1), len2 = strlen (s2), len3 = strlen (s3);
-  char *result = (char *) xmalloc (len1 + len2 + len3 + 1);
-
-  strcpy (result, s1);
-  strcpy (result + len1, s2);
-  strcpy (result + len1 + len2, s3);
-  *(result + len1 + len2 + len3) = 0;
-
-  return result;
-}
-
-/* Like malloc but get fatal error if memory is exhausted.  */
-
-void *
-xmalloc (size)
-     int size;
-{
-  void *result = (void *)malloc (size);
-  if (!result)
-    fatal ("virtual memory exhausted", 0);
-  return result;
-}