set a reasonable default for .Os

[mandoc.git] / cgi.c

diff --git a/cgi.c b/cgi.c
index 10f4fe23f237d7f71e390de067cac9344dc20f42..6c82cd939b3d831253ad5633e63612117b6b8859 100644 (file)
--- a/cgi.c
+++ b/cgi.c
@@ -1,6 +1,7 @@
-/*     $Id: cgi.c,v 1.13 2011/12/07 15:12:34 kristaps Exp $ */
+/*     $Id: cgi.c,v 1.56 2014/07/09 11:34:46 schwarze Exp $ */

 /*
 /*

- * Copyright (c) 2011 Kristaps Dzonsons <kristaps@bsd.lv>
+ * Copyright (c) 2011, 2012 Kristaps Dzonsons <kristaps@bsd.lv>
+ * Copyright (c) 2014 Ingo Schwarze <schwarze@usta.de>

  *
  * Permission to use, copy, modify, and distribute this software for any
  * purpose with or without fee is hereby granted, provided that the above
  *
  * Permission to use, copy, modify, and distribute this software for any
  * purpose with or without fee is hereby granted, provided that the above


@@ -18,34 +19,26 @@
 #include "config.h"
 #endif
 
 #include "config.h"
 #endif
 

-#include <sys/param.h>
-#include <sys/wait.h>
-
-#include <assert.h>

 #include <ctype.h>
 #include <ctype.h>

-#include <errno.h>

 #include <fcntl.h>
 #include <limits.h>
 #include <fcntl.h>
 #include <limits.h>

-#include <regex.h>

 #include <stdio.h>
 #include <stdio.h>

-#include <stdarg.h>
-#include <stdint.h>

 #include <stdlib.h>
 #include <string.h>
 #include <unistd.h>
 
 #include <stdlib.h>
 #include <string.h>
 #include <unistd.h>
 

-#include "apropos_db.h"
+#if defined(__sun)
+/* for stat() */
+#include <fcntl.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#endif
+

 #include "mandoc.h"
 #include "mandoc.h"

-#include "mdoc.h"
-#include "man.h"
+#include "mandoc_aux.h"

 #include "main.h"
 #include "manpath.h"
 #include "main.h"
 #include "manpath.h"

