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

annotate hg-web/main.c @ 105:4de2fb74ce82

Adding few comments for future.

author	June Park <parkjune1995@gmail.com>
date	Sat, 03 Jan 2026 10:28:54 -0800
parents	2301aeb7503b
children	daf2d393741a

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);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	101 char full_path[MAX_PATH];
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	102 if (strlen(safe_path) > 0)
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	103 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	104 else
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	105 snprintf(full_path, sizeof(full_path), "%s", REPO_ROOT);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	106
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	107 if (!is_directory(full_path))
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	108 {
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	109 char *error_json = Dowa_Arena_Allocate(arena, 256);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	110 snprintf(error_json, 256, "{\"error\":\"Directory not found\"}");
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	111
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	112 Dowa_HashMap_Push_Arena(resp, "status", "404", arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	113 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	114 Dowa_HashMap_Push_Arena(resp, "body", error_json, arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	115 return resp;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	116 }
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	117
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	118 DIR *dir = opendir(full_path);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	119 if (!dir)
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	120 {
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	121 char *error_json = Dowa_Arena_Allocate(arena, 256);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	122 snprintf(error_json, 256, "{\"error\":\"Cannot open directory\"}");
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 Dowa_HashMap_Push_Arena(resp, "status", "500", arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	125 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	126 Dowa_HashMap_Push_Arena(resp, "body", error_json, arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	127 return resp;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	128 }
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	129
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	130 char json = Dowa_Arena_Allocate(arena, 1024 100);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	131 strcpy(json, "{\"files\":[");
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	132
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	133 struct dirent *entry;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	134 int first = 1;
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 while ((entry = readdir(dir)) != NULL)
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	137 {
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	138 if (entry->d_name[0] == '.') continue;
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 char entry_path[MAX_PATH];
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	141 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	142
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	143 int is_dir = is_directory(entry_path);
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 char entry_rel_path[MAX_PATH];
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	146 if (strlen(safe_path) > 0)
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	147 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	148 else
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	149 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	150
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	151 if (!first) strcat(json, ",");
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	152 first = 0;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	153
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	154 char entry_json[MAX_PATH * 2];
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	155 snprintf(entry_json, sizeof(entry_json),
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	156 "{\"name\":\"%s\",\"type\":\"%s\",\"path\":\"%s\"}",
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	157 entry->d_name,
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	158 is_dir ? "directory" : "file",
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	159 entry_rel_path);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	160 strcat(json, entry_json);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	161 }
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	162
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	163 closedir(dir);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	164 strcat(json, "]}");
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	165
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	166 Dowa_HashMap_Push_Arena(resp, "status", "200", arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	167 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	168 Dowa_HashMap_Push_Arena(resp, "body", json, arena);
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 return resp;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	171 }
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 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	174 {
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	175 Seobeo_Request_Entry *resp = NULL;
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 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	178 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	179 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	180 url_decode(decoded_path, rel_path);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	181 char *safe_path = sanitize_path(decoded_path, arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	182
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	183 Seobeo_Log(SEOBEO_DEBUG, "rel_path: %s\n", rel_path);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	184 Seobeo_Log(SEOBEO_DEBUG, "decoded_path: %s\n", decoded_path);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	185 Seobeo_Log(SEOBEO_DEBUG, "safe path: %s\n", safe_path);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	186
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	187
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	188 if (strlen(safe_path) == 0)
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	189 {
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	190 char *error = Dowa_Arena_Allocate(arena, 64);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	191 strcpy(error, "File path required");
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	192
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	193 Dowa_HashMap_Push_Arena(resp, "status", "400", arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	194 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	195 Dowa_HashMap_Push_Arena(resp, "body", error, arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	196 return resp;
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
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	199 char full_path[MAX_PATH];
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	200 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	201 FILE *file = fopen(full_path, "rb");
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	202 if (!file)
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	203 {
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	204 char *error_msg = "File not found.";
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	205 Dowa_HashMap_Push_Arena(resp, "status", "404", arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	206 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	207 Dowa_HashMap_Push_Arena(resp, "body", error_msg, arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	208 return resp;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	209 }
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	210
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	211 fseek(file, 0, SEEK_END);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	212 size_t file_size = ftell(file);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	213 fseek(file, 0, SEEK_SET);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	214
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	215 char *file_data = malloc(file_size + 1);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	216 if (!file_data)
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 fclose(file);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	219 char *error_msg = "Memory allocation failed";
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	220 Dowa_HashMap_Push_Arena(resp, "status", "500", arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	221 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	222 Dowa_HashMap_Push_Arena(resp, "body", error_msg, arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	223 return resp;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	224 }
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 fread(file_data, 1, file_size, file);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	227 file_data[file_size] = '\0';
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	228 fclose(file);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	229
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	230 char *body = Dowa_Arena_Allocate(arena, file_size + 1);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	231 memcpy(body, file_data, file_size);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	232 body[file_size] = '\0';
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	233 free(file_data);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	234
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	235 if (!body)
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	236 {
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	237 char *error = Dowa_Arena_Allocate(arena, 64);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	238 strcpy(error, "Cannot read file");
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	239
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	240 Dowa_HashMap_Push_Arena(resp, "status", "500", arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	241 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	242 Dowa_HashMap_Push_Arena(resp, "body", error, arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	243 return resp;
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
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	246 const char *content_type = "text/plain";
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	247 if (strstr(safe_path, ".md")) content_type = "text/markdown";
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	248 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	249 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	250 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	251 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	252
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	253 Dowa_HashMap_Push_Arena(resp, "status", "200", arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	254 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	255 Dowa_HashMap_Push_Arena(resp, "body", body, arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	256
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	257 return resp;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	258 }
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	259
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	260 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	261 return ApiGetFile(req, arena);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	262 }
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	263
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	264 int main(void) {
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	265 Seobeo_Router_Init();
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 Seobeo_Router_Register("GET", "/api/repo/list", ApiListDirectory);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	268 Seobeo_Router_Register("GET", "/api/repo/file", ApiGetFile);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	269 Seobeo_Router_Register("GET", "/api/repo/readme", ApiGetReadme);
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 printf("Starting on Port 6970...\n");
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	272 printf("Repository: %s\n", REPO_ROOT);
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	273
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	274 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	275
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	276 Seobeo_Router_Destroy();
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	277
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	278 return result;
2301aeb7503b [Hg Web] Super simple mercurial server. June Park <parkjune1995@gmail.com> parents: diff changeset	279 }

Mercurial

annotate hg-web/main.c @ 105:4de2fb74ce82