From mboxrd@z Thu Jan  1 00:00:00 1970
From: Bernhard Bitsch <Bernhard.Bitsch@gmx.de>
To: development@lists.ipfire.org
Subject: Aw: Re: [PATCH v2 5/6] zoneconf.cgi: Import network-functions.pl
Date: Sat, 20 Feb 2021 12:07:04 +0100
Message-ID:
 <trinity-7fead884-46af-47bc-8be1-654b13d495c5-1613819224232@3c-app-gmx-bs64>
In-Reply-To: <31BA05BA-2B25-427A-970D-CA4AFBEE2C1B@ipfire.org>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============1657769218410573954=="
List-Id: <development.lists.ipfire.org>

--===============1657769218410573954==
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: quoted-printable



> Gesendet: Freitag, 19. Februar 2021 um 20:24 Uhr
> Von: "Michael Tremer" <michael.tremer(a)ipfire.org>
> An: "Leo-Andres Hofmann" <hofmann(a)leo-andres.de>
> Cc: development(a)lists.ipfire.org
> Betreff: Re: [PATCH v2 5/6] zoneconf.cgi: Import network-functions.pl
>
>=20
>=20
> > On 18 Feb 2021, at 14:30, Leo-Andres Hofmann <hofmann(a)leo-andres.de> wr=
ote:
> >=20
> > Remove custom functions and use network-functions.pl instead to detect
> > the available zones correctly. This also removes the requirement that
> > a device must be assigned for a zone to become visible/configurable.
> >=20
> > Fixes: #12568
> >=20
> > Signed-off-by: Leo-Andres Hofmann <hofmann(a)leo-andres.de>
> > ---
> > html/cgi-bin/zoneconf.cgi | 37 ++++++++-----------------------------
> > 1 file changed, 8 insertions(+), 29 deletions(-)
> >=20
> > diff --git a/html/cgi-bin/zoneconf.cgi b/html/cgi-bin/zoneconf.cgi
> > index eb6cd0e66..9d01d06ce 100644
> > --- a/html/cgi-bin/zoneconf.cgi
> > +++ b/html/cgi-bin/zoneconf.cgi
> > @@ -25,6 +25,7 @@ use Scalar::Util qw(looks_like_number);
> > require '/var/ipfire/general-functions.pl';
> > require "${General::swroot}/lang.pl";
> > require "${General::swroot}/header.pl";
> > +require "${General::swroot}/network-functions.pl";
> >=20
> > ###--- HTML HEAD ---###
> > my $extraHead =3D <<END
> > @@ -152,8 +153,8 @@ my $restart_notice =3D "";
> > &Header::getcgihash(\%cgiparams);
> > &Header::showhttpheaders();
> >=20
> > -# Define all zones we will check for NIC assignment
> > -my @zones =3D ("red", "green", "orange", "blue");
> > +# Get all network zones that are currently enabled
> > +my @zones =3D Network::get_available_network_zones();
> >=20
> > # Get all physical NICs present
> > opendir(my $dh, "/sys/class/net/");
> > @@ -187,20 +188,6 @@ foreach (@nics) {
> > 	}
> > }
> >=20
> > -### Functions ###
> > -
> > -# Check if a zone is in IP mode or in PPP, PPPoE, VDSL, ... mode
> > -sub is_zonetype_ip {
> > -	my $zone_type =3D shift;
> > -	return ($zone_type eq "STATIC" || $zone_type eq "DHCP");
> > -}
> > -
> > -# Check if a zone is activated (device assigned)
> > -sub is_zone_activated {
> > -	my $zone =3D uc shift;
> > -	return ($ethsettings{"${zone}_DEV"} ne "");
> > -}
> > -
> > ### START PAGE ###
> > &Header::openpage($Lang::tr{"zoneconf title"}, 1, $extraHead);
> > &Header::openbigbox('100%', 'center');
> > @@ -211,7 +198,8 @@ if ($cgiparams{"ACTION"} eq $Lang::tr{"save"}) {
> > 	my %VALIDATE_nic_check =3D ();
> > 	my $VALIDATE_error =3D "";
> >=20
> > -	foreach (@zones) {
> > +	# Loop trough all known zones to ensure a complete configuration file i=
s created
> > +	foreach (@Network::known_network_zones) {
>=20
> Quite a good idea to have a global constant for this :)
>=20
> > 		my $uc =3D uc $_;
> > 		my $slave_string =3D "";
> > 		my $zone_mode =3D $cgiparams{"MODE $uc"};
> > @@ -383,14 +371,11 @@ END
> > foreach (@zones) {
> > 	my $uc =3D uc $_;
> >=20
> > -	# If the zone is not activated, don't show it
> > -	next unless is_zone_activated($_);
> > -
> > 	# If the red zone is in PPP mode, don't show a mode dropdown
> > 	if ($uc eq "RED") {
> > 		my $red_type =3D $ethsettings{"RED_TYPE"};
> >=20
> > -		unless (is_zonetype_ip($red_type)) {
> > +		unless (Network::is_red_mode_ip()) {
>=20
> Wouldn=E2=80=99t perl complain if this isn=E2=80=99t called with an =E2=80=
=9C&=E2=80=9D?
>=20

No. This is the normal call now. The syntax with '&' brings some (minimal) re=
strictions.

> > 			print "\t\t<td class=3D'heading bold $_'>$uc ($red_type)</td>\n";
> >=20
> > 			next; # We're done here
> > @@ -436,12 +421,9 @@ foreach (@nics) {
> > 		my $uc =3D uc $_;
> > 		my $highlight =3D "";
> >=20
> > -		# If the zone is not activated, don't show it
> > -		next unless is_zone_activated($_);
> > -
> > 		if ($uc eq "RED") {
> > 			# VLANs/Bridging is not possible if the RED interface is set to PPP, P=
PPoE, VDSL, ...
> > -			unless (is_zonetype_ip($ethsettings{"RED_TYPE"})) {
> > +			unless (Network::is_red_mode_ip()) {
> > 				my $checked =3D "";
> >=20
> > 				if ($mac eq $ethsettings{"${uc}_MACADDR"}) {
> > @@ -519,12 +501,9 @@ my @stp_html =3D (); # form fields buffer (two rows)
> > foreach (@zones) { # load settings and prepare form elements for each zone
> > 	my $uc =3D uc $_;
> >=20
> > -	# skip if zone is not activated
> > -	next unless is_zone_activated($_);
> > -
> > 	# STP is not available if the RED interface is set to PPP, PPPoE, VDSL, =
...
> > 	if ($uc eq "RED") {
> > -		unless (is_zonetype_ip($ethsettings{"RED_TYPE"})) {
> > +		unless (Network::is_red_mode_ip()) {
>=20
> Same as above.
>=20
> > 			push(@stp_html, ["\t\t<td></td>\n", "\t\t<td></td>\n"]); # print empty=
 cell
> > 			next;
> > 		}
> > --=20
> > 2.27.0.windows.1
> >=20
>=20
> -Michael

--===============1657769218410573954==--