octoturge
460d136d21
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).
27 lines
889 B
COBOL
27 lines
889 B
COBOL
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.
|