meta-quanta: gbs: detect SlimSAS cable presence

Add gpio configuration for SlimSAS cable0~3 and
detect cables connected or not

(From meta-quanta rev: 09b8cd98a953ef96fabd7bc1c8d090bd02c53d88)

Signed-off-by: George Hung <george.hung@quantatw.com>
Change-Id: Ifee5ebf1a1055943ade8defce6be63b690bea8d2
Signed-off-by: Andrew Geissler <geissonator@yahoo.com>
diff --git a/meta-quanta/meta-gbs/recipes-gbs/detect-sas-cable/files/detect-sas-cable.service b/meta-quanta/meta-gbs/recipes-gbs/detect-sas-cable/files/detect-sas-cable.service
new file mode 100644
index 0000000..6575f4f
--- /dev/null
+++ b/meta-quanta/meta-gbs/recipes-gbs/detect-sas-cable/files/detect-sas-cable.service
@@ -0,0 +1,12 @@
+[Unit]
+Description=Detect SAS Cable Manager
+Wants=phosphor-gpio-presence@.service
+After=phosphor-gpio-presence@.service
+
+[Service]
+ExecStart=/usr/bin/detect-sas-cable.sh
+StandardOutput=syslog
+Type=simple
+
+[Install]
+WantedBy=multi-user.target
diff --git a/meta-quanta/meta-gbs/recipes-gbs/detect-sas-cable/files/detect-sas-cable.sh b/meta-quanta/meta-gbs/recipes-gbs/detect-sas-cable/files/detect-sas-cable.sh
new file mode 100644
index 0000000..ed02c90
--- /dev/null
+++ b/meta-quanta/meta-gbs/recipes-gbs/detect-sas-cable/files/detect-sas-cable.sh
@@ -0,0 +1,45 @@
+#!/bin/bash
+
+SERVICE_NAME="xyz.openbmc_project.Inventory.Manager"
+SAS_CABLE_OBJPATH=("/xyz/openbmc_project/inventory/system/chassis/cable/ss_cab0_prsnt"
+"/xyz/openbmc_project/inventory/system/chassis/cable/ss_cab1_prsnt"
+"/xyz/openbmc_project/inventory/system/chassis/cable/ss_cab2_prsnt"
+"/xyz/openbmc_project/inventory/system/chassis/cable/ss_cab3_prsnt")
+INTERFACE_NAME="xyz.openbmc_project.Inventory.Item"
+
+IPMI_LOG_SERVICE="xyz.openbmc_project.Logging.IPMI"
+IPMI_LOG_OBJPATH="/xyz/openbmc_project/Logging/IPMI"
+IPMI_LOG_INTERFACE="xyz.openbmc_project.Logging.IPMI"
+IPMI_LOG_FUNCT="IpmiSelAdd"
+IPMI_LOG_PARA_FORMAT="ssaybq" #5 parameters, s : string, s : string, ay : byte array, b : boolean, y : UINT16
+LOG_ERR="Cable_error(Incorrect_interconnection)"
+LOG_EVENT_DATA="3 0x01 0xff 0xfe"
+LOG_ASSERT_FLAG="true"
+LOG_DEASSERT_FLAG="false"
+LOG_GENID_FLAG="0x0020"
+cable_state=("true" "true" "true" "true")
+
+mapper wait ${SAS_CABLE_OBJPATH[0]}
+mapper wait ${SAS_CABLE_OBJPATH[1]}
+mapper wait ${SAS_CABLE_OBJPATH[2]}
+mapper wait ${SAS_CABLE_OBJPATH[3]}
+
+while true; do
+    for i in {0..3};
+    do
+        boot_status="$(busctl get-property $SERVICE_NAME ${SAS_CABLE_OBJPATH[$i]} $INTERFACE_NAME Present | awk '{print $2}')"
+
+        if [ $boot_status == "false" ] && [ ${cable_state[$i]} == "true" ];then
+            echo "Update cable $(($i+1)) state."
+            cable_state[$i]="false"
+            busctl call $IPMI_LOG_SERVICE $IPMI_LOG_OBJPATH $IPMI_LOG_INTERFACE $IPMI_LOG_FUNCT $IPMI_LOG_PARA_FORMAT $LOG_ERR ${SAS_CABLE_OBJPATH[$i]} $LOG_EVENT_DATA $LOG_ASSERT_FLAG $LOG_GENID_FLAG
+        elif [ $boot_status == "true" ] && [ ${cable_state[$i]} != "true" ];then
+            echo "Update cable $(($i+1)) state."
+            cable_state[$i]="true"
+            busctl call $IPMI_LOG_SERVICE $IPMI_LOG_OBJPATH $IPMI_LOG_INTERFACE $IPMI_LOG_FUNCT $IPMI_LOG_PARA_FORMAT $LOG_ERR ${SAS_CABLE_OBJPATH[$i]} $LOG_EVENT_DATA $LOG_DEASSERT_FLAG $LOG_GENID_FLAG
+        fi
+    done
+    sleep 1
+done
+
+exit 0