Ещё один скрипт для преобразования DHCP в DNS

Кто-нибудь, выложите самый свежий и лучший скрипт на вики.

Здравствуйте, это сломано? При запуске скрипта появляется следующая ошибка: «empty lease address». Похоже, это связано со значением: if ( [ :len $leaseActIP ] <= 0 ) do={ :error “empty lease address” }. Возможно, Mikrotik изменил, удалил или переименовал эту переменную?

Публикую это, возможно, кому-то поможет. На моём RouterOS v6.46.5 у меня были проблемы со скриптом: в логах появлялись сообщения вроде DHCP2DNS: не регистрируется доменное имя для адреса xxx.yyy.> www.zzz > из-за пустого lease host-name или комментария у некоторых устройств. Оказалось, что имя хоста не считывалось в таком вызове: set hostname [ get $leaseId host-name ], поэтому я решил добавить строку: if ( [ :len $hostname ] <= 0 ) do={ :set hostname $"lease-hostname" }. В итоге в скрипте получилось так:

if ( [ :len $hostname ] <= 0 ) do={ :set hostname $comment }

if ( [ :len $hostname ] <= 0 ) do={ :set hostname $"lease-hostname" }

Спасибо за скрипт. Он определённо должен быть в официальной документации. Я создал немного изменённую версию:

Удаляю пробелы и символы \00 из имён хостов в DHCP-лизах перед объединением с доменом для формирования полного DNS-имени (FQDN). Некоторые DHCP-клиенты, в моём случае умные коммутаторы Zyxel, регистрируются с именами хостов, содержащими пробелы и завершающие символы \00 (скорее всего, это ошибка прошивки Zyxel).

Генерирую имя хоста для DHCP-клиентов с пустыми именами, чтобы создать статическую DNS A-запись для всех клиентов. Большинство устройств на Android начиная с версии 8 не передают имена хостов в DHCP-запросах. Мне нравится, когда для всех клиентов работает DNS.

Делаю префикс логов настраиваемым:  
:local DHCPtag   "#*# Created by DHCP2DNS #*#"  
:local LogPrefix "DHCP2DNS ($leaseServerName)"

###  
# Функции

# Удаляет \0 и пробелы из строки, переданной как inStr=<строка>  
:local trimString do=\
{  
 :local outStr  
 :for i from=0 to=([:len $inStr] - 1) do=\
 {  
   :local tmp [:pick $inStr $i];
   :if (($tmp !=" ") and ($tmp !="\00")) do=\
   {  
     :set outStr ($outStr . $tmp)  
   }  
 }  
 :return $outStr  
}

# "a.b.c.d" -> "a-b-c-d" для IP-адресов, используемых как заменитель отсутствующих имён хостов  
:local ip2Host do=\
{  
 :local outStr  
 :for i from=0 to=([:len $inStr] - 1) do=\
 {  
   :local tmp [:pick $inStr $i];
   :if ($tmp =".") do=\
   {  
     :set tmp "-"  
   }  
   :set outStr ($outStr . $tmp)  
 }  
 :return $outStr  
}

###  
# Точка входа скрипта  
# Ожидаемые переменные окружения:  
# leaseBound         1 = лиз добавлен, 0 = лиз удалён  
# leaseServerName    имя DHCP-сервера  
# leaseActIP         IP-адрес DHCP-клиента

:if ( [ :len $leaseActIP ] <= 0 ) do=\
{  
 :log error "$LogPrefix: пустой IP-адрес лиза"  
 :error "пустой IP-адрес лиза"  
}

