mapserver: symlink outdirs to human-readable paths

(meant for use of this server without exneuland / the whole map
resolution api on a dump simple workadventure backend)

config.toml

@@ -21,6 +21,8 @@ url = "https://world.di.c3voc.de/maps/"
 # webdir into which maps should be written
 webdir = "/tmp/var/www/divoc"
 
+webdir_human = "/tmp/var/www-human/divoc"
+
 # increment this if you change the server / linter config
 # (part of urls for linted maps; allows indefinite browser caching)
 generation = 1

server/Server.hs

@@ -99,6 +99,7 @@ data Org (loaded :: Bool) = Org
   , orgRepos          :: [RemoteRef]
   , orgUrl            :: Text
   , orgWebdir         :: Text
+  , orgHumanWebdir    :: Text
   , orgBacklinkPrefix :: Text
   , orgContactMail    :: Text
   , orgHowtoLink      :: Maybe Text
@@ -163,6 +164,7 @@ orgCodec = Org
   <*> T.list remoteCodec "repo" .= orgRepos
   <*> T.text "url" .= orgUrl
   <*> T.text "webdir" .= orgWebdir
+  <*> T.text "webdir_human" .= orgHumanWebdir
   <*> T.text "backlink_prefix" .= orgBacklinkPrefix
   <*> T.text "contact_mail" .= orgContactMail
   <*> coerce (T.first T.text "howto_link") .= orgHowtoLink

server/Worker.hs

@@ -98,6 +98,7 @@ runJob offline config Job {..} done = do
         $ readgit' gitdir ["rev-parse", toString ref]
 
       let outPath = adjustedPath rev jobOrg
+      let humanOutPath = orgHumanWebdir jobOrg <> "/" <> reponame jobRef
 
       callgit gitdir [ "worktree", "add", "--force", workdir, toString ref ]
 
@@ -106,13 +107,17 @@ runJob offline config Job {..} done = do
 
       liftIO (writeAdjustedRepository lintConfig workdir (toString outPath) res)
         >>= \case
-        ExitSuccess ->
+        ExitSuccess -> do
           logInfoN $ "linted map "+| (show jobRef :: Text) |+"."
+          logInfoN $ "symlinking"+|outPath|+"into human web dir at"+|humanOutPath|+""
+          liftIO $ callProcess "ln" [ "-sfn", toString outPath, toString humanOutPath ]
         ExitFailure 1 ->
           logInfoN $ "linted map "+| (show jobRef :: Text) |+ ", which failed."
-        ExitFailure 2 ->
+        ExitFailure 2 -> do
           -- TODO: shouldn't have linted this map at all
           logErrorN $ "outpath "+|outPath|+" already exists!"
+          logInfoN $ "symlinking"+|outPath|+"into human web dir at"+|humanOutPath|+""
+          liftIO $ callProcess "ln" [ "-sfn", toString outPath, toString humanOutPath ]
         ExitFailure _ ->
           -- writeAdjustedRepository does not return other codes
           $(logError) "wtf, this is impossible"