[BACK]Return to cgi.c CVS log [TXT][DIR] Up to [cvsweb.bsd.lv] / mandoc

Diff for /mandoc/cgi.c between version 1.6 and 1.11

version 1.6, 2011/11/23 10:01:04 version 1.11, 2011/12/07 11:52:36
Line 36 
Line 36 
   
 #include "apropos_db.h"  #include "apropos_db.h"
 #include "mandoc.h"  #include "mandoc.h"
   #include "mdoc.h"
   #include "man.h"
   #include "main.h"
 #include "manpath.h"  #include "manpath.h"
   
 #ifdef __linux__  #ifdef __linux__
Line 63  struct req {
Line 66  struct req {
 };  };
   
 static  int              atou(const char *, unsigned *);  static  int              atou(const char *, unsigned *);
   static  void             catman(const char *);
   static  void             format(const char *);
 static  void             html_print(const char *);  static  void             html_print(const char *);
   static  void             html_putchar(char);
 static  int              kval_decode(char *);  static  int              kval_decode(char *);
 static  void             kval_parse(struct kval **, size_t *, char *);  static  void             kval_parse(struct kval **, size_t *, char *);
 static  void             kval_free(struct kval *, size_t);  static  void             kval_free(struct kval *, size_t);
Line 73  static void   pg_search(const struct manpaths *,
Line 79  static void   pg_search(const struct manpaths *,
                                 const struct req *, char *);                                  const struct req *, char *);
 static  void             pg_show(const struct manpaths *,  static  void             pg_show(const struct manpaths *,
                                 const struct req *, char *);                                  const struct req *, char *);
   static  void             resp_bad(void);
 static  void             resp_baddb(void);  static  void             resp_baddb(void);
 static  void             resp_badexpr(const struct req *);  static  void             resp_error400(void);
 static  void             resp_badmanual(void);  static  void             resp_error404(const char *);
 static  void             resp_begin_html(int, const char *);  static  void             resp_begin_html(int, const char *);
 static  void             resp_begin_http(int, const char *);  static  void             resp_begin_http(int, const char *);
 static  void             resp_end_html(void);  static  void             resp_end_html(void);
