Difference between revisions of "Monitor input voltage on RB333/433AH"

From MikroTik Wiki
Jump to: navigation, search
(Major change. Dropped need for startup script.)
m (Removed 'v' from voltage reports. Grammar changes. Added system identity to daily report.)
Line 8: Line 8:
  
 
<pre>
 
<pre>
ThisBox voltage is 12.5v
+
ThisBox voltage is 12.5
 
</pre>
 
</pre>
  
Line 16: Line 16:
  
 
<pre>
 
<pre>
Daily voltage report for aug/29/2008
+
Daily voltage report for ThisBox on aug/29/2008
  
23:00 = 12.8v
+
23:00 = 12.8
22:00 = 12.8v
+
22:00 = 12.8
21:00 = 12.9v
+
21:00 = 12.9
20:00 = 13.0v
+
20:00 = 13.0
19:00 = 13.0v
+
19:00 = 13.0
18:00 = 13.3v
+
18:00 = 13.3
17:00 = 14.1v
+
17:00 = 14.1
16:00 = 14.0v
+
16:00 = 14.0
15:00 = 14.0v
+
15:00 = 14.0
14:00 = 13.9v
+
14:00 = 13.9
13:00 = 13.9v
+
13:00 = 13.9
12:00 = 13.9v
+
12:00 = 13.9
11:00 = 13.9v
+
11:00 = 13.9
10:00 = 13.5v
+
10:00 = 13.5
09:00 = 13.2v
+
09:00 = 13.2
08:00 = 12.6v
+
08:00 = 12.6
07:00 = 12.5v
+
07:00 = 12.5
06:00 = 12.5v
+
06:00 = 12.5
05:00 = 12.5v
+
05:00 = 12.5
04:00 = 12.6v
+
04:00 = 12.6
03:00 = 12.6v
+
03:00 = 12.6
02:00 = 12.6v
+
02:00 = 12.6
01:00 = 12.7v
+
01:00 = 12.7
00:00 = 12.7v
+
00:00 = 12.7
  
Since recording started on 13:00:00 aug/28/2008
+
Since voltmonitor started on 13:00:00 aug/28/2008
 
Maximum = 14.2v at 13:00:00 aug/28/2008
 
Maximum = 14.2v at 13:00:00 aug/28/2008
 
Minimum = 12.5v at 05:00:00 aug/29/2008
 
Minimum = 12.5v at 05:00:00 aug/29/2008
Line 99: Line 99:
 
:global vh
 
:global vh
 
:local tvolt
 
:local tvolt
 +
:local $thisbox [/system identity get name]
 
:local thisdate [/system clock get date]
 
:local thisdate [/system clock get date]
 
:local thishour
 
:local thishour
:local emessage "Daily voltage report for $thisdate\n\n"
+
:local emessage "Daily voltage report for $thisbox on $thisdate\n\n"
 
:if ([:len $vh] > 0) do={
 
:if ([:len $vh] > 0) do={
 
     :for x from=0 to=([:len $vh]-1) step=1 do={
 
     :for x from=0 to=([:len $vh]-1) step=1 do={
Line 108: Line 109:
 
             :if ($x > 13) do={:set thishour ("0" . [:tostr (23 - $x)])} else={:set thishour [:tostr (23 - $x)]}
 
             :if ($x > 13) do={:set thishour ("0" . [:tostr (23 - $x)])} else={:set thishour [:tostr (23 - $x)]}
 
         }
 
         }
         :set emessage ($emessage . $thishour . ":00 = " . [:pick $tvolt 0 2] . "." . [:pick $tvolt 2 3] .  "v\n")
+
         :set emessage ($emessage . $thishour . ":00 = " . [:pick $tvolt 0 2] . "." . [:pick $tvolt 2 3] .  "\n")
 
     }
 
     }
     :set emessage ($emessage . "\nSince recording started on " . $starttime . "\n")
+
     :set emessage ($emessage . "\nSince voltmonitor started on " . $starttime . "\n")
 
     :set tvolt [:tostr $highvolt]
 
     :set tvolt [:tostr $highvolt]
 
     :set emessage ($emessage . "Maximum = " . [:pick $tvolt 0 2] . "." . [:pick $tvolt 2 3] . "v at " . $hivolttime . "\n")
 
     :set emessage ($emessage . "Maximum = " . [:pick $tvolt 0 2] . "." . [:pick $tvolt 2 3] . "v at " . $hivolttime . "\n")
Line 116: Line 117:
 
     :set emessage ($emessage . "Minimum = " . [:pick $tvolt 0 2] . "." . [:pick $tvolt 2 3] . "v at " . $lovolttime . "\n")
 
     :set emessage ($emessage . "Minimum = " . [:pick $tvolt 0 2] . "." . [:pick $tvolt 2 3] . "v at " . $lovolttime . "\n")
 
# set email address in next line
 
# set email address in next line
     /tool e-mail send to="youremail@yourdomain.com" subject="Voltage Report" body=$emessage