-
-#ifdef __linux__
-# include <db_185.h>
-#else
-# include <db.h>
-#endif
+#include "mansearch.h"

 
 enum   page {
        PAGE_INDEX,
 
 enum   page {
        PAGE_INDEX,


@@ -54,31 +47,39 @@ enum        page {
        PAGE__MAX
 };
 
        PAGE__MAX
 };
 

-struct kval {
-       char            *key;
-       char            *val;
+/*
+ * A query as passed to the search function.
+ */
+struct query {
+       const char      *manroot; /* manual root directory */
+       const char      *arch; /* architecture */
+       const char      *sec; /* manual section */
+       const char      *expr; /* unparsed expression string */
+       int              legacy; /* whether legacy mode */

 };
 
 struct req {
 };
 
 struct req {

-       struct kval     *fields;
-       size_t           fieldsz;
+       struct query     q;
+       char            **p; /* array of available manroots */
+       size_t           psz;

        enum page        page;
 };
 
        enum page        page;
 };
 

-static int              atou(const char *, unsigned *);
-static void             catman(const char *);
-static void             format(const char *);
+static void             catman(const struct req *, const char *);
+static int              cmp(const void *, const void *);
+static void             format(const struct req *, const char *);

 static void             html_print(const char *);
 static void             html_print(const char *);

+static void             html_printquery(const struct req *);

 static void             html_putchar(char);
 static void             html_putchar(char);

-static int              kval_decode(char *);
-static void             kval_parse(struct kval **, size_t *, char *);
-static void             kval_free(struct kval *, size_t);
-static void             pg_index(const struct manpaths *,
-                               const struct req *, char *);
-static void             pg_search(const struct manpaths *,
-                               const struct req *, char *);
-static void             pg_show(const struct manpaths *,
-                               const struct req *, char *);
+static int              http_decode(char *);
+static void             http_parse(struct req *, char *);
+static void             http_print(const char *);
+static void             http_putchar(char);
+static void             http_printquery(const struct req *);
+static void             pathgen(struct req *);
+static void             pg_index(const struct req *, char *);
+static void             pg_search(const struct req *, char *);
+static void             pg_show(const struct req *, char *);

 static void             resp_bad(void);
 static void             resp_baddb(void);
 static void             resp_error400(void);
 static void             resp_bad(void);
 static void             resp_baddb(void);
 static void             resp_error400(void);


@@ -87,12 +88,14 @@ static      void             resp_begin_html(int, const char *);
 static void             resp_begin_http(int, const char *);
 static void             resp_end_html(void);
 static void             resp_index(const struct req *);
 static void             resp_begin_http(int, const char *);
 static void             resp_end_html(void);
 static void             resp_index(const struct req *);

-static void             resp_search(struct res *, size_t, void *);
+static void             resp_search(const struct req *,
+                               struct manpage *, size_t);

 static void             resp_searchform(const struct req *);
 
 static void             resp_searchform(const struct req *);
 

-static const char       *progname;
-static const char       *cache;
-static const char       *host;
+static const char       *progname; /* cgi script name */
+static const char       *cache; /* cache directory */
+static const char       *css; /* css directory */
+static const char       *host; /* hostname */

 
 static const char * const pages[PAGE__MAX] = {
        "index", /* PAGE_INDEX */ 
 
 static const char * const pages[PAGE__MAX] = {
        "index", /* PAGE_INDEX */ 


@@ -101,28 +104,9 @@ static     const char * const pages[PAGE__MAX] = {
 };
 
 /*
 };
 
 /*

- * This is just OpenBSD's strtol(3) suggestion.
- * I use it instead of strtonum(3) for portability's sake.
+ * Print a character, escaping HTML along the way.
+ * This will pass non-ASCII straight to output: be warned!

  */
  */

-static int
-atou(const char *buf, unsigned *v)
-{
-       char            *ep;
-       long             lval;
-
-       errno = 0;
-       lval = strtol(buf, &ep, 10);
-       if (buf[0] == '\0' || *ep != '\0')
-               return(0);
-       if ((errno == ERANGE && (lval == LONG_MAX || 
-                                       lval == LONG_MIN)) ||
-                       (lval > UINT_MAX || lval < 0))
-               return(0);
-
-       *v = (unsigned int)lval;
-       return(1);
-}
-

 static void
 html_putchar(char c)
 {
 static void
 html_putchar(char c)
 {


@@ -145,10 +129,64 @@ html_putchar(char c)
                break;
        }
 }
                break;
        }
 }

+static void
+http_printquery(const struct req *req)
+{
+
+       if (NULL != req->q.manroot) {
+               printf("&manpath=");
+               http_print(req->q.manroot);
+       }
+       if (NULL != req->q.sec) {
+               printf("&sec=");
+               http_print(req->q.sec);
+       }
+       if (NULL != req->q.arch) {
+               printf("&arch=");
+               http_print(req->q.arch);
+       }
+       if (NULL != req->q.expr) {
+               printf("&expr=");
+               http_print(req->q.expr ? req->q.expr : "");
+       }
+}
+
+
+static void
+html_printquery(const struct req *req)
+{
+
+       if (NULL != req->q.manroot) {
+               printf("&amp;manpath=");
+               html_print(req->q.manroot);
+       }
+       if (NULL != req->q.sec) {
+               printf("&amp;sec=");
+               html_print(req->q.sec);
+       }
+       if (NULL != req->q.arch) {
+               printf("&amp;arch=");
+               html_print(req->q.arch);
+       }
+       if (NULL != req->q.expr) {
+               printf("&amp;expr=");
+               html_print(req->q.expr ? req->q.expr : "");
+       }
+}
+
+static void
+http_print(const char *p)
+{
+
+       if (NULL == p)
+               return;
+       while ('\0' != *p)
+               http_putchar(*p++);
+}

 
 /*
 
 /*

- * Print a word, escaping HTML along the way.
- * This will pass non-ASCII straight to output: be warned!
+ * Call through to html_putchar().
+ * Accepts NULL strings.

  */
 static void
 html_print(const char *p)
  */
 static void
 html_print(const char *p)


@@ -160,79 +198,86 @@ html_print(const char *p)
                html_putchar(*p++);
 }
 
                html_putchar(*p++);
 }
 

-static void
-kval_free(struct kval *p, size_t sz)
-{
-       int              i;
-
-       for (i = 0; i < (int)sz; i++) {
-               free(p[i].key);
-               free(p[i].val);
-       }
-       free(p);
-}
-

 /*
  * Parse out key-value pairs from an HTTP request variable.
  * This can be either a cookie or a POST/GET string, although man.cgi
  * uses only GET for simplicity.
  */
 static void
 /*
  * Parse out key-value pairs from an HTTP request variable.
  * This can be either a cookie or a POST/GET string, although man.cgi
  * uses only GET for simplicity.
  */
 static void

