git.sur5r.net Git - openocd/blob - src/server/httpd.c

   1 /***************************************************************************\r
   2  *   Copyright (C) 2007,2008 Øyvind Harboe                                 *\r
   3  *   oyvind.harboe@zylin.com                                               *\r
   4  *                                                                         *\r
   5  *   Copyright (C) 2008 Free Software Foundation\r
   6  *                                                                         *\r
   7  *   This program is free software; you can redistribute it and/or modify  *\r
   8  *   it under the terms of the GNU General Public License as published by  *\r
   9  *   the Free Software Foundation; either version 2 of the License, or     *\r
  10  *   (at your option) any later version.                                   *\r
  11  *                                                                         *\r
  12  *   This program is distributed in the hope that it will be useful,       *\r
  13  *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *\r
  14  *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *\r
  15  *   GNU General Public License for more details.                          *\r
  16  *                                                                         *\r
  17  *   You should have received a copy of the GNU General Public License     *\r
  18  *   along with this program; if not, write to the                         *\r
  19  *   Free Software Foundation, Inc.,                                       *\r
  20  *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *\r
  21  ***************************************************************************/\r
  22 \r
  23 /* some bits were copied from ahttpd which is under eCos license and\r
  24  * copyright to FSF\r
  25  */\r
  26 #ifdef HAVE_CONFIG_H\r
  27 #include "config.h"\r
  28 #endif\r
  29 \r
  30 #include "replacements.h"\r
  31 \r
  32 #include "server.h"\r
  33 \r
  34 #include "log.h"\r
  35 #include "telnet_server.h"\r
  36 #include "target.h"\r
  37 \r
  38 #include <command.h>\r
  39 #include <string.h>\r
  40 #include <stdlib.h>\r
  41 #include <errno.h>\r
  42 #include <unistd.h>\r
  43 #include <sys/types.h>\r
  44 #include <fcntl.h>\r
  45 #include <signal.h>\r
  46 \r
  47 #include <sys/types.h>\r
  48 #include <sys/select.h>\r
  49 #include <sys/socket.h>\r
  50 #include <microhttpd.h>\r
  51 #include <stdlib.h>\r
  52 #include <string.h>\r
  53 #include <stdio.h>\r
  54 \r
  55 #define PAGE_NOT_FOUND "<html><head><title>File not found</title></head><body>File not found</body></html>"\r
  56 \r
  57 static const char *appendf(const *prev, const char *format, ...)\r
  58 {\r
  59         va_list ap;\r
  60         va_start(ap, format);\r
  61         char *string = alloc_vprintf(format, ap);\r
  62         va_end(ap);\r
  63         char *string2 = NULL;\r
  64 \r
  65         if (string != NULL)\r
  66         {\r
  67                 string2 = alloc_printf("%s%s", (prev == NULL) ? "" : prev, string);\r
  68         }\r
  69 \r
  70         if (prev != NULL)\r
  71         {\r
  72                 free(prev);\r
  73         }\r
  74 \r
  75         if (string == NULL)\r
  76                 free(string);\r
  77 \r
  78         return string2;\r
  79 }\r
  80 \r
  81 static const char *httpd_exec_cgi_tcl_error(Jim_Interp *interp)\r
  82 {\r
  83         int len, i;\r
  84 \r
  85         const char *t = NULL;\r
  86         t = appendf(t, "<html><body>\n");\r
  87 \r
  88         t = appendf(t, "Runtime error, file \"%s\", line %d:<br>",\r
  89                         interp->errorFileName, interp->errorLine);\r
  90         t = appendf(t, "    %s<br>", Jim_GetString(interp->result, NULL));\r
  91         Jim_ListLength(interp, interp->stackTrace, &len);\r
  92         for (i = 0; i < len; i += 3)\r
  93         {\r
  94                 Jim_Obj *objPtr;\r
  95                 const char *proc, *file, *line;\r
  96 \r
  97                 Jim_ListIndex(interp, interp->stackTrace, i, &objPtr, JIM_NONE);\r
  98                 proc = Jim_GetString(objPtr, NULL);\r
  99                 Jim_ListIndex(interp, interp->stackTrace, i + 1, &objPtr, JIM_NONE);\r
 100                 file = Jim_GetString(objPtr, NULL);\r
 101                 Jim_ListIndex(interp, interp->stackTrace, i + 2, &objPtr, JIM_NONE);\r
 102                 line = Jim_GetString(objPtr, NULL);\r
 103                 t = appendf(t, "In procedure '%s' called at file \"%s\", line %s<br>",\r
 104                                 proc, file, line);\r
 105         }\r
 106         t = appendf(t, "</html></body>\n");\r
 107 \r
 108         return t;\r
 109 }\r
 110 \r
 111 static int httpd_Jim_Command_writeform(Jim_Interp *interp, int argc,\r
 112                 Jim_Obj * const *argv)\r
 113 {\r
 114         if (argc != 3)\r
 115         {\r
 116                 Jim_WrongNumArgs(interp, 1, argv, "method ?args ...?");\r
 117                 return JIM_ERR;\r
 118         }\r
 119         char *name = (char*) Jim_GetString(argv[1], NULL);\r
 120         char *file = (char*) Jim_GetString(argv[2], NULL);\r
 121 \r
 122         // Find length\r
 123         char *data;\r
 124         int actual;\r
 125 \r
 126         int retcode;\r
 127 \r
 128         const char *script = alloc_printf("set dummy_val $httppostdata(%s); set dummy_val",\r
 129                         name);\r
 130         retcode = Jim_Eval_Named(interp, script, "httpd.c", __LINE__ );\r
 131         free((void *) script);\r
 132         if (retcode != JIM_OK)\r
 133                 return retcode;\r
 134 \r
 135         data = Jim_GetString(Jim_GetResult(interp), &actual);\r
 136 \r
 137         FILE *f;\r
 138         f = fopen(file, "wb");\r
 139         if (f != NULL)\r
 140         {\r
 141                 int ok;\r
 142                 ok = fwrite(data, 1, actual, f) == actual;\r
 143                 fclose(f);\r
 144 \r
 145                 if (!ok)\r
 146                 {\r
 147                         Jim_SetResultString(interp, "Could not write to file", -1);\r
 148                         return JIM_ERR;\r
 149                 }\r
 150         }\r
 151         else\r
 152         {\r
 153                 Jim_SetResultString(interp, "Could not create file", -1);\r
 154                 return JIM_ERR;\r
 155         }\r
 156         return JIM_OK;\r
 157 }\r
 158 \r
 159 \r
 160 int\r
 161 httpd_Jim_Command_formfetch(Jim_Interp *interp,\r
 162                                    int argc,\r
 163                                    Jim_Obj *const *argv)\r
 164 {\r
 165     if (argc!=2)\r
 166     {\r
 167         Jim_WrongNumArgs(interp, 1, argv, "method ?args ...?");\r
 168         return JIM_ERR;\r
 169     }\r
 170     char *name = (char*)Jim_GetString(argv[1], NULL);\r
 171 \r
 172 \r
 173     const char *script = alloc_printf("set dummy_val $httppostdata(%s); set dummy_val",\r
 174                         name);\r
 175         int retcode = Jim_Eval_Named(interp, script, "httpd.c", __LINE__ );\r
 176         free((void *) script);\r
 177         if (retcode != JIM_OK)\r
 178         {\r
 179             Jim_SetResult(interp, Jim_NewEmptyStringObj(interp));\r
 180         } else\r
 181         {\r
 182             Jim_SetResult(interp, Jim_GetResult(interp));\r
 183         }\r
 184 \r
 185     return JIM_OK;\r
 186 }\r
 187 \r
 188 struct httpd_request\r
 189 {\r
 190         int post;\r
 191         struct MHD_PostProcessor *postprocessor;\r
 192 \r
 193         //Jim_Obj *dict;\r
 194 \r
 195         int complete; /* did we receive the entire post ? */\r
 196 \r
 197 };\r
 198 \r
 199 static void request_completed(void *cls, struct MHD_Connection *connection,\r
 200                 void **con_cls, enum MHD_RequestTerminationCode toe)\r
 201 {\r
 202         struct httpd_request *r = (struct httpd_request*) *con_cls;\r
 203 \r
 204         if (NULL == r)\r
 205                 return;\r
 206 \r
 207         if (r->postprocessor)\r
 208         {\r
 209                 MHD_destroy_post_processor(r->postprocessor);\r
 210         }\r
 211 \r
 212         free(r);\r
 213         *con_cls = NULL;\r
 214 }\r
 215 \r
 216 /* append to said key in dictonary */\r
 217 static void append_key(struct httpd_request *r, const char *key,\r
 218                 const char *data, size_t off, size_t size)\r
 219 {\r
 220         Jim_Obj *keyObj = Jim_NewStringObj(interp, key, -1);\r
 221         Jim_Obj *value = NULL;\r
 222 \r
 223         Jim_Obj *dict = Jim_GetVariableStr(interp, "httppostdata", 0);\r
 224 \r
 225         if (dict!=NULL)\r
 226         {\r
 227                 if (Jim_DictKey(interp, dict, keyObj, &value, 0) != JIM_OK)\r
 228                 {\r
 229                          value = NULL;\r
 230                 }\r
 231         }\r
 232         if (value == NULL)\r
 233                 value = Jim_NewStringObj(interp, "", -1);\r
 234 \r
 235         /* create a new object we append to and insert into this location */\r
 236         Jim_Obj *newObj = Jim_NewStringObj(interp, "", -1);\r
 237         Jim_AppendObj(interp, newObj, value);\r
 238         Jim_AppendString(interp, newObj, data, size);\r
 239         /* uhh... use name here of dictionary */\r
 240         Jim_SetDictKeysVector(interp, Jim_NewStringObj(interp, "httppostdata", -1), &keyObj, 1, newObj);\r
 241 }\r
 242 \r
 243 /* append data to each key */\r
 244 static int iterate_post(void *con_cls, enum MHD_ValueKind kind,\r
 245                 const char *key, const char *filename, const char *content_type,\r
 246                 const char *transfer_encoding, const char *data, size_t off,\r
 247                 size_t size)\r
 248 {\r
 249         struct httpd_request *r = (struct httpd_request*) con_cls;\r
 250 \r
 251         append_key(r, key, data, off, size);\r
 252 \r
 253         return MHD_YES;\r
 254 }\r
 255 \r
 256 static int record_arg(void *cls, enum MHD_ValueKind kind, const char *key,\r
 257                 const char *value)\r
 258 {\r
 259         struct httpd_request *r = (struct httpd_request*) cls;\r
 260         append_key(r, key, value, 0, strlen(value));\r
 261         return MHD_YES;\r
 262 }\r
 263 \r
 264 static int ahc_echo(void * cls, struct MHD_Connection * connection,\r
 265                 const char * url, const char * method, const char * version,\r
 266                 const char * upload_data, unsigned int * upload_data_size, void ** ptr)\r
 267 {\r
 268         struct MHD_Response * response;\r
 269         int ret;\r
 270 \r
 271         int post = 0;\r
 272 \r
 273         if (0 == strcmp(method, "POST"))\r
 274         {\r
 275                 post = 1;\r
 276         }\r
 277         else if (0 == strcmp(method, "GET"))\r
 278         {\r
 279         }\r
 280         else\r
 281         {\r
 282                 return MHD_NO; /* unexpected method */\r
 283         }\r
 284 \r
 285         struct httpd_request *r;\r
 286         if (*ptr == NULL)\r
 287         {\r
 288                 /* The first time only the headers are valid,\r
 289                  do not respond in the first round... */\r
 290 \r
 291                 *ptr = malloc(sizeof(struct httpd_request));\r
 292                 if (*ptr == NULL)\r
 293                         return MHD_NO;\r
 294                 memset(*ptr, 0, sizeof(struct httpd_request));\r
 295 \r
 296                 r = (struct httpd_request *) *ptr;\r
 297 \r
 298                 r->post = post;\r
 299                 Jim_SetVariableStr(interp, "httppostdata", Jim_NewDictObj(interp, NULL, 0));\r
 300 \r
 301                 /* fill in url query strings in dictonary */\r
 302                 MHD_get_connection_values(connection, MHD_GET_ARGUMENT_KIND,\r
 303                                 record_arg, r);\r
 304 \r
 305                 if (r->post)\r
 306                 {\r
 307                         r->postprocessor = MHD_create_post_processor(connection, 2048\r
 308                                         * 1024, iterate_post, r);\r
 309                 }\r
 310 \r
 311                 return MHD_YES;\r
 312         }\r
 313 \r
 314         r = (struct httpd_request *) *ptr;\r
 315 \r
 316         if (r->post)\r
 317         {\r
 318                 /* consume post data */\r
 319                 if (*upload_data_size)\r
 320                 {\r
 321                         MHD_post_process(r->postprocessor, upload_data, *upload_data_size);\r
 322                         *upload_data_size = 0;\r
 323                         return MHD_YES;\r
 324                 }\r
 325                 else\r
 326                 {\r
 327                 }\r
 328         } else\r
 329         {\r
 330         }\r
 331 \r
 332         /* hand over to request who will be using it. */\r
 333         //      r->dict = NULL;\r
 334 \r
 335 \r
 336         /* FIX!!!! we need more advanced handling of url's to avoid them\r
 337          * being subverted to evil purposes\r
 338          */\r
 339 \r
 340         url++; /* skip '/' */\r
 341 \r
 342         const char *suffix;\r
 343         suffix = strrchr(url, '.');\r
 344         if ((suffix != NULL) && (strcmp(suffix, ".tcl") == 0))\r
 345         {\r
 346                 printf("Run tcl %s\n", url);\r
 347 \r
 348                 int retcode;\r
 349 \r
 350                 const char *script = alloc_printf(\r
 351                                 "global httpdata; source {%s}; set httpdata", url);\r
 352                 retcode = Jim_Eval_Named(interp, script, "httpd.c", __LINE__ );\r
 353                 free((void *) script);\r
 354 \r
 355                 if (retcode == JIM_ERR)\r
 356                 {\r
 357                         printf("Tcl failed\n");\r
 358                         const char *t = httpd_exec_cgi_tcl_error(interp);\r
 359                         if (t == NULL)\r
 360                                 return MHD_NO;\r
 361 \r
 362                         response = MHD_create_response_from_data(strlen(t), (void *) t,\r
 363                                         MHD_YES, MHD_NO);\r
 364                         ret = MHD_queue_response(connection,\r
 365                                         MHD_HTTP_INTERNAL_SERVER_ERROR, response);\r
 366                         MHD_destroy_response(response);\r
 367                         return ret;\r
 368                 }\r
 369                 else\r
 370                 {\r
 371                         printf("Tcl OK\n");\r
 372                         /* FIX!!! how to handle mime types??? */\r
 373                         const char *result;\r
 374                         int reslen;\r
 375                         result = Jim_GetString(Jim_GetResult(interp), &reslen);\r
 376 \r
 377                         response = MHD_create_response_from_data(reslen, (void *) result,\r
 378                                         MHD_NO, MHD_YES);\r
 379                         ret = MHD_queue_response(connection,\r
 380                                         MHD_HTTP_INTERNAL_SERVER_ERROR, response);\r
 381                         MHD_destroy_response(response);\r
 382                         return ret;\r
 383                 }\r
 384         }\r
 385         else\r
 386         {\r
 387                 void *data;\r
 388                 int len;\r
 389 \r
 390                 int retval = loadFile(url, &data, &len);\r
 391                 if (retval != ERROR_OK)\r
 392                 {\r
 393                         printf("Did not find %s\n", url);\r
 394 \r
 395                         response = MHD_create_response_from_data(strlen(PAGE_NOT_FOUND),\r
 396                                         (void *) PAGE_NOT_FOUND, MHD_NO, MHD_NO);\r
 397                         ret = MHD_queue_response(connection, MHD_HTTP_NOT_FOUND, response);\r
 398                         MHD_destroy_response(response);\r
 399                         return ret;\r
 400                 }\r
 401 \r
 402                 printf("Serving %s length=%d\n", url, len);\r
 403                 /* serve file directly */\r
 404                 response = MHD_create_response_from_data(len, data, MHD_YES, MHD_NO);\r
 405                 MHD_add_response_header(response, "Content-Type", "image/png");\r
 406 \r
 407                 ret = MHD_queue_response(connection, MHD_HTTP_OK, response);\r
 408                 MHD_destroy_response(response);\r
 409 \r
 410                 //free(data);\r
 411                 return ret;\r
 412         }\r
 413 }\r
 414 \r
 415 static struct MHD_Daemon * d;\r
 416 \r
 417 int httpd_start(void)\r
 418 {\r
 419 \r
 420         int port = 8888;\r
 421         LOG_USER("Launching httpd server on port %d", port);\r
 422         d = MHD_start_daemon(MHD_USE_SELECT_INTERNALLY, port, NULL, NULL,\r
 423                         &ahc_echo, NULL, /* could be data for handler, but we only have a single handler, use global variables instead */\r
 424                         MHD_OPTION_NOTIFY_COMPLETED, request_completed, NULL, /* Closure... what's that??? */\r
 425                         MHD_OPTION_END);\r
 426         if (d == NULL)\r
 427                 return ERROR_FAIL;\r
 428 \r
 429         Jim_CreateCommand(interp,\r
 430                                                   "formfetch",\r
 431                                                   httpd_Jim_Command_formfetch,\r
 432                                                   NULL,\r
 433                                                   NULL);\r
 434 \r
 435     Jim_CreateCommand(interp,\r
 436                       "writeform",\r
 437                       httpd_Jim_Command_writeform,\r
 438                       NULL,\r
 439                       NULL);\r
 440 \r
 441 \r
 442         return ERROR_OK;\r
 443 }\r
 444 \r
 445 void httpd_stop(void)\r
 446 {\r
 447         MHD_stop_daemon(d);\r
 448 }\r
 449 \r
 450 void openocd_sleep_prelude(void)\r
 451 {\r
 452 }\r
 453 \r
 454 void openocd_sleep_postlude(void)\r
 455 {\r
 456 }\r
 457 \r