{
global found false; 
:foreach SS in=[/interface wireless registration-table get 0 strength-at-rates] do={
            :local rate [:pick $SS ([:find $SS "@"]+1) ([:find $SS "M"])];
            #:log warning $rate; 
            :if ( $rate=1 ) do={ :set found true; }
}
:if ( $found=true ) do={ :log warning "Found 1Mbps in Signal Strengths Table" }; 
:do { /system script environment remove found }; 
} 

:global lastTime;
:local adminmail1 "XXXXXXXXX@gmail.com";
:local adminmail2 "XXXXXXXX@hotmail.com";
:local sub1 ([/system identity get name])
:local sub2 ([/system clock get time])
:local sub3 ([/system clock get date])
:local company ""
:local gmailid xxxxxxx@gmail.com
:local gmailuser xxxxxxxx@gmail.com
:local gmailpwd 
:local gmailport 587
:local gmailsmtp
:set gmailsmtp [:resolve "smtp.gmail.com"]  
:local currentBuf [ :toarray [ /log find message~"new master flag=false" || message~"wrong peer state" || message~"init" || message~"2-WAY" || message~"Full to Down"] ] ;
:local currentLineCount [ :len $currentBuf ] ;
  
if ($currentLineCount > 0) do={
   :local currentTime "$[ /log get [ :pick $currentBuf ($currentLineCount -1) ] time ]";
  
   :if ([:len $currentTime] = 15 ) do={
      :set currentTime [ :pick $currentTime 7 15 ];
   }
    
   :local output "$currentTime $[/log get [ :pick $currentBuf ($currentLineCount-1) ] message ]";
    
   :if (([:len $lastTime] < 1) || (([:len $lastTime] > 0) && ($lastTime != $currentTime))) do={
      :set lastTime $currentTime ;
      /tool e-mail set address=$gmailsmtp port=$gmailport start-tls=yes from=$gmailid user=$gmailuser password=$gmailpwd
	  /tool e-mail send to=$adminmail1 subject="$sub3 $sub2 Router:$sub1 Routing Error "  body="$output" start-tls=yes
	  /tool e-mail send to=$adminmail2 subject="$sub3 $sub2 Router:$sub1 Routing Error "  body="$output" start-tls=yes
	  
	  
   }
}

#telegram bot version script
{
:local Btoken "bot token" 
:local chatID "-chat id"

:local found false; 
:local Dname [/system identity get name] 
:local cDT ([/system clock get date] . " " . [/system clock get time]) 
:local msg ($cDT . "%0AFound 1Mbps in Signal Strengths Table%0ADevice Name: " . $Dname);  

:foreach SS in=[/interface wireless registration-table get 0 strength-at-rates] do={
            :local rate [:pick $SS ([:find $SS "@"]+1) ([:find $SS "M"])];
            #:log warning $rate; 
            :if ( $rate=1 ) do={ :set found true; }
}
:if ( $found=true ) do={ 
	:log warning $msg; 
	/tool fetch keep-result=no url=("https://api.telegram.org/bot" . $Btoken . "/sendMessage\?chat_id=" . $chatID . "&text=" . $msg)
	}; 
} 

%0A = \n

set [ find default-name=wlan1 ] band=2ghz-g/n basic-rates-a/g=9Mbps \
    basic-rates-b="" bridge-mode=disabled default-authentication=no \
    default-forwarding=no disabled=no disconnect-timeout=2s distance=indoors \
    frequency=2427 guard-interval=long ht-basic-mcs="" ht-supported-mcs="mcs-1\
    ,mcs-2,mcs-3,mcs-4,mcs-5,mcs-6,mcs-7,mcs-8,mcs-9,mcs-10,mcs-11,mcs-12,mcs-\
    13,mcs-14,mcs-15,mcs-16,mcs-17,mcs-18,mcs-19,mcs-20,mcs-21,mcs-22,mcs-23" \
    hw-protection-threshold=1536 max-station-count=30 mode=ap-bridge \
    multicast-helper=full preamble-mode=short rate-set=configured rx-chains=\
    0,1 ssid=PROOMWLAN supported-rates-a/g=\
    9Mbps,12Mbps,18Mbps,24Mbps,36Mbps,48Mbps,54Mbps supported-rates-b="" \
    tx-chains=0,1 wireless-protocol=802.11 wmm-support=enabled wps-mode=\
    disabled