-kval_parse(struct kval **kv, size_t *kvsz, char *p)
+http_parse(struct req *req, char *p)

 {
        char            *key, *val;
 {
        char            *key, *val;

-       size_t           sz, cur;
+       int              legacy;

 
 

-       cur = 0;
-
-       while (p && '\0' != *p) {
-               while (' ' == *p)
-                       p++;
+       memset(&req->q, 0, sizeof(struct query));
+       req->q.manroot = req->p[0];

 
 

+       legacy = -1;
+       while ('\0' != *p) {

                key = p;
                val = NULL;
 
                key = p;
                val = NULL;
 

-               if (NULL != (p = strchr(p, '='))) {
+               p += (int)strcspn(p, ";&");
+               if ('\0' != *p)

                        *p++ = '\0';
                        *p++ = '\0';

-                       val = p;
-
-                       sz = strcspn(p, ";&");
-                       /* LINTED */
-                       p += sz;
-
-                       if ('\0' != *p)
-                               *p++ = '\0';
-               } else {
-                       p = key;
-                       sz = strcspn(p, ";&");
-                       /* LINTED */
-                       p += sz;
-
-                       if ('\0' != *p)
-                               p++;
-                       continue;
-               }
+               if (NULL != (val = strchr(key, '=')))
+                       *val++ = '\0';

 
 

-               if ('\0' == *key || '\0' == *val)
+               if ('\0' == *key || NULL == val || '\0' == *val)

                        continue;
 
                /* Just abort handling. */
 
                        continue;
 
                /* Just abort handling. */
 

-               if ( ! kval_decode(key))
-                       return;
-               if ( ! kval_decode(val))
-                       return;
+               if ( ! http_decode(key))
+                       break;
+               if (NULL != val && ! http_decode(val))
+                       break;
+
+               if (0 == strcmp(key, "expr"))
+                       req->q.expr = val;
+               else if (0 == strcmp(key, "query"))
+                       req->q.expr = val;
+               else if (0 == strcmp(key, "sec"))
+                       req->q.sec = val;
+               else if (0 == strcmp(key, "sektion"))
+                       req->q.sec = val;
+               else if (0 == strcmp(key, "arch"))
+                       req->q.arch = val;
+               else if (0 == strcmp(key, "manpath"))
+                       req->q.manroot = val;
+               else if (0 == strcmp(key, "apropos"))
+                       legacy = 0 == strcmp(val, "0");
+       }

 
 

-               if (*kvsz + 1 >= cur) {
-                       cur++;
-                       *kv = mandoc_realloc
-                               (*kv, cur * sizeof(struct kval));
-               }
+       /* Test for old man.cgi compatibility mode. */

 
 

-               (*kv)[(int)*kvsz].key = mandoc_strdup(key);
-               (*kv)[(int)*kvsz].val = mandoc_strdup(val);
-               (*kvsz)++;
+       req->q.legacy = legacy > 0;
+
+       /* 
+        * Section "0" means no section when in legacy mode.
+        * For some man.cgi scripts, "default" arch is none.
+        */
+
+       if (req->q.legacy && NULL != req->q.sec)
+               if (0 == strcmp(req->q.sec, "0"))
+                       req->q.sec = NULL;
+       if (req->q.legacy && NULL != req->q.arch)
+               if (0 == strcmp(req->q.arch, "default"))
+                       req->q.arch = NULL;
+}
+
+static void
+http_putchar(char c)
+{
+
+       if (isalnum((unsigned char)c)) {
+               putchar((unsigned char)c);
+               return;
+       } else if (' ' == c) {
+               putchar('+');
+               return;

        }
        }

+       printf("%%%.2x", c);

 }
 
 /*
 }
 
 /*


@@ -241,7 +286,7 @@ kval_parse(struct kval **kv, size_t *kvsz, char *p)
  * over the allocated string.
  */
 static int
  * over the allocated string.
  */
 static int

-kval_decode(char *p)
+http_decode(char *p)

 {
        char             hex[3];
        int              c;
 {
        char             hex[3];
        int              c;


@@ -276,9 +321,9 @@ resp_begin_http(int code, const char *msg)
        if (200 != code)
                printf("Status: %d %s\n", code, msg);
 
        if (200 != code)
                printf("Status: %d %s\n", code, msg);
 

-       puts("Content-Type: text/html; charset=utf-8"           "\n"
-            "Cache-Control: no-cache"                          "\n"
-            "Pragma: no-cache"                                 "\n"
+       puts("Content-Type: text/html; charset=utf-8\n"
+            "Cache-Control: no-cache\n"
+            "Pragma: no-cache\n"

             "");
 
        fflush(stdout);
             "");
 
        fflush(stdout);


@@ -290,76 +335,76 @@ resp_begin_html(int code, const char *msg)
 
        resp_begin_http(code, msg);
 
 
        resp_begin_http(code, msg);
 

-       puts("<!DOCTYPE HTML PUBLIC "                           "\n"
-            " \"-//W3C//DTD HTML 4.01//EN\""                   "\n"
-            " \"http://www.w3.org/TR/html4/strict.dtd\">"      "\n"
-            "<HTML>"                                           "\n"
-            " <HEAD>"                                          "\n"
-            "   <META HTTP-EQUIV=\"Content-Type\" "            "\n"
-            "         CONTENT=\"text/html; charset=utf-8\">"   "\n"
-            "  <LINK REL=\"stylesheet\" HREF=\"/man.cgi.css\"" "\n"
-            "        TYPE=\"text/css\" media=\"all\">"         "\n"
-            "  <TITLE>System Manpage Reference</TITLE>"        "\n"
-            " </HEAD>"                                         "\n"
-            " <BODY>"                                          "\n"
-            "<!-- Begin page content. //-->");
+       printf("<!DOCTYPE HTML PUBLIC "
+              " \"-//W3C//DTD HTML 4.01//EN\""
+              " \"http://www.w3.org/TR/html4/strict.dtd\">\n"
+              "<HTML>\n"
+              "<HEAD>\n"
+              "<META HTTP-EQUIV=\"Content-Type\""
+              " CONTENT=\"text/html; charset=utf-8\">\n"
+              "<LINK REL=\"stylesheet\" HREF=\"%s/man-cgi.css\""
+              " TYPE=\"text/css\" media=\"all\">\n"
+              "<LINK REL=\"stylesheet\" HREF=\"%s/man.css\""
+              " TYPE=\"text/css\" media=\"all\">\n"
+              "<TITLE>System Manpage Reference</TITLE>\n"
+              "</HEAD>\n"
+              "<BODY>\n"
+              "<!-- Begin page content. //-->\n", css, css);

 }
 
 static void
 resp_end_html(void)
 {
 
 }
 
 static void
 resp_end_html(void)
 {
 

-       puts(" </BODY>\n</HTML>");
+       puts("</BODY>\n"
+            "</HTML>");

 }
 
 static void
 resp_searchform(const struct req *req)
 {
 }
 
 static void
 resp_searchform(const struct req *req)
 {

-       int              i;
-       const char      *expr, *sec, *arch;
-
-       expr = sec = arch = "";
-
-       for (i = 0; i < (int)req->fieldsz; i++)
-               if (0 == strcmp(req->fields[i].key, "expr"))
-                       expr = req->fields[i].val;
-               else if (0 == strcmp(req->fields[i].key, "query"))
-                       expr = req->fields[i].val;
-               else if (0 == strcmp(req->fields[i].key, "sec"))
-                       sec = req->fields[i].val;
-               else if (0 == strcmp(req->fields[i].key, "sektion"))
-                       sec = req->fields[i].val;
-               else if (0 == strcmp(req->fields[i].key, "arch"))
-                       arch = req->fields[i].val;
-
-       if (NULL != sec && 0 == strcmp(sec, "0"))
-               sec = NULL;
+       int              i;

 
        puts("<!-- Begin search form. //-->");
 
        puts("<!-- Begin search form. //-->");

-       printf("<FORM ACTION=\"");
-       html_print(progname);
-       printf("/search.html\" METHOD=\"get\">\n");
-       puts("<FIELDSET>\n"
-            "<INPUT TYPE=\"submit\" NAME=\"op\" "
-             "VALUE=\"Whatis\"> or \n"
-            "<INPUT TYPE=\"submit\" NAME=\"op\" "
-             "VALUE=\"apropos\"> for manuals satisfying \n"
-            "<INPUT TYPE=\"text\" SIZE=\"40\" "
-             "NAME=\"expr\" VALUE=\"");
-       html_print(expr);
-       puts("\">, section "
-            "<INPUT TYPE=\"text\" "
-             "SIZE=\"4\" NAME=\"sec\" VALUE=\"");
-       html_print(sec);
-       puts("\">, arch "
-            "<INPUT TYPE=\"text\" "
-             "SIZE=\"8\" NAME=\"arch\" VALUE=\"");
-       html_print(arch);
-       puts("\">.\n"
+       printf("<DIV ID=\"mancgi\">\n"
+              "<FORM ACTION=\"%s/search\" METHOD=\"get\">\n"
+              "<FIELDSET>\n"
+              "<LEGEND>Search Parameters</LEGEND>\n"
+              "<INPUT TYPE=\"submit\" "
+              " VALUE=\"Search\"> for manuals satisfying \n"
+              "<INPUT TYPE=\"text\" NAME=\"expr\" VALUE=\"",
+              progname);
+       html_print(req->q.expr ? req->q.expr : "");
+       printf("\">, section "
+              "<INPUT TYPE=\"text\""
+              " SIZE=\"4\" NAME=\"sec\" VALUE=\"");
+       html_print(req->q.sec ? req->q.sec : "");
+       printf("\">, arch "
+              "<INPUT TYPE=\"text\""
+              " SIZE=\"8\" NAME=\"arch\" VALUE=\"");
+       html_print(req->q.arch ? req->q.arch : "");
+       printf("\">");
+       if (req->psz > 1) {
+               puts(", <SELECT NAME=\"manpath\">");
+               for (i = 0; i < (int)req->psz; i++) {
+                       printf("<OPTION ");
+                       if (NULL == req->q.manroot ? 0 == i :
+                           0 == strcmp(req->q.manroot, req->p[i]))
+                               printf("SELECTED=\"selected\" ");
+                       printf("VALUE=\"");
+                       html_print(req->p[i]);
+                       printf("\">");
+                       html_print(req->p[i]);
+                       puts("</OPTION>");
+               }
+               puts("</SELECT>");
+       }
+       puts(".\n"

             "<INPUT TYPE=\"reset\" VALUE=\"Reset\">\n"
             "</FIELDSET>\n"
             "</FORM>\n"
             "<INPUT TYPE=\"reset\" VALUE=\"Reset\">\n"
             "</FIELDSET>\n"
             "</FORM>\n"

-            "<!-- End search form. //-->");
+            "</DIV>");
+       puts("<!-- End search form. //-->");

 }
 
 static void
 }
 
 static void


@@ -378,9 +423,9 @@ resp_error400(void)
        resp_begin_html(400, "Query Malformed");
        printf("<H1>Malformed Query</H1>\n"
               "<P>\n"
        resp_begin_html(400, "Query Malformed");
        printf("<H1>Malformed Query</H1>\n"
               "<P>\n"

-              "  The query your entered was malformed.\n"
-              "  Try again from the\n"
-              "  <A HREF=\"%s/index.html\">main page</A>\n"
+              "The query your entered was malformed.\n"
+              "Try again from the\n"
+              "<A HREF=\"%s/index.html\">main page</A>.\n"

               "</P>", progname);
        resp_end_html();
 }
               "</P>", progname);
        resp_end_html();
 }


