Fix ordering in perl subscription_list

[blerg.git] / common / app.c

diff --git a/common/app.c b/common/app.c
index 55ec75a..01d5768 100644 (file)
--- a/common/app.c
+++ b/common/app.c
@@ -41,6 +41,34 @@ int parse_url_info(const char *url, struct url_info *info) {
        return info->contents;
 }
 
+int parse_auth_cookie(const char *str, struct auth_cookie *cookie) {
+       if (str == NULL)
+               return 0;
+       if (cookie == NULL)
+               return 0;
+
+       char *token_begin = strchr(str, '/');
+       if (token_begin == NULL) {
+               return 0;
+       }
+       int len = token_begin - str;
+       if (len > MAX_TAG_LENGTH || len == 0) {
+               return 0;
+       }
+       memcpy(cookie->name, str, len);
+       cookie->name[len] = 0;
+
+       token_begin++;
+       len = strlen(token_begin);
+       if (len != TOKEN_SIZE * 2) {
+               return 0;
+       }
+       memcpy(cookie->token, token_begin, TOKEN_SIZE * 2);
+       cookie->token[TOKEN_SIZE * 2] = 0;
+
+       return 1;
+}
+
 uint64_t *make_sequential_list(uint64_t from, uint64_t to) {
        uint64_t len = to - from + 1;
        uint64_t *list = malloc(len * sizeof(uint64_t));