Slightly more sensible argument parsing for htparser.
[ashd.git] / src / sendfile.c
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>
20 #include <string.h>
21 #include <stdio.h>
22 #include <unistd.h>
23 #include <fcntl.h>
24 #include <errno.h>
25 #include <sys/stat.h>
26 #include <stdint.h>
27 #include <time.h>
28 #include <magic.h>
29
30 #ifdef HAVE_CONFIG_H
31 #include <config.h>
32 #endif
33 #include <utils.h>
34 #include <log.h>
35 #include <resp.h>
36
37 #ifdef HAVE_XATTR
38 #include <attr/xattr.h>
39 #endif
40
41 static magic_t cookie = NULL;
42
43 static void passdata(int in, int out)
44 {
45     int ret, len, off;
46     char *buf;
47     
48     buf = smalloc(65536);
49     while(1) {
50         len = read(in, buf, 65536);
51         if(len < 0) {
52             flog(LOG_ERR, "sendfile: could not read input: %s", strerror(errno));
53             break;
54         }
55         if(len == 0)
56             break;
57         for(off = 0; off < len; off += ret) {
58             ret = write(out, buf + off, len - off);
59             if(ret < 0) {
60                 flog(LOG_ERR, "sendfile: could not write output: %s", strerror(errno));
61                 break;
62             }
63         }
64     }
65     free(buf);
66 }
67
68 static int strrcmp(char *str, char *end)
69 {
70     return(strcmp(str + strlen(str) - strlen(end), end));
71 }
72
73 static char *attrmimetype(char *file)
74 {
75 #ifdef HAVE_XATTR
76     static char buf[1024];
77     int i;
78     ssize_t sz;
79     
80     if((sz = getxattr(file, "user.ash-mime-type", buf, sizeof(buf) - 1)) > 0)
81         goto found;
82     if((sz = getxattr(file, "user.mime-type", buf, sizeof(buf) - 1)) > 0)
83         goto found;
84     if((sz = getxattr(file, "user.mime_type", buf, sizeof(buf) - 1)) > 0)
85         goto found;
86     if((sz = getxattr(file, "user.Content-Type", buf, sizeof(buf) - 1)) > 0)
87         goto found;
88     return(NULL);
89 found:
90     for(i = 0; i < sz; i++) {
91         if((buf[sz] < 32) || (buf[sz] >= 128))
92             return(NULL);
93     }
94     buf[sz] = 0;
95     return(buf);
96 #else
97     return(NULL);
98 #endif
99 }
100
101 static const char *getmimetype(char *file, struct stat *sb)
102 {
103     const char *ret;
104     
105     if((ret = attrmimetype(file)) != NULL)
106         return(ret);
107     if(cookie == NULL) {
108         cookie = magic_open(MAGIC_MIME_TYPE);
109         magic_load(cookie, NULL);
110     }
111     if((ret = magic_file(cookie, file)) != NULL)
112         return(ret);
113     return("application/octet-stream");
114 }
115
116 static void checkcache(char *file, struct stat *sb)
117 {
118     char *hdr;
119     
120     if((hdr = getenv("REQ_IF_MODIFIED_SINCE")) != NULL) {
121         if(parsehttpdate(hdr) < sb->st_mtime)
122             return;
123         printf("HTTP/1.1 304 Not Modified\n");
124         printf("Date: %s\n", fmthttpdate(time(NULL)));
125         printf("Content-Length: 0\n");
126         printf("\n");
127         exit(0);
128     }
129 }
130
131 static void usage(void)
132 {
133     flog(LOG_ERR, "usage: sendfile [-c CONTENT-TYPE] METHOD URL REST");
134 }
135
136 int main(int argc, char **argv)
137 {
138     int c;
139     char *file;
140     struct stat sb;
141     int fd;
142     const char *contype;
143     
144     contype = NULL;
145     while((c = getopt(argc, argv, "c:")) >= 0) {
146         switch(c) {
147         case 'c':
148             contype = optarg;
149             break;
150         default:
151             usage();
152             exit(1);
153             break;
154         }
155     }
156     if(argc - optind < 3) {
157         usage();
158         exit(1);
159     }
160     if((file = getenv("REQ_X_ASH_FILE")) == NULL) {
161         flog(LOG_ERR, "sendfile: needs to be called with the X-Ash-File header");
162         exit(1);
163     }
164     if(*argv[optind + 2]) {
165         simpleerror(1, 404, "Not Found", "The requested URL has no corresponding resource.");
166         exit(0);
167     }
168     if(stat(file, &sb) || ((fd = open(file, O_RDONLY)) < 0)) {
169         flog(LOG_ERR, "sendfile: could not stat input file %s: %s", file, strerror(errno));
170         simpleerror(1, 500, "Internal Error", "The server could not access its own data.");
171         exit(1);
172     }
173     if(contype == NULL)
174         contype = getmimetype(file, &sb);
175     
176     checkcache(file, &sb);
177     
178     printf("HTTP/1.1 200 OK\n");
179     printf("Content-Type: %s\n", contype);
180     printf("Content-Length: %ji\n", (intmax_t)sb.st_size);
181     printf("Last-Modified: %s\n", fmthttpdate(sb.st_mtime));
182     printf("Date: %s\n", fmthttpdate(time(NULL)));
183     printf("\n");
184     fflush(stdout);
185     if(strcasecmp(argv[optind], "head"))
186         passdata(fd, 1);
187     return(0);
188 }