Add HTTP Server to Online Medley docker image; serves files from MEDLEY_USERDIR/webfiles;

docker_medley/Dockerfile_medley

@@ -47,9 +47,13 @@ ENV NOTECARDS_RELEASE=$NOTECARDS_RELEASE
 ARG DEBIAN_FRONTEND=noninteractive
 ARG USER_NAME=medley
 ARG HOMEDIR=/home/${USER_NAME}
+ARG OIO_INSTALLDIR=/usr/local/interlisp/online
 ARG MEDLEY_INSTALLDIR=/usr/local/interlisp/medley
+ARG MEDLEY_WEBDIR=${HOMEDIR}/il/webfiles
+ENV OIO_INSTALLDIR=${OIO_INSTALLDIR}
 ENV MEDLEY_INSTALLDIR=${MEDLEY_INSTALLDIR}
 ENV MEDLEY_USERDIR=${HOMEDIR}/il
+ENV MEDLEY_WEBDIR=${MEDLEY_WEBDIR}
 ARG MAIKO_INSTALLDIR=/usr/local/interlisp/maiko
 ENV MAIKO_INSTALLDIR=${MAIKO_INSTALLDIR}
 
@@ -107,13 +111,16 @@ RUN mkdir -p ${MEDLEY_USERDIR} \
     && chown ${USER_NAME}:${USER_NAME} ${MEDLEY_USERDIR}/vmem
 
 # copy the run-XXX and other scripts into ${MEDLEY_INSTALLDIR}/../online/bin
