Add example for configuring https security profile and fix bug where the whole body wasn't returned in http.readBody()

Author: M65649

scripts/make.sh

@@ -2,7 +2,7 @@
 
 SCRIPTPATH="$( cd "$(dirname "$0")" ; pwd -P )"
 
-TARGET=$SCRIPTPATH/../src/examples/sandbox/sandbox.ino
+TARGET=$SCRIPTPATH/../src/examples/http/http.ino
 EXTRA_ARGS=--clean
 
 if [ "$1" = "clean" ]; then

src/examples/http/http.ino

@@ -13,19 +13,21 @@ void setup() {
 
     // Start LTE modem and wait until we are connected to the operator
     Lte.begin();
+    Log.infof("Connecting to operator");
     while (!Lte.isConnected()) {
-        Log.info("Not connected to operator yet...\r\n");
+        Log.raw(".");
         delay(1000);
     }
 
-    Log.info("Connected!\r\n");
+    Log.raw("\r\n");
+    Log.infof("Connected to operator: %s\r\n", Lte.getOperator().c_str());
 
     testHttp();
 }
 
 void testHttp() {
 
-    Log.info("---- Testing HTTP ----\r\n");
+    Log.info("---- Testing HTTP ----");
 
     HttpResponse response;
 
@@ -35,20 +37,23 @@ void testHttp() {
         Log.info("Failed to configure http client\r\n");
     }
 
-    Log.info("Configured to HTTP\r\n");
+    Log.info("Configured to HTTP");
 
     response = HttpClient.post("/post", "{\"hello\": \"world\"}");
     Log.infof("POST - status code: %u, data size: %u\r\n",
               response.status_code,
               response.data_size);
 
+    Log.raw("\r\n");
+
     // --- HTTPS ---
+    Log.info("---- Testing HTTPS ----");
 
     if (!HttpClient.configure(DOMAIN, 443, true)) {
         Log.info("Failed to configure https client\r\n");
     }
 
-    Log.info("Configured to HTTPS\r\n");
+    Log.info("Configured to HTTPS");
 
     response = HttpClient.head("/get");
     Log.infof("HEAD - status code: %d, data size: %d\r\n",

src/examples/https_configure_ca/https_configure_ca.ino

@@ -0,0 +1,22 @@
+#include <log.h>
+#include <sequans_controller.h>
+
+#define AT_HTTPS_CONFIGURE_SECURITY_PROFILE "AT+SQNSPCFG=3,2,\"\",1,1"
+
+void setup() {
+    Log.begin(115200);
+
+    SequansController.begin();
+
+    // Allow time for boot
+    delay(500);
+
+    Log.info("Setting up security profile for HTTPS...");
+    if (!SequansController.retryCommand(AT_HTTPS_CONFIGURE_SECURITY_PROFILE)) {
+        Log.info("Failed to set security profile");
+        return;
+    }
+    Log.info("Done!");
+}
+
+void loop() {}

src/http_client.cpp

@@ -295,10 +295,10 @@ int16_t HttpClientClass::readBody(char *buffer, const uint32_t buffer_size) {
 
     size_t response_length = strlen(buffer);
 
-    // Remove extra <CR><LF> from command response
-    memset(buffer + response_length - 2, 0, 2);
+    // Remove extra <CR> from command response
+    memset(buffer + response_length - 1, 0, 1);
 
-    return response_length - 2;
+    return response_length - 1;
 }
 
 String HttpClientClass::readBody(const uint32_t size) {
@@ -309,5 +309,5 @@ String HttpClientClass::readBody(const uint32_t size) {
         return "";
     }
 
-    return buffer;
+    return String(buffer);
 }