@@ -392,13 +437,13 @@ resp_error404(const char *page)
        resp_begin_html(404, "Not Found");
        puts("<H1>Page Not Found</H1>\n"
             "<P>\n"
        resp_begin_html(404, "Not Found");
        puts("<H1>Page Not Found</H1>\n"
             "<P>\n"

-            "  The page you're looking for, ");
-       printf("  <B>");
+            "The page you're looking for, ");
+       printf("<B>");

        html_print(page);
        printf("</B>,\n"
        html_print(page);
        printf("</B>,\n"

-              "  could not be found.\n"
-              "  Try searching from the\n"
-              "  <A HREF=\"%s/index.html\">main page</A>\n"
+              "could not be found.\n"
+              "Try searching from the\n"
+              "<A HREF=\"%s/index.html\">main page</A>.\n"

               "</P>", progname);
        resp_end_html();
 }
               "</P>", progname);
        resp_end_html();
 }


@@ -421,9 +466,9 @@ resp_baddb(void)
 }
 
 static void
 }
 
 static void

-resp_search(struct res *r, size_t sz, void *arg)
+resp_search(const struct req *req, struct manpage *r, size_t sz)

 {
 {

-       int              i;
+       size_t           i;

 
        if (1 == sz) {
                /*
 
        if (1 == sz) {
                /*


@@ -431,48 +476,63 @@ resp_search(struct res *r, size_t sz, void *arg)
                 * without any delay.
                 */
                puts("Status: 303 See Other");
                 * without any delay.
                 */
                puts("Status: 303 See Other");

-               printf("Location: http://%s%s/show/%u/%u.html\n",
-                               host, progname,
-                               r[0].volume, r[0].rec);
-               puts("Content-Type: text/html; charset=utf-8\n");
+               printf("Location: http://%s%s/show/%s/%s?",
+                   host, progname, req->q.manroot, r[0].file);
+               http_printquery(req);
+               puts("\n"
+                    "Content-Type: text/html; charset=utf-8\n");

                return;
        }
 
        resp_begin_html(200, NULL);
                return;
        }
 
        resp_begin_html(200, NULL);

-       resp_searchform((const struct req *)arg);
-
-       if (0 == sz)
-               puts("<P>No results found.</P>");
-
-       for (i = 0; i < (int)sz; i++) {
-               printf("<P><A HREF=\"");
-               html_print(progname);
-               printf("/show/%u/%u.html\">", r[i].volume, r[i].rec);
-               html_print(r[i].title);
-               putchar('(');
-               html_print(r[i].cat);
-               if (r[i].arch && '\0' != *r[i].arch) {
-                       putchar('/');
-                       html_print(r[i].arch);
-               }
-               printf(")</A> ");
-               html_print(r[i].desc);
-               puts("</P>");
+       resp_searchform(req);
+
+       puts("<DIV CLASS=\"results\">");
+
+       if (0 == sz) {
+               puts("<P>\n"
+                    "No results found.\n"
+                    "</P>\n"
+                    "</DIV>");
+               resp_end_html();
+               return;
+       }
+
+       qsort(r, sz, sizeof(struct manpage), cmp);
+
+       puts("<TABLE>");
+
+       for (i = 0; i < sz; i++) {
+               printf("<TR>\n"
+                      "<TD CLASS=\"title\">\n"
+                      "<A HREF=\"%s/show/%s/%s?", 
+                   progname, req->q.manroot, r[i].file);
+               html_printquery(req);
+               printf("\">");
+               html_print(r[i].names);
+               printf("</A>\n"
+                      "</TD>\n"
+                      "<TD CLASS=\"desc\">");
+               html_print(r[i].output);
+               puts("</TD>\n"
+                    "</TR>");

        }
 
        }
 

+       puts("</TABLE>\n"
+            "</DIV>");

        resp_end_html();
 }
 
 /* ARGSUSED */
 static void
        resp_end_html();
 }
 
 /* ARGSUSED */
 static void

