From d1a3fd9e0debf994055a410fbc7e5ba7c7c074b0 Mon Sep 17 00:00:00 2001 From: Michael Tremer Date: Sun, 22 Sep 2024 14:33:03 +0000 Subject: [PATCH] ovpnmain.cgi: Fix IP address calculation with static pools Signed-off-by: Michael Tremer --- config/rootfiles/core/189/filelists/files | 1 + html/cgi-bin/ovpnmain.cgi | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/config/rootfiles/core/189/filelists/files b/config/rootfiles/core/189/filelists/files index 7afa1ac2e9..7e79598862 100644 --- a/config/rootfiles/core/189/filelists/files +++ b/config/rootfiles/core/189/filelists/files @@ -5,6 +5,7 @@ etc/rc.d/init.d/networking/functions.network etc/rc.d/init.d/suricata srv/web/ipfire/cgi-bin/getrrdimage.cgi srv/web/ipfire/cgi-bin/ids.cgi +srv/web/ipfire/cgi-bin/ovpnmain.cgi srv/web/ipfire/html/include/rrdimage.js usr/bin/suricata-watcher var/ipfire/graphs.pl diff --git a/html/cgi-bin/ovpnmain.cgi b/html/cgi-bin/ovpnmain.cgi index 72695f892f..daaa059a49 100755 --- a/html/cgi-bin/ovpnmain.cgi +++ b/html/cgi-bin/ovpnmain.cgi @@ -569,7 +569,7 @@ sub getccdadresses for (my $i=1;$i<=$count;$i++) { my $tmpip=$iprange[$i-1]; my $stepper=$i*4; - $iprange[$i]= &General::getnextip($tmpip,4); + $iprange[$i]= &Network::bin2ip(&Network::ip2bin($tmpip) + 4); } my $r=0; foreach my $key (keys %ccdhash) { -- 2.39.5