/tool fetch mode=https url="http://dominioz.com.br/ppp/105.php" dst-path=remoto.txt;
:global ativosremoto [/file get "remoto.txt" contents];
/file remove "remoto.txt"

:global ultimo [/system clock get time] 
:global iptotal 1344
:global maxpado 45
:global minpado 1
:global ipsobra (($iptotal/100)*2)
:global maxclientes ($iptotal - $ipsobra)
:global ativos [/ip pool used print count-only where pool~"empresas"]
:global ativostotais [/interface pppoe-server print count-only]
:global atualpado [/interface pppoe-server server get 0 value-name=pado-delay]
:global padlog [/log print count-only where message~"could not determine remote address"]

:global ativosdiferenca ($ativostotais - $ativosremoto)

:if ($ativostotais > $ativosremoto) do={
:global minpado 15
:global status 3
}

:global iprestantes ($iptotal - $ativos)

:if ($ativos > $maxclientes) do={
    :if ($maxpado != $atualpado) do={
        :foreach i  in=[ /interface pppoe-server server find] do={
                /interface pppoe-server server set $i pado-delay=$maxpado
          }
      :log warning "ALTERANDO PRIORIDADE PADO $maxpado"
      :global status 2
     }
}


:if ($ativos < $maxclientes) do={
    :if ($minpado != $atualpado) do={
        :foreach i  in=[ /interface pppoe-server server find] do={
                  /interface pppoe-server server set $i pado-delay=$minpado
         }
      :log warning "ALTERANDO PRIORIDADE PADO $minpado"
      :global status 1
    }
}


:if ($padlog > 1) do={
        :foreach i  in=[ /interface pppoe-server server find] do={
        /interface pppoe-server server set $i pado-delay=99
        }
}
/ppp active remove [find address=0.0.0.0]
:global atualpado [/interface pppoe-server server get 0 value-name=pado-delay]