-pg_index(const struct manpaths *ps, const struct req *req, char *path)
+pg_index(const struct req *req, char *path)

 {
 
        resp_index(req);
 }
 
 static void
 {
 
        resp_index(req);
 }
 
 static void

-catman(const char *file)
+catman(const struct req *req, const char *file)

 {
        FILE            *f;
        size_t           len;
 {
        FILE            *f;
        size_t           len;


@@ -485,22 +545,11 @@ catman(const char *file)
                return;
        }
 
                return;
        }
 

-       resp_begin_http(200, NULL);
-       puts("<!DOCTYPE HTML PUBLIC "                           "\n"
-            " \"-//W3C//DTD HTML 4.01//EN\""                   "\n"
-            " \"http://www.w3.org/TR/html4/strict.dtd\">"      "\n"
-            "<HTML>"                                           "\n"
-            " <HEAD>"                                          "\n"
-            "  <META HTTP-EQUIV=\"Content-Type\" "             "\n"
-            "        CONTENT=\"text/html; charset=utf-8\">"    "\n"
-            "  <LINK REL=\"stylesheet\" HREF=\"/catman.css\""  "\n"
-            "        TYPE=\"text/css\" media=\"all\">"         "\n"
-            "  <TITLE>System Manpage Reference</TITLE>"        "\n"
-            " </HEAD>"                                         "\n"
-            " <BODY>"                                          "\n"
-            "<!-- Begin page content. //-->");
-
-       puts("<PRE>");
+       resp_begin_html(200, NULL);
+       resp_searchform(req);
+       puts("<DIV CLASS=\"catman\">\n"
+            "<PRE>");
+

        while (NULL != (p = fgetln(f, &len))) {
                bold = italic = 0;
                for (i = 0; i < (int)len - 1; i++) {
        while (NULL != (p = fgetln(f, &len))) {
                bold = italic = 0;
                for (i = 0; i < (int)len - 1; i++) {


@@ -611,6 +660,7 @@ catman(const char *file)
        }
 
        puts("</PRE>\n"
        }
 
        puts("</PRE>\n"

+            "</DIV>\n"

             "</BODY>\n"
             "</HTML>");
 
             "</BODY>\n"
             "</HTML>");
 


@@ -618,7 +668,7 @@ catman(const char *file)
 }
 
 static void
 }
 
 static void

