Mikrotik.moscow [тема: Решай проблемы.]

Решай проблемы.

Sun, 20 Sep 2015 15:32:00 -0400

Решай проблемы. RouterOS в форуме RouterOS.
Привет, если ты использовал первый код, сделай небольшое изменение, и всё будет ок с новой версией прошивки: замени `:execute script=resolvehostnames-sub` на `:execute script="resolvehostnames-sub"`. Оригинальный скрипт будет работать с версией 6.31. Надеюсь, это тебе пригодится, Maxspeed.

Из этого кода: ros код

Задержка на X секунд, чтобы разрешить имя хоста:

:local delay 5
define variables:
:global comment
:global newip
:local list
:local oldip
start logging /log info “[RESOLVE] - START”

Перебор каждой записи в списке адресов:
:foreach i in=[/ip firewall address-list find] do={
очищаем переменную newip каждый раз:
:set newip “”
Получаем первые пять символов имени списка:
:set list [:pick [/ip firewall address-list get $i list] 0 5]
Если они ‘host_’, то это совпадение — обрабатываем его:
:if ($list = “host_”) do={
Получаем комментарий для этого элемента списка адресов (это имя хоста для использования):
:set comment [/ip firewall address-list get $i comment]
/log info “[RESOLVE] - checking $comment”
:set oldip [/ip firewall address-list get $i address]
/log info “[RESOLVE] - old ip: $oldip”
/log info “[RESOLVE] - calling sub-script”
:execute script=resolvehostnames-sub
Этот скрипт не ждет разрешения под-скриптом имени хоста, поэтому нужно задержаться на время:
:local counter 1
while ($counter <= $delay) do={
/log info “[RESOLVE] - waiting for hostname to resolve - attempt $counter”
:delay 1s
if length of new ip is greater than zero, break out of loop:
:if ([:len $newip] > 0) do={
:set counter $delay
}
increment counter:
:set counter ($counter + 1)
}
if new ip length is greater than zero, an ip was resolved:
:if ([:len $newip] > 0) do={
/log info “[RESOLVE] - new ip: $newip”
if newip does not equal oldip:
:if ($newip != $oldip) do={
/log info “[RESOLVE] - ip has changed, updating address list”
Set the address list entry accordingly
/ip firewall address-list set $i address=$newip
}
else={
/log info “[RESOLVE] - new ip matches old ip, no change”
}
}
else={
/log info “[RESOLVE] - did not get new ip, timed out”
}
}
/log info “[RESOLVE] - END”

Под-скрипт, названный resolvehostnames-sub ros code

Убедись, что имя этого скрипта совпадает с именем, вызываемым из основного скрипта (resolvehostnames-sub):
:global comment
:global newip
/log info “[RESOLVE] - trying to resolve $comment from sub-script”
:set newip [:resolve $comment]
20.09.2015 15:32:00, maxspeed.

Решай проблемы.

Mon, 09 Feb 2015 09:02:00 -0500

Решай проблемы. RouterOS в форуме RouterOS.
Это моя версия скрипта resolve, он преобразует IP-адрес в имя хоста или имя хоста в IP-адрес: wcsnet, copyright © 2010. все права защищены. версия скрипта: 1.0.

:do {
:local content
:local newhost
:local oldhost
:log info “******************** starting - ip resolve ip*******************”
:log info “-”
:foreach i in=[/ip firewall address-list find list=“resolve ip” and disabled=no] do={
:set content [/ip firewall address-list get $i address]
:set oldhost [/ip firewall address-list get $i comment]
:do {
:set newhost [:resolve $content]
} on-error={
:log error “dns resolve failure [ ip - resolve ip ]”
}
: if ($newhost != $oldhost) do={
/ip firewall address-list set $i comment=$newhost
:log warning “$[/system identity get name] $comment dns host name changed: $oldhost → $newhost”
}
}
:log info “******************** ending - ip resolve ip********************”
:exec “o - after script run”
} on-error={
:log error “script failure [ ip - resolve ip ]”
}

:do {
:local content
:local newip
:local oldip
:log info “******************** starting - ip resolve host*******************”
:log info “-”
:foreach i in=[/ip firewall address-list find list=“resolve host” and disabled=no] do={
:set content [/ip firewall address-list get $i comment]
:set oldip [/ip firewall address-list get $i address]
:do {
:set newip [:resolve $content]
} on-error={
:log error “dns resolve failure [ ip - resolve host ]”
}
: if ($newip != $oldip) do={
/ip firewall address-list set $i address=$newip
:log warning “$[/system identity get name] $comment ip address changed: $oldip → $newip”
}
}
:log info “******************** ending - ip resolve host********************”
:exec “o - after script run”
} on-error={
:log error “script failure [ ip - resolve host ]”
}
09.02.2015 09:02:00, wcsnet.

Решай проблемы.

Sat, 21 Sep 2013 17:57:00 -0400

Решай проблемы. RouterOS в форуме RouterOS.
Скрипт у меня работает отлично на v6.3, не знаю, почему у тебя перестал работать. Первым делом проверь логи. Посмотри записи [RESOLVE], возможно, там будет видно, где происходит сбой. Какая последняя запись [RESOLVE] появляется? Для дополнительного тестирования можешь заключить весь основной скрипт в скобки {}, а потом вставить его в терминал. Возможно, это поможет выявить ошибки в скрипте.
21.09.2013 17:57:00, skot.

Решай проблемы.

Sat, 21 Sep 2013 08:41:00 -0400

Решай проблемы. RouterOS в форуме RouterOS.
Спасибо, Скот, за этот отличный скрипт!
21.09.2013 08:41:00, Netsplite.

Решай проблемы.

Tue, 10 Sep 2013 17:08:00 -0400

Решай проблемы. RouterOS в форуме RouterOS.
Привет, skot! Большое спасибо за твой скрипт, он отлично работал, пока я был на v5.25, но пару дней назад обновился до v6.3, и он перестал обновлять адреса. Он все еще работает каждые 3 минуты, но теперь он этого не делает =( Ребят, какие-нибудь идеи, что могло измениться между v5.25 и v6.3? Или есть способ это исправить и заставить его снова работать?
10.09.2013 17:08:00, lglego.

Решай проблемы.

Thu, 14 Feb 2013 14:30:00 -0500

Решай проблемы. RouterOS в форуме RouterOS.
Привет! У меня проблема с использованием этого скрипта http://wiki.mikrotik.com/wiki/Use_host_names_in_firewall_rules: при запуске из CLI получается: /system script> run resolvehostnames failure: dns name does not exist. И проблема возникает здесь, в конце скрипта выше: : if ($newip != $oldip) do={ :set newip [:resolve $comment] /ip firewall address-list set $i address=$newip} }. Пытался запустить этот скрипт как на ROS 5.14, так и на 5.22. Настройка точно такая же, как в вики, должно быть 100% всё в порядке. Есть какие-нибудь идеи?
14.02.2013 14:30:00, manssebas.