удалить список адресов старше 7 дней

Работает отлично!!! Огромное спасибо

Как мне указать срок действия в списке адресов?

Удалить значения адресов, которые были созданы ровно 30 дней назад. :global datetime2epoch do={:local dtime [:tostr $1] /system clock :local cyear [get date] ; :if ($cyear ~ "....-..-..") do={:set cyear [:pick $cyear 0 4]} else={:set cyear [:pick $cyear 7 11]} :if (([:len $dtime] = 10) or ([:len $dtime] = 11)) do={:set dtime "$dtime 00:00:00"} :if ([:len $dtime] = 15) do={:set dtime "$[:pick $dtime 0 6]/$cyear $[:pick $dtime 7 15]"} :if ([:len $dtime] = 14) do={:set dtime "$cyear-$[:pick $dtime 0 5] $[:pick $dtime 6 14]"} :if ([:len $dtime] = 8) do={:set dtime "$[get date] $dtime"} :if ([:tostr $1] = "") do={:set dtime ("$[get date] $[get time]")} :local vdate [:pick $dtime 0 [:find $dtime " " -1]] :local vtime [:pick $dtime ([:find $dtime " " -1] + 1) [:len $dtime]] :local vgmt [get gmt-offset]; :if ($vgmt > 0x7FFFFFFF) do={:set vgmt ($vgmt - 0x100000000)} :if ($vgmt < 0) do={:set vgmt ($vgmt * -1)} :local arrm [:toarray "0,0,31,59,90,120,151,181,212,243,273,304,334"] :local vdoff [:toarray "0,4,5,7,8,10"] :local MM [:pick $vdate ($vdoff->2) ($vdoff->3)] :local M [:tonum $MM] :if ($vdate ~ ".../../....") do={ :set vdoff [:toarray "7,11,1,3,4,6"] :set M ([:find "xxanebarprayunulugepctovecANEBARPRAYUNULUGEPCTOVEC" [:pick $vdate ($vdoff->2) ($vdoff->3)] -1] / 2) :if ($M>12) do={:set M ($M - 12)} } :local yyyy [:pick $vdate ($vdoff->0) ($vdoff->1)] ; :if ((($yyyy - 1968) % 4) = 0) do={:set ($arrm->1) -1; :set ($arrm->2) 30} :local totd ((($yyyy - 1970) * 365) + (($yyyy - 1968) / 4) + ($arrm->$M) + ([:pick $vdate ($vdoff->4) ($vdoff->5)] - 1)) :return (((((($totd * 24) + [:pick $vtime 0 2]) * 60) + [:pick $vtime 3 5]) * 60) + [:pick $vtime 6 8] - $vgmt) }

     :local currDate [/system clock get date] :log info $currDate :local currDateSeconds [$datetime2epoch $currDate] :local aDayinSeconds "2592000" #измените это значение, чтобы получить количество дней (в одной сутках = 86400 x количество дней), в данном случае 259200 = 30 дней :local DSR :set DSR ([:tonum $currDateSeconds]-[:tonum $aDayinSeconds])

#########################################################################xxxxxxxxxxxxxxxxxxxxxxxxxxx

:global unixtodatetime do={ :local ux [:tonum $1] :local Fzerofill do={:return [:pick (100 + $1) 1 3]} :local prMntDays [:toarray "0,0,31,59,90,120,151,181,212,243,273,304,334"] :local vgmt [:tonum [/system clock get gmt-offset]]; :if ($vgmt > 0x7FFFFFFF) do={:set vgmt ($vgmt - 0x100000000)} :if ($vgmt < 0) do={:set vgmt ($vgmt * -1)} :local tzepoch ($ux + $vgmt) :if ($tzepoch < 0) do={:set tzepoch 0} ; # отрицательный unixepoch не поддерживается :local yearStart (1970 + ($tzepoch / 31536000)) :local tmpbissex (($yearStart - 1968) / 4) ; :if ((($yearStart - 1968) % 4) = 0) do={:set ($prMntDays->1) -1 ; :set ($prMntDays->2) 30} :local tmpsec ($tzepoch % 31536000) :local tmpdays (($tmpsec / 86400) - $tmpbissex) :if (($tmpsec < (86400 * $tmpbissex)) and ((($yearStart - 1968) % 4) = 0)) do={ :set tmpbissex ($tmpbissex - 1) ; :set ($prMntDays->1) 0 ; :set ($prMntDays->2) 31 ; :set tmpdays ($tmpdays + 1) } :if ($tmpsec < (86400 * $tmpbissex)) do={:set yearStart ($yearStart - 1) ; :set tmpdays ($tmpdays + 365)} :local mnthStart 12 ; :while (($prMntDays->$mnthStart) > $tmpdays) do={:set mnthStart ($mnthStart - 1)} :local dayStart [$Fzerofill (($tmpdays + 1) - ($prMntDays->$mnthStart))] :local timeStart (00:00:00 + [:totime ($tmpsec % 86400)]) :return "$yearStart/$[$Fzerofill $mnthStart]/$[$Fzerofill $dayStart] $timeStart" }

:local DATE [$unixtodatetime $DSR]

:local YYYY [:pick $DATE 0 4] :local mm [:pick $DATE 5 7] :local DD [:pick $DATE 8 10] :local LASTDAY "$YYYY-$mm-$DD"

:log info $LASTDAY

{ :foreach i in=[/ip firewall address-list find where creation-time~"$LASTDAY" && list~"mylist"] do={ :local address [/ip firewall address-list get $i address] :log info "Удаление $address из mylist" /ip firewall address-list remove $i } }