iFirst rework of path handling. - geomyidae - A small C-based gopherd. Err bitreich.org 70
hgit clone git://bitreich.org/geomyidae/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/geomyidae/ URL:git://bitreich.org/geomyidae/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/geomyidae/ bitreich.org 70
1Log /scm/geomyidae/log.gph bitreich.org 70
1Files /scm/geomyidae/files.gph bitreich.org 70
1Refs /scm/geomyidae/refs.gph bitreich.org 70
1Tags /scm/geomyidae/tag bitreich.org 70
1README /scm/geomyidae/file/README.gph bitreich.org 70
1LICENSE /scm/geomyidae/file/LICENSE.gph bitreich.org 70
i--- Err bitreich.org 70
1commit b12a77acd24fc170b1ad047986ffaf13592fb326 /scm/geomyidae/commit/b12a77acd24fc170b1ad047986ffaf13592fb326.gph bitreich.org 70
1parent f66a8a67b9471909016d6f24ce93f39584130a67 /scm/geomyidae/commit/f66a8a67b9471909016d6f24ce93f39584130a67.gph bitreich.org 70
hAuthor: Christoph Lohmann <20h@r-36.net> URL:mailto:20h@r-36.net bitreich.org 70
iDate: Thu, 20 Jul 2023 06:30:24 +0200 Err bitreich.org 70
i Err bitreich.org 70
iFirst rework of path handling. Err bitreich.org 70
i Err bitreich.org 70
i* Renaming the gph functions. Err bitreich.org 70
i* Beware, still full of debug functions. Err bitreich.org 70
i Err bitreich.org 70
iDiffstat: Err bitreich.org 70
i M handlr.c | 112 +++++++++++++++++-------------- Err bitreich.org 70
i M handlr.h | 25 ++++++++++++++++++++----- Err bitreich.org 70
i M ind.c | 133 ++++++++++++++++--------------- Err bitreich.org 70
i M ind.h | 41 ++++++++++++++++--------------- Err bitreich.org 70
i M index.gph | 4 +++- Err bitreich.org 70
i M main.c | 144 ++++++++++++++++++++++--------- Err bitreich.org 70
i Err bitreich.org 70
i6 files changed, 277 insertions(+), 182 deletions(-) Err bitreich.org 70
i--- Err bitreich.org 70
1diff --git a/handlr.c b/handlr.c /scm/geomyidae/file/handlr.c.gph bitreich.org 70
i@@ -17,6 +17,7 @@ Err bitreich.org 70
i #include <dirent.h> Err bitreich.org 70
i #include <sys/wait.h> Err bitreich.org 70
i #include <errno.h> Err bitreich.org 70
i+#include <libgen.h> Err bitreich.org 70
i Err bitreich.org 70
i #include "ind.h" Err bitreich.org 70
i #include "arg.h" Err bitreich.org 70
i@@ -25,7 +26,7 @@ void Err bitreich.org 70
i handledir(int sock, char *path, char *port, char *base, char *args, Err bitreich.org 70
i char *sear, char *ohost, char *chost, char *bhost, int istls) Err bitreich.org 70
i { Err bitreich.org 70
i- char *pa, *file, *e, *par, *b; Err bitreich.org 70
i+ char *pa, *file, *e, *par; Err bitreich.org 70
i struct dirent **dirent; Err bitreich.org 70
i int ndir, i, ret = 0; Err bitreich.org 70
i struct stat st; Err bitreich.org 70
i@@ -35,22 +36,25 @@ handledir(int sock, char *path, char *port, char *base, char *args, Err bitreich.org 70
i USED(sear); Err bitreich.org 70
i USED(bhost); Err bitreich.org 70
i Err bitreich.org 70
i- pa = xstrdup(path); Err bitreich.org 70
i- e = pa + strlen(pa) - 1; Err bitreich.org 70
i- if (e > pa && e[0] == '/') Err bitreich.org 70
i- *e = '\0'; Err bitreich.org 70
i+ printf("handledir:\n"); Err bitreich.org 70
i+ printf("sock = %d; path = %s; port = %s; base = %s; args = %s;\n", Err bitreich.org 70
i+ sock, path, port, base, args); Err bitreich.org 70
i+ printf("sear = %s; ohost = %s; chost = %s; bhost = %s; istls = %d;\n", Err bitreich.org 70
i+ sear, ohost, chost, bhost, istls); Err bitreich.org 70
i Err bitreich.org 70
i- par = xstrdup(pa); Err bitreich.org 70
i+ pa = xstrdup(path); Err bitreich.org 70
i Err bitreich.org 70
i- b = strrchr(makebasepath(par, base), '/'); Err bitreich.org 70
i- if (b != NULL) { Err bitreich.org 70
i- *b = '\0'; Err bitreich.org 70
i+ /* Is there any directory below the request? */ Err bitreich.org 70
i+ if (strlen(pa+strlen(base)) > 1) { Err bitreich.org 70
i+ par = xstrdup(pa+strlen(base)); Err bitreich.org 70
i+ e = strrchr(par, '/'); Err bitreich.org 70
i+ *e = '\0'; Err bitreich.org 70
i dprintf(sock, "1..\t%s\t%s\t%s\r\n", Err bitreich.org 70
i- makebasepath(par, base), ohost, port); Err bitreich.org 70
i+ par, ohost, port); Err bitreich.org 70
i+ free(par); Err bitreich.org 70
i } Err bitreich.org 70
i- free(par); Err bitreich.org 70
i Err bitreich.org 70
i- ndir = scandir(pa[0] ? pa : ".", &dirent, 0, alphasort); Err bitreich.org 70
i+ ndir = scandir(pa, &dirent, 0, alphasort); Err bitreich.org 70
i if (ndir < 0) { Err bitreich.org 70
i perror("scandir"); Err bitreich.org 70
i free(pa); Err bitreich.org 70
i@@ -61,19 +65,21 @@ handledir(int sock, char *path, char *port, char *base, char *args, Err bitreich.org 70
i continue; Err bitreich.org 70
i Err bitreich.org 70
i type = gettype(dirent[i]->d_name); Err bitreich.org 70
i- file = smprintf("%s%s%s", pa, Err bitreich.org 70
i- pa[0] == '/' && pa[1] == '\0' ? "" : "/", Err bitreich.org 70
i+ Err bitreich.org 70
i+ file = smprintf("%s%s%s", Err bitreich.org 70
i+ pa, Err bitreich.org 70
i+ pa[strlen(pa)-1] == '/'? "" : "/", Err bitreich.org 70
i dirent[i]->d_name); Err bitreich.org 70
i+ printf("handledir: smprintf file = %s\n", file); Err bitreich.org 70
i if (stat(file, &st) >= 0 && S_ISDIR(st.st_mode)) Err bitreich.org 70
i type = gettype("index.gph"); Err bitreich.org 70
i- e = makebasepath(file, base); Err bitreich.org 70
i ret = dprintf(sock, Err bitreich.org 70
i "%c%-50.50s %10s %16s\t%s\t%s\t%s\r\n", Err bitreich.org 70
i *type->type, Err bitreich.org 70
i dirent[i]->d_name, Err bitreich.org 70
i humansize(st.st_size), Err bitreich.org 70
i humantime(&(st.st_mtime)), Err bitreich.org 70
i- e, ohost, port); Err bitreich.org 70
i+ file + strlen(base), ohost, port); Err bitreich.org 70
i free(file); Err bitreich.org 70
i } Err bitreich.org 70
i for (i = 0; i < ndir; i++) Err bitreich.org 70
i@@ -89,24 +95,30 @@ void Err bitreich.org 70
i handlegph(int sock, char *file, char *port, char *base, char *args, Err bitreich.org 70
i char *sear, char *ohost, char *chost, char *bhost, int istls) Err bitreich.org 70
i { Err bitreich.org 70
i- Indexs *act; Err bitreich.org 70
i+ gphindex *act; Err bitreich.org 70
i int i, ret = 0; Err bitreich.org 70
i Err bitreich.org 70
i USED(args); Err bitreich.org 70
i USED(sear); Err bitreich.org 70
i USED(bhost); Err bitreich.org 70
i Err bitreich.org 70
i- act = scanfile(file); Err bitreich.org 70
i+ printf("handlegph:\n"); Err bitreich.org 70
i+ printf("sock = %d; file = %s; port = %s; base = %s; args = %s;\n", Err bitreich.org 70
i+ sock, file, port, base, args); Err bitreich.org 70
i+ printf("sear = %s; ohost = %s; chost = %s; bhost = %s; istls = %d;\n", Err bitreich.org 70
i+ sear, ohost, chost, bhost, istls); Err bitreich.org 70
i+ Err bitreich.org 70
i+ act = gph_scanfile(file); Err bitreich.org 70
i if (act != NULL) { Err bitreich.org 70
i for (i = 0; i < act->num && ret >= 0; i++) Err bitreich.org 70
i- ret = printelem(sock, act->n[i], file, base, ohost, port); Err bitreich.org 70
i+ ret = gph_printelem(sock, act->n[i], file, base, ohost, port); Err bitreich.org 70
i dprintf(sock, ".\r\n"); Err bitreich.org 70
i Err bitreich.org 70
i for (i = 0; i < act->num; i++) { Err bitreich.org 70
i- freeelem(act->n[i]); Err bitreich.org 70
i+ gph_freeelem(act->n[i]); Err bitreich.org 70
i act->n[i] = NULL; Err bitreich.org 70
i } Err bitreich.org 70
i- freeindex(act); Err bitreich.org 70
i+ gph_freeindex(act); Err bitreich.org 70
i } Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i@@ -135,21 +147,22 @@ void Err bitreich.org 70
i handlecgi(int sock, char *file, char *port, char *base, char *args, Err bitreich.org 70
i char *sear, char *ohost, char *chost, char *bhost, int istls) Err bitreich.org 70
i { Err bitreich.org 70
i- char *p, *path; Err bitreich.org 70
i+ char *script, *path; Err bitreich.org 70
i Err bitreich.org 70
i USED(base); Err bitreich.org 70
i USED(port); Err bitreich.org 70
i Err bitreich.org 70
i- path = xstrdup(file); Err bitreich.org 70
i- p = strrchr(path, '/'); Err bitreich.org 70
i- if (p != NULL) Err bitreich.org 70
i- p[1] = '\0'; Err bitreich.org 70
i- else { Err bitreich.org 70
i- free(path); Err bitreich.org 70
i- path = NULL; Err bitreich.org 70
i- } Err bitreich.org 70
i+ printf("handlecgi:\n"); Err bitreich.org 70
i+ printf("sock = %d; file = %s; port = %s; base = %s; args = %s;\n", Err bitreich.org 70
i+ sock, file, port, base, args); Err bitreich.org 70
i+ printf("sear = %s; ohost = %s; chost = %s; bhost = %s; istls = %d;\n", Err bitreich.org 70
i+ sear, ohost, chost, bhost, istls); Err bitreich.org 70
i Err bitreich.org 70
i- p = makebasepath(file, base); Err bitreich.org 70
i+ path = xstrdup(file); Err bitreich.org 70
i+ path = dirname(path); Err bitreich.org 70
i+ script = path + strlen(path) + 1; Err bitreich.org 70
i+ printf("path = %s\n", path); Err bitreich.org 70
i+ printf("script = %s\n", script); Err bitreich.org 70
i Err bitreich.org 70
i if (sear == NULL) Err bitreich.org 70
i sear = ""; Err bitreich.org 70
i@@ -166,10 +179,10 @@ handlecgi(int sock, char *file, char *port, char *base, char *args, Err bitreich.org 70
i break; Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i- setcgienviron(p, file, port, base, args, sear, ohost, chost, Err bitreich.org 70
i+ setcgienviron(script, file, port, base, args, sear, ohost, chost, Err bitreich.org 70
i bhost, istls); Err bitreich.org 70
i Err bitreich.org 70
i- if (execl(file, p, sear, args, ohost, port, Err bitreich.org 70
i+ if (execl(file, script, sear, args, ohost, port, Err bitreich.org 70
i (char *)NULL) == -1) { Err bitreich.org 70
i perror("execl"); Err bitreich.org 70
i _exit(1); Err bitreich.org 70
i@@ -189,25 +202,24 @@ handledcgi(int sock, char *file, char *port, char *base, char *args, Err bitreich.org 70
i char *sear, char *ohost, char *chost, char *bhost, int istls) Err bitreich.org 70
i { Err bitreich.org 70
i FILE *fp; Err bitreich.org 70
i- char *p, *path, *ln = NULL; Err bitreich.org 70
i+ char *script, *path, *ln = NULL; Err bitreich.org 70
i size_t linesiz = 0; Err bitreich.org 70
i ssize_t n; Err bitreich.org 70
i int outsocks[2], ret = 0; Err bitreich.org 70
i- Elems *el; Err bitreich.org 70
i+ gphelem *el; Err bitreich.org 70
i+ Err bitreich.org 70
i+ printf("handledcgi:\n"); Err bitreich.org 70
i+ printf("sock = %d; file = %s; port = %s; base = %s; args = %s;\n", Err bitreich.org 70
i+ sock, file, port, base, args); Err bitreich.org 70
i+ printf("sear = %s; ohost = %s; chost = %s; bhost = %s; istls = %d;\n", Err bitreich.org 70
i+ sear, ohost, chost, bhost, istls); Err bitreich.org 70
i Err bitreich.org 70
i if (socketpair(AF_LOCAL, SOCK_STREAM, 0, outsocks) < 0) Err bitreich.org 70
i return; Err bitreich.org 70
i Err bitreich.org 70
i path = xstrdup(file); Err bitreich.org 70
i- p = strrchr(path, '/'); Err bitreich.org 70
i- if (p != NULL) Err bitreich.org 70
i- p[1] = '\0'; Err bitreich.org 70
i- else { Err bitreich.org 70
i- free(path); Err bitreich.org 70
i- path = NULL; Err bitreich.org 70
i- } Err bitreich.org 70
i- Err bitreich.org 70
i- p = makebasepath(file, base); Err bitreich.org 70
i+ path = dirname(path); Err bitreich.org 70
i+ script = path + strlen(path) + 1; Err bitreich.org 70
i Err bitreich.org 70
i if (sear == NULL) Err bitreich.org 70
i sear = ""; Err bitreich.org 70
i@@ -225,10 +237,10 @@ handledcgi(int sock, char *file, char *port, char *base, char *args, Err bitreich.org 70
i break; Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i- setcgienviron(p, file, port, base, args, sear, ohost, chost, Err bitreich.org 70
i+ setcgienviron(script, file, port, base, args, sear, ohost, chost, Err bitreich.org 70
i bhost, istls); Err bitreich.org 70
i Err bitreich.org 70
i- if (execl(file, p, sear, args, ohost, port, Err bitreich.org 70
i+ if (execl(file, script, sear, args, ohost, port, Err bitreich.org 70
i (char *)NULL) == -1) { Err bitreich.org 70
i perror("execl"); Err bitreich.org 70
i _exit(1); Err bitreich.org 70
i@@ -251,21 +263,21 @@ handledcgi(int sock, char *file, char *port, char *base, char *args, Err bitreich.org 70
i if (ln[n - 1] == '\n') Err bitreich.org 70
i ln[--n] = '\0'; Err bitreich.org 70
i Err bitreich.org 70
i- el = getadv(ln); Err bitreich.org 70
i+ el = gph_getadv(ln); Err bitreich.org 70
i if (el == NULL) Err bitreich.org 70
i continue; Err bitreich.org 70
i Err bitreich.org 70
i- ret = printelem(sock, el, file, base, ohost, port); Err bitreich.org 70
i- freeelem(el); Err bitreich.org 70
i+ ret = gph_printelem(sock, el, file, base, ohost, port); Err bitreich.org 70
i+ gph_freeelem(el); Err bitreich.org 70
i } Err bitreich.org 70
i if (ferror(fp)) Err bitreich.org 70
i perror("getline"); Err bitreich.org 70
i dprintf(sock, ".\r\n"); Err bitreich.org 70
i Err bitreich.org 70
i free(ln); Err bitreich.org 70
i- free(path); Err bitreich.org 70
i fclose(fp); Err bitreich.org 70
i wait(NULL); Err bitreich.org 70
i+ free(path); Err bitreich.org 70
i break; Err bitreich.org 70
i } Err bitreich.org 70
i } Err bitreich.org 70
1diff --git a/handlr.h b/handlr.h /scm/geomyidae/file/handlr.h.gph bitreich.org 70
i@@ -9,16 +9,31 @@ Err bitreich.org 70
i /* Err bitreich.org 70
i * Handler API definition Err bitreich.org 70
i * Err bitreich.org 70
i- * path .... absolute path to the script Err bitreich.org 70
i+ * Sample: /get/some/script/with/dirs////?key=value\tsearch what?\r\n Err bitreich.org 70
i+ * * in /get/some/script is a file "index.dcgi" Err bitreich.org 70
i+ * * request to bitreich.org on port 70 using TLS Err bitreich.org 70
i+ * * base is in /var/gopher Err bitreich.org 70
i+ * * client from 85.65.4.2 Err bitreich.org 70
i+ * Err bitreich.org 70
i+ * path/file absolute path to the script/directory, always starts with '/' Err bitreich.org 70
i+ * Sample: /var/gopher/get/some/script/index.dcgi Err bitreich.org 70
i * port .... port which the script should use when defining menu items Err bitreich.org 70
i * (See -o and -p in geomyidae(8)) Err bitreich.org 70
i- * base .... base path of geomyidae ("" in case of chroot) Err bitreich.org 70
i- * args .... query string parsed after »script?query« Err bitreich.org 70
i- * sear .... search part of request (»selector\tsearch\r\n«) Err bitreich.org 70
i- * ohost ... host of geomiydae (See -h in geomyidae(8)) Err bitreich.org 70
i+ * Sample: 70 Err bitreich.org 70
i+ * base .... base path of geomyidae, never ends in '/', so chroot is '' Err bitreich.org 70
i+ * Sample: /var/gopher Err bitreich.org 70
i+ * args .... Gives all variable input from the selector in some way. Err bitreich.org 70
i+ * Sample: /with/dirs////?key=value Err bitreich.org 70
i+ * sear .... search part of request Err bitreich.org 70
i+ * Sample: search what? Err bitreich.org 70
i+ * ohost ... host of geomyidae (See -h in geomyidae(8)) Err bitreich.org 70
i+ * Sample: bitreich.org Err bitreich.org 70
i * chost ... IP of the client sending a request Err bitreich.org 70
i+ * Sample: 85.65.4.2 Err bitreich.org 70
i * bhost ... server IP the server received the connection to Err bitreich.org 70
i+ * Sample: 78.46.175.99 Err bitreich.org 70
i * istls ... set to 1, if TLS was used for thr request Err bitreich.org 70
i+ * Sample: 1 Err bitreich.org 70
i */ Err bitreich.org 70
i Err bitreich.org 70
i void handledir(int sock, char *path, char *port, char *base, char *args, Err bitreich.org 70
1diff --git a/ind.c b/ind.c /scm/geomyidae/file/ind.c.gph bitreich.org 70
i@@ -24,6 +24,7 @@ Err bitreich.org 70
i #include <arpa/inet.h> Err bitreich.org 70
i #include <sys/ioctl.h> Err bitreich.org 70
i #include <limits.h> Err bitreich.org 70
i+#include <errno.h> Err bitreich.org 70
i Err bitreich.org 70
i #define PAGE_SHIFT 12 Err bitreich.org 70
i #define PAGE_SIZE (1UL << PAGE_SHIFT) Err bitreich.org 70
i@@ -258,7 +259,7 @@ gettype(char *filename) Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i void Err bitreich.org 70
i-freeelem(Elems *e) Err bitreich.org 70
i+gph_freeelem(gphelem *e) Err bitreich.org 70
i { Err bitreich.org 70
i if (e != NULL) { Err bitreich.org 70
i if (e->e != NULL) { Err bitreich.org 70
i@@ -273,12 +274,12 @@ freeelem(Elems *e) Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i void Err bitreich.org 70
i-freeindex(Indexs *i) Err bitreich.org 70
i+gph_freeindex(gphindex *i) Err bitreich.org 70
i { Err bitreich.org 70
i if (i != NULL) { Err bitreich.org 70
i if (i->n != NULL) { Err bitreich.org 70
i for (;i->num > 0; i->num--) Err bitreich.org 70
i- freeelem(i->n[i->num - 1]); Err bitreich.org 70
i+ gph_freeelem(i->n[i->num - 1]); Err bitreich.org 70
i free(i->n); Err bitreich.org 70
i } Err bitreich.org 70
i free(i); Err bitreich.org 70
i@@ -288,7 +289,7 @@ freeindex(Indexs *i) Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i void Err bitreich.org 70
i-addelem(Elems *e, char *s) Err bitreich.org 70
i+gph_addelem(gphelem *e, char *s) Err bitreich.org 70
i { Err bitreich.org 70
i e->num++; Err bitreich.org 70
i e->e = xrealloc(e->e, sizeof(char *) * e->num); Err bitreich.org 70
i@@ -297,23 +298,23 @@ addelem(Elems *e, char *s) Err bitreich.org 70
i return; Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i-Elems * Err bitreich.org 70
i-getadv(char *str) Err bitreich.org 70
i+gphelem * Err bitreich.org 70
i+gph_getadv(char *str) Err bitreich.org 70
i { Err bitreich.org 70
i char *b, *e, *o, *bo; Err bitreich.org 70
i- Elems *ret; Err bitreich.org 70
i+ gphelem *ret; Err bitreich.org 70
i Err bitreich.org 70
i- ret = xcalloc(1, sizeof(Elems)); Err bitreich.org 70
i+ ret = xcalloc(1, sizeof(gphelem)); Err bitreich.org 70
i Err bitreich.org 70
i if (strchr(str, '\t')) { Err bitreich.org 70
i- addelem(ret, "i"); Err bitreich.org 70
i- addelem(ret, "Happy helping ☃ here: You tried to " Err bitreich.org 70
i+ gph_addelem(ret, "i"); Err bitreich.org 70
i+ gph_addelem(ret, "Happy helping ☃ here: You tried to " Err bitreich.org 70
i "output a spurious TAB character. This will " Err bitreich.org 70
i "break gopher. Please review your scripts. " Err bitreich.org 70
i "Have a nice day!"); Err bitreich.org 70
i- addelem(ret, "Err"); Err bitreich.org 70
i- addelem(ret, "server"); Err bitreich.org 70
i- addelem(ret, "port"); Err bitreich.org 70
i+ gph_addelem(ret, "Err"); Err bitreich.org 70
i+ gph_addelem(ret, "server"); Err bitreich.org 70
i+ gph_addelem(ret, "port"); Err bitreich.org 70
i Err bitreich.org 70
i return ret; Err bitreich.org 70
i } Err bitreich.org 70
i@@ -331,7 +332,7 @@ getadv(char *str) Err bitreich.org 70
i } Err bitreich.org 70
i *e = '\0'; Err bitreich.org 70
i e++; Err bitreich.org 70
i- addelem(ret, b); Err bitreich.org 70
i+ gph_addelem(ret, b); Err bitreich.org 70
i b = e; Err bitreich.org 70
i bo = b; Err bitreich.org 70
i } Err bitreich.org 70
i@@ -339,7 +340,7 @@ getadv(char *str) Err bitreich.org 70
i e = strchr(b, ']'); Err bitreich.org 70
i if (e != NULL) { Err bitreich.org 70
i *e = '\0'; Err bitreich.org 70
i- addelem(ret, b); Err bitreich.org 70
i+ gph_addelem(ret, b); Err bitreich.org 70
i } Err bitreich.org 70
i free(o); Err bitreich.org 70
i Err bitreich.org 70
i@@ -349,55 +350,55 @@ getadv(char *str) Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i /* Invalid entry: Give back the whole line. */ Err bitreich.org 70
i- freeelem(ret); Err bitreich.org 70
i- ret = xcalloc(1, sizeof(Elems)); Err bitreich.org 70
i+ gph_freeelem(ret); Err bitreich.org 70
i+ ret = xcalloc(1, sizeof(gphelem)); Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i- addelem(ret, "i"); Err bitreich.org 70
i+ gph_addelem(ret, "i"); Err bitreich.org 70
i /* Jump over escape sequence. */ Err bitreich.org 70
i if (str[0] == '[' && str[1] == '|') Err bitreich.org 70
i str += 2; Err bitreich.org 70
i- addelem(ret, str); Err bitreich.org 70
i- addelem(ret, "Err"); Err bitreich.org 70
i- addelem(ret, "server"); Err bitreich.org 70
i- addelem(ret, "port"); Err bitreich.org 70
i+ gph_addelem(ret, str); Err bitreich.org 70
i+ gph_addelem(ret, "Err"); Err bitreich.org 70
i+ gph_addelem(ret, "server"); Err bitreich.org 70
i+ gph_addelem(ret, "port"); Err bitreich.org 70
i Err bitreich.org 70
i return ret; Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i void Err bitreich.org 70
i-addindexs(Indexs *idx, Elems *el) Err bitreich.org 70
i+gph_addindex(gphindex *idx, gphelem *el) Err bitreich.org 70
i { Err bitreich.org 70
i idx->num++; Err bitreich.org 70
i- idx->n = xrealloc(idx->n, sizeof(Elems) * idx->num); Err bitreich.org 70
i+ idx->n = xrealloc(idx->n, sizeof(gphelem *) * idx->num); Err bitreich.org 70
i idx->n[idx->num - 1] = el; Err bitreich.org 70
i Err bitreich.org 70
i return; Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i-Indexs * Err bitreich.org 70
i-scanfile(char *fname) Err bitreich.org 70
i+gphindex * Err bitreich.org 70
i+gph_scanfile(char *fname) Err bitreich.org 70
i { Err bitreich.org 70
i char *ln = NULL; Err bitreich.org 70
i size_t linesiz = 0; Err bitreich.org 70
i ssize_t n; Err bitreich.org 70
i FILE *fp; Err bitreich.org 70
i- Indexs *ret; Err bitreich.org 70
i- Elems *el; Err bitreich.org 70
i+ gphindex *ret; Err bitreich.org 70
i+ gphelem *el; Err bitreich.org 70
i Err bitreich.org 70
i if (!(fp = fopen(fname, "r"))) Err bitreich.org 70
i return NULL; Err bitreich.org 70
i Err bitreich.org 70
i- ret = xcalloc(1, sizeof(Indexs)); Err bitreich.org 70
i+ ret = xcalloc(1, sizeof(gphindex)); Err bitreich.org 70
i Err bitreich.org 70
i while ((n = getline(&ln, &linesiz, fp)) > 0) { Err bitreich.org 70
i if (ln[n - 1] == '\n') Err bitreich.org 70
i ln[--n] = '\0'; Err bitreich.org 70
i- el = getadv(ln); Err bitreich.org 70
i+ el = gph_getadv(ln); Err bitreich.org 70
i if (el == NULL) Err bitreich.org 70
i continue; Err bitreich.org 70
i Err bitreich.org 70
i- addindexs(ret, el); Err bitreich.org 70
i+ gph_addindex(ret, el); Err bitreich.org 70
i } Err bitreich.org 70
i if (ferror(fp)) Err bitreich.org 70
i perror("getline"); Err bitreich.org 70
i@@ -413,9 +414,9 @@ scanfile(char *fname) Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i int Err bitreich.org 70
i-printelem(int fd, Elems *el, char *file, char *base, char *addr, char *port) Err bitreich.org 70
i+gph_printelem(int fd, gphelem *el, char *file, char *base, char *addr, char *port) Err bitreich.org 70
i { Err bitreich.org 70
i- char *path, *p, *argbase, buf[PATH_MAX+1], *argp, *realbase; Err bitreich.org 70
i+ char *path, *p, *argbase, buf[PATH_MAX+1], *argp, *realbase, *rpath; Err bitreich.org 70
i int len, blen; Err bitreich.org 70
i Err bitreich.org 70
i if (!strcmp(el->e[3], "server")) { Err bitreich.org 70
i@@ -432,10 +433,6 @@ printelem(int fd, Elems *el, char *file, char *base, char *addr, char *port) Err bitreich.org 70
i * some URL and ignore various types that have different semantics, Err bitreich.org 70
i * do not point to some file or directory. Err bitreich.org 70
i */ Err bitreich.org 70
i- /* Err bitreich.org 70
i- * FUTURE: If ever special requests with no beginning '/' are used in Err bitreich.org 70
i- * geomyidae, this is the place to control this. Err bitreich.org 70
i- */ Err bitreich.org 70
i if ((el->e[2][0] != '\0' Err bitreich.org 70
i && el->e[2][0] != '/' /* Absolute Request. */ Err bitreich.org 70
i && el->e[0][0] != 'i' /* Informational item. */ Err bitreich.org 70
i@@ -446,45 +443,50 @@ printelem(int fd, Elems *el, char *file, char *base, char *addr, char *port) Err bitreich.org 70
i && el->e[0][0] != 'T') && /* tn3270 */ Err bitreich.org 70
i !(el->e[0][0] == 'h' && !strncmp(el->e[2], "URL:", 4))) { Err bitreich.org 70
i path = file + strlen(base); Err bitreich.org 70
i- if ((p = strrchr(path, '/'))) Err bitreich.org 70
i- len = p - path; Err bitreich.org 70
i- else Err bitreich.org 70
i+ Err bitreich.org 70
i+ /* Strip off original gph file name. */ Err bitreich.org 70
i+ if ((p = strrchr(path, '/'))) { Err bitreich.org 70
i+ len = strlen(path) - strlen(basename(path)); Err bitreich.org 70
i+ } else { Err bitreich.org 70
i len = strlen(path); Err bitreich.org 70
i+ } Err bitreich.org 70
i Err bitreich.org 70
i /* Strip off arguments for realpath. */ Err bitreich.org 70
i argbase = strchr(el->e[2], '?'); Err bitreich.org 70
i- if (argbase != NULL) Err bitreich.org 70
i+ if (argbase != NULL) { Err bitreich.org 70
i blen = argbase - el->e[2]; Err bitreich.org 70
i- else Err bitreich.org 70
i+ } else { Err bitreich.org 70
i blen = strlen(el->e[2]); Err bitreich.org 70
i+ } Err bitreich.org 70
i Err bitreich.org 70
i- snprintf(buf, sizeof(buf), "%s%.*s/%.*s", base, len, Err bitreich.org 70
i+ /* Err bitreich.org 70
i+ * Print everything together. Realpath will resolve it. Err bitreich.org 70
i+ */ Err bitreich.org 70
i+ snprintf(buf, sizeof(buf), "%s%.*s%.*s", base, len, Err bitreich.org 70
i path, blen, el->e[2]); Err bitreich.org 70
i Err bitreich.org 70
i- if ((path = realpath(buf, NULL)) && Err bitreich.org 70
i- (realbase = realpath(base, NULL)) && Err bitreich.org 70
i- !strncmp(realbase, path, strlen(realbase))) { Err bitreich.org 70
i- p = path + strlen(realbase); Err bitreich.org 70
i+ if ((rpath = realpath(buf, NULL)) && Err bitreich.org 70
i+ (realbase = realpath(*base? base : "/", NULL)) && Err bitreich.org 70
i+ !strncmp(realbase, rpath, strlen(realbase))) { Err bitreich.org 70
i+ p = rpath + (*base? strlen(realbase) : 0); Err bitreich.org 70
i Err bitreich.org 70
i /* Err bitreich.org 70
i- * Do not forget to readd arguments which were Err bitreich.org 70
i+ * Do not forget to re-add arguments which were Err bitreich.org 70
i * stripped off. Err bitreich.org 70
i */ Err bitreich.org 70
i- if (argbase != NULL) Err bitreich.org 70
i- argp = smprintf("%s%s", p[0]? p : "/", argbase); Err bitreich.org 70
i- else Err bitreich.org 70
i- argp = xstrdup(p[0]? p : "/"); Err bitreich.org 70
i+ argp = smprintf("%s%s", *p? p : "/", argbase? argbase : ""); Err bitreich.org 70
i Err bitreich.org 70
i free(el->e[2]); Err bitreich.org 70
i el->e[2] = argp; Err bitreich.org 70
i free(realbase); Err bitreich.org 70
i } Err bitreich.org 70
i- free(path); Err bitreich.org 70
i+ if (rpath != NULL) Err bitreich.org 70
i+ free(rpath); Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i if (dprintf(fd, "%.1s%s\t%s\t%s\t%s\r\n", el->e[0], el->e[1], el->e[2], Err bitreich.org 70
i el->e[3], el->e[4]) < 0) { Err bitreich.org 70
i- perror("printelem: dprintf"); Err bitreich.org 70
i+ perror("printgphelem: dprintf"); Err bitreich.org 70
i return -1; Err bitreich.org 70
i } Err bitreich.org 70
i return 0; Err bitreich.org 70
i@@ -545,19 +547,26 @@ setcgienviron(char *file, char *path, char *port, char *base, char *args, Err bitreich.org 70
i setenv("GATEWAY_INTERFACE", "CGI/1.1", 1); Err bitreich.org 70
i /* TODO: Separate, if run like rest.dcgi. */ Err bitreich.org 70
i setenv("PATH_INFO", file, 1); Err bitreich.org 70
i+ printf("PATH_INFO = %s\n", file); Err bitreich.org 70
i setenv("PATH_TRANSLATED", path, 1); Err bitreich.org 70
i+ printf("PATH_TRANSLATED = %s\n", path); Err bitreich.org 70
i Err bitreich.org 70
i setenv("QUERY_STRING", args, 1); Err bitreich.org 70
i+ printf("QUERY_STRING = %s\n", args); Err bitreich.org 70
i /* legacy compatibility */ Err bitreich.org 70
i setenv("SELECTOR", args, 1); Err bitreich.org 70
i+ printf("SELECTOR = %s\n", args); Err bitreich.org 70
i setenv("REQUEST", args, 1); Err bitreich.org 70
i+ printf("REQUEST = %s\n", args); Err bitreich.org 70
i Err bitreich.org 70
i setenv("REMOTE_ADDR", chost, 1); Err bitreich.org 70
i+ printf("REMOTE_ADDR = %s\n", chost); Err bitreich.org 70
i /* Err bitreich.org 70
i * Don't do a reverse lookup on every call. Only do when needed, in Err bitreich.org 70
i * the script. The RFC allows us to set the IP to the value. Err bitreich.org 70
i */ Err bitreich.org 70
i setenv("REMOTE_HOST", chost, 1); Err bitreich.org 70
i+ printf("REMOTE_HOST = %s\n", chost); Err bitreich.org 70
i /* Please do not implement identd here. */ Err bitreich.org 70
i unsetenv("REMOTE_IDENT"); Err bitreich.org 70
i unsetenv("REMOTE_USER"); Err bitreich.org 70
i@@ -569,9 +578,12 @@ setcgienviron(char *file, char *path, char *port, char *base, char *args, Err bitreich.org 70
i */ Err bitreich.org 70
i setenv("REQUEST_METHOD", "GET", 1); Err bitreich.org 70
i setenv("SCRIPT_NAME", file, 1); Err bitreich.org 70
i+ printf("SCRIPT_NAME = %s\n", file); Err bitreich.org 70
i setenv("SERVER_NAME", ohost, 1); Err bitreich.org 70
i+ printf("SERVER_PORT = %s\n", port); Err bitreich.org 70
i setenv("SERVER_PORT", port, 1); Err bitreich.org 70
i setenv("SERVER_LISTEN_NAME", bhost, 1); Err bitreich.org 70
i+ printf("SERVER_LISTEN_NAME = %s\n", bhost); Err bitreich.org 70
i if (istls) { Err bitreich.org 70
i setenv("SERVER_PROTOCOL", "gophers/1.0", 1); Err bitreich.org 70
i } else { Err bitreich.org 70
i@@ -580,8 +592,10 @@ setcgienviron(char *file, char *path, char *port, char *base, char *args, Err bitreich.org 70
i setenv("SERVER_SOFTWARE", "geomyidae", 1); Err bitreich.org 70
i Err bitreich.org 70
i setenv("X_GOPHER_SEARCH", sear, 1); Err bitreich.org 70
i+ printf("X_GOPHER_SEARCH = %s\n", sear); Err bitreich.org 70
i /* legacy compatibility */ Err bitreich.org 70
i setenv("SEARCHREQUEST", sear, 1); Err bitreich.org 70
i+ printf("SEARCHREQUEST = %s\n", sear); Err bitreich.org 70
i Err bitreich.org 70
i if (istls) { Err bitreich.org 70
i setenv("GOPHERS", "on", 1); Err bitreich.org 70
i@@ -626,14 +640,3 @@ humantime(const time_t *clock) Err bitreich.org 70
i return buf; Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i-char * Err bitreich.org 70
i-makebasepath(char *path, char *base) Err bitreich.org 70
i-{ Err bitreich.org 70
i- if (!(base[0] == '/' && base[1] == '\0') && Err bitreich.org 70
i- strlen(path) > strlen(base)) { Err bitreich.org 70
i- return path + strlen(base); Err bitreich.org 70
i- } else { Err bitreich.org 70
i- return path; Err bitreich.org 70
i- } Err bitreich.org 70
i-} Err bitreich.org 70
i- Err bitreich.org 70
1diff --git a/ind.h b/ind.h /scm/geomyidae/file/ind.h.gph bitreich.org 70
i@@ -10,18 +10,6 @@ Err bitreich.org 70
i Err bitreich.org 70
i extern int glfd; Err bitreich.org 70
i Err bitreich.org 70
i-typedef struct Elems Elems; Err bitreich.org 70
i-struct Elems { Err bitreich.org 70
i- char **e; Err bitreich.org 70
i- int num; Err bitreich.org 70
i-}; Err bitreich.org 70
i- Err bitreich.org 70
i-typedef struct Indexs Indexs; Err bitreich.org 70
i-struct Indexs { Err bitreich.org 70
i- Elems **n; Err bitreich.org 70
i- int num; Err bitreich.org 70
i-}; Err bitreich.org 70
i- Err bitreich.org 70
i typedef struct filetype filetype; Err bitreich.org 70
i struct filetype { Err bitreich.org 70
i char *end; Err bitreich.org 70
i@@ -31,20 +19,34 @@ struct filetype { Err bitreich.org 70
i }; Err bitreich.org 70
i Err bitreich.org 70
i filetype *gettype(char *filename); Err bitreich.org 70
i+ Err bitreich.org 70
i+typedef struct gphelem gphelem; Err bitreich.org 70
i+struct gphelem { Err bitreich.org 70
i+ char **e; Err bitreich.org 70
i+ int num; Err bitreich.org 70
i+}; Err bitreich.org 70
i+ Err bitreich.org 70
i+typedef struct gphindex gphindex; Err bitreich.org 70
i+struct gphindex { Err bitreich.org 70
i+ gphelem **n; Err bitreich.org 70
i+ int num; Err bitreich.org 70
i+}; Err bitreich.org 70
i+ Err bitreich.org 70
i+gphindex *gph_scanfile(char *fname); Err bitreich.org 70
i+gphelem *gph_getadv(char *str); Err bitreich.org 70
i+int gph_printelem(int fd, gphelem *el, char *file, char *base, char *addr, char *port); Err bitreich.org 70
i+void gph_addindex(gphindex *idx, gphelem *el); Err bitreich.org 70
i+void gph_addelem(gphelem *e, char *s); Err bitreich.org 70
i+void gph_freeindex(gphindex *i); Err bitreich.org 70
i+void gph_freeelem(gphelem *e); Err bitreich.org 70
i+ Err bitreich.org 70
i void *xcalloc(size_t, size_t); Err bitreich.org 70
i void *xmalloc(size_t); Err bitreich.org 70
i void *xrealloc(void *, size_t); Err bitreich.org 70
i char *xstrdup(const char *str); Err bitreich.org 70
i int xsendfile(int, int); Err bitreich.org 70
i-Indexs *scanfile(char *fname); Err bitreich.org 70
i-Elems *getadv(char *str); Err bitreich.org 70
i int pendingbytes(int sock); Err bitreich.org 70
i void waitforpendingbytes(int sock); Err bitreich.org 70
i-int printelem(int fd, Elems *el, char *file, char *base, char *addr, char *port); Err bitreich.org 70
i-void addindexs(Indexs *idx, Elems *el); Err bitreich.org 70
i-void addelem(Elems *e, char *s); Err bitreich.org 70
i-void freeindex(Indexs *i); Err bitreich.org 70
i-void freeelem(Elems *e); Err bitreich.org 70
i char *smprintf(char *fmt, ...); Err bitreich.org 70
i char *reverselookup(char *host); Err bitreich.org 70
i void setcgienviron(char *file, char *path, char *port, char *base, Err bitreich.org 70
i@@ -52,7 +54,6 @@ void setcgienviron(char *file, char *path, char *port, char *base, Err bitreich.org 70
i char *bhost, int istls); Err bitreich.org 70
i char *humansize(off_t n); Err bitreich.org 70
i char *humantime(const time_t *clock); Err bitreich.org 70
i-char *makebasepath(char *path, char *base); Err bitreich.org 70
i Err bitreich.org 70
i #endif Err bitreich.org 70
i Err bitreich.org 70
1diff --git a/index.gph b/index.gph /scm/geomyidae/file/index.gph.gph bitreich.org 70
i@@ -3,9 +3,11 @@ tcomment (old style comment) Err bitreich.org 70
i [1|R-36|/|server|port] Err bitreich.org 70
i [0|file - comment|/file.txt|server|port] Err bitreich.org 70
i [h|http://www.heise.de|URL:http://www.heise.de|server|port] Err bitreich.org 70
i-[0|some \| escape and [ special characters ] test|error|server|port] Err bitreich.org 70
i+[0|some \| escape and [ special characters ] test|Err|server|port] Err bitreich.org 70
i [9|binary data file|/file.dat|server|port] Err bitreich.org 70
i [9|unclosed entry|/file.dat|server|port Err bitreich.org 70
i+[9|some relative path with args|./legacy/caps.txt?key=value|server|port] Err bitreich.org 70
i+[9|some other relative path|legacy/caps.txt|server|port] Err bitreich.org 70
i [|empty type||server|port] Err bitreich.org 70
i [|Escape something, [| is skipped. Err bitreich.org 70
i some invalid line Err bitreich.org 70
1diff --git a/main.c b/main.c /scm/geomyidae/file/main.c.gph bitreich.org 70
i@@ -59,7 +59,7 @@ int nlistfds = 0; Err bitreich.org 70
i char *argv0; Err bitreich.org 70
i char stdbase[] = "/var/gopher"; Err bitreich.org 70
i char *stdport = "70"; Err bitreich.org 70
i-char *indexf[] = {"/index.gph", "/index.cgi", "/index.dcgi", "/index.bob", "/index.bin"}; Err bitreich.org 70
i+char *indexf[] = {"index.gph", "index.cgi", "index.dcgi", "index.bob", "index.bin"}; Err bitreich.org 70
i char *nocgierr = "3Sorry, execution of the token '%s' was requested, but this " Err bitreich.org 70
i "is disabled in the server configuration.\tErr" Err bitreich.org 70
i "\tlocalhost\t70\r\n"; Err bitreich.org 70
i@@ -83,7 +83,7 @@ char *htredir = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n" Err bitreich.org 70
i " </body>\n" Err bitreich.org 70
i "</html>\n"; Err bitreich.org 70
i char *selinval ="3Happy helping ☃ here: " Err bitreich.org 70
i- "Sorry, your selector does not start with / or contains '..'. " Err bitreich.org 70
i+ "Sorry, your selector does contains '..'. " Err bitreich.org 70
i "That's illegal here.\tErr\tlocalhost\t70\r\n.\r\n\r\n"; Err bitreich.org 70
i Err bitreich.org 70
i int Err bitreich.org 70
i@@ -142,12 +142,20 @@ handlerequest(int sock, char *req, int rlen, char *base, char *ohost, Err bitreich.org 70
i int len = 0, fd, i, maxrecv, pathfallthrough = 0; Err bitreich.org 70
i filetype *type; Err bitreich.org 70
i Err bitreich.org 70
i+ printf("handlerequest:\n"); Err bitreich.org 70
i+ printf("sock = %d; req = '%s';\n", sock, req); Err bitreich.org 70
i+ printf("rlen = %d; base = '%s'; ohost = '%s'; port = %s;\n", rlen, Err bitreich.org 70
i+ base, ohost, port); Err bitreich.org 70
i+ printf("clienth = %s; clientp = %s; serverh = %s; serverp = %s;\n", Err bitreich.org 70
i+ clienth, clientp, serverh, serverp); Err bitreich.org 70
i+ printf("nocgi = %d; istls = %d;\n", nocgi, istls); Err bitreich.org 70
i+ Err bitreich.org 70
i if (!istls) { Err bitreich.org 70
i /* Err bitreich.org 70
i * If sticky bit is set on base dir and encryption is not Err bitreich.org 70
i * used, do not serve. Err bitreich.org 70
i */ Err bitreich.org 70
i- if (stat(base, &dir) == -1) Err bitreich.org 70
i+ if (stat(*base? base : "/", &dir) == -1) Err bitreich.org 70
i return; Err bitreich.org 70
i if (dir.st_mode & S_ISVTX) { Err bitreich.org 70
i dprintf(sock, tlserr, recvc); Err bitreich.org 70
i@@ -176,6 +184,7 @@ handlerequest(int sock, char *req, int rlen, char *base, char *ohost, Err bitreich.org 70
i c = strchr(recvb, '\n'); Err bitreich.org 70
i if (c) Err bitreich.org 70
i c[0] = '\0'; Err bitreich.org 70
i+ Err bitreich.org 70
i sear = strchr(recvb, '\t'); Err bitreich.org 70
i if (sear != NULL) { Err bitreich.org 70
i *sear++ = '\0'; Err bitreich.org 70
i@@ -228,29 +237,32 @@ handlerequest(int sock, char *req, int rlen, char *base, char *ohost, Err bitreich.org 70
i * selectors. Err bitreich.org 70
i */ Err bitreich.org 70
i Err bitreich.org 70
i+ /* Strip off the arguments of req?args style. */ Err bitreich.org 70
i c = strchr(recvb, '?'); Err bitreich.org 70
i if (c != NULL) { Err bitreich.org 70
i *c++ = '\0'; Err bitreich.org 70
i- snprintf(args, sizeof(args), "%s", c); Err bitreich.org 70
i+ snprintf(args, sizeof(args), "?%s", c); Err bitreich.org 70
i } Err bitreich.org 70
i+ printf("args = %s\n", args); Err bitreich.org 70
i+ printf("recvb = %s\n", recvb); Err bitreich.org 70
i Err bitreich.org 70
i- if (recvb[0] == '\0') { Err bitreich.org 70
i- recvb[0] = '/'; Err bitreich.org 70
i- recvb[1] = '\0'; Err bitreich.org 70
i+ /* Strip '/' at the end of the request. */ Err bitreich.org 70
i+ for (c = recvb + strlen(recvb) - 1; c >= recvb && c[0] == '/'; c--) { Err bitreich.org 70
i+ /* Prepend to args. */ Err bitreich.org 70
i+ snprintf(args, sizeof(args), "/%s", args); Err bitreich.org 70
i+ c[0] = '\0'; Err bitreich.org 70
i } Err bitreich.org 70
i+ printf("args = %s\n", args); Err bitreich.org 70
i Err bitreich.org 70
i- /* Err bitreich.org 70
i- * Do not allow requests not beginning with '/' or which contain Err bitreich.org 70
i- * "..". Err bitreich.org 70
i- */ Err bitreich.org 70
i- if (recvb[0] != '/' || strstr(recvb, "..")){ Err bitreich.org 70
i+ /* Do not allow requests including "..". */ Err bitreich.org 70
i+ if (strstr(recvb, "..")) { Err bitreich.org 70
i dprintf(sock, "%s", selinval); Err bitreich.org 70
i return; Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i- /* append base to request path (always starting with /), if base is a chroot don't append '/' */ Err bitreich.org 70
i- if (snprintf(path, sizeof(path), "%s%s", Err bitreich.org 70
i- base[0] == '/' && base[1] == '\0' ? "" : base, Err bitreich.org 70
i+ printf("recvb = %s\n", recvb); Err bitreich.org 70
i+ if (snprintf(path, sizeof(path), "%s%s%s", base, Err bitreich.org 70
i+ (*recvb != '/')? "/" : "", Err bitreich.org 70
i recvb) > sizeof(path)) { Err bitreich.org 70
i if (loglvl & ERRORS) { Err bitreich.org 70
i logentry(clienth, clientp, recvc, Err bitreich.org 70
i@@ -259,6 +271,8 @@ handlerequest(int sock, char *req, int rlen, char *base, char *ohost, Err bitreich.org 70
i dprintf(sock, toolongerr, recvc); Err bitreich.org 70
i return; Err bitreich.org 70
i } Err bitreich.org 70
i+ /* path is now always at least '/' */ Err bitreich.org 70
i+ printf("path = %s\n", path); Err bitreich.org 70
i Err bitreich.org 70
i fd = -1; Err bitreich.org 70
i /* Err bitreich.org 70
i@@ -270,33 +284,54 @@ handlerequest(int sock, char *req, int rlen, char *base, char *ohost, Err bitreich.org 70
i * $args = $rest_of_path + "?" + $args Err bitreich.org 70
i */ Err bitreich.org 70
i if (stat(path, &dir) == -1) { Err bitreich.org 70
i+ printf("Not found. Try backtraversal.\n"); Err bitreich.org 70
i memmove(argsc, args, strlen(args)); Err bitreich.org 70
i snprintf(path, sizeof(path), "%s", base); Err bitreich.org 70
i- recvbp = recvb + 1; Err bitreich.org 70
i+ recvbp = recvb; Err bitreich.org 70
i+ Err bitreich.org 70
i+ /* Err bitreich.org 70
i+ * Walk into the selector until some directory or file Err bitreich.org 70
i+ * does not exist. Then reconstruct the args, selector Err bitreich.org 70
i+ * etc. Err bitreich.org 70
i+ */ Err bitreich.org 70
i while (recvbp != NULL) { Err bitreich.org 70
i- sep = strsep(&recvbp, "/"); Err bitreich.org 70
i+ /* Traverse multiple / in selector. */ Err bitreich.org 70
i+ for (sep = recvbp; sep != recvbp && sep != recvbp+1; Err bitreich.org 70
i+ sep = strsep(&recvbp, "/")); Err bitreich.org 70
i+ printf("traversal directory = %s\n", sep); Err bitreich.org 70
i+ Err bitreich.org 70
i+ /* Append found directory to path. */ Err bitreich.org 70
i snprintf(path+strlen(path), sizeof(path)-strlen(path), Err bitreich.org 70
i "/%s", sep); Err bitreich.org 70
i+ /* path is now always at least '/' */ Err bitreich.org 70
i+ printf("full traversal path = %s\n", path); Err bitreich.org 70
i+ Err bitreich.org 70
i if (stat(path, &dir) == -1) { Err bitreich.org 70
i+ /* Err bitreich.org 70
i+ * Current try was not found. Go back one Err bitreich.org 70
i+ * step and finish. Err bitreich.org 70
i+ */ Err bitreich.org 70
i c = strrchr(path, '/'); Err bitreich.org 70
i if (c != NULL) { Err bitreich.org 70
i *c++ = '\0'; Err bitreich.org 70
i snprintf(args, sizeof(args), Err bitreich.org 70
i- "/%s%s%s%s%s", Err bitreich.org 70
i+ "/%s%s%s%s", Err bitreich.org 70
i c, Err bitreich.org 70
i (recvbp != NULL)? "/" : "", Err bitreich.org 70
i (recvbp != NULL)? recvbp : "", Err bitreich.org 70
i- (argsc[0] != '\0')? "?" : "", Err bitreich.org 70
i (argsc[0] != '\0')? argsc : "" Err bitreich.org 70
i ); Err bitreich.org 70
i+ printf("args = %s\n", args); Err bitreich.org 70
i } Err bitreich.org 70
i /* path fallthrough */ Err bitreich.org 70
i pathfallthrough = 1; Err bitreich.org 70
i+ printf("pathfallthrough = 1\n"); Err bitreich.org 70
i break; Err bitreich.org 70
i } Err bitreich.org 70
i } Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i+ printf("path = %s\n", path); Err bitreich.org 70
i if (stat(path, &dir) != -1) { Err bitreich.org 70
i /* Err bitreich.org 70
i * If sticky bit is set, only serve if this is encrypted. Err bitreich.org 70
i@@ -311,9 +346,11 @@ handlerequest(int sock, char *req, int rlen, char *base, char *ohost, Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i if (S_ISDIR(dir.st_mode)) { Err bitreich.org 70
i+ printf("S_ISDIR\n"); Err bitreich.org 70
i for (i = 0; i < sizeof(indexf)/sizeof(indexf[0]); Err bitreich.org 70
i i++) { Err bitreich.org 70
i- if (strlen(path) + strlen(indexf[i]) Err bitreich.org 70
i+ len = strlen(path); Err bitreich.org 70
i+ if (len + strlen(indexf[i]) + (path[len-1] == '/')? 0 : 1 Err bitreich.org 70
i >= sizeof(path)) { Err bitreich.org 70
i if (loglvl & ERRORS) { Err bitreich.org 70
i logentry(clienth, clientp, Err bitreich.org 70
i@@ -322,12 +359,18 @@ handlerequest(int sock, char *req, int rlen, char *base, char *ohost, Err bitreich.org 70
i } Err bitreich.org 70
i return; Err bitreich.org 70
i } Err bitreich.org 70
i- strncat(path, indexf[i], Err bitreich.org 70
i- sizeof(path)-strlen(path)-1); Err bitreich.org 70
i+ sprintf(path, "%s%s%s", Err bitreich.org 70
i+ path, Err bitreich.org 70
i+ (path[len-1] == '/')? "" : "/", Err bitreich.org 70
i+ indexf[i]); Err bitreich.org 70
i+ printf("path index = %s\n", path); Err bitreich.org 70
i fd = open(path, O_RDONLY); Err bitreich.org 70
i if (fd >= 0) Err bitreich.org 70
i break; Err bitreich.org 70
i- path[strlen(path)-strlen(indexf[i])] = '\0'; Err bitreich.org 70
i+ Err bitreich.org 70
i+ /* Not found. Clear path from indexf. */ Err bitreich.org 70
i+ printf("len = %d\n", len); Err bitreich.org 70
i+ path[len] = '\0'; Err bitreich.org 70
i } Err bitreich.org 70
i } else { Err bitreich.org 70
i fd = open(path, O_RDONLY); Err bitreich.org 70
i@@ -342,10 +385,9 @@ handlerequest(int sock, char *req, int rlen, char *base, char *ohost, Err bitreich.org 70
i } Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i+ /* Some file was opened. Serve it. */ Err bitreich.org 70
i if (fd >= 0) { Err bitreich.org 70
i close(fd); Err bitreich.org 70
i- if (loglvl & FILES) Err bitreich.org 70
i- logentry(clienth, clientp, recvc, "serving"); Err bitreich.org 70
i Err bitreich.org 70
i c = strrchr(path, '/'); Err bitreich.org 70
i if (c == NULL) Err bitreich.org 70
i@@ -359,8 +401,10 @@ handlerequest(int sock, char *req, int rlen, char *base, char *ohost, Err bitreich.org 70
i if (pathfallthrough && Err bitreich.org 70
i !(type->f == handledcgi || type->f == handlecgi)) { Err bitreich.org 70
i dprintf(sock, notfounderr, recvc); Err bitreich.org 70
i- if (loglvl & ERRORS) Err bitreich.org 70
i- logentry(clienth, clientp, recvc, "not found"); Err bitreich.org 70
i+ if (loglvl & ERRORS) { Err bitreich.org 70
i+ logentry(clienth, clientp, recvc, Err bitreich.org 70
i+ "handler in path fallthrough not allowed"); Err bitreich.org 70
i+ } Err bitreich.org 70
i return; Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i@@ -369,14 +413,21 @@ handlerequest(int sock, char *req, int rlen, char *base, char *ohost, Err bitreich.org 70
i if (loglvl & ERRORS) Err bitreich.org 70
i logentry(clienth, clientp, recvc, "nocgi error"); Err bitreich.org 70
i } else { Err bitreich.org 70
i+ if (loglvl & FILES) Err bitreich.org 70
i+ logentry(clienth, clientp, recvc, "serving"); Err bitreich.org 70
i+ Err bitreich.org 70
i type->f(sock, path, port, base, args, sear, ohost, Err bitreich.org 70
i clienth, serverh, istls); Err bitreich.org 70
i } Err bitreich.org 70
i } else { Err bitreich.org 70
i- /* Err bitreich.org 70
i- * If we had to traverse the path, do not allow directory Err bitreich.org 70
i- * listings, only dynamic content. Err bitreich.org 70
i- */ Err bitreich.org 70
i+ if (pathfallthrough && S_ISDIR(dir.st_mode)) { Err bitreich.org 70
i+ if (loglvl & ERRORS) { Err bitreich.org 70
i+ logentry(clienth, clientp, recvc, Err bitreich.org 70
i+ "directory listing in traversal not allowed"); Err bitreich.org 70
i+ } Err bitreich.org 70
i+ return; Err bitreich.org 70
i+ } Err bitreich.org 70
i+ Err bitreich.org 70
i if (!pathfallthrough && S_ISDIR(dir.st_mode)) { Err bitreich.org 70
i handledir(sock, path, port, base, args, sear, ohost, Err bitreich.org 70
i clienth, serverh, istls); Err bitreich.org 70
i@@ -791,7 +842,7 @@ main(int argc, char *argv[]) Err bitreich.org 70
i perror("chdir"); Err bitreich.org 70
i return 1; Err bitreich.org 70
i } Err bitreich.org 70
i- base = "/"; Err bitreich.org 70
i+ base = ""; Err bitreich.org 70
i if (chroot(".") < 0) { Err bitreich.org 70
i perror("chroot"); Err bitreich.org 70
i return 1; Err bitreich.org 70
i@@ -801,9 +852,9 @@ main(int argc, char *argv[]) Err bitreich.org 70
i return 1; Err bitreich.org 70
i } Err bitreich.org 70
i Err bitreich.org 70
i- /* strip / at the end, except if it is "/" */ Err bitreich.org 70
i- for (p = base + strlen(base); p > base + 1 && p[-1] == '/'; --p) Err bitreich.org 70
i- p[-1] = '\0'; Err bitreich.org 70
i+ /* strip / at the end of base */ Err bitreich.org 70
i+ for (p = base + strlen(base) - 1; p >= base && p[0] == '/'; --p) Err bitreich.org 70
i+ p[0] = '\0'; Err bitreich.org 70
i Err bitreich.org 70
i if (dropprivileges(gr, us) < 0) { Err bitreich.org 70
i perror("dropprivileges"); Err bitreich.org 70
i@@ -1063,21 +1114,32 @@ read_selector_again: Err bitreich.org 70
i close(tlssocks[tlsclientreader? 1 : 0]); Err bitreich.org 70
i do { Err bitreich.org 70
i if (tlsclientreader) { Err bitreich.org 70
i- shuflen = read(tlssocks[0], shufbuf, sizeof(shufbuf)-1); Err bitreich.org 70
i+ shuflen = read(tlssocks[0], Err bitreich.org 70
i+ shufbuf, Err bitreich.org 70
i+ sizeof(shufbuf)-1); Err bitreich.org 70
i } else { Err bitreich.org 70
i- shuflen = tls_read(tlsclientctx, shufbuf, sizeof(shufbuf)-1); Err bitreich.org 70
i+ shuflen = tls_read(tlsclientctx, Err bitreich.org 70
i+ shufbuf, Err bitreich.org 70
i+ sizeof(shufbuf)-1); Err bitreich.org 70
i } Err bitreich.org 70
i if (shuflen == -1 && errno == EINTR) Err bitreich.org 70
i continue; Err bitreich.org 70
i- for (shufpos = 0; shufpos < shuflen; shufpos += wlen) { Err bitreich.org 70
i+ for (shufpos = 0; shufpos < shuflen; Err bitreich.org 70
i+ shufpos += wlen) { Err bitreich.org 70
i if (tlsclientreader) { Err bitreich.org 70
i- wlen = tls_write(tlsclientctx, shufbuf+shufpos, shuflen-shufpos); Err bitreich.org 70
i+ wlen = tls_write(tlsclientctx, Err bitreich.org 70
i+ shufbuf+shufpos, Err bitreich.org 70
i+ shuflen-shufpos); Err bitreich.org 70
i if (wlen < 0) { Err bitreich.org 70
i- fprintf(stderr, "tls_write failed: %s\n", tls_error(tlsclientctx)); Err bitreich.org 70
i+ fprintf(stderr, Err bitreich.org 70
i+ "tls_write failed: %s\n", Err bitreich.org 70
i+ tls_error(tlsclientctx)); Err bitreich.org 70
i return 1; Err bitreich.org 70
i } Err bitreich.org 70
i } else { Err bitreich.org 70
i- wlen = write(tlssocks[1], shufbuf+shufpos, shuflen-shufpos); Err bitreich.org 70
i+ wlen = write(tlssocks[1], Err bitreich.org 70
i+ shufbuf+shufpos, Err bitreich.org 70
i+ shuflen-shufpos); Err bitreich.org 70
i if (wlen < 0) { Err bitreich.org 70
i perror("write"); Err bitreich.org 70
i return 1; Err bitreich.org 70
.
Response:
text/plain