-format(const char *file)
+format(const struct req *req, const char *file)

 {
        struct mparse   *mp;
        int              fd;
 {
        struct mparse   *mp;
        int              fd;


@@ -626,14 +676,15 @@ format(const char *file)
        struct man      *man;
        void            *vp;
        enum mandoclevel rc;
        struct man      *man;
        void            *vp;
        enum mandoclevel rc;

-       char             opts[MAXPATHLEN + 128];
+       char             opts[PATH_MAX + 128];

 
        if (-1 == (fd = open(file, O_RDONLY, 0))) {
                resp_baddb();
                return;
        }
 
 
        if (-1 == (fd = open(file, O_RDONLY, 0))) {
                resp_baddb();
                return;
        }
 

-       mp = mparse_alloc(MPARSE_AUTO, MANDOCLEVEL_FATAL, NULL, NULL);
+       mp = mparse_alloc(MPARSE_SO, MANDOCLEVEL_FATAL, NULL,
+           req->q.manroot);

        rc = mparse_readfd(mp, fd, file);
        close(fd);
 
        rc = mparse_readfd(mp, fd, file);
        close(fd);
 


@@ -642,145 +693,108 @@ format(const char *file)
                return;
        }
 
                return;
        }
 

-       snprintf(opts, sizeof(opts), "style=/man.css,"
-                       "man=%s/search.html?sec=%%S&expr=%%N,"
-                       /*"includes=/cgi-bin/man.cgi/usr/include/%%I"*/,
-                       progname);
+       snprintf(opts, sizeof(opts),
+           "fragment,man=%s/search?sec=%%S&expr=Nm~^%%N$",
+           progname);
+
+       mparse_result(mp, &mdoc, &man, NULL);
+       if (NULL == man && NULL == mdoc) {
+               resp_baddb();
+               mparse_free(mp);
+               return;
+       }
+
+       resp_begin_html(200, NULL);
+       resp_searchform(req);

 
 

-       mparse_result(mp, &mdoc, &man);

        vp = html_alloc(opts);
 
        vp = html_alloc(opts);
 

-       if (NULL != mdoc) {
-               resp_begin_http(200, NULL);
+       if (NULL != mdoc)

                html_mdoc(vp, mdoc);
                html_mdoc(vp, mdoc);

-       } else if (NULL != man) {
-               resp_begin_http(200, NULL);
+       else

                html_man(vp, man);
                html_man(vp, man);

-       } else
-               resp_baddb();
+
+       puts("</BODY>\n"
+            "</HTML>");

 
        html_free(vp);
        mparse_free(mp);
 }
 
 static void
 
        html_free(vp);
        mparse_free(mp);
 }
 
 static void