-ARG ONLINE_BINDIR=${MEDLEY_INSTALLDIR}/../online/bin
+ARG ONLINE_BINDIR=${OIO_INSTALLDIR}/bin
 RUN mkdir -p ${ONLINE_BINDIR} \
     && chown root:root ${ONLINE_BINDIR}
 COPY scripts/* ${ONLINE_BINDIR}
 RUN chmod ugo+x ${ONLINE_BINDIR}/* \
     && ln -s ${ONLINE_BINDIR}/request_new_tab.sh ${ONLINE_BINDIR}/request_new_tab
 
+# copy online-specific files into medley/library
+COPY --chown=${USER_NAME}:${USER_NAME} library/ONLINEUTILS ${MEDLEY_INSTALLDIR}/library
+COPY --chown=${USER_NAME}:${USER_NAME} library/ONLINEUTILS.LCOM ${MEDLEY_INSTALLDIR}/library
 
 # copy INIT file into home directory
 COPY --chown=${USER_NAME}:${USER_NAME} init/INIT ${MEDLEY_USERDIR}
@@ -140,6 +147,11 @@ RUN mkdir -p /etc/letsencrypt/live/online.interlisp.org/ \
     && mkdir -p /etc/letsencrypt/archive/online.interlisp.org/ \
     && chmod go-rwx /etc/letsencrypt/archive
 
+# For web files directory - copied there in run-online-medley script
+RUN mkdir -p ${OIO_INSTALLDIR}/misc \
+    && chown root:root ${OIO_INSTALLDIR}/misc 
+COPY --chown=root:root misc/test.html ${OIO_INSTALLDIR}/misc
+
 # In actual use, USER and ENTRYPOINT will be set by the docker run command
 WORKDIR ${HOMEDIR}
 USER root:root

docker_medley/init/ONLINE-INIT

@@ -1,10 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "18-Mar-2025 22:45:51" {DSK}<home>medley>il>ONLINE-INIT.;1
 10668  
+
(FILECREATED "18-Nov-2025 23:19:56" {DSK}<home>frank>il>online>docker_medley>init>ONLINE-INIT.;51
 10938  
 
-      :EDIT-BY "guest"
+      :EDIT-BY "FGH"
 
-      :PREVIOUS-DATE "17-Mar-2025 17:06:18" {DSK}<home>medley>il>ONLINE-INIT.;1)
+      :CHANGES-TO (VARS ONLINE-INITCOMS)
+
+      :PREVIOUS-DATE "29-Oct-2025 23:56:02" 
+{DSK}<home>frank>il>online>docker_medley>init>ONLINE-INIT.;50)
 
 
 (PRETTYCOMPRINT ONLINE-INITCOMS)
@@ -14,6 +17,8 @@
                APPS-INIT)
         (FILES (SYSLOAD)
                VTCHAT)
+        (FILES (SYSLOAD)
+               ONLINEUTILS)
         (GLOBALVARS Online.LogoutTimeout Online.SftpPort Online.SftpPassword Online.SftpDisplay 
                IDLE.PROFILE IDLE.BOUNCING.BOX Online.SftpDisplayMenu ONLINEP ShellBrowser ShellOpener
                CLHS.OPENER MEDLEYDIR)
@@ -30,6 +35,9 @@
 
 (FILESLOAD (SYSLOAD)
        VTCHAT)
+
+(FILESLOAD (SYSLOAD)
+       ONLINEUTILS)
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
 
 (GLOBALVARS Online.LogoutTimeout Online.SftpPort Online.SftpPassword Online.SftpDisplay IDLE.PROFILE
@@ -149,6 +157,8 @@
 (Online.DoInit

   [LAMBDA NIL
 
+    (* ;; "Edited 29-Oct-2025 23:55 by FGH")

+
     (* ;; "Edited 16-Mar-2025 23:26 by guest")

 
     (* ;; "Edited 25-Feb-2024 11:37 by fgh")

@@ -217,14 +227,15 @@
            (RPLACA (CAR CHAT.DISPLAYTYPES)
                   NIL)
 
-           (* ;; 
-
 "Setup NOTECARDSDIRECTORIES.  Should be done it APPS-INIT.  But until thats done, we'll do it here.")

+           (* ;; "Create File Import/Export Button")

 
-           (Online.SetUpNOTECARDSDIRECTORIES
)
+           (Online.FileButton
)
 
-           (* ;; "Create File Import/Export Button")

+           (* ;; "If there is a start-script file, load it ")

 
-           (Online.FileButton
])
+           (LET [(START-SCRIPT (UNIX-GETENV 'START_SCRIPT]
+                (IF
 START-SCRIPT
+                    THEN
 (LOAD START-SCRIPT])
 
 (ONLINEP

   [LAMBDA NIL
                                                (* ; "Edited 24-Feb-2024 22:31 by fgh")

@@ -239,7 +250,7 @@
 (BKSYSBUF " ")
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1640 10532 (Online.SftpInitInfo 1650 . 2523) (Online.SftpUpdateInfo 2525 . 2780) (
-Online.SetUpNOTECARDSDIRECTORIES 2782 . 4490) (Online.FileButton 4492 . 7320) (Online.DoInit 7322 . 
-10393) (ONLINEP 10395 . 10530)))))
+  (FILEMAP (NIL (1828 10802 (Online.SftpInitInfo 1838 . 2711) (Online.SftpUpdateInfo 2713 . 2968) (
+Online.SetUpNOTECARDSDIRECTORIES 2970 . 4678) (Online.FileButton 4680 . 7508) (Online.DoInit 7510 . 
+10663) (ONLINEP 10665 . 10800)))))
 STOP

docker_medley/library/ONLINEUTILS

@@ -0,0 +1,77 @@
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+
+
(FILECREATED "13-Dec-2025 22:45:29" {DSK}<home>medley>il>medley>library>ONLINEUTILS.;1
 3336   
+
+      :EDIT-BY "fgh"
+
+      :CHANGES-TO (VARS ONLINEUTILSCOMS)
+                  (FNS Online.WebfileURL Online.OpenWebfile)
+
+      :PREVIOUS-DATE "18-Nov-2025 22:54:33" {DSK}<usr>local>interlisp>medley>library>ONLINEUTILS.;1
+)
+
+
+(PRETTYCOMPRINT ONLINEUTILSCOMS)
+
+(RPAQQ ONLINEUTILSCOMS
 [(FILES PSEUDOHOSTS)
+                        (FNS ShellHttpGet Online.WebfileURL Online.OpenWebfile)
+                        (P (PSEUDOHOST 'WEBFILES (CONCAT LOGINDIR "/webfiles"])
+
+(FILESLOAD PSEUDOHOSTS)
+(DEFINEQ
+
+(ShellHttpGet

+  [LAMBDA (URL OUTFILENAME)
                                  (* ; "Edited 18-Nov-2025 22:54 by FGH")

+
+    (* ;; "Download a file specified by URL from the internet and place it in anew file name OUTFILENAME.   OUTFILENAME will be versioned if it is on a versioned file device.   Protocol of URL must be http: or https:.  Uses wget (if it exists) or curl (if it exists) via a ShellCommand.  It is an error if the underlying system doesn't have either wget or curl.")

+
                                                             (* ; "Edited 18-Nov-2025 22:39 by FGH")

+    (LET ((UURL (U-CASE URL)))
+         (if
 (NOT (OR (STRPOS "HTTP:://" UURL NIL NIL T)
+                      (STRPOS "HTTPS://" UURL NIL NIL T)))
+             then
 (ERROR "ShellHttpGet URL argument is not a HTTP:// or HTTPS:// Url")))
+    (LET* ((WGET (ShellWhich "wget"))
+           (CURL (if
 (NULL WGET)
+                     then
 (ShellWhich "curl")
+                   else
 NIL))
+           (OUTNAME (OUTFILEP OUTFILENAME))
+           (TMPFILE (CONCAT "/tmp/wget" (CLOCK)))
+           (UNIXFILE (CONCAT "{UNIX}" TMPFILE))
+           (CMD (if
 WGET
+                    then
 (CONCAT WGET " " URL " -O " TMPFILE)
+                  elseif
 CURL
+                    then
 (CONCAT CURL " " URL " --output " TMPFILE)
+                  else
 NIL)))
+          (if
 (NULL CMD)
+              then
 (ERROR "ShellHttpGet - neither wget nor curl are available on this system"))
+          (ShellCommand CMD)
+          (COPYFILE UNIXFILE OUTNAME)
+          (DELFILE UNIXFILE)
+          OUTNAME])
+
+(Online.WebfileURL

+  [LAMBDA (WebFilePath)
                                      (* ; "Edited 13-Dec-2025 22:40 by fgh")

+
+    (* ;; "Return the URL that will acess a webfile using the OIO https server")

+
+    (* ;; "WebfilePath is the path for the file below {WEBFILES}")

+
                                                             (* ; "Edited 13-Dec-2025 21:59 by fgh")

+    (CONCAT "https://online.interlisp.org:" (UNIX-GETENV "OIO_WEBFILES_PORT")
+           "/" WebFilePath])
+
+(Online.OpenWebfile

+  [LAMBDA (WebFilePath)
                                      (* ; "Edited 13-Dec-2025 22:44 by fgh")

+
+    (* ;; "Open a Webfile in a browser using the Online HTTPS server to access the file in the Medley file system.")

+
+    (* ;; " Webfiles are always tored in {WEBFILES}")

+
+    (* ;; " WebfilePath is the path to the file below {WEBFILES}")

+
+    (ShellOpen (Online.WebfileURL
 WebFilePath])
+)
+
+(PSEUDOHOST 'WEBFILES (CONCAT LOGINDIR "/webfiles"))
+(DECLARE%: DONTCOPY
+  (FILEMAP (NIL (671 3259 (ShellHttpGet 681 . 2310) (Online.WebfileURL 2312 . 2817) (Online.OpenWebfile 
+2819 . 3257)))))
+STOP

docker_medley/misc/test.html

@@ -0,0 +1,45 @@
+<!DOCTYPE html>
+<html lang="en">
+<head>
+    <meta charset="UTF-8">
+    <meta name="viewport" content="width=device-width, initial-scale=1.0">
+    <title>My First HTML Page</title>
+    <style>
+        /* Simple styling */
+        body {
+            font-family: Arial, sans-serif;
+            background-color: #f4f4f4;
+            margin: 20px;
+        }
+        h1 {
+            color: #333;
+        }
+        p {
+            color: #555;
+        }
+        a {
+            color: #007BFF;
+            text-decoration: none;
+        }
+        a:hover {
+            text-decoration: underline;
+        }
+    </style>
+</head>
+<body>
+
+    <h1>Welcome to My First HTML Page</h1>
+    <p>This is a simple example of an HTML page with some basic styling.</p>
+
+    <h2>Features:</h2>
+    <ul>
+        <li>Headings</li>
+        <li>Paragraphs</li>
+        <li>Lists</li>
+        <li>Links</li>
+    </ul>
+
+    <p>Visit <a href="https://www.example.com" target="_blank">Example.com</a> for more info.</p>
+
+</body>
+</html>