:if ( $leaseBound = 1 ) do=\
{  
 # новый лиз DHCP добавлен

 /ip dhcp-server  
 :local ttl [ get [ find name=$leaseServerName ] lease-time ]
 network  
 :local domain [ get [ find $leaseActIP in address ] domain ]
 :set domain [ $trimString inStr=$domain ]

 .. lease  
 :local leaseId [ find address=$leaseActIP ]

 # Проверяем наличие нескольких активных лизов с одним IP. Это странно и не должно быть, но на всякий случай.  
 :if ( [ :len $leaseId ] != 1) do=\
 {  
   :log warning "$LogPrefix: Несколько активных DHCP-лизов для '$leaseActIP' (???)"  
   :error "Несколько активных DHCP-лизов для '$leaseActIP' (???)"  
 }  
 :local hostname [ get $leaseId host-name ]
 :set hostname [ $trimString inStr=$hostname ]
 
 :if ( [ :len $hostname ] <= 0 ) do=\
 {  
   :set hostname [ $ip2Host inStr=$leaseActIP ]
   :log info "$LogPrefix: Пустое имя хоста для '$leaseActIP', используем сгенерированное имя '$hostname'"  
 }  
 :if ( [ :len $domain ] <= 0 ) do=\
 {  
   :log warning "$LogPrefix: Пустое доменное имя для '$leaseActIP', не могу создать статическое DNS-имя"  
   :error "Пустое доменное имя для '$leaseActIP'"  
 }

 :local fqdn ($hostname . "." .  $domain)

 /ip dns static  
 :if ( [ :len [ find name=$fqdn and address=$leaseActIP and disabled=no ] ] = 0 ) do=\
 {  
   add address=$leaseActIP name=$fqdn ttl=$ttl comment=$DHCPtag disabled=no  
   :log info "$LogPrefix: Статическое доменное имя '$fqdn' создано для '$leaseActIP' с ttl '$ttl'"  
 }\
 else=\
 {  
   :log warning "$LogPrefix: '$fqdn' уже существует, не могу создать статическое DNS-имя для '$leaseActIP'"  
   :error "$LogPrefix: '$fqdn' уже существует"  
 }  
}\
else=\
{  
 # DHCP-лиз удалён

 /ip dns static  
 :local dnsDhcpId  
 :set dnsDhcpId [ find address=$leaseActIP and comment=$DHCPtag ]
 :if ( [ :len $dnsDhcpId ] > 0 ) do=\
 {  
   remove $dnsDhcpId  
   :log info "$LogPrefix: Статические DNS-имена для '$leaseActIP' удалены"  
 }  
}

Для большей гибкости этот скрипт можно сохранить как /system script. Это позволит использовать один и тот же скрипт на всех DHCP-серверах для удобства поддержки, просто добавив небольшой обёрточный скрипт в свойство lease script сервера DHCP:

:local scriptName "dhcp2dns.rsc"  
:do {  
 :local scriptSrc [ /system script get [ find name=$scriptName ] source ]
 :local scriptObj [ :parse $scriptSrc ]
 $scriptObj leaseBound=$leaseBound leaseServerName=$leaseServerName leaseActIP=$leaseActIP  
} on-error={ :log warning "Ошибка скрипта lease сервера DHCP '$leaseServerName'" };

Тестировалось на RB4011 V6.47.1

Отличный скрипт! Единственная проблема, с которой я столкнулся, — он автоматически устанавливает одинаковое время аренды для всех (даже для статических) лизов, а так может быть не всегда. Поэтому я заменил

/ip dhcp-server  
:set ttl [ get [ find name=$leaseServerName ] lease-time ]
network  

на

/ip dhcp-server lease  
:set ttl [ get [ find address=$leaseActIP ] lease-time ]
/ip dhcp-server network  

Кроме этого, большое спасибо за участие и помощь!

На самом деле устанавливать TTL DNS равным времени аренды не имеет смысла и только приводит к неожиданному поведению, особенно при длительных периодах аренды.

Гораздо лучший сценарий, чем все предыдущие. Это точно должно быть в вики.

Кто-нибудь может подсказать, что я здесь делаю не так? Я разместил этот скрипт в разделе «Lease Script» в окне настройки DHCP-сервера. Я вижу, что аренды обновляются, но при этом ничего не добавляется в статические DNS-записи. Я также пробовал добавить скрипт отдельно и в качестве Lease Script указать команду /system script run dhcptodns. Просто не понимаю, как это правильно настроить...

Нужна помощь. Я только что перешёл на MikroTik, и этот пост — именно то, что мне было нужно. После добавления скрипта я вижу в логах, что FQDN имена установлены правильно. Но с клиентов пинг по FQDN не проходит (пинг просто по имени хоста работает нормально).

Вот моя конфигурация: ether4 (10.9.7.0/24) с назначенным скриптом и доменом «rev.local». Есть две машины на Windows со статическими адресами:
M1 – 10.9.7.11
M2 – 10.9.7.12

Машины получают правильные IP, но DNS-сервер у них установлен 9.9.9.9 (на WAN-интерфейсе).

Когда с M1 пробую:
ping M2.rev.local — не разрешается…
ping M2 — возвращается 10.9.7.2 и пинг проходит нормально.

То же самое с M2.

Однако из терминала winBox на обеих машинах M1 и M2 пинг по M1.rev.local и M2.rev.local проходит без проблем.

Ещё одно наблюдение: есть M3 без статического адреса (получает 10.9.8.131) — с неё пингуются M1 и M2, но не M1.rev.local.

Что-то я упускаю?