Initial revision

git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@171 ec53bebd-3082-4978-b11e-865c3cabbd6b

appl/popper/pop_xtnd.c

@@ -0,0 +1,38 @@
+/*
+ * 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_xtnd.c	2.1  2.1 3/18/91";
+#endif not lint
+
+#include <stdio.h>
+#include <sys/types.h>
+#include "popper.h"
+
+/* 
+ *  xtnd:   Handle extensions to the POP protocol suite
+ */
+
+extern  xtnd_table  *   pop_get_subcommand();
+
+int pop_xtnd (p)
+POP     *   p;
+{
+    xtnd_table  *   x;
+
+    /*  Convert the XTND subcommand to lower case */
+    pop_lower(p->pop_subcommand);
+
+    /*  Search for the subcommand in the XTND command table */
+    if ((x = pop_get_subcommand(p)) == NULL) return(POP_FAILURE);
+
+    /*  Call the function associated with this subcommand */
+    if (x->function) return((*x->function)(p));
+
+    /*  Otherwise assume NOOP */
+    return (pop_msg(p,POP_SUCCESS,NULL));
+}