/home/mrjunejune/zenbu: hg-web/main.c annotate

annotate hg-web/main.c @ 121:7b1719fa918c

[Seobeo] Added web socket server.

author	June Park <parkjune1995@gmail.com>
date	Thu, 08 Jan 2026 06:45:10 -0800
parents	1c446ab6f945
children	ffb764d2fcc5

rev	line source
104 2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	1 #include "seobeo/seobeo.h"
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	2 #include "dowa/dowa.h"
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	3 #include <stdio.h>
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	4 #include <stdlib.h>
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	5 #include <string.h>
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	6 #include <ctype.h>
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	7 #include <dirent.h>
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	8 #include <sys/stat.h>
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	9 #include <unistd.h>
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	10
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	11 #define MAX_PATH 4096
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	12
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	13 // TODO: Move this to seobeo....
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	14 // Asked AI to create this lol, probably should learn to decode it myself..
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	15 static void url_decode(char dst, const char src)
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	16 {
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	17 char a, b;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	18 while (*src) {
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	19 if ((*src == '%') &&
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	20 ((a = src[1]) && (b = src[2])) &&
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	21 (isxdigit(a) && isxdigit(b))) {
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	22 if (a >= 'a') a -= 'a'-'A';
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	23 if (a >= 'A') a -= ('A' - 10);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	24 else a -= '0';
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	25 if (b >= 'a') b -= 'a'-'A';
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	26 if (b >= 'A') b -= ('A' - 10);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	27 else b -= '0';
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	28 dst++ = 16a+b;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	29 src+=3;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	30 } else if (*src == '+') {
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	31 *dst++ = ' ';
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	32 src++;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	33 } else {
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	34 dst++ = src++;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	35 }
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	36 }
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	37 *dst = '\0';
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	38 }
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	39
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	40 static int is_directory(const char *path)
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	41 {
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	42 struct stat st;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	43 if (stat(path, &st) != 0) return 0;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	44 return S_ISDIR(st.st_mode);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	45 }
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	46
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	47 static int file_exists(const char *path)
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	48 {
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	49 struct stat st;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	50 return stat(path, &st) == 0;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	51 }
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	52
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	53 static char* sanitize_path(const char input_path, Dowa_Arena arena)
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	54 {
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	55 if (!input_path \|\| strlen(input_path) == 0)
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	56 {
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	57 char *empty = Dowa_Arena_Allocate(arena, 1);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	58 empty[0] = '\0';
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	59 return empty;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	60 }
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	61
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	62 size_t len = strlen(input_path);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	63 char *result = Dowa_Arena_Allocate(arena, len + 1);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	64 size_t j = 0;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	65
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	66 for (size_t i = 0; i < len; i++)
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	67 {
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	68 if (input_path[i] == '.' && (i == 0 \|\| input_path[i-1] == '/')) {
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	69 if (i + 1 < len && input_path[i+1] == '.') {
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	70 // Skip ".."
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	71 i++;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	72 continue;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	73 }
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	74 // Skip "."
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	75 continue;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	76 }
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	77 result[j++] = input_path[i];
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	78 }
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	79 result[j] = '\0';
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	80
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	81 // Remove leading/trailing slashes
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	82 while (result[0] == '/')
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	83 memmove(result, result + 1, strlen(result));
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	84 while (j > 0 && result[j-1] == '/')
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	85 result[--j] = '\0';
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	86
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	87 return result;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	88 }
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	89
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	90 Seobeo_Request_Entry* ApiListDirectory(Seobeo_Request_Entry req, Dowa_Arena arena)
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	91 {
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	92 Seobeo_Request_Entry *resp = NULL;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	93
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	94 void *path_kv = Dowa_HashMap_Get_Ptr(req, "query_path");
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	95 const char rel_path = path_kv ? ((Seobeo_Request_Entry)path_kv)->value : "";
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	96
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	97 char *decoded_path = Dowa_Arena_Allocate(arena, strlen(rel_path) + 1);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	98 url_decode(decoded_path, rel_path);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	99
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	100 char *safe_path = sanitize_path(decoded_path, arena);
106 daf2d393741a Debugging in server. June Park <parkjune1995@gmail.com> parents: 104 diff changeset	101
daf2d393741a Debugging in server. June Park <parkjune1995@gmail.com> parents: 104 diff changeset	102 Seobeo_Log(SEOBEO_INFO, "rel_path: %s\n", rel_path);
daf2d393741a Debugging in server. June Park <parkjune1995@gmail.com> parents: 104 diff changeset	103 Seobeo_Log(SEOBEO_INFO, "decoded_path: %s\n", decoded_path);
daf2d393741a Debugging in server. June Park <parkjune1995@gmail.com> parents: 104 diff changeset	104 Seobeo_Log(SEOBEO_INFO, "safe path: %s\n", safe_path);
107 1423044e3d58 Adding repo root. June Park <parkjune1995@gmail.com> parents: 106 diff changeset	105 Seobeo_Log(SEOBEO_INFO, "REPO_ROOT: %s\n", REPO_ROOT);
106 daf2d393741a Debugging in server. June Park <parkjune1995@gmail.com> parents: 104 diff changeset	106 fflush(stdout);
daf2d393741a Debugging in server. June Park <parkjune1995@gmail.com> parents: 104 diff changeset	107
104 2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	108 char full_path[MAX_PATH];
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	109 if (strlen(safe_path) > 0)
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	110 snprintf(full_path, sizeof(full_path), "%s/%s", REPO_ROOT, safe_path);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	111 else
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	112 snprintf(full_path, sizeof(full_path), "%s", REPO_ROOT);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	113
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	114 if (!is_directory(full_path))
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	115 {
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	116 char *error_json = Dowa_Arena_Allocate(arena, 256);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	117 snprintf(error_json, 256, "{\"error\":\"Directory not found\"}");
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	118
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	119 Dowa_HashMap_Push_Arena(resp, "status", "404", arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	120 Dowa_HashMap_Push_Arena(resp, "content-type", "application/json", arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	121 Dowa_HashMap_Push_Arena(resp, "body", error_json, arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	122 return resp;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	123 }
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	124
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	125 DIR *dir = opendir(full_path);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	126 if (!dir)
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	127 {
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	128 char *error_json = Dowa_Arena_Allocate(arena, 256);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	129 snprintf(error_json, 256, "{\"error\":\"Cannot open directory\"}");
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	130
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	131 Dowa_HashMap_Push_Arena(resp, "status", "500", arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	132 Dowa_HashMap_Push_Arena(resp, "content-type", "application/json", arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	133 Dowa_HashMap_Push_Arena(resp, "body", error_json, arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	134 return resp;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	135 }
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	136
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	137 char json = Dowa_Arena_Allocate(arena, 1024 100);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	138 strcpy(json, "{\"files\":[");
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	139
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	140 struct dirent *entry;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	141 int first = 1;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	142
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	143 while ((entry = readdir(dir)) != NULL)
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	144 {
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	145 if (entry->d_name[0] == '.') continue;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	146
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	147 char entry_path[MAX_PATH];
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	148 snprintf(entry_path, sizeof(entry_path), "%s/%s", full_path, entry->d_name);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	149
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	150 int is_dir = is_directory(entry_path);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	151
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	152 char entry_rel_path[MAX_PATH];
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	153 if (strlen(safe_path) > 0)
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	154 snprintf(entry_rel_path, sizeof(entry_rel_path), "%s/%s", safe_path, entry->d_name);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	155 else
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	156 snprintf(entry_rel_path, sizeof(entry_rel_path), "%s", entry->d_name);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	157
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	158 if (!first) strcat(json, ",");
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	159 first = 0;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	160
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	161 char entry_json[MAX_PATH * 2];
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	162 snprintf(entry_json, sizeof(entry_json),
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	163 "{\"name\":\"%s\",\"type\":\"%s\",\"path\":\"%s\"}",
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	164 entry->d_name,
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	165 is_dir ? "directory" : "file",
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	166 entry_rel_path);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	167 strcat(json, entry_json);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	168 }
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	169
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	170 closedir(dir);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	171 strcat(json, "]}");
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	172
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	173 Dowa_HashMap_Push_Arena(resp, "status", "200", arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	174 Dowa_HashMap_Push_Arena(resp, "content-type", "application/json", arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	175 Dowa_HashMap_Push_Arena(resp, "body", json, arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	176
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	177 return resp;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	178 }
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	179
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	180 Seobeo_Request_Entry* ApiGetFile(Seobeo_Request_Entry req, Dowa_Arena arena)
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	181 {
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	182 Seobeo_Request_Entry *resp = NULL;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	183
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	184 void *path_kv = Dowa_HashMap_Get_Ptr(req, "query_path");
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	185 const char rel_path = path_kv ? ((Seobeo_Request_Entry)path_kv)->value : "";
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	186 char *decoded_path = Dowa_Arena_Allocate(arena, strlen(rel_path) + 1);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	187 url_decode(decoded_path, rel_path);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	188 char *safe_path = sanitize_path(decoded_path, arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	189
106 daf2d393741a Debugging in server. June Park <parkjune1995@gmail.com> parents: 104 diff changeset	190 Seobeo_Log(SEOBEO_INFO, "rel_path: %s\n", rel_path);
daf2d393741a Debugging in server. June Park <parkjune1995@gmail.com> parents: 104 diff changeset	191 Seobeo_Log(SEOBEO_INFO, "decoded_path: %s\n", decoded_path);
daf2d393741a Debugging in server. June Park <parkjune1995@gmail.com> parents: 104 diff changeset	192 Seobeo_Log(SEOBEO_INFO, "safe path: %s\n", safe_path);
107 1423044e3d58 Adding repo root. June Park <parkjune1995@gmail.com> parents: 106 diff changeset	193 Seobeo_Log(SEOBEO_INFO, "REPO_ROOT: %s\n", REPO_ROOT);
106 daf2d393741a Debugging in server. June Park <parkjune1995@gmail.com> parents: 104 diff changeset	194 fflush(stdout);
104 2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	195
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	196 if (strlen(safe_path) == 0)
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	197 {
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	198 char *error = Dowa_Arena_Allocate(arena, 64);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	199 strcpy(error, "File path required");
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	200
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	201 Dowa_HashMap_Push_Arena(resp, "status", "400", arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	202 Dowa_HashMap_Push_Arena(resp, "content-type", "text/plain", arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	203 Dowa_HashMap_Push_Arena(resp, "body", error, arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	204 return resp;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	205 }
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	206
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	207 char full_path[MAX_PATH];
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	208 snprintf(full_path, sizeof(full_path), "%s/%s", REPO_ROOT, safe_path);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	209 FILE *file = fopen(full_path, "rb");
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	210 if (!file)
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	211 {
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	212 char *error_msg = "File not found.";
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	213 Dowa_HashMap_Push_Arena(resp, "status", "404", arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	214 Dowa_HashMap_Push_Arena(resp, "content-type", "text/plain", arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	215 Dowa_HashMap_Push_Arena(resp, "body", error_msg, arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	216 return resp;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	217 }
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	218
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	219 fseek(file, 0, SEEK_END);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	220 size_t file_size = ftell(file);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	221 fseek(file, 0, SEEK_SET);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	222
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	223 char *file_data = malloc(file_size + 1);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	224 if (!file_data)
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	225 {
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	226 fclose(file);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	227 char *error_msg = "Memory allocation failed";
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	228 Dowa_HashMap_Push_Arena(resp, "status", "500", arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	229 Dowa_HashMap_Push_Arena(resp, "content-type", "text/plain", arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	230 Dowa_HashMap_Push_Arena(resp, "body", error_msg, arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	231 return resp;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	232 }
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	233
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	234 fread(file_data, 1, file_size, file);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	235 file_data[file_size] = '\0';
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	236 fclose(file);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	237
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	238 char *body = Dowa_Arena_Allocate(arena, file_size + 1);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	239 memcpy(body, file_data, file_size);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	240 body[file_size] = '\0';
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	241 free(file_data);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	242
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	243 if (!body)
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	244 {
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	245 char *error = Dowa_Arena_Allocate(arena, 64);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	246 strcpy(error, "Cannot read file");
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	247
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	248 Dowa_HashMap_Push_Arena(resp, "status", "500", arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	249 Dowa_HashMap_Push_Arena(resp, "content-type", "text/plain", arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	250 Dowa_HashMap_Push_Arena(resp, "body", error, arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	251 return resp;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	252 }
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	253
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	254 const char *content_type = "text/plain";
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	255 if (strstr(safe_path, ".md")) content_type = "text/markdown";
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	256 else if (strstr(safe_path, ".html")) content_type = "text/html";
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	257 else if (strstr(safe_path, ".css")) content_type = "text/css";
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	258 else if (strstr(safe_path, ".js")) content_type = "application/javascript";
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	259 else if (strstr(safe_path, ".json")) content_type = "application/json";
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	260
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	261 Dowa_HashMap_Push_Arena(resp, "status", "200", arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	262 Dowa_HashMap_Push_Arena(resp, "content-type", content_type, arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	263 Dowa_HashMap_Push_Arena(resp, "body", body, arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	264
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	265 return resp;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	266 }
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	267
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	268 Seobeo_Request_Entry* ApiGetReadme(Seobeo_Request_Entry req, Dowa_Arena arena) {
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	269 return ApiGetFile(req, arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	270 }
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	271
108 f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	272 Seobeo_Request_Entry* ApiHgWireProtocol(Seobeo_Request_Entry req, Dowa_Arena arena)
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	273 {
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	274 Seobeo_Request_Entry *resp = NULL;
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	275
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	276 void *cmd_kv = Dowa_HashMap_Get_Ptr(req, "query_cmd");
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	277 const char cmd = cmd_kv ? ((Seobeo_Request_Entry)cmd_kv)->value : "";
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	278 if (strlen(cmd) == 0)
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	279 {
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	280 Dowa_HashMap_Push_Arena(resp, "status", "404", arena);
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	281 return resp;
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	282 }
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	283 Seobeo_Log(SEOBEO_DEBUG, "cmd: %s\n", cmd);
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	284
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	285 char command[MAX_PATH];
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	286 snprintf(command, sizeof(command), "hg -R %s serve --stdio 2>&1", REPO_ROOT);
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	287
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	288 FILE *hg_pipe = popen(command, "r+");
109 1c446ab6f945 [MrJuneJune] New Blog about writing Seobeo library. June Park <parkjune1995@gmail.com> parents: 108 diff changeset	289 if (!hg_pipe)
1c446ab6f945 [MrJuneJune] New Blog about writing Seobeo library. June Park <parkjune1995@gmail.com> parents: 108 diff changeset	290 {
108 f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	291 Seobeo_Log(SEOBEO_DEBUG, "Failed to open pipe\n");
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	292 return resp;
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	293 }
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	294
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	295 // 2. Write the command
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	296 fprintf(hg_pipe, "capabilities\n");
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	297 fflush(hg_pipe);
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	298
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	299 // 3. Read the response
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	300 int buffer_size = 1024 * 1024 * 5;
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	301 char *output = Dowa_Arena_Allocate(arena, buffer_size);
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	302 if (fgets(output, buffer_size, hg_pipe) != NULL) {
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	303 Seobeo_Log(SEOBEO_DEBUG, "SUCCESS! Received: %s\n", output);
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	304 } else {
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	305 Seobeo_Log(SEOBEO_DEBUG, "FAILURE: No output received from hg.\n");
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	306 }
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	307
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	308 // 4. Close and check exit code
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	309 int status = pclose(hg_pipe);
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	310 Seobeo_Log(SEOBEO_DEBUG, "Process exited with status: %d\n", status);
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	311
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	312 Seobeo_Log(SEOBEO_DEBUG, "body: %s\n", output);
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	313
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	314 Dowa_HashMap_Push_Arena(resp, "status", "200", arena);
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	315 Dowa_HashMap_Push_Arena(resp, "content-type", "application/mercurial-0.2", arena);
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	316 Dowa_HashMap_Push_Arena(resp, "body", output, arena);
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	317
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	318 return resp;
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	319 }
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	320
104 2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	321 int main(void) {
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	322 Seobeo_Router_Init();
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	323
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	324 Seobeo_Router_Register("GET", "/api/repo/list", ApiListDirectory);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	325 Seobeo_Router_Register("GET", "/api/repo/file", ApiGetFile);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	326 Seobeo_Router_Register("GET", "/api/repo/readme", ApiGetReadme);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	327
108 f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	328 Seobeo_Router_Register("GET", "/repo", ApiHgWireProtocol);
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	329 Seobeo_Router_Register("POST", "/repo", ApiHgWireProtocol);
f07abbcd2ec5 [HgWeb] Will probably hold off on using it since it is not urgent. June Park <parkjune1995@gmail.com> parents: 107 diff changeset	330
104 2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	331 printf("Starting on Port 6970...\n");
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	332 printf("Repository: %s\n", REPO_ROOT);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	333
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	334 int result = Seobeo_Web_Server_Start("hg-web/src", "6970", SEOBEO_MODE_EDGE, 4);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	335
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	336 Seobeo_Router_Destroy();
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	337
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	338 return result;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	339 }

Mercurial

annotate hg-web/main.c @ 121:7b1719fa918c