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