libexec/httpd/dir-index-bozo.c

   1 /*      $NetBSD: dir-index-bozo.c,v 1.21 2015/08/27 17:12:18 mrg Exp $  */
   2
   3 /*      $eterna: dir-index-bozo.c,v 1.20 2011/11/18 09:21:15 mrg Exp $  */
   4
   5 /*
   6  * Copyright (c) 1997-2014 Matthew R. Green
   7  * All rights reserved.
   8  *
   9  * Redistribution and use in source and binary forms, with or without
  10  * modification, are permitted provided that the following conditions
  11  * are met:
  12  * 1. Redistributions of source code must retain the above copyright
  13  *    notice, this list of conditions and the following disclaimer.
  14  * 2. Redistributions in binary form must reproduce the above copyright
  15  *    notice, this list of conditions and the following disclaimer and
  16  *    dedication in the documentation and/or other materials provided
  17  *    with the distribution.
  18  *
  19  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
  20  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
  21  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
  22  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
  23  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
  24  * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
  25  * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
  26  * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
  27  * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  28  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  29  * SUCH DAMAGE.
  30  *
  31  */
  32
  33 /* this code implements directory index generation for bozohttpd */
  34
  35 #ifndef NO_DIRINDEX_SUPPORT
  36
  37 #include <sys/param.h>
  38
  39 #include <dirent.h>
  40 #include <errno.h>
  41 #include <string.h>
  42 #include <stdlib.h>
  43 #include <time.h>
  44 #include <assert.h>
  45
  46 #include "bozohttpd.h"
  47
  48 static void
  49 directory_hr(bozohttpd_t *httpd)
  50 {
  51
  52         bozo_printf(httpd,
  53                 "<hr noshade align=\"left\" width=\"80%%\">\r\n\r\n");
  54 }
  55
  56 /*
  57  * output a directory index.  return 1 if it actually did something..
  58  */
  59 int
  60 bozo_dir_index(bozo_httpreq_t *request, const char *dirpath, int isindex)
  61 {
  62         bozohttpd_t *httpd = request->hr_httpd;
  63         struct stat sb;
  64         struct dirent **de, **deo;
  65         struct tm *tm;
  66         DIR *dp;
  67         char buf[MAXPATHLEN];
  68         char spacebuf[48];
  69         char *file = NULL;
  70         int l, k, j, i;
  71
  72         if (!isindex || !httpd->dir_indexing)
  73                 return 0;
  74
  75         if (strlen(dirpath) <= strlen(httpd->index_html))
  76                 dirpath = ".";
  77         else {
  78                 file = bozostrdup(httpd, dirpath);
  79
  80                 file[strlen(file) - strlen(httpd->index_html)] = '\0';
  81                 dirpath = file;
  82         }
  83         debug((httpd, DEBUG_FAT, "bozo_dir_index: dirpath ``%s''", dirpath));
  84         if (stat(dirpath, &sb) < 0 ||
  85             (dp = opendir(dirpath)) == NULL) {
  86                 if (errno == EPERM)
  87                         (void)bozo_http_error(httpd, 403, request,
  88                             "no permission to open directory");
  89                 else if (errno == ENOENT)
  90                         (void)bozo_http_error(httpd, 404, request, "no file");
  91                 else
  92                         (void)bozo_http_error(httpd, 500, request,
  93                                         "open directory");
  94                 goto done;
  95                 /* NOTREACHED */
  96         }
  97
  98         bozo_printf(httpd, "%s 200 OK\r\n", request->hr_proto);
  99
 100         if (request->hr_proto != httpd->consts.http_09) {
 101                 bozo_print_header(request, NULL, "text/html", "");
 102                 bozo_printf(httpd, "\r\n");
 103         }
 104         bozo_flush(httpd, stdout);
 105
 106         if (request->hr_method == HTTP_HEAD) {
 107                 closedir(dp);
 108                 goto done;
 109         }
 110
 111         bozo_printf(httpd,
 112                 "<html><head><title>Index of %s</title></head>\r\n",
 113                 request->hr_file);
 114         bozo_printf(httpd, "<body><h1>Index of %s</h1>\r\n",
 115                 request->hr_file);
 116         bozo_printf(httpd, "<pre>\r\n");
 117 #define NAMELEN 40
 118 #define LMODLEN 19
 119         bozo_printf(httpd, "Name                                     "
 120             "Last modified          "
 121             "Size\n");
 122         bozo_printf(httpd, "</pre>");
 123         directory_hr(httpd);
 124         bozo_printf(httpd, "<pre>");
 125
 126         for (j = k = scandir(dirpath, &de, NULL, alphasort), deo = de;
 127             j--; de++) {
 128                 int nostat = 0;
 129                 char *name = (*de)->d_name;
 130                 char *urlname, *htmlname;
 131
 132                 if (strcmp(name, ".") == 0 ||
 133                     (strcmp(name, "..") != 0 &&
 134                      httpd->hide_dots && name[0] == '.'))
 135                         continue;
 136
 137                 snprintf(buf, sizeof buf, "%s/%s", dirpath, name);
 138                 if (stat(buf, &sb))
 139                         nostat = 1;
 140
 141                 l = 0;
 142
 143                 urlname = bozo_escape_rfc3986(httpd, name);
 144                 htmlname = bozo_escape_html(httpd, name);
 145                 if (htmlname == NULL)
 146                         htmlname = name;
 147                 if (strcmp(name, "..") == 0) {
 148                         bozo_printf(httpd, "<a href=\"../\">");
 149                         l += bozo_printf(httpd, "Parent Directory");
 150                 } else if (S_ISDIR(sb.st_mode)) {
 151                         bozo_printf(httpd, "<a href=\"%s/\">", urlname);
 152                         l += bozo_printf(httpd, "%s/", htmlname);
 153                 } else if (strchr(name, ':') != NULL) {
 154                         /* RFC 3986 4.2 */
 155                         bozo_printf(httpd, "<a href=\"./%s\">", urlname);
 156                         l += bozo_printf(httpd, "%s", htmlname);
 157                 } else {
 158                         bozo_printf(httpd, "<a href=\"%s\">", urlname);
 159                         l += bozo_printf(httpd, "%s", htmlname);
 160                 }
 161                 if (htmlname != name)
 162                         free(htmlname);
 163                 bozo_printf(httpd, "</a>");
 164
 165                 /* NAMELEN spaces */
 166                 /*LINTED*/
 167                 assert(/*CONSTCOND*/sizeof(spacebuf) > NAMELEN);
 168                 i = (l < NAMELEN) ? (NAMELEN - l) : 0;
 169                 i++;
 170                 memset(spacebuf, ' ', (size_t)i);
 171                 spacebuf[i] = '\0';
 172                 bozo_printf(httpd, "%s", spacebuf);
 173                 l += i;
 174
 175                 if (nostat)
 176                         bozo_printf(httpd, "?                         ?");
 177                 else {
 178                         tm = gmtime(&sb.st_mtime);
 179                         strftime(buf, sizeof buf, "%d-%b-%Y %R", tm);
 180                         l += bozo_printf(httpd, "%s", buf);
 181
 182                         /* LMODLEN spaces */
 183                         /*LINTED*/
 184                         assert(/*CONSTCOND*/sizeof(spacebuf) > LMODLEN);
 185                         i = (l < (LMODLEN+NAMELEN+1)) ?
 186                                 ((LMODLEN+NAMELEN+1) - l) : 0;
 187                         i++;
 188                         memset(spacebuf, ' ', (size_t)i);
 189                         spacebuf[i] = '\0';
 190                         bozo_printf(httpd, "%s", spacebuf);
 191
 192                         bozo_printf(httpd, "%12llukB",
 193                                     (unsigned long long)sb.st_size >> 10);
 194                 }
 195                 bozo_printf(httpd, "\r\n");
 196         }
 197
 198         closedir(dp);
 199         while (k--)
 200                 free(deo[k]);
 201         free(deo);
 202         bozo_printf(httpd, "</pre>");
 203         directory_hr(httpd);
 204         bozo_printf(httpd, "</body></html>\r\n\r\n");
 205         bozo_flush(httpd, stdout);
 206
 207 done:
 208         free(file);
 209         return 1;
 210 }
 211 #endif /* NO_DIRINDEX_SUPPORT */
 212