-pg_show(const struct manpaths *ps, const struct req *req, char *path)
+pg_show(const struct req *req, char *path)

 {
        char            *sub;
 {
        char            *sub;

-       char             file[MAXPATHLEN];
-       const char      *fn, *cp;
-       int              rc;
-       unsigned int     vol, rec;
-       DB              *idx;
-       DBT              key, val;
-
-       if (NULL == path) {
-               resp_error400();
-               return;
-       } else if (NULL == (sub = strrchr(path, '/'))) {
-               resp_error400();
-               return;
-       } else
-               *sub++ = '\0';

 
 

-       if ( ! (atou(path, &vol) && atou(sub, &rec))) {
+       if (NULL == path || NULL == (sub = strchr(path, '/'))) {

                resp_error400();
                return;
                resp_error400();
                return;

-       } else if (vol >= (unsigned int)ps->sz) {
-               resp_error400();
-               return;
-       }
-
-       strlcpy(file, ps->paths[vol], MAXPATHLEN);
-       strlcat(file, "/mandoc.index", MAXPATHLEN);
+       } 
+       *sub++ = '\0';

 
 

-       /* Open the index recno(3) database. */
+       /*
+        * Begin by chdir()ing into the manroot.
+        * This way we can pick up the database files, which are
+        * relative to the manpath root.
+        */

 
 

-       idx = dbopen(file, O_RDONLY, 0, DB_RECNO, NULL);
-       if (NULL == idx) {
+       if (-1 == chdir(path)) {
+               perror(path);

                resp_baddb();
                return;
        }
 
                resp_baddb();
                return;
        }
 

-       key.data = &rec;
-       key.size = 4;
+       if ('c' == *sub)
+               catman(req, sub);
+       else
+               format(req, sub);
+}

 
 

-       if (0 != (rc = (*idx->get)(idx, &key, &val, 0))) {
-               rc < 0 ? resp_baddb() : resp_error400();
-               goto out;
-       } 
+static void
+pg_search(const struct req *req, char *path)
+{
+       struct mansearch          search;
+       struct manpaths           paths;
+       struct manpage           *res;
+       char                    **cp;
+       const char               *ep, *start;
+       size_t                    ressz;
+       int                       i, sz;

 
 

-       cp = (char *)val.data;
+       /*
+        * Begin by chdir()ing into the root of the manpath.
+        * This way we can pick up the database files, which are
+        * relative to the manpath root.
+        */

 
 

-       if (NULL == (fn = memchr(cp, '\0', val.size)))
-               resp_baddb();
-       else if (++fn - cp >= (int)val.size)
-               resp_baddb();
-       else if (NULL == memchr(fn, '\0', val.size - (fn - cp)))
-               resp_baddb();
-       else {
-               strlcpy(file, ps->paths[vol], MAXPATHLEN);
-               strlcat(file, "/", MAXPATHLEN);
-               strlcat(file, fn, MAXPATHLEN);
-               if (0 == strcmp(cp, "cat"))
-                       catman(file);
-               else
-                       format(file);
+       if (-1 == (chdir(req->q.manroot))) {
+               perror(req->q.manroot);
+               resp_search(req, NULL, 0);
+               return;

        }
        }

-out:
-       (*idx->close)(idx);
-}

 
 

-static void
-pg_search(const struct manpaths *ps, const struct req *req, char *path)
-{
-       size_t            tt;
-       int               i, sz, rc, whatis;
-       const char       *ep, *start;
-       char            **cp;
-       struct opts       opt;
-       struct expr      *expr;
-
-       expr = NULL;
-       cp = NULL;
-       ep = NULL;
-       sz = 0;
-       whatis = 0;
-
-       memset(&opt, 0, sizeof(struct opts));
-
-       for (sz = i = 0; i < (int)req->fieldsz; i++)
-               if (0 == strcmp(req->fields[i].key, "expr"))
-                       ep = req->fields[i].val;
-               else if (0 == strcmp(req->fields[i].key, "query"))
-                       ep = req->fields[i].val;
-               else if (0 == strcmp(req->fields[i].key, "sec"))
-                       opt.cat = req->fields[i].val;
-               else if (0 == strcmp(req->fields[i].key, "sektion"))
-                       opt.cat = req->fields[i].val;
-               else if (0 == strcmp(req->fields[i].key, "arch"))
-                       opt.arch = req->fields[i].val;
-               else if (0 == strcmp(req->fields[i].key, "apropos"))
-                       whatis = 0 == strcmp
-                               (req->fields[i].val, "0");
-               else if (0 == strcmp(req->fields[i].key, "op"))
-                       whatis = 0 == strcasecmp
-                               (req->fields[i].val, "whatis");
-
-       if (NULL != opt.cat && 0 == strcmp(opt.cat, "0"))
-               opt.cat = NULL;
+       search.arch = req->q.arch;
+       search.sec = req->q.sec;
+       search.deftype = TYPE_Nm | TYPE_Nd;
+       search.flags = 0;
+
+       paths.sz = 1;
+       paths.paths = mandoc_malloc(sizeof(char *));
+       paths.paths[0] = mandoc_strdup(".");

 
        /*
 
        /*

-        * Poor man's tokenisation.
-        * Just break apart by spaces.
+        * Poor man's tokenisation: just break apart by spaces.

         * Yes, this is half-ass.  But it works for now.
         */
 
         * Yes, this is half-ass.  But it works for now.
         */
 

+       ep = req->q.expr;

        while (ep && isspace((unsigned char)*ep))
                ep++;
 
        while (ep && isspace((unsigned char)*ep))
                ep++;
 

+       sz = 0;
+       cp = NULL;

        while (ep && '\0' != *ep) {
        while (ep && '\0' != *ep) {

-               cp = mandoc_realloc(cp, (sz + 1) * sizeof(char *));
+               cp = mandoc_reallocarray(cp, sz + 1, sizeof(char *));

                start = ep;
                while ('\0' != *ep && ! isspace((unsigned char)*ep))
                        ep++;
                start = ep;
                while ('\0' != *ep && ! isspace((unsigned char)*ep))
                        ep++;


@@ -791,33 +805,24 @@ pg_search(const struct manpaths *ps, const struct req *req, char *path)
                        ep++;
        }
 
                        ep++;
        }
 

-       rc = -1;
-
-       /*
-        * Pump down into apropos backend.
-        * The resp_search() function is called with the results.
-        */
-
-       expr = whatis ? termcomp(sz, cp, &tt) :
-                       exprcomp(sz, cp, &tt);
-
-       if (NULL != expr)
-               rc = apropos_search
-                       (ps->sz, ps->paths, &opt,
-                        expr, tt, (void *)req, resp_search);
-
-       /* ...unless errors occured. */
-
-       if (0 == rc)
+       if (mansearch(&search, &paths, sz, cp, "Nd", &res, &ressz))
+               resp_search(req, res, ressz);
+       else

                resp_baddb();
                resp_baddb();

-       else if (-1 == rc)
-               resp_search(NULL, 0, (void *)req);

 
        for (i = 0; i < sz; i++)
                free(cp[i]);
 
        for (i = 0; i < sz; i++)
                free(cp[i]);

-

        free(cp);
        free(cp);

-       exprfree(expr);
+
+       for (i = 0; i < (int)ressz; i++) {
+               free(res[i].file);
+               free(res[i].names);
+               free(res[i].output);
+       }
+       free(res);
+
+       free(paths.paths[0]);
+       free(paths.paths);

 }
 
 int
 }
 
 int