docker_medley/scripts/https.py

@@ -0,0 +1,38 @@
+#!/usr/bin/env python3
+# Author: Sean Pesce
+# Modified by Frank Halasz @ Interlisp.org 2025-12-12
+
+# References:
+#   https://stackoverflow.com/questions/19705785/python-3-simple-https-server
+#   https://docs.python.org/3/library/ssl.html
+#   https://docs.python.org/3/library/http.server.html
+
+# Shell command to create a self-signed TLS certificate and private key:
+#    openssl req -new -newkey rsa:4096 -x509 -sha256 -days 365 -nodes -out cert.crt -keyout private.key
+
+import http.server
+import ssl
+import sys
+import os
+
+def serve(host, port, cert_fpath, privkey_fpath, dir):
+    os.chdir(dir)
+    context = ssl.SSLContext(ssl.PROTOCOL_TLS_SERVER)  # Might need to use ssl.PROTOCOL_TLS for older versions of Python
+    context.load_cert_chain(certfile=cert_fpath, keyfile=privkey_fpath, password='')
+    server_address = (host, port)
+    httpd = http.server.HTTPServer(server_address, http.server.SimpleHTTPRequestHandler)
+    httpd.socket = context.wrap_socket(httpd.socket, server_side=True)
+    httpd.serve_forever()
+
+
+if __name__ == '__main__':
+    if len(sys.argv) < 4:
+        print(f'Usage:\n  {sys.argv[0]} <port> <PEM certificate file> <private key file>')
+        sys.exit()
+
+    PORT = int(sys.argv[1])
+    CERT_FPATH = sys.argv[2]
+    PRIVKEY_FPATH = sys.argv[3]
+    DIR = sys.argv[4]
+
+    serve('0.0.0.0', PORT, CERT_FPATH, PRIVKEY_FPATH, DIR)

