TaskWait, SocketObject, and WolframScript

Question

I want to launch an asynchronous task with Wolfram Script to listen to a socket and print back information in the CLI. This was handled in previous versions by ZeroMQLink``Private``$AsyncState["Task"] but this doesn't appear to work with my version (13, Win 11 x64).

Minimal Working Example:

#!/usr/bin/env wolframscript
(* ::Package:: *)
Quiet@DeleteObject[listener];

listener = SocketListen[
  3000,
  Function[{assoc},
   With[{client = assoc["SourceSocket"], data = assoc["Data"]},
    request = 
     ImportString[data, "HTTPRequest"]["Query"] /. {"name" -> n_} :> n;
    origin = Association[ request["Headers"] ]["origin"];
    If[ Head[origin] === Missing, origin = "" ];
response = ExportString[
  HTTPResponse[
   ExportString[<|"msg" -> "Hello, " <> ToString[request]|>, "JSON"],
    <|
    "StatusCode" -> 200,
    "ContentType" -> "application/json",
    "Headers" -> { "Access-Control-Allow-Origin" -> origin }
    |>], "HTTPResponse"];
    WriteString[client, response];
    Close[client];
    Print[DateString[] <> " - " <> "Request=" <> ToString[request]];
  ]
 ]
]

url = URLBuild[<|"Scheme" -> "http", 
"Domain" -> First[listener["Socket"]["DestinationIPAddress"]], 
"Port" -> listener["Socket"]["DestinationPort"]|>];

Print["Listening:  ", url, "\n"];

And to test in Powershell:

PS (Invoke-WebRequest -Method GET -Uri http://127.0.0.1:3000?name=kale).Content

Should return:

{
    "msg":"Hello, kale"
}

but exits out as soon as the script finishes executing.

How can I create this socket through WolframScript and keep it running until the script is closed using the new Background & Scheduled Tasks framework in Wolfram Language?

Answer 1

How can I create this socket through WolframScript and keep it running until the script is closed [...]?

For the server I am using I have this and it seems to do its job well.

TaskWait[task = SessionSubmit[ScheduledTask["stayin'alive", 60]]]