+
     /tool e-mail send to="youremail@yourdomain.com" subject="$thisbox Voltage Report" body=$emessage
 
}
 
}
 
# remark out the next line for testing to avoid resetting the voltage array
 
# remark out the next line for testing to avoid resetting the voltage array
 
:set vh
 
:set vh
 
</pre>
 
</pre>

Revision as of 21:52, 31 August 2008

Hourly monitor and report via email low voltage warnings and daily voltage levels.

This applies to the RB333 and RB433AH with V3.11 or greater ONLY!

Low Voltage Report

This report is sent hourly to the email address in the voltmonitor script when the input voltage is at or below the alarm voltage.

ThisBox voltage is 12.5

Daily Voltage Report

This report is sent daily at 11PM to the email address in the voltreport script.

Daily voltage report for ThisBox on aug/29/2008

23:00 = 12.8
22:00 = 12.8
21:00 = 12.9
20:00 = 13.0
19:00 = 13.0
18:00 = 13.3
17:00 = 14.1
16:00 = 14.0
15:00 = 14.0
14:00 = 13.9
13:00 = 13.9
12:00 = 13.9
11:00 = 13.9
10:00 = 13.5
09:00 = 13.2
08:00 = 12.6
07:00 = 12.5
06:00 = 12.5
05:00 = 12.5
04:00 = 12.6
03:00 = 12.6
02:00 = 12.6
01:00 = 12.7
00:00 = 12.7

Since voltmonitor started on 13:00:00 aug/28/2008
Maximum = 14.2v at 13:00:00 aug/28/2008
Minimum = 12.5v at 05:00:00 aug/29/2008

Requirements

/tool e-mail must be set correctly to send email,

/system ntp client must be set correctly for the correct time after a reboot,

/system identity should be set to identify the router in the Low Voltage Report,

and the following two scripts:

voltmonitor

The first is voltmonitor. It should be scheduled to run once every hour on the hour (or within a minute after) in /system schedule.

#set lowvoltalarm to desired alarm voltage in tenths of a volt. 125 = 12.5v
:global lowvoltalarm 125
:global highvolt
:global lowvolt
:global starttime
:global hivolttime
:global lovolttime
:global vh
:local thisbox [/system identity get name]
:global voltage [/system health get voltage]
:local thistime [/system clock get time]
:local thisdate [/system clock get date]
:local thishour [:pick $thistime 0 2]
:local emessage ($thisbox . " voltage is " . [:pick $voltage 0 2] . "." . [:pick $voltage 2 3])
:if ([:len $lowvolt] < 1) do={:set lowvolt 999; :set highvolt 0}
# set your email address in the next line
:if ($voltage <= $lowvoltalarm) do={/tool e-mail send to="youremail@yourdomain.com" subject="$thisbox low voltage" body=$emessage}
:if ($voltage > $highvolt) do={:set highvolt $voltage; :set hivolttime ($thistime . " " . $thisdate)}
:if ($voltage < $lowvolt) do={:set lowvolt $voltage; :set lovolttime ($thistime . " " . $thisdate)}
:if ([:len $vh] > 0) do={:set vh ([:toarray $voltage] + $vh)} else={:set vh [:toarray $voltage]}
:if ([:len $starttime] < 1) do={:set starttime ($thistime . " " . $thisdate)}
:if ($thishour = "23") do={:execute voltreport}

voltreport

The second is voltreport. It does not need to be scheduled. It is executed by voltmonitor at 11PM every day.

:global highvolt
:global lowvolt
:global hivolttime
:global lovolttime
:global starttime
:global vh
:local tvolt
:local $thisbox [/system identity get name]
:local thisdate [/system clock get date]
:local thishour
:local emessage "Daily voltage report for $thisbox on $thisdate\n\n"
:if ([:len $vh] > 0) do={
    :for x from=0 to=([:len $vh]-1) step=1 do={
        :set tvolt [:tostr [:pick $vh $x]]
        :if ($x = 23) do={:set thishour "00"} else={
            :if ($x > 13) do={:set thishour ("0" . [:tostr (23 - $x)])} else={:set thishour [:tostr (23 - $x)]}
        }
        :set emessage ($emessage . $thishour . ":00 = " . [:pick $tvolt 0 2] . "." . [:pick $tvolt 2 3] .  "\n")
    }
    :set emessage ($emessage . "\nSince voltmonitor started on " . $starttime . "\n")
    :set tvolt [:tostr $highvolt]
    :set emessage ($emessage . "Maximum = " . [:pick $tvolt 0 2] . "." . [:pick $tvolt 2 3] . "v at " . $hivolttime . "\n")
    :set tvolt [:tostr $lowvolt]
    :set emessage ($emessage . "Minimum = " . [:pick $tvolt 0 2] . "." . [:pick $tvolt 2 3] . "v at " . $lovolttime . "\n")
# set email address in next line
    /tool e-mail send to="youremail@yourdomain.com" subject="$thisbox Voltage Report" body=$emessage
}
# remark out the next line for testing to avoid resetting the voltage array
:set vh