docker_medley/scripts/run-online-medley

@@ -11,9 +11,11 @@
 #
 #set -x
 
+TLS_CERT_FILE=/etc/letsencrypt/live/online.interlisp.org/fullchain.pem
+TLS_KEY_FILE=/etc/letsencrypt/live/online.interlisp.org/privkey.pem
+
 if [ -z "${NCO}" ]; then export NCO="false"; fi
 if [ -z "${MEDLEY_EXEC}" ]; then export MEDLEY_EXEC="common"; fi
-
 RELEASE_SYSOUT_PATH="${MEDLEY_INSTALLDIR}/loadups/apps.sysout"
 CUSTOM_SYSOUT_PATH="${MEDLEY_USERDIR}/sysout/online.sysout"
 RELEASE_INIT_PATH="${MEDLEY_INSTALLDIR}/greetfiles/ONLINE-INIT.LCOM"
@@ -67,6 +69,20 @@ if [ $# -gt 1 ] && [ "$2" = "custom" ]; then
     fi
 fi
 #
+unset START_SCRIPT
+if [ -n "${START_SCRIPT_URL}" ]
+then
+  export START_SCRIPT="${MEDLEY_USERDIR}/initdir/START-SCRIPT"
+  mkdir -p "$(dirname "${START_SCRIPT}")"
+  wget "${START_SCRIPT_URL}" -O "${START_SCRIPT}"
+  if [ $? -ne 0 ]
+  then
+    rm -f "${START_SCRIPT}"
+    unset START_SCRIPT
+  fi
+fi
+unset START_SCRIPT_URL
+#
 if [ $# -gt 2 ]; then
 	width=$3
 else
@@ -132,8 +148,8 @@ export FILEBROWSER_DATABASE=/usr/local/filebrowser/filebrowser.db
 export FILEBROWSER_PORT=3${PORT}
 if [ ${SUPPORT_HTTPS} = "yes" ];
 then
-  export FILEBROWSER_CERT="--cert /etc/letsencrypt/live/online.interlisp.org/fullchain.pem"
-  export FILEBROWSER_KEY="--key /etc/letsencrypt/live/online.interlisp.org/privkey.pem"
+  export FILEBROWSER_CERT="--cert ${TLS_CERT_FILE}"
+  export FILEBROWSER_KEY="--key ${TLS_KEY_FILE}"
 else
   export FILEBROWSER_CERT=""
   export FILEBROWSER_KEY=""
@@ -144,6 +160,27 @@ fi
           ${FILEBROWSER_CERT} ${FILEBROWSER_KEY} &
 export OIO_FB_URL="${OIO_FB_URL}:${FILEBROWSER_PORT}/files/il?u=${MEDLEY_UNAME}&p=${SFTP_PWD}"
 #
+#  Start http server
+#
+# need to create WEBDIR here (if needed) and not in Dockerfile_medley since file system might be remaining
+# from before WEBDIR was intrduced
+if [ ! -e "${MEDLEY_WEBDIR}" ]
+then
+    mkdir -p "${MEDLEY_WEBDIR}"
+    chown ${MEDLEY_UNAME}:medley "${MEDLEY_WEBDIR}"
+    cp -rp "${OIO_INSTALLDIR}"/misc/test.html  "${MEDLEY_WEBDIR}"
+    chown ${MEDLEY_UNAME}:medley "${MEDLEY_WEBDIR}"/test.html
+fi
+HTTP_PORT=4${PORT}
+if [ ${SUPPORT_HTTPS} = "yes" ]
+then
+   "${OIO_INSTALLDIR}"/bin/https.py \
+        "${HTTP_PORT}" "${TLS_CERT_FILE}" "${TLS_KEY_FILE}" "${MEDLEY_WEBDIR}" &
+else
+  /usr/bin/python3 -m http.server ${HTTP_PORT} -d "${MEDLEY_WEBDIR}" &
+fi
+export OIO_WEBFILES_PORT=${HTTP_PORT}
+#
 #
 #
 su ${MEDLEY_UNAME} <<EOF