Re: Помощь со скриптом.
Добавлено: 28 сен 2021, 13:43
Спасибо за совет, буду смотреть как сделать проверку по ip в адрес листе.
Russian Users MikroTik | Форум пользователей MikroTik
Форум поддержи и обмена опытом пользователей оборудования RouterBOARD и операционной системы RouterOS Латвийского производителя MikroTik
https://forummikrotik.ru/
Помощь со скриптом.
Страница 2 из 2
Re: Помощь со скриптом.
Добавлено: 28 сен 2021, 18:03
Переделал скрипт, основу взял из другого скрипта ( отлавливает днс и помещает Ip адрес лист) помогите найти проблему из-за чего скрипт не работает.
Код: Выделить всё
:local DNSList [/ip firewall address-list]
:local ListName "vpn_clients"
#:local DNSServers ( [ip dns get dynamic-servers], [ip dns get servers ], 8.8.8.8 )
#:foreach addr in $DNSList do={
# :foreach DNSServer in $DNSServers do={
# :do {:resolve server=$DNSServer $addr} on-error={:log debug ("failed to resolve $addr on $DNSServer")}
# }
#}
#/ip firewall address-list remove [find where list~$ListName]
:foreach i in=[/ip dhcp-server lease find host-name~"WP"] do={
:local bNew true
:local match false
:foreach i in=$DNSList do={
:if (:typeof [:find $i] >= 0) do={
:set $match true
}
}
:if ( $match ) do={
:local tmpAddress [/ip dhcp-server lease get $i address]
:if ( [/ip firewall address-list find ] = "") do={
:log debug ("added entry: $[/ip dhcp-server lease get $i address] IP $tmpAddress")
/ip firewall address-list add address=$tmpAddress list=$ListName
} else={
:foreach i in=[/ip firewall address-list find ] do={
:if ( [/ip firewall address-list get $i address] = $tmpAddress ) do={
:set bNew false
}
}
:if ( $bNew ) do={
:log debug ("added entry: $[/ip dhcp-server lease get $i address] IP $tmpAddress")
/ip firewall address-list add address=$tmpAddress list=$ListName
}
}
}
}
Re: Помощь со скриптом.
Добавлено: 28 сен 2021, 18:17
Хуже нет, чем переделывать чужой код. Каждый имеет свои любимые приёмы, которые использует при написании. И логика будет у каждого немного разная. Если вы берёте чей-то скрипт, ну так и спрашивайте у автора. Он хотя бы понимает, зачем использовал именно такие приёмы.
Я и свой-то старый код когда вижу, не могу вспомнить, что откуда. Старый стал, память совсем дырявая.
Я и свой-то старый код когда вижу, не могу вспомнить, что откуда. Старый стал, память совсем дырявая.
Re: Помощь со скриптом.
Добавлено: 29 сен 2021, 12:59
Вот полностью рабочий скрипт, по добавлению ip адреса в address list , с проверкой на имеющийся ip в листе..
Спасибо за помощь и наставление
.
Код: Выделить всё
:local mydrop false;
:local myadd true;
:foreach i in=[/ip dhcp-server lease find host-name~"WP"] do={:set $ipaddr [/ip dhcp-server lease get $i address]; $ipaddr; :if ([/ip firewall address-list print value-list count-only where list=vpn_clients and address=$ipaddr]>0) do={$mydrop false} else={:put [/ip dhcp-server lease get $i address]};
:if ( [/ip firewall address-list find ] = "") do={ $myadd true} else={:do {/ip firewall address-list add list=vpn_clients address=[/ip dhcp-server lease get $i address]}}};
Спасибо за помощь и наставление
.Re: Помощь со скриптом.
Добавлено: 29 сен 2021, 19:26
Поздравляю...