Commit | Line | Data |
---|---|---|
d422fdfd FT |
1 | /* |
2 | ashd - A Sane HTTP Daemon | |
3 | Copyright (C) 2008 Fredrik Tolf <fredrik@dolda2000.com> | |
4 | ||
5 | This program is free software: you can redistribute it and/or modify | |
6 | it under the terms of the GNU General Public License as published by | |
7 | the Free Software Foundation, either version 3 of the License, or | |
8 | (at your option) any later version. | |
9 | ||
10 | This program is distributed in the hope that it will be useful, | |
11 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
12 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
13 | GNU General Public License for more details. | |
14 | ||
15 | You should have received a copy of the GNU General Public License | |
16 | along with this program. If not, see <http://www.gnu.org/licenses/>. | |
17 | */ | |
18 | ||
19 | #include <stdlib.h> | |
ad1983c4 | 20 | #include <unistd.h> |
d422fdfd FT |
21 | #include <string.h> |
22 | #include <stdio.h> | |
23 | #include <stdarg.h> | |
b4164ce6 FT |
24 | #include <time.h> |
25 | #include <regex.h> | |
d422fdfd FT |
26 | |
27 | #ifdef HAVE_CONFIG_H | |
28 | #include <config.h> | |
29 | #endif | |
30 | #include <utils.h> | |
31 | #include <resp.h> | |
32 | ||
3095582d FT |
33 | static char safechars[128] = { |
34 | /* x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 xa xb xc xd xe xf */ | |
35 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, | |
36 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, | |
37 | 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 1, 1, 1, | |
38 | 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, | |
39 | 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, | |
40 | 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, | |
41 | 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, | |
42 | 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 0, | |
43 | }; | |
44 | ||
45 | char *urlquote(char *text) | |
46 | { | |
47 | static char *ret = NULL; | |
48 | struct charbuf buf; | |
49 | unsigned char c; | |
50 | ||
51 | if(ret != NULL) | |
52 | free(ret); | |
53 | bufinit(buf); | |
54 | for(; *text; text++) { | |
55 | c = *text; | |
56 | if(!c < 128 && safechars[(int)c]) | |
57 | bufadd(buf, *text); | |
58 | else | |
59 | bprintf(&buf, "%%%02X", (int)c); | |
60 | } | |
61 | bufadd(buf, 0); | |
62 | return(ret = buf.b); | |
63 | } | |
64 | ||
d422fdfd FT |
65 | char *htmlquote(char *text) |
66 | { | |
3095582d | 67 | static char *ret = NULL; |
d422fdfd FT |
68 | struct charbuf buf; |
69 | ||
3095582d FT |
70 | if(ret != NULL) |
71 | free(ret); | |
d422fdfd FT |
72 | bufinit(buf); |
73 | for(; *text; text++) { | |
74 | if(*text == '<') | |
75 | bufcatstr(buf, "<"); | |
76 | else if(*text == '>') | |
77 | bufcatstr(buf, ">"); | |
78 | else if(*text == '&') | |
79 | bufcatstr(buf, "&"); | |
3095582d FT |
80 | else if(*text == '\"') |
81 | bufcatstr(buf, """); | |
d422fdfd FT |
82 | else |
83 | bufadd(buf, *text); | |
84 | } | |
85 | bufadd(buf, 0); | |
3095582d | 86 | return(ret = buf.b); |
d422fdfd FT |
87 | } |
88 | ||
89 | void simpleerror(int fd, int code, char *msg, char *fmt, ...) | |
90 | { | |
91 | struct charbuf buf; | |
3095582d | 92 | char *tmp; |
d422fdfd FT |
93 | va_list args; |
94 | FILE *out; | |
95 | ||
96 | va_start(args, fmt); | |
3095582d | 97 | tmp = vsprintf2(fmt, args); |
d422fdfd | 98 | va_end(args); |
d422fdfd FT |
99 | bufinit(buf); |
100 | bufcatstr(buf, "<?xml version=\"1.0\" encoding=\"US-ASCII\"?>\r\n"); | |
101 | bufcatstr(buf, "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\r\n"); | |
102 | bufcatstr(buf, "<html xmlns=\"http://www.w3.org/1999/xhtml\" lang=\"en-US\" xml:lang=\"en-US\">\r\n"); | |
103 | bufcatstr(buf, "<head>\r\n"); | |
104 | bprintf(&buf, "<title>%s</title>\r\n", msg); | |
105 | bufcatstr(buf, "</head>\r\n"); | |
106 | bufcatstr(buf, "<body>\r\n"); | |
107 | bprintf(&buf, "<h1>%s</h1>\r\n", msg); | |
3095582d | 108 | bprintf(&buf, "<p>%s</p>\r\n", htmlquote(tmp)); |
d422fdfd FT |
109 | bufcatstr(buf, "</body>\r\n"); |
110 | bufcatstr(buf, "</html>\r\n"); | |
ad1983c4 | 111 | out = fdopen(dup(fd), "w"); |
81cfca6c FT |
112 | fprintf(out, "HTTP/1.1 %i %s\n", code, msg); |
113 | fprintf(out, "Content-Type: text/html\n"); | |
114 | fprintf(out, "Content-Length: %zi\n", buf.d); | |
115 | fprintf(out, "\n"); | |
d422fdfd FT |
116 | fwrite(buf.b, 1, buf.d, out); |
117 | fclose(out); | |
118 | buffree(buf); | |
119 | } | |
b4164ce6 | 120 | |
46e66302 FT |
121 | void stdredir(struct hthead *req, int fd, int code, char *dst) |
122 | { | |
123 | FILE *out; | |
c35bb77a | 124 | char *sp, *cp, *ep, *qs, *path, *url, *adst, *proto, *host; |
46e66302 FT |
125 | |
126 | sp = strchr(dst, '/'); | |
127 | cp = strchr(dst, ':'); | |
128 | if(cp && (!sp || (cp < sp))) { | |
129 | adst = sstrdup(dst); | |
130 | } else { | |
131 | proto = getheader(req, "X-Ash-Protocol"); | |
132 | host = getheader(req, "Host"); | |
133 | if((proto == NULL) || (host == NULL)) { | |
134 | /* Not compliant, but there isn't a whole lot to be done | |
135 | * about it. */ | |
136 | adst = sstrdup(dst); | |
137 | } else { | |
138 | if(*dst == '/') { | |
2f43c22d | 139 | path = sstrdup(dst + 1); |
46e66302 FT |
140 | } else { |
141 | if((*(url = req->url)) == '/') | |
142 | url++; | |
c35bb77a FT |
143 | if((ep = strchr(url, '?')) == NULL) { |
144 | ep = url + strlen(url); | |
145 | qs = ""; | |
146 | } else { | |
147 | qs = ep; | |
148 | } | |
149 | for(; (ep > url) && (ep[-1] != '/'); ep--); | |
150 | path = sprintf2("%.*s%s%s", ep - url, url, dst, qs); | |
46e66302 FT |
151 | } |
152 | adst = sprintf2("%s://%s/%s", proto, host, path); | |
153 | free(path); | |
154 | } | |
155 | } | |
ad1983c4 | 156 | out = fdopen(dup(fd), "w"); |
46e66302 FT |
157 | fprintf(out, "HTTP/1.1 %i Redirection\n", code); |
158 | fprintf(out, "Content-Length: 0\n"); | |
159 | fprintf(out, "Location: %s\n", adst); | |
160 | fprintf(out, "\n"); | |
161 | fclose(out); | |
162 | free(adst); | |
163 | } | |
164 | ||
b4164ce6 FT |
165 | char *fmthttpdate(time_t time) |
166 | { | |
167 | /* I avoid using strftime, since it depends on locale settings. */ | |
168 | static char *days[] = {"Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun"}; | |
169 | static char *months[] = {"Jan", "Feb", "Mar", "Apr", "May", "Jun", | |
170 | "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"}; | |
171 | struct tm *tm; | |
172 | ||
173 | tm = gmtime(&time); | |
174 | return(sprintf3("%s, %i %s %i %02i:%02i:%02i GMT", days[(tm->tm_wday + 6) % 7], tm->tm_mday, months[tm->tm_mon], tm->tm_year + 1900, tm->tm_hour, tm->tm_min, tm->tm_sec)); | |
175 | } | |
176 | ||
177 | time_t parsehttpdate(char *date) | |
178 | { | |
179 | static regex_t *spec = NULL; | |
180 | static char *months[] = {"Jan", "Feb", "Mar", "Apr", "May", "Jun", | |
181 | "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"}; | |
182 | int i; | |
183 | regmatch_t g[11]; | |
184 | struct tm tm; | |
185 | int tz; | |
186 | ||
187 | int gtoi(regmatch_t g) | |
188 | { | |
189 | int i, n; | |
190 | ||
191 | for(i = g.rm_so, n = 0; i < g.rm_eo; i++) | |
192 | n = (n * 10) + (date[i] - '0'); | |
193 | return(n); | |
194 | } | |
195 | ||
196 | int gstrcmp(regmatch_t g, char *str) { | |
197 | if(g.rm_eo - g.rm_so != strlen(str)) | |
198 | return(1); | |
199 | return(strncasecmp(date + g.rm_so, str, g.rm_eo - g.rm_so)); | |
200 | } | |
201 | ||
202 | if(spec == NULL) { | |
203 | omalloc(spec); | |
204 | if(regcomp(spec, "^[A-Z]{3}, +([0-9]+) +([A-Z]{3}) +([0-9]+) +([0-9]{2}):([0-9]{2}):([0-9]{2}) +(([A-Z]+)|[+-]([0-9]{2})([0-9]{2}))$", REG_EXTENDED | REG_ICASE)) { | |
205 | free(spec); | |
206 | spec = NULL; | |
207 | return(0); | |
208 | } | |
209 | } | |
210 | if(regexec(spec, date, 11, g, 0)) | |
211 | return(0); | |
212 | tm.tm_mday = gtoi(g[1]); | |
213 | tm.tm_year = gtoi(g[3]) - 1900; | |
214 | tm.tm_hour = gtoi(g[4]); | |
215 | tm.tm_min = gtoi(g[5]); | |
216 | tm.tm_sec = gtoi(g[6]); | |
217 | ||
218 | tm.tm_mon = -1; | |
219 | for(i = 0; i < 12; i++) { | |
220 | if(!gstrcmp(g[2], months[i])) { | |
221 | tm.tm_mon = i; | |
222 | break; | |
223 | } | |
224 | } | |
225 | if(tm.tm_mon < 0) | |
226 | return(0); | |
227 | ||
228 | if(g[8].rm_so > 0) { | |
229 | if(!gstrcmp(g[8], "GMT")) | |
230 | tz = 0; | |
231 | else | |
232 | return(0); | |
233 | } else if((g[9].rm_so > 0) && (g[10].rm_so > 0)) { | |
234 | tz = gtoi(g[9]) * 3600 + gtoi(g[10]) * 60; | |
235 | if(date[g[7].rm_so] == '-') | |
236 | tz = -tz; | |
237 | } else { | |
238 | return(0); | |
239 | } | |
240 | ||
241 | return(timegm(&tm) - tz); | |
242 | } |