Skript kontroly queues a dhcp serveru: Porovnání verzí

Z Wiki UnArt Slavičín
Skočit na navigaciSkočit na vyhledávání
Bez shrnutí editace
Bez shrnutí editace
 
(Není zobrazeno 11 mezilehlých verzí od stejného uživatele.)
Řádek 1: Řádek 1:
Následující skript zkontroluje IP adresy z DHCP serveru, zda-li jsou zapsané v queueus. Lze omezit IP adresy, které se budou kontrolovat, stejně lze omezit queues, ve kterých se bude hledat. Svůj výstup zapisuje do logu.
# Autor: Michal Kliment
# Datum: unor 2012
# Popis: Tento skript zkontroluje zapsani IP adres z DHCP serveru v queues
  # Omezeni queues na parent, bez omezeni nechte hodnotu "none"
  # Omezeni queues na parent, bez omezeni nechte hodnotu "none"
  :global parent "none"
  :global parent "none"
  # Omezeni ip adres z DHCP serveru, bez omezeni nechte hodnotu "0.0.0.0/0"
  # Omezeni ip adres z DHCP serveru, bez omezeni nechte hodnotu "0.0.0.0/0"
  :global range 10.143.230.125/32
  :global range 0.0.0.0/0
   
   
  # Pomocne promenne
  # Pomocne promenne
Řádek 9: Řádek 15:
  :global comment
  :global comment
   
   
  :foreach ipid in=[/ip dhcp-server lease find] do={
  :foreach ipid in=[/ip dhcp-server lease find dynamic=no] do={
   :set ip [:toip [/ip dhcp-server lease get $ipid address]]
   :set ip [:toip [/ip dhcp-server lease get $ipid address]]
   :set comment [/ip dhcp-server lease get $ipid comment]
   :set comment [/ip dhcp-server lease get $ipid comment]
Řádek 16: Řádek 22:
    
    
     :foreach i in=[/queue simple find parent=$parent] do={
     :foreach i in=[/queue simple find parent=$parent] do={
       :put ([/queue simple get $i target-addresses]." ".($ip."/32")." ".[:find [/queue simple get $i target-addresses] ($ip."/32")])
       :if ([:find [/queue simple get $i target-addresses] ($ip."/32")]!="") do={
      :if ([:tobool [:find [/queue simple get $i target-addresses] ($ip."/32")]]) do={
         :set found 1
         :set found 1
       }
       }
     }
     }
#    :if ($found=0) do={
      :if ($found=0) do={
#        :put ("IP adresa ".$ip." s komentarem ".$comment." neni v queues!")
        :log warning ("IP adresa ".$ip." s komentarem \"".$comment."\" neni v queues!")
#    }
      }
   }
   }
  }
  }

Aktuální verze z 11. 2. 2012, 12:17

Následující skript zkontroluje IP adresy z DHCP serveru, zda-li jsou zapsané v queueus. Lze omezit IP adresy, které se budou kontrolovat, stejně lze omezit queues, ve kterých se bude hledat. Svůj výstup zapisuje do logu.

# Autor: Michal Kliment
# Datum: unor 2012
# Popis: Tento skript zkontroluje zapsani IP adres z DHCP serveru v queues

# 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 dynamic=no] 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 ([:find [/queue simple get $i target-addresses] ($ip."/32")]!="") do={
        :set found 1
      }
    }
     :if ($found=0) do={
        :log warning ("IP adresa ".$ip." s komentarem \"".$comment."\" neni v queues!")
     }
  }
}