Oops - TPI programming is broken in the AVRISP project because the busy-flag check...
[pub/USBasp.git] / Projects / Webserver / Lib / HTTPServerApp.c
1 /*
2 LUFA Library
3 Copyright (C) Dean Camera, 2010.
4
5 dean [at] fourwalledcubicle [dot] com
6 www.fourwalledcubicle.com
7 */
8
9 /*
10 Copyright 2010 Dean Camera (dean [at] fourwalledcubicle [dot] com)
11
12 Permission to use, copy, modify, distribute, and sell this
13 software and its documentation for any purpose is hereby granted
14 without fee, provided that the above copyright notice appear in
15 all copies and that both that the copyright notice and this
16 permission notice and warranty disclaimer appear in supporting
17 documentation, and that the name of the author not be used in
18 advertising or publicity pertaining to distribution of the
19 software without specific, written prior permission.
20
21 The author disclaim all warranties with regard to this
22 software, including all implied warranties of merchantability
23 and fitness. In no event shall the author be liable for any
24 special, indirect or consequential damages or any damages
25 whatsoever resulting from loss of use, data or profits, whether
26 in an action of contract, negligence or other tortious action,
27 arising out of or in connection with the use or performance of
28 this software.
29 */
30
31 /** \file
32 *
33 * Simple HTTP Webserver Application. When connected to the uIP stack,
34 * this will serve out files to HTTP clients.
35 */
36
37 #include "HTTPServerApp.h"
38
39 /** HTTP server response header, for transmission before the page contents. This indicates to the host that a page exists at the
40 * given location, and gives extra connection information.
41 */
42 char PROGMEM HTTP200Header[] = "HTTP/1.1 200 OK\r\n"
43 "Server: LUFA RNDIS\r\n"
44 "Connection: close\r\n"
45 "MIME-version: 1.0\r\n"
46 "Content-Type: ";
47
48 /** HTTP server response header, for transmission before a resource not found error. This indicates to the host that the given
49 * given URL is invalid, and gives extra error information.
50 */
51 char PROGMEM HTTP404Header[] = "HTTP/1.1 404 Not Found\r\n"
52 "Server: LUFA RNDIS\r\n"
53 "Connection: close\r\n"
54 "MIME-version: 1.0\r\n"
55 "Content-Type: text/plain\r\n\r\n"
56 "Error 404: File Not Found";
57
58 /** Default MIME type sent if no other MIME type can be determined */
59 char PROGMEM DefaultMIMEType[] = "text/plain";
60
61 /** List of MIME types for each supported file extension - must be terminated with \ref END_OF_MIME_LIST entry. */
62 MIME_Type_t PROGMEM MIMETypes[] =
63 {
64 {.Extension = "htm", .MIMEType = "text/html"},
65 {.Extension = "jpg", .MIMEType = "image/jpeg"},
66 {.Extension = "gif", .MIMEType = "image/gif"},
67 {.Extension = "bmp", .MIMEType = "image/bmp"},
68 {.Extension = "png", .MIMEType = "image/png"},
69 {.Extension = "exe", .MIMEType = "application/octet-stream"},
70 {.Extension = "gz", .MIMEType = "application/x-gzip"},
71 {.Extension = "ico", .MIMEType = "image/x-icon"},
72 {.Extension = "zip", .MIMEType = "application/zip"},
73 {.Extension = "pdf", .MIMEType = "application/pdf"},
74 };
75
76 /** FAT Fs structure to hold the internal state of the FAT driver for the dataflash contents. */
77 FATFS DiskFATState;
78
79
80 /** Initialization function for the simple HTTP webserver. */
81 void WebserverApp_Init(void)
82 {
83 /* Listen on port 80 for HTTP connections from hosts */
84 uip_listen(HTONS(HTTP_SERVER_PORT));
85
86 /* Mount the dataflash disk via FatFS */
87 f_mount(0, &DiskFATState);
88 }
89
90 /** uIP stack application callback for the simple HTTP webserver. This function must be called each time the
91 * TCP/IP stack needs a TCP packet to be processed.
92 */
93 void WebserverApp_Callback(void)
94 {
95 uip_tcp_appstate_t* const AppState = &uip_conn->appstate;
96 char* AppData = (char*)uip_appdata;
97 uint16_t AppDataSize = 0;
98
99 if (uip_aborted() || uip_timedout())
100 {
101 /* Close the file before terminating, if it is open */
102 f_close(&AppState->FileToSend);
103
104 AppState->CurrentState = WEBSERVER_STATE_Closed;
105
106 return;
107 }
108 else if (uip_closed())
109 {
110 AppState->CurrentState = WEBSERVER_STATE_Closed;
111
112 return;
113 }
114 else if (uip_connected())
115 {
116 /* New connection - initialize connection state and data pointer to the appropriate HTTP header */
117 AppState->CurrentState = WEBSERVER_STATE_OpenRequestedFile;
118 }
119
120 switch (AppState->CurrentState)
121 {
122 case WEBSERVER_STATE_OpenRequestedFile:
123 /* Wait for the packet containing the request header */
124 if (uip_datalen())
125 {
126 /* Must be a GET request, abort otherwise */
127 if (strncmp(AppData, "GET ", (sizeof("GET ") - 1)) != 0)
128 {
129 uip_abort();
130 break;
131 }
132
133 /* Copy over the requested filename from the GET request as all-lowercase */
134 for (uint8_t i = 0; i < (sizeof(AppState->FileName) - 1); i++)
135 {
136 AppState->FileName[i] = tolower(AppData[sizeof("GET ") + i]);
137
138 if (AppState->FileName[i] == ' ')
139 {
140 AppState->FileName[i] = 0x00;
141 break;
142 }
143 }
144
145 /* Ensure requested filename is null-terminated */
146 AppState->FileName[(sizeof(AppState->FileName) - 1)] = 0x00;
147
148 /* If no filename specified, assume the default of index.htm */
149 if (AppState->FileName[0] == 0x00)
150 strcpy(AppState->FileName, "index.htm");
151
152 /* Try to open the file from the Dataflash disk */
153 AppState->FileOpen = (f_open(&AppState->FileToSend, AppState->FileName, FA_OPEN_EXISTING | FA_READ) == FR_OK);
154
155 AppState->CurrentState = WEBSERVER_STATE_SendResponseHeader;
156 }
157
158 break;
159 case WEBSERVER_STATE_SendResponseHeader:
160 /* Determine what HTTP header should be sent to the client */
161 if (AppState->FileOpen)
162 {
163 AppDataSize = strlen_P(HTTP200Header);
164 strncpy_P(AppData, HTTP200Header, AppDataSize);
165 }
166 else
167 {
168 AppDataSize = strlen_P(HTTP404Header);
169 strncpy_P(AppData, HTTP404Header, AppDataSize);
170 }
171
172 uip_send(AppData, AppDataSize);
173
174 AppState->CurrentState = WEBSERVER_STATE_SendMIMETypeHeader;
175 break;
176 case WEBSERVER_STATE_SendMIMETypeHeader:
177 /* File must have been found and opened for MIME header to be sent */
178 if (AppState->FileOpen)
179 {
180 char* Extension = strpbrk(AppState->FileName, ".");
181
182 /* Check to see if a file extension was found for the requested filename */
183 if (Extension != NULL)
184 {
185 /* Look through the MIME type list, copy over the required MIME type if found */
186 for (int i = 0; i < (sizeof(MIMETypes) / sizeof(MIMETypes[0])); i++)
187 {
188 if (strcmp_P(&Extension[1], MIMETypes[i].Extension) == 0)
189 {
190 AppDataSize = strlen_P(MIMETypes[i].MIMEType);
191 strncpy_P(AppData, MIMETypes[i].MIMEType, AppDataSize);
192 break;
193 }
194 }
195 }
196
197 /* Check if a MIME type was found and copied to the output buffer */
198 if (!(AppDataSize))
199 {
200 /* MIME type not found - copy over the default MIME type */
201 AppDataSize = strlen_P(DefaultMIMEType);
202 strncpy_P(AppData, DefaultMIMEType, AppDataSize);
203 }
204
205 /* Add the end-of line terminator and end-of-headers terminator after the MIME type */
206 strncpy(&AppData[AppDataSize], "\r\n\r\n", sizeof("\r\n\r\n"));
207 AppDataSize += (sizeof("\r\n\r\n") - 1);
208
209 uip_send(AppData, AppDataSize);
210 }
211
212 AppState->CurrentState = WEBSERVER_STATE_SendData;
213 break;
214 case WEBSERVER_STATE_SendData:
215 /* If end of file/file not open, progress to the close state */
216 if (!(AppState->FileOpen))
217 {
218 f_close(&AppState->FileToSend);
219 uip_close();
220 AppState->CurrentState = WEBSERVER_STATE_Closed;
221 break;
222 }
223
224 uint16_t MaxSegSize = uip_mss();
225
226 /* Read the next chunk of data from the open file */
227 f_read(&AppState->FileToSend, AppData, MaxSegSize, &AppDataSize);
228 AppState->FileOpen = (MaxSegSize == AppDataSize);
229
230 /* If data was read, send it to the client */
231 if (AppDataSize)
232 uip_send(AppData, AppDataSize);
233
234 break;
235 }
236 }