Line 84  static void   resp_search(struct res *, size_t, void *
Line 91  static void   resp_search(struct res *, size_t, void *
 static  void             resp_searchform(const struct req *);  static  void             resp_searchform(const struct req *);
   
 static  const char       *progname;  static  const char       *progname;
   static  const char       *cache;
 static  const char       *host;  static  const char       *host;
   
 static  const char * const pages[PAGE__MAX] = {  static  const char * const pages[PAGE__MAX] = {
Line 115  atou(const char *buf, unsigned *v)
Line 123  atou(const char *buf, unsigned *v)
         return(1);          return(1);
 }  }
   
   static void
   html_putchar(char c)
   {
   
           switch (c) {
           case ('"'):
                   printf("&quote;");
                   break;
           case ('&'):
                   printf("&");
                   break;
           case ('>'):
                   printf(">");
                   break;
           case ('<'):
                   printf("&lt;");
                   break;
           default:
                   putchar((unsigned char)c);
                   break;
           }
   }
   
 /*  /*
  * Print a word, escaping HTML along the way.   * Print a word, escaping HTML along the way.
  * This will pass non-ASCII straight to output: be warned!   * This will pass non-ASCII straight to output: be warned!
Line 122  atou(const char *buf, unsigned *v)
Line 153  atou(const char *buf, unsigned *v)
 static void  static void
 html_print(const char *p)  html_print(const char *p)
 {  {
         char             c;  
   
         if (NULL == p)          if (NULL == p)
                 return;                  return;
   
         while ('\0' != *p)          while ('\0' != *p)
                 switch ((c = *p++)) {                  html_putchar(*p++);
                 case ('"'):  
                         printf("&quote;");  
                         break;  
                 case ('&'):  
                         printf("&amp;");  
                         break;  
                 case ('>'):  
                         printf("&gt;");  
                         break;  
                 case ('<'):  
                         printf("&lt;");  
                         break;  
                 default:  
                         putchar((unsigned char)c);  
                         break;  
                 }  
 }  }
   
 static void  static void
Line 282  resp_begin_html(int code, const char *msg)
Line 295  resp_begin_html(int code, const char *msg)
              " \"http://www.w3.org/TR/html4/strict.dtd\">"      "\n"               " \"http://www.w3.org/TR/html4/strict.dtd\">"      "\n"
              "<HTML>"                                           "\n"               "<HTML>"                                           "\n"
              " <HEAD>"                                          "\n"               " <HEAD>"                                          "\n"
                "   <META HTTP-EQUIV=\"Content-Type\" "            "\n"
                "         CONTENT=\"text/html; charset=utf-8\">"   "\n"
              "  <TITLE>System Manpage Reference</TITLE>"        "\n"               "  <TITLE>System Manpage Reference</TITLE>"        "\n"
              " </HEAD>"                                         "\n"               " </HEAD>"                                         "\n"
              " <BODY>"                                          "\n"               " <BODY>"                                          "\n"
Line 314  resp_searchform(const struct req *req)
Line 329  resp_searchform(const struct req *req)
         puts("<!-- Begin search form. //-->");          puts("<!-- Begin search form. //-->");
         printf("<FORM ACTION=\"");          printf("<FORM ACTION=\"");
         html_print(progname);          html_print(progname);
         printf("/search\" METHOD=\"get\">\n");          printf("/search.html\" METHOD=\"get\">\n");
         puts(" <FIELDSET>"                                      "\n"          puts(" <FIELDSET>\n"
              "  <INPUT TYPE=\"submit\" VALUE=\"Search:\">");               "  <INPUT TYPE=\"submit\" VALUE=\"Search:\">");
         printf("  Terms: <INPUT TYPE=\"text\" "          printf("  Terms: <INPUT TYPE=\"text\" "
                         "SIZE=\"60\" NAME=\"expr\" VALUE=\"");                          "SIZE=\"60\" NAME=\"expr\" VALUE=\"");
Line 342  resp_index(const struct req *req)
Line 357  resp_index(const struct req *req)
 }  }
   
 static void  static void
 resp_badmanual(void)  resp_error400(void)
 {  {
   
         resp_begin_html(404, "Not Found");          resp_begin_html(400, "Query Malformed");
         puts("<P>Requested manual not found.</P>");          puts("<H1>Malformed Query</H1>\n"
                "<P>\n"
                "  The query your entered was malformed.\n"
                "  Try again from the\n"
                "  <A HREF=\"/index.html\">main page</A>\n"
                "</P>");
         resp_end_html();          resp_end_html();
 }  }
   
 static void  static void
 resp_badexpr(const struct req *req)  resp_error404(const char *page)
 {  {
   
         resp_begin_html(200, NULL);          resp_begin_html(404, "Not Found");
         resp_searchform(req);          puts("<H1>Page Not Found</H1>\n"
         puts("<P>Your search didn't work.</P>");               "<P>\n"
                "  The page you're looking for, ");
           printf("  <B>");
           html_print(page);
           puts("</B>,\n"
                "  could not be found.\n"
                "  Try searching from the\n"
                "  <A HREF=\"/index.html\">main page</A>\n"
                "</P>");
         resp_end_html();          resp_end_html();
 }  }
   
 static void  static void
   resp_bad(void)
   {
           resp_begin_html(500, "Internal Server Error");
           puts("<P>Generic badness happened.</P>");
           resp_end_html();
   }
   
   static void
 resp_baddb(void)  resp_baddb(void)
 {  {
   
Line 387  resp_search(struct res *r, size_t sz, void *arg)
Line 423  resp_search(struct res *r, size_t sz, void *arg)
                 return;                  return;
         }          }
   
         resp_begin_html(200, NULL);          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. //-->");
   
         resp_searchform((const struct req *)arg);          resp_searchform((const struct req *)arg);
   
         if (0 == sz)          if (0 == sz)
Line 421  pg_index(const struct manpaths *ps, const struct req *
Line 471  pg_index(const struct manpaths *ps, const struct req *
 }  }
   
 static void  static void
   catman(const char *file)
   {
           FILE            *f;
           size_t           len;
           int              i;
           char            *p;
           int              italic, bold;
   
           if (NULL == (f = fopen(file, "r"))) {
                   resp_baddb();
                   return;
           }
   
           resp_begin_html(200, NULL);
   
           puts("<PRE>");
           while (NULL != (p = fgetln(f, &len))) {
                   bold = italic = 0;
                   for (i = 0; i < (int)len - 1; i++) {
                           /*
                            * This means that the catpage is out of state.
                            * Ignore it and keep going (although the
                            * catpage is bogus).
                            */
   
                           if ('\b' == p[i] || '\n' == p[i])
                                   continue;
   
                           /*
                            * Print a regular character.
                            * Close out any bold/italic scopes.
                            * If we're in back-space mode, make sure we'll
                            * have something to enter when we backspace.
                            */
   
                           if ('\b' != p[i + 1]) {
                                   if (italic)
                                           printf("</I>");
                                   if (bold)
                                           printf("</B>");
                                   italic = bold = 0;
                                   html_putchar(p[i]);
                                   continue;
                           } else if (i + 2 >= (int)len)
                                   continue;
   
                           /* Italic mode. */
   
                           if ('_' == p[i]) {
                                   if (bold)
                                           printf("</B>");
                                   if ( ! italic)
                                           printf("<I>");
                                   bold = 0;
                                   italic = 1;
                                   i += 2;
                                   html_putchar(p[i]);
                                   continue;
                           }
   
                           /*
                            * Handle funny behaviour troff-isms.
                            * These grok'd from the original man2html.c.
                            */
   
                           if (('+' == p[i] && 'o' == p[i + 2]) ||
                                           ('o' == p[i] && '+' == p[i + 2]) ||
                                           ('|' == p[i] && '=' == p[i + 2]) ||
                                           ('=' == p[i] && '|' == p[i + 2]) ||
                                           ('*' == p[i] && '=' == p[i + 2]) ||
                                           ('=' == p[i] && '*' == p[i + 2]) ||
                                           ('*' == p[i] && '|' == p[i + 2]) ||
                                           ('|' == p[i] && '*' == p[i + 2]))  {
                                   if (italic)
                                           printf("</I>");
                                   if (bold)
                                           printf("</B>");
                                   italic = bold = 0;
                                   putchar('*');
                                   i += 2;
                                   continue;
                           } else if (('|' == p[i] && '-' == p[i + 2]) ||
                                           ('-' == p[i] && '|' == p[i + 1]) ||
                                           ('+' == p[i] && '-' == p[i + 1]) ||
                                           ('-' == p[i] && '+' == p[i + 1]) ||
                                           ('+' == p[i] && '|' == p[i + 1]) ||
                                           ('|' == p[i] && '+' == p[i + 1]))  {
                                   if (italic)
                                           printf("</I>");
                                   if (bold)
                                           printf("</B>");
                                   italic = bold = 0;
                                   putchar('+');
                                   i += 2;
                                   continue;
                           }
   
                           /* Bold mode. */
   
                           if (italic)
                                   printf("</I>");
                           if ( ! bold)
                                   printf("<B>");
                           bold = 1;
                           italic = 0;
                           i += 2;
                           html_putchar(p[i]);
                   }
   
                   /*
                    * Clean up the last character.
                    * We can get to a newline; don't print that.
                    */
   
                   if (italic)
                           printf("</I>");
                   if (bold)
                           printf("</B>");
   
                   if (i == (int)len - 1 && '\n' != p[i])
                           html_putchar(p[i]);
   
                   putchar('\n');
           }
   
           puts("</PRE>\n"
                "</BODY>\n"
                "</HTML>");
   
           fclose(f);
   }
   
   static void
   format(const char *file)
   {
           struct mparse   *mp;
           int              fd;
           struct mdoc     *mdoc;
           struct man      *man;
           void            *vp;
           enum mandoclevel rc;
           char             opts[MAXPATHLEN + 128];
   
           if (-1 == (fd = open(file, O_RDONLY, 0))) {
                   resp_baddb();
                   return;
           }
   
           mp = mparse_alloc(MPARSE_AUTO, MANDOCLEVEL_FATAL, NULL, NULL);
           rc = mparse_readfd(mp, fd, file);
           close(fd);
   
           if (rc >= MANDOCLEVEL_FATAL) {
                   resp_baddb();
                   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);
   
           mparse_result(mp, &mdoc, &man);
           vp = html_alloc(opts);
   
           if (NULL != mdoc) {
                   resp_begin_http(200, NULL);
                   html_mdoc(vp, mdoc);
           } else if (NULL != man) {
                   resp_begin_http(200, NULL);
                   html_man(vp, man);
           } else
                   resp_baddb();
   
           html_free(vp);
           mparse_free(mp);
   }
   
   static void
 pg_show(const struct manpaths *ps, const struct req *req, char *path)  pg_show(const struct manpaths *ps, const struct req *req, char *path)
 {  {
         pid_t            pid;  
         char            *sub;          char            *sub;
         char             file[MAXPATHLEN], cmd[MAXPATHLEN];          char             file[MAXPATHLEN];
           const char      *fn, *cp;
         int              rc;          int              rc;
         unsigned int     vol, rec;          unsigned int     vol, rec;
         DB              *db;          DB              *idx;
         DBT              key, val;          DBT              key, val;
   
         if (NULL == path) {          if (NULL == path) {
                 resp_badmanual();                  resp_error400();
                 return;                  return;
         } else if (NULL == (sub = strrchr(path, '/'))) {          } else if (NULL == (sub = strrchr(path, '/'))) {
                 resp_badmanual();                  resp_error400();
                 return;                  return;
         } else          } else
                 *sub++ = '\0';                  *sub++ = '\0';
   
         if ( ! (atou(path, &vol) && atou(sub, &rec))) {          if ( ! (atou(path, &vol) && atou(sub, &rec))) {
                 resp_badmanual();                  resp_error400();
                 return;                  return;
         } else if (vol >= (unsigned int)ps->sz) {          } else if (vol >= (unsigned int)ps->sz) {
                 resp_badmanual();                  resp_error400();
                 return;                  return;
         }          }
   
Line 453  pg_show(const struct manpaths *ps, const struct req *r
Line 682  pg_show(const struct manpaths *ps, const struct req *r
   
         /* Open the index recno(3) database. */          /* Open the index recno(3) database. */
   
         db = dbopen(file, O_RDONLY, 0, DB_RECNO, NULL);          idx = dbopen(file, O_RDONLY, 0, DB_RECNO, NULL);
         if (NULL == db) {          if (NULL == idx) {
                 resp_baddb();                  resp_baddb();
                 return;                  return;
         }          }
Line 462  pg_show(const struct manpaths *ps, const struct req *r
Line 691  pg_show(const struct manpaths *ps, const struct req *r
         key.data = &rec;          key.data = &rec;
         key.size = 4;          key.size = 4;
   
         if (0 != (rc = (*db->get)(db, &key, &val, 0))) {          if (0 != (rc = (*idx->get)(idx, &key, &val, 0))) {
                 rc < 0 ? resp_baddb() : resp_badmanual();                  rc < 0 ? resp_baddb() : resp_error400();
                 (*db->close)(db);                  goto out;
                 return;  
         }          }
   
         /* Extra filename: the first nil-terminated entry. */          cp = (char *)val.data;
   
         strlcpy(file, ps->paths[vol], MAXPATHLEN);          if (NULL == (fn = memchr(cp, '\0', val.size)))
         strlcat(file, "/", MAXPATHLEN);                  resp_baddb();
         strlcat(file, (char *)val.data, MAXPATHLEN);          else if (++fn - cp >= (int)val.size)
                   resp_baddb();
         (*db->close)(db);          else if (NULL == memchr(fn, '\0', val.size - (fn - cp)))
                   resp_baddb();
         strlcpy(cmd, "man=", MAXPATHLEN);          else {
         strlcat(cmd, progname, MAXPATHLEN);                  strlcpy(file, ps->paths[vol], MAXPATHLEN);
         strlcat(cmd, "/search?expr=%N&sec=%S", MAXPATHLEN);                  strlcat(file, "/", MAXPATHLEN);
                   strlcat(file, fn, MAXPATHLEN);
         /* Get ready to call the child mandoc(1) process. */                  if (0 == strcmp(cp, "cat"))
                           catman(file);
         if (-1 == (pid = fork()))                  else
                 exit(EXIT_FAILURE);                          format(file);
   
         if (pid > 0) {  
                 waitpid(pid, NULL, 0);  
                 return;  
         }          }
   out:
         dup2(STDOUT_FILENO, STDERR_FILENO);          (*idx->close)(idx);
   
         puts("Content-Type: text/html; charset=utf-8\n");  
   
         fflush(stdout);  
   
         execlp("mandoc", "mandoc", "-T",  
                 "html", "-O", cmd, file, (char *)NULL);  
 }  }
   
 static void  static void
Line 563  pg_search(const struct manpaths *ps, const struct req 
Line 780  pg_search(const struct manpaths *ps, const struct req 
         if (0 == rc)          if (0 == rc)
                 resp_baddb();                  resp_baddb();
         else if (-1 == rc)          else if (-1 == rc)
                 resp_badexpr(req);                  resp_search(NULL, 0, (void *)req);
   
         for (i = 0; i < sz; i++)          for (i = 0; i < sz; i++)
                 free(cp[i]);                  free(cp[i]);
Line 586  main(void)
Line 803  main(void)
         if (NULL == progname)          if (NULL == progname)
                 progname = "";                  progname = "";
   
           cache = getenv("CACHE_DIR");
           if (NULL == cache)
                   cache = "/cache/man.cgi";
   
           if (-1 == chdir(cache)) {
                   resp_bad();
                   return(EXIT_FAILURE);
           }
   
         host = getenv("HTTP_HOST");          host = getenv("HTTP_HOST");
         if (NULL == host)          if (NULL == host)
                 host = "localhost";                  host = "localhost";
Line 629  main(void)
Line 855  main(void)
         /* Initialise MANPATH. */          /* Initialise MANPATH. */
   
         memset(&paths, 0, sizeof(struct manpaths));          memset(&paths, 0, sizeof(struct manpaths));
         manpath_parse(&paths, NULL, NULL);          manpath_manconf("etc/catman.conf", &paths);
   
         /* Route pages. */          /* Route pages. */
   
Line 644  main(void)
Line 870  main(void)
                 pg_show(&paths, &req, subpath);                  pg_show(&paths, &req, subpath);
                 break;                  break;
         default:          default:
                   resp_error404(path);
                 break;                  break;
         }          }
   
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.11
CVSweb