Change chatbot_v2

KcsDev1982 · KcsDev1982 · commit 068075184c78 · 2025-11-27T11:43:12.000-05:00
Changed chatbot_v2 to used new responses endpoint
diff --git a/ai/chatbot_v2_sup.html b/ai/chatbot_v2_sup.html
@@ -347,7 +347,7 @@
 
       try {
         const response = await fetch(
-          "https://api.openai.com/v1/chat/completions",
+          "https://api.openai.com/v1/responses",
           {
             method: "POST",
             headers: {
@@ -356,10 +356,8 @@
             },
             body: JSON.stringify({
               model: app.model,
-              messages: [
-                { role: "system", content: "You are a helpful assistant." },
-                { role: "user", content: userQuest },
-              ],
+              instructions: "You are a helpful assistant.",
+              input: userQuest,
             }),
           }
         );
@@ -370,11 +368,11 @@
 
         const data = await response.json();
 
-        if (!data.choices?.[0]?.message?.content) {
+        if (!data.output?.[1]?.content?.[0]?.text) {
           throw new Error("GPT response error: No content");
         }
 
-        const chatGPTResp = data.choices[0].message.content.trim();
+        const chatGPTResp = data.output[1].content[0].text.trim();
         console.debug("Raw response received, length:", chatGPTResp.length);
 
         // FIRST: Set the plain text content immediately
diff --git a/basicsamples/basicsamples.prj b/basicsamples/basicsamples.prj
@@ -2,7 +2,7 @@
 <SunIDE_Project_File Version="10.0">
   <ActiveProfile>basicsamples</ActiveProfile>
   <ProjectTitle>basicsamples</ProjectTitle>
-  <SelectedProgram>dataset4.pls</SelectedProgram>
+  <SelectedProgram>datetime3.pls</SelectedProgram>
   <Profiles>
     <Name>basicsamples</Name>
     <Properties>
@@ -109,4 +109,5 @@
   <Source Name="dataset2.pls"/>
   <Source Name="dataset3.pls"/>
   <Source Name="dataset4.pls"/>
+  <Source Name="datetime3.pls"/>
 </SunIDE_Project_File>
diff --git a/basicsamples/datetime3.pls b/basicsamples/datetime3.pls
@@ -0,0 +1,71 @@
+*===========================================================
+*  GetWeekdayNameFromString
+*  Input : STRING containing a date or datetime
+*          Accepted formats include:
+*          YYYY-MM-DD
+*          YYYY-MM-DD HH:MM:SS
+*          (and any valid SetAsString format)
+*
+*  Output: DIM full weekday name
+*===========================================================
+
+GetWeekdayNameFromString LFUNCTION
+InStr         DIM         40
+              ENTRY
+
+WKSTR         DIM         2
+WKNUM         FORM        1
+FullName      DIM         10
+RET           FORM        2
+TMPDT         DATETIME
+
+*-----------------------------------------------------------
+* Load the incoming string into a DATETIME object
+* SetAsString handles standard date formats (see docs).
+*-----------------------------------------------------------
+              TMPDT.SetAsString    GIVING RET USING *Value=InStr
+
+* If SetAsString failed (RET ? 0), you may handle errors here.
+* But for simplicity, we proceed assuming valid input.
+
+*-----------------------------------------------------------
+* Extract weekday number 0&#65533;6 (Sunday=0)
+*-----------------------------------------------------------
+              TMPDT.GetAsString    GIVING WKSTR USING *Format="%w"
+              MOVE                 WKSTR TO WKNUM
+
+*-----------------------------------------------------------
+* Map number to full weekday name
+*-----------------------------------------------------------
+              SELECT               USING WKNUM
+              WHEN                 0
+                MOVE               "Sunday"        TO FullName
+              WHEN                 1
+                MOVE               "Monday"        TO FullName
+              WHEN                 2
+                MOVE               "Tuesday"       TO FullName
+              WHEN                 3
+                MOVE               "Wednesday"     TO FullName
+              WHEN                 4
+                MOVE               "Thursday"      TO FullName
+              WHEN                 5
+                MOVE               "Friday"        TO FullName
+              WHEN                 6
+                MOVE               "Saturday"      TO FullName
+              ENDSELECT
+
+              FUNCTIONEND          USING FullName
+*---------------------------------------
+* Example: Convert a date string to
+*          a full weekday name.
+*---------------------------------------
+
+MyDateStr     DIM         40
+WDAYNAME      DIM         10
+
+              MOVE        "2025-12-25" TO MyDateStr
+
+              CALL        GetWeekdayNameFromString GIVING WDAYNAME USING MyDateStr
+
+              DISPLAY     *N,"Weekday is: ",WDAYNAME,*W4
+              STOP
