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