http_blerg.c

   1 #include <stdio.h>
   2 #include <stdlib.h>
   3 #include <string.h>
   4 #include <microhttpd.h>
   5 #include <yajl/yajl_gen.h>
   6 #include "database.h"
   7 #include "tags.h"
   8 #include "auth.h"
   9 #include "config.h"
  10
  11 #define URL_INFO_AUTHOR 0x1
  12 #define URL_INFO_RECORD 0x2
  13 #define DERP "DERP DERP DERP"
  14
  15 struct create_state {
  16         struct MHD_PostProcessor *pp;
  17         char username[33];
  18         char password[33];
  19 };
  20
  21 struct put_state {
  22         struct MHD_PostProcessor *pp;
  23         char *data;
  24         int data_size;
  25 };
  26
  27 struct get_state {
  28         struct blerg *b;
  29         yajl_gen g;
  30         unsigned int yoff;
  31         uint64_t from;
  32         uint64_t to;
  33         int done;
  34 };
  35
  36 struct MHD_Response *response_401;
  37 struct MHD_Response *response_404;
  38 struct MHD_Response *response_405;
  39 struct MHD_Response *response_JSON_Success;
  40 struct MHD_Response *response_JSON_Failure;
  41
  42 void init_responses() {
  43 #define CONTENT_401 "<html><head><title>401 Unauthorized</title></head><body><h1>401 Unauthorized</h1>DENIED</body></html>"
  44         response_401 = MHD_create_response_from_data(strlen (CONTENT_401), CONTENT_401, MHD_NO, MHD_NO);
  45
  46 #define CONTENT_404 "<html><head><title>404 Not Found</title></head><body><h1>404 Not Found</h1>I couldn't find that.</body></html>"
  47         response_404 = MHD_create_response_from_data(strlen(CONTENT_404), CONTENT_404, MHD_NO, MHD_NO);
  48
  49 #define CONTENT_405 "<html><head><title>405 Method Not Allowed</title></head><body><h1>405 Method Not Allowed</h1>I'm sorry, Dave. I'm afraid I can't do that.</body></html>"
  50         response_405 = MHD_create_response_from_data(strlen(CONTENT_405), CONTENT_405, MHD_NO, MHD_NO);
  51
  52 #define JSON_SUCCESS "{status: \"success\"}"
  53         response_JSON_Success = MHD_create_response_from_data(strlen(JSON_SUCCESS), JSON_SUCCESS, MHD_NO, MHD_NO);
  54
  55 #define JSON_FAILURE "{status: \"failure\"}"
  56         response_JSON_Failure = MHD_create_response_from_data(strlen(JSON_FAILURE), JSON_FAILURE, MHD_NO, MHD_NO);
  57 }
  58
  59 #define REALM "Blerg"
  60 #define OPAQUE "d29fb6db8f21a6e99903651a9f87470e"
  61 int respond_401(struct MHD_Connection *connection, int signal_stale) {
  62         return MHD_queue_auth_fail_response(connection, REALM, OPAQUE, response_401, signal_stale);
  63 }
  64
  65 int respond_404(struct MHD_Connection *connection) {
  66         return MHD_queue_response(connection, MHD_HTTP_NOT_FOUND, response_404);
  67 }
  68
  69 int respond_405(struct MHD_Connection *connection) {
  70         return MHD_queue_response(connection, MHD_HTTP_METHOD_NOT_ALLOWED, response_405);
  71 }
  72
  73 int respond_JSON_Success(struct MHD_Connection *connection) {
  74         return MHD_queue_response(connection, MHD_HTTP_OK, response_JSON_Success);
  75 }
  76
  77 int respond_JSON_Failure(struct MHD_Connection *connection) {
  78         return MHD_queue_response(connection, MHD_HTTP_OK, response_JSON_Failure);
  79 }
  80
  81 int parse_url_info(const char *url, char *author, uint64_t *record) {
  82         const char *c;
  83         int ret = 0;
  84         int len;
  85
  86         c = strchr(url, '/');
  87         if (c == NULL) {
  88                 len = strlen(url);
  89         } else {
  90                 len = c - url;
  91         }
  92         if (len == 0)
  93                 return 0;
  94         memcpy(author, url, len);
  95         author[len] = 0;
  96         ret |= URL_INFO_AUTHOR;
  97
  98         if (c != NULL && c[1] != 0) {
  99                 *record = strtoull(c + 1, NULL, 10);
 100                 ret |= URL_INFO_RECORD;
 101         }
 102
 103         return ret;
 104 }
 105
 106 ssize_t GET_generate_list(void *cls, uint64_t pos, char *buf, size_t max) {
 107         struct get_state *gs = cls;
 108         const unsigned char *ybuf;
 109         char *data;
 110         unsigned int len;
 111
 112         if (gs->yoff > 0) {
 113                 yajl_gen_get_buf(gs->g, &ybuf, &len);
 114                 size_t bytes_remaining = len - gs->yoff;
 115                 if (bytes_remaining > max) {
 116                         memcpy(buf, ybuf + gs->yoff, max);
 117                         gs->yoff += max;
 118                         printf("generate list: gave %d bytes\n", max);
 119                         return max;
 120                 } else {
 121                         memcpy(buf, ybuf + gs->yoff, bytes_remaining);
 122                         gs->yoff = 0;
 123                         yajl_gen_clear(gs->g);
 124                         printf("generate list: gave %d bytes\n", bytes_remaining);
 125                         return bytes_remaining;
 126                 }
 127         }
 128
 129         if (gs->done)
 130                 return -1;
 131
 132         if (pos == 0) { /* Start iterating */
 133                 gs->yoff = 0;
 134                 yajl_gen_array_open(gs->g);
 135                 uint64_t record_count = blerg_get_record_count(gs->b);
 136                 if (record_count == 0) {
 137                         gs->from = 1;
 138                         gs->to = 0;
 139                 } else {
 140                         gs->to = record_count - 1;
 141                         gs->from = (record_count > 50 ? gs->to - 49 : 0);
 142                 }
 143         }
 144
 145         if (gs->from > gs->to) { /* Done iterating */
 146                 yajl_gen_array_close(gs->g);
 147                 gs->done = 1;
 148         } else {
 149                 /* Snarf one record */
 150                 blerg_fetch(gs->b, gs->from, &data, &len);
 151                 yajl_gen_string(gs->g, data, len);
 152                 free(data);
 153                 gs->from++;
 154         }
 155
 156
 157         yajl_gen_get_buf(gs->g, &ybuf, &len);
 158         printf("%d bytes in yajl buffer\n", len);
 159         if (len > max) {
 160                 memcpy(buf, ybuf, max);
 161                 gs->yoff = max;
 162                 printf("generate list: gave %d bytes\n", max);
 163                 return max;
 164         } else {
 165                 memcpy(buf, ybuf, len);
 166                 yajl_gen_clear(gs->g);
 167                 printf("generate list: gave %d bytes\n", len);
 168                 return len;
 169         }
 170 }
 171
 172 void GET_generate_list_free(void *cls) {
 173         struct get_state *gs = cls;
 174
 175         blerg_close(gs->b);
 176         yajl_gen_free(gs->g);
 177         free(gs);
 178 }
 179
 180 int POST_create_iterator(void *cls, enum MHD_ValueKind kind, const char *key, const char *filename, const char *content_type, const char *transfer_encoding, const char *data, uint64_t off, size_t size) {
 181         struct create_state *cs = cls;
 182
 183         if (strncmp(key, "username", 9) == 0) {
 184                 if (size > 32) size = 32;
 185                 memcpy(cs->username, data, size);
 186                 cs->username[size] = 0;
 187         } else if (strncmp(key, "password", 9) == 0) {
 188                 if (size > 32) size = 32;
 189                 memcpy(cs->password, data, size);
 190                 cs->password[size] = 0;
 191         }
 192
 193         return MHD_YES;
 194 }
 195
 196 int POST_put_iterator(void *cls, enum MHD_ValueKind kind, const char *key, const char *filename, const char *content_type, const char *transfer_encoding, const char *data, uint64_t off, size_t size) {
 197         struct put_state *ps = cls;
 198
 199         if (strncmp(key, "data", 5) == 0) {
 200                 if (ps->data == NULL) {
 201                         ps->data_size = size;
 202                         ps->data = malloc(size);
 203                 } else {
 204                         if (ps->data_size + size > MAX_RECORD_SIZE) {
 205                                 size = MAX_RECORD_SIZE - ps->data_size;
 206                         }
 207                         ps->data_size += size;
 208                         ps->data = realloc(ps->data, ps->data_size);
 209                 }
 210                 printf("Copying %d bytes, total size %d\n", size, ps->data_size);
 211                 memcpy(ps->data + off, data, size);
 212                 if (ps->data_size == MAX_RECORD_SIZE)
 213                         return MHD_NO;
 214         }
 215
 216         return MHD_YES;
 217 }
 218
 219 static int
 220 ahc_derp (void *cls, struct MHD_Connection *connection, const char *url, const char *method,
 221           const char *version, const char *upload_data, size_t *upload_data_size, void **ptr) {
 222         struct MHD_Response *response;
 223         int ret, len;
 224         char author[33];
 225         uint64_t record;
 226         char *data;
 227
 228         if (strncmp(url, "/get", 4) == 0 && strlen(url) > 4) {
 229                 if (*ptr == NULL) {
 230                         if (strcmp(method, MHD_HTTP_METHOD_GET) != 0)
 231                                 return respond_405(connection);
 232
 233                         *ptr = (void *) 1;
 234                         return MHD_YES;
 235                 }
 236
 237                 if (url[4] != '/')
 238                         return respond_404(connection);
 239
 240                 ret = parse_url_info(url + 5, author, &record);
 241                 if ((ret & URL_INFO_AUTHOR) == 0)
 242                         return respond_404(connection);
 243
 244                 if (!blerg_exists(author))
 245                         return respond_404(connection);
 246
 247                 *ptr == NULL;
 248
 249                 if (ret & URL_INFO_RECORD) {
 250                         struct blerg *b = blerg_open(author);
 251                         ret = blerg_fetch(b, record, &data, &len);
 252                         blerg_close(b);
 253
 254                         if (ret == 0) {
 255                                 return respond_404(connection);
 256                         } else {
 257                                 response = MHD_create_response_from_data(len, data, MHD_YES, MHD_NO);
 258                                 ret = MHD_queue_response(connection, MHD_HTTP_OK, response);
 259                         }
 260                         MHD_destroy_response(response);
 261                         return ret;
 262                 } else {
 263                         yajl_gen_config c;
 264                         c.beautify = 0;
 265
 266                         struct get_state *gs = malloc(sizeof(struct get_state));
 267                         gs->b = blerg_open(author);
 268                         gs->g = yajl_gen_alloc(&c, NULL);
 269                         gs->yoff = 0;
 270                         gs->done = 0;
 271
 272                         response = MHD_create_response_from_callback(-1, 262144, &GET_generate_list, gs, &GET_generate_list_free);
 273                         ret = MHD_queue_response(connection, MHD_HTTP_OK, response);
 274                         MHD_destroy_response(response);
 275
 276                         return ret;
 277                 }
 278         } else if (strncmp(url, "/put", 4) == 0) {
 279                 struct put_state *ps = (struct put_state *) *ptr;
 280                 char *username;
 281                 char password[33];
 282
 283                 if (*ptr == NULL) {
 284                         if (strcmp(method, MHD_HTTP_METHOD_POST) != 0)
 285                                 return respond_405(connection);
 286
 287                         if (url[4] == '/')
 288                                 return respond_404(connection);
 289
 290                         *ptr = (void *) 1;
 291
 292                         username = MHD_digest_auth_get_username(connection);
 293                         if (username == NULL)
 294                                 return respond_401(connection, MHD_NO);
 295                         auth_get_password(username, password);
 296
 297                         ret = MHD_digest_auth_check(connection, REALM, username, password, 300);
 298                         free(username);
 299
 300                         if (ret == MHD_INVALID_NONCE || ret == MHD_NO)
 301                                 return respond_401(connection, (ret == MHD_INVALID_NONCE) ? MHD_YES : MHD_NO);
 302
 303                         struct put_state *ps = malloc(sizeof(struct put_state));
 304                         ps->data = NULL;
 305                         ps->data_size = 0;
 306                         ps->pp = MHD_create_post_processor(connection, 16384, &POST_put_iterator, ps);
 307                         *ptr = ps;
 308                         return MHD_YES;
 309                 }
 310
 311                 if (*upload_data_size) {
 312                         MHD_post_process(ps->pp, upload_data, *upload_data_size);
 313                         *upload_data_size = 0;
 314                         return MHD_YES;
 315                 }
 316
 317                 if (ps->data == NULL || ps->data_size == 0)
 318                         return respond_JSON_Failure(connection);
 319
 320                 username = MHD_digest_auth_get_username(connection);
 321                 struct blerg *b = blerg_open(username);
 322                 if (b == NULL)
 323                         return respond_JSON_Failure(connection);
 324                 if (blerg_store(b, ps->data, ps->data_size) == -1) {
 325                         blerg_close(b);
 326                         return respond_JSON_Failure(connection);
 327                 }
 328                 blerg_close(b);
 329
 330                 MHD_destroy_post_processor(ps->pp);
 331                 free(username);
 332                 free(ps->data);
 333                 free(ps);
 334                 *ptr = NULL;
 335
 336                 return respond_JSON_Success(connection);
 337         } else if (strncmp(url, "/create", 8) == 0) {
 338                 struct create_state *cs = (struct create_state *) *ptr;
 339
 340                 if (cs == NULL) {
 341                         if (strcmp(method, MHD_HTTP_METHOD_POST) != 0)
 342                                 return respond_405(connection);
 343
 344                         struct create_state *cs = malloc(sizeof(struct create_state));
 345                         cs->username[0] = cs->password[0] = 0;
 346                         cs->pp = MHD_create_post_processor(connection, 1024, &POST_create_iterator, cs);
 347                         *ptr = cs;
 348                         return MHD_YES;
 349                 }
 350
 351                 if (*upload_data_size) {
 352                         MHD_post_process(cs->pp, upload_data, *upload_data_size);
 353                         *upload_data_size = 0;
 354                         return MHD_YES;
 355                 }
 356
 357                 if (cs->username[0] == 0 || cs->password[0] == 0)
 358                         return respond_JSON_Failure(connection);
 359
 360                 if (blerg_exists(cs->username))
 361                         return respond_JSON_Failure(connection);
 362
 363                 struct blerg *b = blerg_open(cs->username);
 364                 blerg_close(b);
 365                 auth_set_password(cs->username, cs->password);
 366
 367                 MHD_destroy_post_processor(cs->pp);
 368                 free(cs);
 369                 *ptr = NULL;
 370
 371                 return respond_JSON_Success(connection);
 372         } else {
 373                 return respond_404(connection);
 374         }
 375 }
 376
 377
 378 int main(int argc, char *argv[]) {
 379         struct MHD_Daemon *daemon;
 380         fd_set rs, ws, es;
 381         int max;
 382
 383         init_responses();
 384
 385         daemon = MHD_start_daemon(MHD_USE_DEBUG, 8080, NULL, NULL, &ahc_derp, NULL, MHD_OPTION_END);
 386         if (daemon == NULL) {
 387                 fprintf(stderr, "Could not start web server\n");
 388                 return 1;
 389         }
 390
 391         while (1) {
 392                 FD_ZERO(&rs); FD_ZERO(&ws); FD_ZERO(&es);
 393                 if (MHD_get_fdset(daemon, &rs, &ws, &es, &max) != MHD_YES) {
 394                         fprintf(stderr, "Fatal error getting fd sets\n");
 395                         break;
 396                 }
 397                 select(max + 1, &rs, &ws, &es, NULL);
 398                 MHD_run(daemon);
 399         }
 400         MHD_stop_daemon(daemon);
 401         return 0;
 402 }