Fgh museum mode

docker_medley/init/ONLINE-INIT

@@ -1,10 +1,15 @@
 (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 "29-Oct-2025 23:56:02" {DSK}<home>frank>il>medley>greetfiles>ONLINE-INIT.;2
 11034  
 
-      :EDIT-BY "guest"
+      :EDIT-BY "FGH"
 
-      :PREVIOUS-DATE "17-Mar-2025 17:06:18" {DSK}<home>medley>il>ONLINE-INIT.;1)
+      :CHANGES-TO (ADVICE (SAVEVM :IN \IDLER))
+                  (FNS Online.SftpInitInfo Online.SftpUpdateInfo Online.SetUpNOTECARDSDIRECTORIES 
+                       Online.DoInit ONLINEP Online.FileButton)
+                  (VARS ONLINE-INITCOMS)
+
+      :PREVIOUS-DATE "18-Mar-2025 22:45:51" {DSK}<home>frank>il>medley>greetfiles>ONLINE-INIT.;1)
 
 
 (PRETTYCOMPRINT ONLINE-INITCOMS)
@@ -149,6 +154,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 +224,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 +247,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 (1924 10898 (Online.SftpInitInfo 1934 . 2807) (Online.SftpUpdateInfo 2809 . 3064) (
+Online.SetUpNOTECARDSDIRECTORIES 3066 . 4774) (Online.FileButton 4776 . 7604) (Online.DoInit 7606 . 
+10759) (ONLINEP 10761 . 10896)))))
 STOP

docker_medley/scripts/run-online-medley

@@ -67,6 +67,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

start-scripts/START-INSPHEX