@@ -826,33 +831,47 @@ main(void)
        int              i;
        struct req       req;
        char            *p, *path, *subpath;
        int              i;
        struct req       req;
        char            *p, *path, *subpath;

-       struct manpaths  paths;

 
 

-       /* HTTP init: read and parse the query string. */
+       /* Scan our run-time environment. */

 
 

-       progname = getenv("SCRIPT_NAME");
-       if (NULL == progname)
+       if (NULL == (cache = getenv("CACHE_DIR")))
+               cache = "/cache/man.cgi";
+
+       if (NULL == (progname = getenv("SCRIPT_NAME")))

                progname = "";
 
                progname = "";
 

-       cache = getenv("CACHE_DIR");
-       if (NULL == cache)
-               cache = "/cache/man.cgi";
+       if (NULL == (css = getenv("CSS_DIR")))
+               css = "";
+
+       if (NULL == (host = getenv("HTTP_HOST")))
+               host = "localhost";
+
+       /*
+        * First we change directory into the cache directory so that
+        * subsequent scanning for manpath directories is rooted
+        * relative to the same position.
+        */

 
        if (-1 == chdir(cache)) {
 
        if (-1 == chdir(cache)) {

+               perror(cache);

                resp_bad();
                return(EXIT_FAILURE);
                resp_bad();
                return(EXIT_FAILURE);

-       }
-
-       host = getenv("HTTP_HOST");
-       if (NULL == host)
-               host = "localhost";
+       } 

 
        memset(&req, 0, sizeof(struct req));
 
        memset(&req, 0, sizeof(struct req));

+       pathgen(&req);
+
+       /* Next parse out the query string. */

 
        if (NULL != (p = getenv("QUERY_STRING")))
 
        if (NULL != (p = getenv("QUERY_STRING")))

-               kval_parse(&req.fields, &req.fieldsz, p);
+               http_parse(&req, p);

 
 

-       /* Resolve leading subpath component. */
+       /*
+        * Now juggle paths to extract information.
+        * We want to extract our filetype (the file suffix), the
+        * initial path component, then the trailing component(s).
+        * Start with leading subpath component. 
+        */

 
        subpath = path = NULL;
        req.page = PAGE__MAX;
 
        subpath = path = NULL;
        req.page = PAGE__MAX;


@@ -863,12 +882,6 @@ main(void)
        if (NULL != path && '/' == *path && '\0' == *++path)
                req.page = PAGE_INDEX;
 
        if (NULL != path && '/' == *path && '\0' == *++path)
                req.page = PAGE_INDEX;
 

-       /* Strip file suffix. */
-
-       if (NULL != path && NULL != (p = strrchr(path, '.')))
-               if (NULL != p && NULL == strchr(p, '/'))
-                       *p++ = '\0';
-

        /* Resolve subpath component. */
 
        if (NULL != path && NULL != (subpath = strchr(path, '/')))
        /* Resolve subpath component. */
 
        if (NULL != path && NULL != (subpath = strchr(path, '/')))


@@ -883,30 +896,55 @@ main(void)
                                break;
                        }
 
                                break;
                        }
 

-       /* Initialise MANPATH. */
-
-       memset(&paths, 0, sizeof(struct manpaths));
-       manpath_manconf("etc/catman.conf", &paths);
-

        /* Route pages. */
 
        switch (req.page) {
        case (PAGE_INDEX):
        /* Route pages. */
 
        switch (req.page) {
        case (PAGE_INDEX):

-               pg_index(&paths, &req, subpath);
+               pg_index(&req, subpath);

                break;
        case (PAGE_SEARCH):
                break;
        case (PAGE_SEARCH):

-               pg_search(&paths, &req, subpath);
+               pg_search(&req, subpath);

                break;
        case (PAGE_SHOW):
                break;
        case (PAGE_SHOW):

-               pg_show(&paths, &req, subpath);
+               pg_show(&req, subpath);

                break;
        default:
                resp_error404(path);
                break;
        }
 
                break;
        default:
                resp_error404(path);
                break;
        }
 

-       manpath_free(&paths);
-       kval_free(req.fields, req.fieldsz);
-
+       for (i = 0; i < (int)req.psz; i++)
+               free(req.p[i]);
+       free(req.p);

        return(EXIT_SUCCESS);
 }
        return(EXIT_SUCCESS);
 }

+
+static int
+cmp(const void *p1, const void *p2)
+{
+
+       return(strcasecmp(((const struct manpage *)p1)->names,
+           ((const struct manpage *)p2)->names));
+}
+
+/*
+ * Scan for indexable paths.
+ */
+static void
+pathgen(struct req *req)
+{
+       FILE    *fp;
+       char    *dp;
+       size_t   dpsz;
+
+       if (NULL == (fp = fopen("manpath.conf", "r")))
+               return;
+
+       while (NULL != (dp = fgetln(fp, &dpsz))) {
+               if ('\n' == dp[dpsz - 1])
+                       dpsz--;
+               req->p = mandoc_realloc(req->p,
+                   (req->psz + 1) * sizeof(char *));
+               req->p[req->psz++] = mandoc_strndup(dp, dpsz);
+       }
+}