/system health print

:local DesiredTemp 70
:local MonitoredSensor "phy-temperature"
:local NotifyTo ToEmail@domain.com"
:local NotifyFrom "RouterOS-Monitor<FromEmail@domain.com>"
:local DeviceName [/system identity get name];
:local CurrentTemp [/system/health get [find name=$MonitoredSensor] value]
:local LogMessage ""
:global IsNotifiedAbove;
:global IsNotifiedBelow;
{
:if ($CurrentTemp>$DesiredTemp) do={
      :if ($IsNotifiedAbove !=1) do= {
      :set LogMessage "Temperature for $MonitoredSensor is over the limit: $CurrentTemp Celsius"
      :log warning $LogMessage;
      
/tool e-mail 
      set from="$NotifyFrom" 
      send to="$NotifyTo" \
      subject="Temperature warning on $DeviceName" body="The current temperature for $MonitoredSensor of $CurrentTemp Celsius is over the set limit of $DesiredTemp Celsius" ;
      :set IsNotifiedAbove 1;
      :set IsNotifiedBelow 0;
      } 
}
:if ($CurrentTemp<$DesiredTemp) do={
      :if ($IsNotifiedBelow !=1) do= {
      :set LogMessage "Temperature for $MonitoredSensor is now back to normal: $CurrentTemp Celsius"
      :log warning $LogMessage;
      
/tool e-mail 
      set from="$NotifyFrom" 
      send to="$NotifyTo" \
      subject="Temperature warning on $DeviceName" body="The current temperature for $MonitoredSensor of $CurrentTemp Celsius is now under the set limit of $DesiredTemp Celsius" ;
     :set IsNotifiedAbove 0; 
     :set IsNotifiedBelow 1;
      } 
}
}

    # POSIX regex for filtering advertisement Bluetooth addresses. E.g. "^BC:33:AC"
    # would only include addresses which start with those 3 octets.
    # To disable this filter, set it to ""
    :local addressRegex "AC:4C:6E:19:60:82"

    # POSIX regex for filtering Bluetooth advertisements based on their data. Same
    # usage as with 'addressRegex'.
    :local advertisingDataRegex ""

    # Signal strength filter. E.g. -40 would only include Bluetooth advertisements
    # whose signal strength is stronger than -40dBm.
    # To disable this filter, set it to ""
    :local rssiThreshold ""

    ####The lines below are used for the data conversion from hex to dec###

        :global invertU16 do={
            :local inverted 0
            :for idx from=0 to=15 step=1 do={
                :local mask (1 << $idx)
                :if ($1 & $mask = 0) do={
                    :set $inverted ($inverted | $mask)
                }
            }
            return $inverted
        }

        :global le16ToHost do={
            :local lsb [:pick $1 0 2]
            :local msb [:pick $1 2 4]

            :return [:tonum "0x$msb$lsb"]
        }
:local le32ToHost do={
    :local lsb [:pick $1 0 2]
    :local midL [:pick $1 2 4]
    :local midH [:pick $1 4 6]
    :local msb [:pick $1 6 8]

    :return [:tonum "0x$msb$midH$midL$lsb"]
}
        :local from88 do={
            :global invertU16
            :global le16ToHost
            :local num [$le16ToHost $1]

            # Handle negative numbers
            :if ($num & 0x8000) do={
                :set num (-1 * ([$invertU16 $num] + 1))
            }

            # Convert from 8.8. Scale by 1000 since floating point is not supported
            :return (($num * 125) / 32)
        }

    ################################## Bluetooth ##################################
    :put ("[*] Gathering Bluetooth info...")
    :global AOldestAdvTimestamp
    :if ([:typeof $AOldestAdvTimestamp] = "nothing") do={
        # First time this script has been run since booting, need to initialize
        # persistent variables
        :set $AOldestAdvTimestamp 0
    }
    :local btProcessingStart [/system clock get time]
    :local advertisements [/iot bluetooth scanners advertisements print detail \
        as-value where \
            epoch > $AOldestAdvTimestamp and \
            address ~ $addressRegex and \
            data ~ $advertisingDataRegex and \
            rssi > $rssiThreshold
    ]
    :local advJson ""
    :local advCount 0
    :local advSeparator ""
    :local lastAdvTimestamp 0

:global lastadv
###this line picks the last payload advertisment from the list
:set lastadv [:pick $advertisements ([:len $advertisements]-1)]
:global payl
###this line picks the paload from the lastadvertisment
:set payl [:pick $lastadv 4]
:put $payl
##this line converts hex to dec from the two bytes from the payload that represent temperature
global temp [$from88 [:pick $payl 28 32]]
:put $temp
 :global uptime [$le32ToHost [:pick $payl 32 40]]
:put $uptime

:if ($temp > 3600) do={
        # dividend / divisor = quotient.decimal = result

         :local dividend "$temp"
         :local divisor 1000
         :local decimalplaces 3


         # Math Calculation here
         :local quotient 0
         :local remainder 0
         :global result 0
         :global decimal 0

         :set quotient ($dividend / $divisor)

         :if ($quotient = 0) do={
                   :set dividend [:tonum ($dividend . "0")]
         }

         :set remainder ($dividend - ($divisor * $quotient))

         :log info $remainder

         :if ($remainder > 0) do={
                   :local tmpremainder [:tonum ($remainder . "0")]
                   :for x from=1 to=$decimalplaces do={
                             :local tmpdecimal [:tonum ($tmpremainder / $divisor)]
                             :set decimal [:tonum ($decimal . $tmpdecimal)]
                             :set tmpremainder [:tonum (($tmpremainder - ($tmpdecimal * $divisor)) . "0")]
                   }
                   :local decimalTens 1
                   :local leadingZeros
                   :for y from=1 to=($decimalplaces -1) do={
                             :set decimalTens ($decimalTens * 10)
                             :if ($decimal < $decimalTens) do={
                                       :set leadingZeros ($leadingZeros . "0")
                             }
                   }


:set result ($quotient . "." . $leadingZeros . $decimal)

         } else={
                   :set result $quotient
         }
         # END Math Calculation here
:put ($dividend . " / " . $divisor . " = " . $result)
:put $result;

/tool e-mail send to="mail@domain.com" subject="Temperature" body="Temperature is $result !";
:put ("[*] Temperature over set value was detected. Sending email...")} else={:put ("[*] Temperature is lower than set value - no email...")}