Fix multiple bugs in do_hcfiles script; fixed multiple bugs in doHCFI…

…LES workflow

.github/workflows/doHCFILES.yml

@@ -75,8 +75,11 @@ jobs:
         env:
           GH_TOKEN: ${{ secrets.MU_TOKEN }}
 
-      - name: Install vnc
-        run: sudo apt-get update && sudo apt-get install -y tightvncserver
+      - name: Install vnc & ghostscript (ps2pdf)
+        run: |
+          sudo apt-get update
+          sudo apt-get install -y tightvncserver
+          sudo apt-get install -y ghostscript
 
       - name: Build apps.sysout
         run: |
@@ -98,7 +101,7 @@ jobs:
             eval $(ssh-agent)
             ssh-add - <<< "${SSH_KEY}"
             # set destination directory on files.interlisp.org
-            dest=/srv/oio/source
+            dest=/srv/oio/files/source
             # Push tar file up to files.interlisp.org
             batchfile=/tmp/batch-$$
             echo "-put ${tarfile} ${dest}.tgz" > ${batchfile}
@@ -108,9 +111,10 @@ jobs:
             echo "rm -rf ${dest}.new" > ${scriptfile}
             echo "mkdir -p ${dest}.new" >> ${scriptfile}
             echo "tar -C ${dest}.new -x -z -f ${dest}.tgz" >> ${scriptfile}
+            echo "rm -f ${dest}.tgz" >> ${scriptfile}
             echo "rm -rf ${dest}.oldold" >> ${scriptfile}
-            echo "mv ${dest}.old ${dest}.oldold" >> ${scriptfile}
-            echo "mv ${dest} ${dest}.old" >> ${scriptfile}
+            echo "if [ -e ${dest}.old ]; then mv ${dest}.old ${dest}.oldold; fi" >> ${scriptfile}
+            echo "if [ -e ${dest} ]; then mv ${dest} ${dest}.old; fi" >> ${scriptfile}
             echo "mv ${dest}.new ${dest}" >> ${scriptfile}
             ssh -aTxo BatchMode=yes [email protected] /bin/sh -s < ${scriptfile}
         env:

scripts/do_hcfiles.sh

@@ -13,10 +13,12 @@ main() {
 	(PROGN
 	  (IL:FILESLOAD MEDLEY-UTILS PDFSTREAM GITFNS))
           (IL:DRIBBLE '{DSK}${logindir}/hcfiles.dribble)
-	  (IL:HCFILES NIL NIL '(IL:PRETTY IL:INDEX IL:HRULE))
-          (IL:MAKE-INDEX-HTML)
+          (IL:SETQ IL:NO-HELP NIL)
+          (IL:ADVISE 'IL:HELP :BEFORE (IF IL:NO-HELP THEN (IL:ERROR IL:MESS1 IL:MESS2)))
+	  (IL:LET ((IL:NO-HELP T)) (IL:HCFILES NIL NIL '(IL:PRETTY IL:INDEX IL:HRULE)))
+          (IL:MAKE-INDEX-HTMLS)
           (IL:DRIBBLE)
-	  (IL:LOGOUT T)
+          (IL:LOGOUT T)
 	)
 
 	"