:local output “{\”peer\”:[“;
:local lista [/routing/bgp/session find];
:local contador 0;

:foreach i in=$lista do={

:local name “”;
:local remoteAddress “”;
:local remoteAs “”;
:local established false;
:local stateRaw “”;
:local prefixRaw 0;
:local uptimeRaw “”;

:do { :set name [/routing/bgp/session get $i name]; } on-error={ :set name “unknown”; }
:do { :set remoteAddress [/routing/bgp/session get $i remote.address]; } on-error={ :set remoteAddress “”; }
:do { :set remoteAs [/routing/bgp/session get $i remote.as]; } on-error={ :set remoteAs “”; }
:do { :set established [/routing/bgp/session get $i established]; } on-error={ :set established false; }
:do { :set stateRaw [/routing/bgp/session get $i state]; } on-error={ :set stateRaw “”; }
:do { :set prefixRaw [/routing/bgp/session get $i prefix-count]; } on-error={ :set prefixRaw 0; }
:do { :set uptimeRaw [/routing/bgp/session get $i uptime]; } on-error={ :set uptimeRaw “0”; }

:local state 1;

:if ($established = true) do={
:set state 6;
} else={
:if ($stateRaw = “idle”) do={ :set state 1; }
:if ($stateRaw = “connect”) do={ :set state 2; }
:if ($stateRaw = “active”) do={ :set state 3; }
:if ($stateRaw = “opensent”) do={ :set state 4; }
:if ($stateRaw = “openconfirm”) do={ :set state 5; }
:if ($stateRaw = “established”) do={ :set state 6; }
}

:local prefix 0;
:if ([:len [:tostr $prefixRaw]] > 0) do={
:set prefix $prefixRaw;
}

:local uptime [:tostr $uptimeRaw];
:local uptimeSeconds 0;
:local weeks 0;
:local days 0;
:local hours 0;
:local minutes 0;
:local seconds 0;

:local posDot [:find $uptime “.”];
:if ([:typeof $posDot] != “nil”) do={
:set uptime [:pick $uptime 0 $posDot];
}

:local posW [:find $uptime “w”];
:if ([:typeof $posW] != “nil”) do={
:set weeks [:tonum [:pick $uptime 0 $posW]];
}

:local posD [:find $uptime “d”];
:if ([:typeof $posD] != “nil”) do={
:local startD 0;
:if ([:typeof $posW] != “nil”) do={
:set startD ($posW + 1);
}
:set days [:tonum [:pick $uptime $startD $posD]];
}

:if ([:len $uptime] >= 8) do={
:local timePart [:pick $uptime ([:len $uptime] – 8) [:len $uptime]];
:if ([:find $timePart “:”] != nil) do={
:set hours [:tonum [:pick $timePart 0 2]];
:set minutes [:tonum [:pick $timePart 3 5]];
:set seconds [:tonum [:pick $timePart 6 8]];
}
}

:set uptimeSeconds (($weeks * 604800) + ($days * 86400) + ($hours * 3600) + ($minutes * 60) + $seconds);

:set contador ($contador + 1);

:if ($contador > 1) do={
:set output ($output . “,”);
}

:set output ($output . “{\”Id\”:\”” . $contador . “\”,\”Disabled\”:\”false\”,\”Name\”:\”” . $name . “\”,\”Remote-Address\”:\”” . $remoteAddress . “\”,\”Remote-AS\”:\”” . $remoteAs . “\”,\”State\”:\”” . $state . “\”,\”Prefix\”:\”” . $prefix . “\”,\”Uptime\”:\”” . $uptimeSeconds . “\”}”);
}

:set output ($output . “]}”);
:put $output;

dia 15/04/2026 Funcionando perfeitamente.

Marcos, consegui instalar o SimNext usando o PlayOnLinux

❤️

Não faço.

Não

apt install composer -y

composer –version

chown -R www-data:www-data /var/www/html/nfsen-ng

php /var/www/html/nfsen-ng/backend/cli.php start

systemctl restart nfsen-ng
systemctl status nfsen-ng

(ppp:) failure: Fetch failed with status 403 (/tool/fetch; line 33)

A linha e essa:

/tool fetch url=”$URLUP” http-data=”action=i&token=$TOKEN&user=$user&mac=$callerId&nas=$localAddr&service=$calledId&ipv4=$remoteAddr&remoteipv6=$RemoteIPv6&dhcpv6pd=$DHCPv6PD” http-method=post

# alterando a senha do usuário
# Entre no mariadb com seu usuário pureftpd e senha
mysql -u pureftpd -p

USE pureftpd;
UPDATE ftpd SET Password=MD5(‘nova-senha’) WHERE User=’nomedousuario’;
EXIT;

:log warning “***************************************”
# Conexão FTP
:global host NOME-OU-IP
:global usuario USUARIO-FTP
:global senha SENHA-USUARIO-FTP
# Pega o nome do Router
:global identifica [/system identity get name ];
# Gera data no formato AAAA-MM-DD
:global data [/system clock get date];
:global meses (“jan”,”feb”,”mar”,”apr”,”may”,”jun”,”jul”,”aug”,”sep”,”oct”,”nov”,”dec”);
:global ano [:pick $data 0 4];
:global mes [:pick $data 5 7];
:global dia [:pick $data 8 10];
:local vmestxt ($meses->([:tonum $mes]-1));
:global mestxt $vmestxt;
:log info “Gerando backup: $dia-$mestxt-$ano.$identifica.backup”;
/system backup save name=”$dia-$mestxt-$ano.$identifica”;
:log info “Gerando export: $dia-$mestxt-$ano.$identifica.rsc”;
/export file=”$dia-$mestxt-$ano.$identifica” show-sensitive
:log info “Processando…”;
:delay 5s
:log info “Conectando FTP Server…”;
:log info “Enviando Backup [$dia-$mestxt-$ano.$identifica.backup] …”;
/tool fetch address=$host src-path=”$dia-$mestxt-$ano.$identifica.backup” user=”$usuario” password=”$senha” port=21 upload=yes mode=ftp dst-path=”$diretorio/$dia-$mestxt-$ano.$identifica.backup”
:log info “Enviando Export [$dia-$mestxt-$ano.$identifica.rsc] …”;
/tool fetch address=$host src-path=”$dia-$mestxt-$ano.$identifica.rsc” user=”$usuario” password=”$senha” port=21 upload=yes mode=ftp dst-path=”$diretorio/$dia-$mestxt-$ano.$identifica.rsc”
:delay 1
:log info “Backup enviado com sucesso…”;
:log info “Removendo arquivos…”;
/file remove “$dia-$mestxt-$ano.$identifica.backup”
/file remove “$dia-$mestxt-$ano.$identifica.rsc”
:log info “Rotina de backup finalizada…”;
:log warning “***************************************”;

Faz um free-lance nesse assunto??