Skript kontroly queues a dhcp serveru

# Omezeni queues na parent, bez omezeni nechte hodnotu "none"
:global parent "none"
# Omezeni ip adres z DHCP serveru, bez omezeni nechte hodnotu "0.0.0.0/0"
:global range 0.0.0.0/0

# Pomocne promenne
:global found
:global ip
:global comment

:foreach ipid in=[/ip dhcp-server lease find] do={
  :set ip [:toip [/ip dhcp-server lease get $ipid address]]
  :set comment [/ip dhcp-server lease get $ipid comment]
  :if ($ip in $range) do={
    :set found 0
  
    :foreach i in=[/queue simple find parent=$parent] do={
      :if ([:tobool [:find [/queue simple get $i target-addresses] ($ip."/32")]]) do={
        :set found 1
      }
    }
    :if ($found=0) do={
       :put ("IP adresa ".$ip." s komentarem ".$comment." neni v queues!")
    }
  }
}