iAdd SERVER_LISTEN_NAME feature. - 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 9ffef532d812330c00bd1043c884f9e685787018	/scm/geomyidae/commit/9ffef532d812330c00bd1043c884f9e685787018.gph	bitreich.org	70
1parent 8b9629bd2a0dae917cbe7e7db44417afc28064f6	/scm/geomyidae/commit/8b9629bd2a0dae917cbe7e7db44417afc28064f6.gph	bitreich.org	70
hAuthor: Christoph Lohmann <20h@r-36.net>	URL:mailto:20h@r-36.net	bitreich.org	70
iDate:   Wed, 26 Oct 2022 19:03:26 +0200	Err	bitreich.org	70
i	Err	bitreich.org	70
iAdd SERVER_LISTEN_NAME feature.	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M geomyidae.8                         |       1 +	Err	bitreich.org	70
i  M handlr.c                            |      17 ++++++++++-------	Err	bitreich.org	70
i  M handlr.h                            |      19 +++++++++++++------	Err	bitreich.org	70
i  M ind.c                               |       3 ++-	Err	bitreich.org	70
i  M ind.h                               |       4 ++--	Err	bitreich.org	70
i  M main.c                              |      27 +++++++++++++++++++--------	Err	bitreich.org	70
i	Err	bitreich.org	70
i6 files changed, 47 insertions(+), 24 deletions(-)	Err	bitreich.org	70
i---	Err	bitreich.org	70
1diff --git a/geomyidae.8 b/geomyidae.8	/scm/geomyidae/file/geomyidae.8.gph	bitreich.org	70
i@@ -381,6 +381,7 @@ Additionally to the above arguments several environment variables are set.	Err	bitreich.org	70
i .Dl SCRIPT_NAME = script which is executed	Err	bitreich.org	70
i .Dl SERVER_NAME = server's hostname	Err	bitreich.org	70
i .Dl SERVER_PORT = server's port	Err	bitreich.org	70
i+.Dl SERVER_LISTEN_NAME = ip the server received the connection on	Err	bitreich.org	70
i .Dl SERVER_PROTOCOL = `gopher/1.0'	Err	bitreich.org	70
i .Dl SERVER_SOFTWARE = `geomyidae'	Err	bitreich.org	70
i .Dl X_GOPHER_SEARCH = search (See above.)	Err	bitreich.org	70
1diff --git a/handlr.c b/handlr.c	/scm/geomyidae/file/handlr.c.gph	bitreich.org	70
i@@ -23,7 +23,7 @@	Err	bitreich.org	70
i 	Err	bitreich.org	70
i 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, int istls)	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         struct dirent **dirent;	Err	bitreich.org	70
i@@ -33,6 +33,7 @@ handledir(int sock, char *path, char *port, char *base, char *args,	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         pa = xstrdup(path);	Err	bitreich.org	70
i         e = pa + strlen(pa) - 1;	Err	bitreich.org	70
i@@ -85,13 +86,14 @@ handledir(int sock, char *path, char *port, char *base, char *args,	Err	bitreich.org	70
i 	Err	bitreich.org	70
i 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, int istls)	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         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         if (act != NULL) {	Err	bitreich.org	70
i@@ -108,7 +110,7 @@ handlegph(int sock, char *file, char *port, char *base, char *args,	Err	bitreich.org	70
i 	Err	bitreich.org	70
i void	Err	bitreich.org	70
i handlebin(int sock, char *file, char *port, char *base, char *args,	Err	bitreich.org	70
i-                char *sear, char *ohost, char *chost, int istls)	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         int fd;	Err	bitreich.org	70
i 	Err	bitreich.org	70
i@@ -117,6 +119,7 @@ handlebin(int sock, char *file, char *port, char *base, char *args,	Err	bitreich.org	70
i         USED(args);	Err	bitreich.org	70
i         USED(sear);	Err	bitreich.org	70
i         USED(ohost);	Err	bitreich.org	70
i+        USED(bhost);	Err	bitreich.org	70
i 	Err	bitreich.org	70
i         fd = open(file, O_RDONLY);	Err	bitreich.org	70
i         if (fd >= 0) {	Err	bitreich.org	70
i@@ -128,7 +131,7 @@ handlebin(int sock, char *file, char *port, char *base, char *args,	Err	bitreich.org	70
i 	Err	bitreich.org	70
i 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, int istls)	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 	Err	bitreich.org	70
i@@ -164,7 +167,7 @@ handlecgi(int sock, char *file, char *port, char *base, char *args,	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-                                istls);	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                                 (char *)NULL) == -1) {	Err	bitreich.org	70
i@@ -183,7 +186,7 @@ handlecgi(int sock, char *file, char *port, char *base, char *args,	Err	bitreich.org	70
i 	Err	bitreich.org	70
i void	Err	bitreich.org	70
i handledcgi(int sock, char *file, char *port, char *base, char *args,	Err	bitreich.org	70
i-                char *sear, char *ohost, char *chost, int istls)	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@@ -225,7 +228,7 @@ handledcgi(int sock, char *file, char *port, char *base, char *args,	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-                                istls);	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                                 (char *)NULL) == -1) {	Err	bitreich.org	70
1diff --git a/handlr.h b/handlr.h	/scm/geomyidae/file/handlr.h.gph	bitreich.org	70
i@@ -17,20 +17,27 @@	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  * chost ... IP of the client sending a request	Err	bitreich.org	70
i+ * bhost ... server IP the server received the connection to	Err	bitreich.org	70
i  * istls ... set to 1, if TLS was used for thr request	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
i-                        char *sear, char *ohost, char *chost, int istls);	Err	bitreich.org	70
i+                        char *sear, char *ohost, char *chost, char *bhost,	Err	bitreich.org	70
i+                        int istls);	Err	bitreich.org	70
i void handlegph(int sock, char *file, char *port, char *base, char *args,	Err	bitreich.org	70
i-                        char *sear, char *ohost, char *chost, int istls);	Err	bitreich.org	70
i+                        char *sear, char *ohost, char *chost, char *bhost,	Err	bitreich.org	70
i+                        int istls);	Err	bitreich.org	70
i void handlebin(int sock, char *file, char *port, char *base, char *args,	Err	bitreich.org	70
i-                        char *sear, char *ohost, char *chost, int istls);	Err	bitreich.org	70
i+                        char *sear, char *ohost, char *chost, char *bhost,	Err	bitreich.org	70
i+                        int istls);	Err	bitreich.org	70
i void handletxt(int sock, char *file, char *port, char *base, char *args,	Err	bitreich.org	70
i-                        char *sear, char *ohost, char *chost, int istls);	Err	bitreich.org	70
i+                        char *sear, char *ohost, char *chost, char *bhost,	Err	bitreich.org	70
i+                        int istls);	Err	bitreich.org	70
i void handlecgi(int sock, char *file, char *port, char *base, char *args,	Err	bitreich.org	70
i-                        char *sear, char *ohost, char *chost, int istls);	Err	bitreich.org	70
i+                        char *sear, char *ohost, char *chost, char *bhost,	Err	bitreich.org	70
i+                        int istls);	Err	bitreich.org	70
i void handledcgi(int sock, char *file, char *port, char *base, char *args,	Err	bitreich.org	70
i-                        char *sear, char *ohost, char *chost, int istls);	Err	bitreich.org	70
i+                        char *sear, char *ohost, char *chost, char *bhost,	Err	bitreich.org	70
i+                        int istls);	Err	bitreich.org	70
i 	Err	bitreich.org	70
i #endif	Err	bitreich.org	70
1diff --git a/ind.c b/ind.c	/scm/geomyidae/file/ind.c.gph	bitreich.org	70
i@@ -531,7 +531,7 @@ reverselookup(char *host)	Err	bitreich.org	70
i 	Err	bitreich.org	70
i void	Err	bitreich.org	70
i setcgienviron(char *file, char *path, char *port, char *base, char *args,	Err	bitreich.org	70
i-                char *sear, char *ohost, char *chost, int istls)	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         /*	Err	bitreich.org	70
i          * TODO: Clean environment from possible unsafe environment variables.	Err	bitreich.org	70
i@@ -569,6 +569,7 @@ setcgienviron(char *file, char *path, char *port, char *base, char *args,	Err	bitreich.org	70
i         setenv("SCRIPT_NAME", file, 1);	Err	bitreich.org	70
i         setenv("SERVER_NAME", ohost, 1);	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         setenv("SERVER_PROTOCOL", "gopher/1.0", 1);	Err	bitreich.org	70
i         setenv("SERVER_SOFTWARE", "geomyidae", 1);	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@@ -27,7 +27,7 @@ struct filetype {	Err	bitreich.org	70
i         char *end;	Err	bitreich.org	70
i         char *type;	Err	bitreich.org	70
i         void (* f)(int, char *, char *, char *, char *, char *, char *,	Err	bitreich.org	70
i-                char *, int);	Err	bitreich.org	70
i+                char *, char *, int);	Err	bitreich.org	70
i };	Err	bitreich.org	70
i 	Err	bitreich.org	70
i filetype *gettype(char *filename);	Err	bitreich.org	70
i@@ -49,7 +49,7 @@ 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                 char *args, char *sear, char *ohost, char *chost,	Err	bitreich.org	70
i-                int istls);	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 	Err	bitreich.org	70
1diff --git a/main.c b/main.c	/scm/geomyidae/file/main.c.gph	bitreich.org	70
i@@ -133,8 +133,8 @@ logentry(char *host, char *port, char *qry, char *status)	Err	bitreich.org	70
i 	Err	bitreich.org	70
i void	Err	bitreich.org	70
i handlerequest(int sock, char *req, int rlen, char *base, char *ohost,	Err	bitreich.org	70
i-              char *port, char *clienth, char *clientp, int nocgi,	Err	bitreich.org	70
i-              int istls)	Err	bitreich.org	70
i+              char *port, char *clienth, char *clientp, char *serverh,	Err	bitreich.org	70
i+              char *serverp, int nocgi, int istls)	Err	bitreich.org	70
i {	Err	bitreich.org	70
i         struct stat dir;	Err	bitreich.org	70
i         char recvc[1025], recvb[1025], path[1025], args[1025], argsc[1025],	Err	bitreich.org	70
i@@ -367,7 +367,7 @@ handlerequest(int sock, char *req, int rlen, char *base, char *ohost,	Err	bitreich.org	70
i                                 logentry(clienth, clientp, recvc, "nocgi error");	Err	bitreich.org	70
i                 } else {	Err	bitreich.org	70
i                         type->f(sock, path, port, base, args, sear, ohost,	Err	bitreich.org	70
i-                                clienth, istls);	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@@ -376,7 +376,7 @@ handlerequest(int sock, char *req, int rlen, char *base, char *ohost,	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, istls);	Err	bitreich.org	70
i+                                clienth, serverh, istls);	Err	bitreich.org	70
i                         if (loglvl & DIRS) {	Err	bitreich.org	70
i                                 logentry(clienth, clientp, recvc,	Err	bitreich.org	70
i                                                         "dir listing");	Err	bitreich.org	70
i@@ -540,9 +540,9 @@ int	Err	bitreich.org	70
i main(int argc, char *argv[])	Err	bitreich.org	70
i {	Err	bitreich.org	70
i         struct addrinfo hints;	Err	bitreich.org	70
i-        struct sockaddr_storage clt;	Err	bitreich.org	70
i+        struct sockaddr_storage clt, slt;	Err	bitreich.org	70
i         struct linger lingerie;	Err	bitreich.org	70
i-        socklen_t cltlen;	Err	bitreich.org	70
i+        socklen_t cltlen, sltlen;	Err	bitreich.org	70
i         int sock, dofork = 1, inetf = AF_UNSPEC, usechroot = 0,	Err	bitreich.org	70
i             nocgi = 0, errno_save, nbindips = 0, i, j,	Err	bitreich.org	70
i             nlfdret, *lfdret, listfd, maxlfd, istls = 0,	Err	bitreich.org	70
i@@ -560,7 +560,7 @@ main(int argc, char *argv[])	Err	bitreich.org	70
i #ifdef ENABLE_TLS	Err	bitreich.org	70
i              *certfile = NULL, *keyfile = NULL,	Err	bitreich.org	70
i #endif /* ENABLE_TLS */	Err	bitreich.org	70
i-             byte0, recvb[1025];	Err	bitreich.org	70
i+             byte0, recvb[1025], serverh[NI_MAXHOST], serverp[NI_MAXSERV];	Err	bitreich.org	70
i         struct passwd *us = NULL;	Err	bitreich.org	70
i         struct group *gr = NULL;	Err	bitreich.org	70
i #ifdef ENABLE_TLS	Err	bitreich.org	70
i@@ -858,6 +858,16 @@ main(int argc, char *argv[])	Err	bitreich.org	70
i                         }	Err	bitreich.org	70
i                 }	Err	bitreich.org	70
i 	Err	bitreich.org	70
i+                sltlen = sizeof(slt);	Err	bitreich.org	70
i+                serverh[0] = serverp[0] = '\0';	Err	bitreich.org	70
i+                if (getsockname(sock, (struct sockaddr *)&slt, &sltlen) == 0) {	Err	bitreich.org	70
i+                        getnameinfo((struct sockaddr *)&slt, sltlen, serverh,	Err	bitreich.org	70
i+                                        sizeof(serverh), serverp, sizeof(serverp),	Err	bitreich.org	70
i+                                        NI_NUMERICHOST|NI_NUMERICSERV);	Err	bitreich.org	70
i+                }	Err	bitreich.org	70
i+                if (!strncmp(serverh, "::ffff:", 7))	Err	bitreich.org	70
i+                        memmove(serverh, serverh+7, strlen(serverh)-6);	Err	bitreich.org	70
i+	Err	bitreich.org	70
i                 if (getnameinfo((struct sockaddr *)&clt, cltlen, clienth,	Err	bitreich.org	70
i                                 sizeof(clienth), clientp, sizeof(clientp),	Err	bitreich.org	70
i                                 NI_NUMERICHOST|NI_NUMERICSERV)) {	Err	bitreich.org	70
i@@ -996,7 +1006,8 @@ main(int argc, char *argv[])	Err	bitreich.org	70
i 	Err	bitreich.org	70
i                         handlerequest(sock, recvb, rlen, base,	Err	bitreich.org	70
i                                         ohost, sport, clienth,	Err	bitreich.org	70
i-                                        clientp, nocgi, istls);	Err	bitreich.org	70
i+                                        clientp, serverh, serverp,	Err	bitreich.org	70
i+                                        nocgi, istls);	Err	bitreich.org	70
i 	Err	bitreich.org	70
i                         if (!istls) {	Err	bitreich.org	70
i                                 /*	Err	bitreich.org	70
.