@@ -0,0 +1,55 @@
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+
+
(FILECREATED "11-Nov-2025 23:54:22" {DSK}<home>frank>il>online>start-scripts>START-INSPHEX.;18
 2203   
+
+      :EDIT-BY "FGH"
+
+      :CHANGES-TO (FNS START-INSPHEX)
+                  (FUNCTIONS TmpShellWget)
+                  (VARS START-INSPHEXCOMS)
+
+      :PREVIOUS-DATE "11-Nov-2025 23:50:23" {DSK}<home>frank>il>online>start-scripts>START-INSPHEX.;17
+)
+
+
+(PRETTYCOMPRINT START-INSPHEXCOMS)
+
+(RPAQQ START-INSPHEXCOMS
 ((FUNCTIONS TmpShellWget)
+                          (FNS START-INSPHEX)
+                          (P (START-INSPHEX))))
+
+(CL:DEFUN TmpShellWget
 (URL OUTFILENAME)
                     (* ; "Edited 11-Nov-2025 23:50 by FGH")

+   (LET* ((WGET (ShellWhich "wget"))
+          (OUTNAME (OUTFILEP OUTFILENAME))
+          (TMPFILE (CONCAT "/tmp/wget" (CLOCK)))
+          (UNIXFILE (CONCAT "{UNIX}" TMPFILE))
+          (CMD (CONCAT WGET " " URL " -O " TMPFILE)))
+         (if
 (NULL WGET)
+             then
 (ERROR "ShellWget - wget not available"))
+         (ShellCommand CMD)
+         (COPYFILE UNIXFILE OUTNAME)
+         (DELFILE UNIXFILE)
+         OUTNAME))
+(DEFINEQ
+
+(START-INSPHEX

+  [LAMBDA NIL
                                                (* ; "Edited 11-Nov-2025 23:54 by FGH")


+                                                             (* ; "Edited  7-Nov-2025 10:43 by FGH")

+    (LET* ((INSPHEX.FILE (OUTFILEP "{CORE}INSPHEX"))
+           INSPHEX.DFASL)
+          (TmpShellWget
 "https://raw.githubusercontent.com/pamoroso/insphex/refs/heads/main/INSPHEX"
+                 INSPHEX.FILE)
+          (SETQ INSPHEX.DFASL (CL:COMPILE-FILE INSPHEX.FILE))
+          (LOAD INSPHEX.DFASL)
+          (ADD.PROCESS (LIST (CL:FIND-SYMBOL "HEXDUMP" "INSPHEX")
+                             (KWOTE INSPHEX.DFASL)
+                             '(CREATEW (CREATEREGION (FIX (TIMES 0.35 SCREENWIDTH))
+                                              (FIX (TIMES 0.25 SCREENHEIGHT))
+                                              (FIX (TIMES 0.5 SCREENWIDTH))
+                                              (FIX (TIMES 0.5 SCREENHEIGHT])
+)
+
+(START-INSPHEX
)
+(DECLARE%: DONTCOPY
+  (FILEMAP (NIL (623 1170 (TmpShellWget 623 . 1170)) (1171 2159 (START-INSPHEX 1181 . 2157)))))
+STOP

start-scripts/START-INSPHEX.URL

@@ -0,0 +1,2 @@
+https://online.interlisp.org:8081/demo?start=https%3A%2F%2Fgithub.com%2FInterlisp%2Fonline%2Fraw%2Frefs%2Fheads%2Ffgh_museum-mode%2Fstart-scripts%2FSTART-INSPHEX.LCOM
+

start-scripts/START-KINETIC

@@ -0,0 +1,33 @@
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+
+
(FILECREATED " 1-Nov-2025 13:41:38" {DSK}<home>frank>il>medley>START-KINETIC.;2
 1112   
+
+      :EDIT-BY "FGH"
+
+      :CHANGES-TO (FNS START-KINETIC)
+
+      :PREVIOUS-DATE " 1-Nov-2025 13:21:22" {DSK}<home>frank>il>medley>START-KINETIC.;1)
+
+
+(PRETTYCOMPRINT START-KINETICCOMS)
+
+(RPAQQ START-KINETICCOMS
 ((FILES KINETIC)
+                          (FNS START-KINETIC)
+                          (P (START-KINETIC))))
+
+(FILESLOAD KINETIC)
+(DEFINEQ
+
+(START-KINETIC

+  [LAMBDA NIL
                                                (* ; "Edited  1-Nov-2025 13:41 by FGH")


+                                                             (* ; "Edited  1-Nov-2025 13:15 by FGH")

+    (ADD.PROCESS '(KINETIC (CREATEW (CREATEREGION (FIX (TIMES 0.25 SCREENWIDTH))
+                                           (FIX (TIMES 0.25 SCREENHEIGHT))
+                                           (FIX (TIMES 0.5 SCREENWIDTH))
+                                           (FIX (TIMES 0.5 SCREENHEIGHT])
+)
+
+(START-KINETIC
)
+(DECLARE%: DONTCOPY
+  (FILEMAP (NIL (517 1068 (START-KINETIC 527 . 1066)))))
+STOP

start-scripts/START-KINETIC.URL

@@ -0,0 +1 @@
+https://online.interlisp.org:8081/demo?start=https%3A%2F%2Fgithub.com%2FInterlisp%2Fonline%2Fraw%2Frefs%2Fheads%2Ffgh_museum-mode%2Fstart-scripts%2FSTART-KINETIC

system/install_mongodb8.0.sh

@@ -0,0 +1,8 @@
+!#/bin/bash
+wget -qO - https://www.mongodb.org/static/pgp/server-8.0.asc | sudo apt-key add -
+echo "deb [ arch=amd64,arm64 ] https://repo.mongodb.org/apt/ubuntu focal/mongodb-org/8.0 multiverse" | sudo tee /etc/apt/sources.list.d/mongodb-org-8.0.list
+sudo apt update
+sudo apt install -y mongodb-org
+sudo systemctl start mongod
+sudo systemctl enable mongod
+sudo systemctl status mongod

web-portal/client/js/main.js

@@ -99,7 +99,10 @@ window.addEventListener('load', (event) => {
             document.getElementById("interlisp_rb").checked = true;
     }
     fillWindowOnClick();
-    document.getElementById("dev-options-checkbox").checked = (localStore.getItem("show_dev_options") == "true");
+    if (alStart != "") document.getElementById("start_script_url").value = alStart;
+    else document.getElementById("start_script_url").value = localStore.getItem("start_script_url");
+    if ((localStore.getItem("show_dev_options") == "true") || (document.getElementById("start_script_url").value != ""))
+          document.getElementById("dev-options-checkbox").checked = true;
     showDevOptionsOnClick();
     if( ! (isAutoLogin || fromvnc)) {
         if(isVerified != true) {
@@ -127,7 +130,14 @@ function startSession (interlispOrXterm) {
     const runRooms = document.getElementById("run_rooms_cb").checked ? "true": "false";
     const startSftp = document.getElementById("sftp_checkbox").checked ? "true": "false";
     const medleyExec = document.getElementById("interlisp_rb").checked ? "inter" : "common";
+    const startScriptUrl =
+            (function() {
+                let ss = document.getElementById("start_script_url").value;
+                if (ss.includes("%2F")) ss = decodeURIComponent(ss);
+                return ss;
+             })();
     if(!isGuest) {
+        localStore.setItem("start_script_url", startScriptUrl);
         localStore.setItem("fill-window", fillWindow ? 'true' : 'false');
         if(! fillWindow) {
             localStore.setItem("screen_width", screenWidth);
@@ -159,36 +169,7 @@ function startSession (interlispOrXterm) {
         .then(  data => {
                     const isRunning = data.isRunning;
                     const sessionType = data.target;
-                    if(isRunning) {
-                        new Promise((resolve, reject) => {
-                            const dlg = document.getElementById("reconnect-dialog");
-                            const typeEl = document.getElementById("rd-type-span");
-                            typeEl.html = sessionType;
-                            dlg.resolve = resolve;
-                            dlg.reject = reject;
-                            dlg.showModal();
-                            }
-                        )
-                        .then(RorK => {
-                                window.location.assign(
-                                    `/medley/${interlispOrXterm || "interlisp"}`
-                                    + `?screen_width=${screenWidth}`
-                                    + `&screen_height=${screenHeight}`
-                                    + `&if=${RorK}`
-                                    + `&resume=${resume || "false"}`
-                                    + `&custom=${custom || "false"}`
-                                    + `&custom_init=${customInit || "false"}`
-                                    + `&notecards=${runNotecards || "false"}`
-                                    + `&rooms=${runRooms || "false"}`
-                                    + `&sftp=${startSftp || "false"}`
-                                    + `&exec=${medleyExec || "inter"}`
-                                    + ( isAutoLogin ? "&autologin" : "")
-                                );
-                            }
-                        );
-                    }
-                    else {
-                        window.location.assign(
+                    const medley_url =
                             `/medley/${interlispOrXterm || "interlisp"}`
                             + `?screen_width=${screenWidth}`
                             + `&screen_height=${screenHeight}`
@@ -200,8 +181,22 @@ function startSession (interlispOrXterm) {
                             + `&sftp=${startSftp || "false"}`
                             + `&exec=${medleyExec || "inter"}`
                             + ( isAutoLogin ? "&autologin" : "")
-                            );
+                            + ( (startScriptUrl != "") ? `&start=${encodeURIComponent(startScriptUrl)}` : "" )
+			;
+
+                    if(isRunning) {
+                        new Promise((resolve, reject) => {
+                            const dlg = document.getElementById("reconnect-dialog");
+                            const typeEl = document.getElementById("rd-type-span");
+                            typeEl.html = sessionType;
+                            dlg.resolve = resolve;
+                            dlg.reject = reject;
+                            dlg.showModal();
+                            }
+                        )
+                        .then(RorK => { window.location.assign(medley_url + `&if=${RorK}`); } );
                     }
+                    else window.location.assign(medley_url);
                 },
                 reason => {}
         );

web-portal/client/views/again.pug

@@ -28,5 +28,5 @@ block headeradds
 block content
 
     .row.text-center#again-button
-        button.main-button(type="button" onclick='window.location.assign(decodeURI(alURL));')!= "Run Medley Again"
+        button.main-button(type="button" onclick='window.location.assign(decodeURIComponent(alURL));')!= "Run Medley Again"
 

web-portal/client/views/help_dialogs.pug

@@ -122,3 +122,16 @@ dialog(id="help-dialog-which-exec").help-dialog
         Additional Exec windows based on either Interlisp or Common Lisp can be started at any time from the background menu.
     .single-button-div
         button(type="button" onclick='helpDialogClose("which-exec");').main-button OK
+dialog(id="help-dialog-start-script").help-dialog
+    h2  Help
+    p.
+        A start-script if a Medley Lisp file that will be LOADed at the end of the ONLINE-INIT script while Online
+        Medley is starting up.  It can be used to fetch other files from the Internet and/or to run code that will
+        set-up the Medley environment or start a specific Medley application.  This is generally used for automatings
+        demos.  Example start-scripts can be found at https://github.com/interlisp/online/start-scripts. 
+    p.
+        In this field enter a URL that points to a Medley Lisp file that can be downloaded from the Internet with
+        wget.  This file will be downloaded amd LOADed at the end of ONLINE-INIT.
+    .single-button-div
+        button(type="button" onclick='helpDialogClose("start-script");').main-button OK
+

web-portal/client/views/login.pug

@@ -41,7 +41,7 @@ block headeradds
 
             if(info) {
               const errorMessage = document.getElementById("error-message");
-              errorMessage.innerText = info;
+              errorMessage.innerText = decodeURIComponent(info);
               //errorMessage.style.display = "block";
             } else if("#{verificationNotice}" == "true") {
                 const dlg = document.getElementById("verification-dialog");

web-portal/client/views/main.pug

@@ -26,6 +26,7 @@ block headeradds
         const alNotecards = #{notecards};
         const alRooms = #{rooms};
         const alURL = "#{alURL}";
+        const alStart = "#{start}";
 
     link(rel="stylesheet", href="/stylesheets/main.css")
 
@@ -114,6 +115,19 @@ block content
         label.
           <input type="checkbox" id="dev-options-checkbox" onclick="showDevOptionsOnClick();" class="checkbox-input">&nbsp;Show advanced options
       #dev-div-controls(style="display:none;")
+        #start_script_row
+          div.run-option.dev-div-run-option
+            table(style="width:260px;")
+              thead
+                tr
+                  th
+                  th
+              tbody  
+                tr(style="width:100%")
+                   td(style="text-align:left;width:80%;") URL for start-script
+                   td(style="text-align:right;width:20%;")
+                       <span class=in-circle onclick='helpOnClick("start-script");'>?</span>
+            input(type="url" id="start_script_url" name="start_script_url" class="url-input" style="width:100%;margin-bottom:12px;")
         #custom_sysout_row
           label.run-option.dev-div-run-option.
             <input type="checkbox" id="custom_sysout_cb" class="checkbox-input">&nbsp;Run custom sysout

web-portal/client/views/relogin.pug

@@ -0,0 +1,50 @@
+//-
+    /***************************************************************************
+     * 
+     *   relogin.pug:  relogin page for online.interlisp.org web portal. 
+     * 
+     *   2025-11-09 Frank Halasz
+     * 
+     * 
+     *   Copyright: 2025 by Interlisp.org 
+     * 
+     *
+     **************************************************************************/
+
+extends layout
+
+block variables
+
+block headeradds
+
+    link(rel="stylesheet", href="/stylesheets/common.css")
+
+    script.
+
+        window.addEventListener('load', 
+                                 function() { document.getElementById("username").innerText = "#{loggedUsername}"; }
+                               );
+
+        function Yes() { window.location.assign(decodeURIComponent("#{redirectYes}")); }
+
+        function No() { window.location.assign("#{redirectNo}"); }
+
+block content
+
+    div#page-title Demo Mode:  Re-login?
+
+    div.text-center.field.primary-field
+        p Currently logged in as: <span id="username"></span>
+        p
+        p
+        p Keep current login?
+        p
+        p
+    .row
+        .text-center.field.primary-field#yes_no_button_div
+            button(type="button" id="yes_button" onclick="Yes()").main-button Yes, continue with current login
+            p
+            p
+            button(type="button" id="no_button" onclick="No()").main-button No, re-login
+
+