chore: initial commit of foundryvtt-admin
Spun out of the hbm-books working folder into its own repo. A small backend+frontend+COBOL admin tool for managing Foundry VTT worlds (socket inspection, join/shutdown debugging).
This commit is contained in:
@@ -0,0 +1,26 @@
|
||||
IDENTIFICATION DIVISION.
|
||||
PROGRAM-ID. HBM-ADMIN.
|
||||
*
|
||||
DATA DIVISION.
|
||||
WORKING-STORAGE SECTION.
|
||||
01 URL-STRING PIC X(100)
|
||||
VALUE "http://backend:3000/api/actors/update".
|
||||
01 JSON-PAYLOAD PIC X(200).
|
||||
01 RESULT-CODE PIC S9(9) BINARY.
|
||||
*
|
||||
PROCEDURE DIVISION.
|
||||
MAIN-LOGIC.
|
||||
MOVE "Gimli" TO JSON-PAYLOAD.
|
||||
DISPLAY "Calling API for: " JSON-PAYLOAD.
|
||||
|
||||
CALL "send_actor_update" USING BY REFERENCE URL-STRING
|
||||
BY REFERENCE JSON-PAYLOAD
|
||||
RETURNING RESULT-CODE.
|
||||
|
||||
IF RESULT-CODE = 1
|
||||
DISPLAY "Update successful!"
|
||||
ELSE
|
||||
DISPLAY "Update failed."
|
||||
END-IF.
|
||||
|
||||
STOP RUN.
|
||||
Reference in New Issue
Block a user