Initial importv0.1.0

1 files changed, 38 insertions, 0 deletions

diff --git a/src/cepis-config.cob b/src/cepis-config.cob
new file mode 100644
index 0000000..0f17fd1
--- /dev/null
+++ b/src/cepis-config.cob
@@ -0,0 +1,38 @@
+IDENTIFICATION DIVISION.
+PROGRAM-ID. CEPIS-DEFAULT-CONFIG.
+
+*> ---------------------------------------------------------------------
+*> Fill CEPIS-CONFIG with the shipped defaults.
+*>
+*>     CALL "CEPIS-DEFAULT-CONFIG" USING CEPIS-CONFIG
+*>
+*> Call this before anything else, then override what you need. Every
+*> field is written, so a record left over from another use is safe to
+*> pass in. CFG-BASE-URL is the one that usually differs between
+*> environments: point it at a local instance and the whole library
+*> follows.
+*> ---------------------------------------------------------------------
+
+DATA DIVISION.
+WORKING-STORAGE SECTION.
+01  CEPIS-VERSION                   PIC X(5) VALUE "0.1.0".
+
+LINKAGE SECTION.
+COPY "cepis.cpy".
+
+PROCEDURE DIVISION USING CEPIS-CONFIG.
+
+MAIN-START.
+    MOVE "https://cep.is" TO CFG-BASE-URL
+    MOVE 10000 TO CFG-TIMEOUT-MS
+    MOVE 3 TO CFG-MAX-ATTEMPTS
+    MOVE 500 TO CFG-BACKOFF-BASE-MS
+    MOVE 8000 TO CFG-BACKOFF-MAX-MS
+    MOVE 0 TO CFG-TOTAL-TIMEOUT-MS
+    MOVE SPACES TO CFG-USER-AGENT
+    STRING "cepis-cobol/" CEPIS-VERSION " (+https://cep.is)"
+        DELIMITED BY SIZE INTO CFG-USER-AGENT
+    END-STRING
+    GOBACK.
+
+END PROGRAM CEPIS-DEFAULT-CONFIG.