Помогите со скриптом для DNS-запросов и списков адресов.

Посмотрю сценарии, как только вернусь к компьютеру. Отправлено с моего SCH-I545 через Tapatalk.

Слить два скрипта было бы не так уж и сложно, но сейчас у меня нет времени этим заниматься. Скорее всего, понадобится как минимум неделя-две, прежде чем я смогу этим заняться, у меня сейчас семейные дела, которые занимают почти всё моё время. Думаю, на это уйдёт около двух часов.

Занесу в список дел, когда будет время. Если нужно сделать быстрее, могу “посоветоваться” по этому поводу… если тебе это интересно, просто напиши мне на почту.

Вот точный скрипт, который я сейчас запускаю на роутере:
:foreach i in=[/ip dns cache find] do={
   :local bNew "true";
   :local cacheName [/ip dns cache all get $i name] ;
#    :put $cacheName;

   :if (([:find $cacheName "youtube"] != 0) || ([:find $cacheName "googlevideo"] != 0)) do={

       :local tmpAddress [/ip dns cache get $i address] ;
#   :put $tmpAddress;

# if address list is empty do not check
       :if ( [/ip firewall address-list find ] = "") do={
           :log info ("added entry: $[/ip dns cache get $i name] IP $tmpAddress");
           /ip firewall address-list add address=$tmpAddress list=VC-YouTube comment=$cacheName;
       } else={
           :foreach j in=[/ip firewall address-list find ] do={
               :if ( [/ip firewall address-list get $j address] = $tmpAddress ) do={
                   :set bNew "false";
               }
           }
           :if ( $bNew = "true" ) do={
               :log info ("added entry: $[/ip dns cache get $i name] IP $tmpAddress");
               /ip firewall address-list add address=$tmpAddress list=VC-YouTube comment=$cacheName;
           }
       }
   }
} Он проходит по DNS кэшу в поисках серверов, в названии которых есть слова «youtube» или «googlevideo», а затем добавляет IP-адрес сервера в список адресов с именем VC-YouTube. Если изменить его, чтобы он искал серверы, в названии которых есть «vimeocdn», он найдет, скажем, server10.vimeocdn.com (я это придумал), но поле Type в DNS кэше будет CNAME, а поле Data будет чем-то вроде a1806.dwskn.akamai.net. Чтобы добавить это в список адресов, мне нужно, чтобы a1806.dwskn.akamai.net был дополнительно разрешен до числового IP-адреса. Второй скрипт, упомянутый в моем первом посте, может это сделать, но я не могу передать ему частичное имя сервера и позволить ему найти все серверы, в названии которых есть ключевое слово, поэтому он непригоден для моего случая. Думаю, это может быть интересно и другим, поскольку позволяет осуществлять некоторую продвинутую динамическую переадресацию или маршрутизацию сайтов, которые могут потреблять много пропускной способности. Как я уже говорил, спешки нет, поэтому когда у вас будет свободное время, было бы неплохо, если бы это было сделано и применено к большему количеству сайтов… С уважением!

Огромное спасибо, Efaden!!! Скрипт работает просто идеально. Пришлось убрать вот эту часть, потому что она выдавала ошибку, но это совсем не уменьшает его полезности! timeout=$myTimeout
    } on-error={
       :put "DNSCACHE: Error on $myName $myData $myType"
    }

Ах, понятно… Я пробовал это на роутере с версией 6.3. Не хочу тебя больше беспокоить, просто обновлю ОС до более свежей версии. Спасибо еще раз!

Не тестировалось… но что-то вроде этого.
:local myServers { “google” }
:local myListName “myList”
/ip firewall address-list {
remove [find list=$myListName]
}
/ip dns cache all {
:foreach i in=$myServers do={
:foreach j in=[find where (name~$i)] do={
:local myName [get $j name]
:local myType [get $j type]
:local myData [get $j data]
:if ($myType = "A") do={
:local inList false
:foreach k in=[find where (address=$myData && list=$myListName)] {
:set inList true
}
:if (!inList) do={
/ip firewall address-list add address=$myData list=$myListName comment="DNSCACHE-$i-$myName"
}
}
:if ($myType = "CNAME") do={
:local currentName $j
:local nextName [find where (name=$myData && type="CNAME")]
:while ($nextName != "") do={
:set currentName $nextName
:set nextName [find where (name=[get $nextName data] && type="CNAME")]
}
:resolve [get $currentName data]
:foreach k in=[find where (name=[get $currentName data] && type="A")] do={
:set myData [get $k data]
:local inList false
:foreach l in=[find where (address=$myData && list=$myListName)] do={
:set inList true
}
:if (!inList) do={
/ip firewall address-list add address=$myData list=$myListName comment="DNSCACHE-$i-$myName"
}
}
}
}
}
}

Хм. Это моя версия. Придется разобраться и добавить механизм, чтобы это отлавливать. Отправлено с моего SCH-I545 через Tapatalk

Выдает мне такую ошибку: ожидается имя переменной (строка 39, столбец 26).