[1/5] BUG12156: changed wio.cgi to fix broken Web GUI

Message ID 20190903204548.2045-1-sfeddersen@ipfire.org
State Accepted
Commit f928cc5a34ef0f9bfa4670cafaf358fbe183e7b2
Headers
Series [1/5] BUG12156: changed wio.cgi to fix broken Web GUI |

Commit Message

Stephan Feddersen Sept. 3, 2019, 8:45 p.m. UTC
  ---
 src/wio/wio.cgi | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)
  

Comments

Michael Tremer Sept. 5, 2019, 9:29 a.m. UTC | #1
Hi Stephan,

Thanks for submitting these patches.

However, your From: header in the email is showing “sfeddersen” only when it should be your full name. Could you please fix this?

  https://wiki.ipfire.org/devel/git/setup

-Michael

> On 3 Sep 2019, at 21:45, sfeddersen <sfeddersen@ipfire.org> wrote:
> 
> ---
> src/wio/wio.cgi | 10 +++++-----
> 1 file changed, 5 insertions(+), 5 deletions(-)
> 
> diff --git a/src/wio/wio.cgi b/src/wio/wio.cgi
> index c51910f4d..1645aa54e 100644
> --- a/src/wio/wio.cgi
> +++ b/src/wio/wio.cgi
> @@ -1504,7 +1504,7 @@ my $dotip = length($ipaddresses[$a]) - rindex($ipaddresses[$a],'.');
> 			$ic = "${_}";
> 
> 			foreach $interface (@devs_net) {
> -			next if ( $netsettings{"$ic"."_DEV"} eq 'red0' && ($netsettings{"RED_TYPE"} eq 'DHCP' || $netsettings{"RED_TYPE"} eq 'PPPOE'));
> +			next if ( $netsettings{"$ic"."_DEV"} eq 'red0' && $netsettings{"RED_TYPE"} eq 'PPPOE');
> 				if ( $netsettings{"$ic"."_DEV"} eq $interface ) {
> 					if ( &General::IpInSubnet($ipaddresses[$a], $netsettings{"$ic"."_NETADDRESS"}, $netsettings{"$ic"."_NETMASK"}) ) {
> 						print"<td align='center' height='20'><img src='$imgstatic/$devs_img[$in]' alt='$Lang::tr{$devs_alt[$in]}' title='$Lang::tr{$devs_alt[$in]}' /></td>";
> @@ -1558,7 +1558,7 @@ my $dotip = length($ipaddresses[$a]) - rindex($ipaddresses[$a],'.');
> 			}
> 		}
> 
> -		if ($netsettings{"RED_TYPE"} eq 'DHCP' || $netsettings{"RED_TYPE"} eq 'PPPOE') {
> +		if ( $netsettings{"RED_TYPE"} eq 'PPPOE' ) {
> 			my $redipadr = qx'ip addr | grep red0 | grep inet | awk "{print \$2}"';
> 			my @rednet = split ("/", $redipadr);
> 			chomp ($rednet[1]);
> @@ -1569,10 +1569,10 @@ my $dotip = length($ipaddresses[$a]) - rindex($ipaddresses[$a],'.');
> 				print"<td align='center' height='20'><img src='$imgstatic/red.png' alt='$Lang::tr{'wio_red_lan'}' title='$Lang::tr{'wio_red_lan'}' /></td>";
> 				last SWITCH;
> 			}
> -			else {
> +		}
> +		else {
> 				print"<td align='center'><img align='middle' src='$imgstatic/white.png' alt='$Lang::tr{'wio_unknown_lan'}' title='$Lang::tr{'wio_unknown_lan'}' /></td>";
> 				last SWITCH;
> -			}
> 		}
> 	}
> 
> @@ -1872,7 +1872,7 @@ SWITCH: {
> 		}
> 	}
> 
> -			if ($netsettings{"RED_TYPE"} eq 'DHCP' || $netsettings{"RED_TYPE"} eq 'PPPOE') {
> +			if ($netsettings{"RED_TYPE"} eq 'DHCP' || $netsettings{"RED_TYPE"} eq 'PPPOE' || $netsettings{"RED_TYPE"} eq 'STATIC') {
> 			my $redipadr = qx'ip addr | grep red0 | grep inet | awk "{print \$2}"';
> 			my @rednet = split ("/", $redipadr);
> 			chomp ($rednet[1]);
> -- 
> 2.17.1
>
  

Patch

diff --git a/src/wio/wio.cgi b/src/wio/wio.cgi
index c51910f4d..1645aa54e 100644
--- a/src/wio/wio.cgi
+++ b/src/wio/wio.cgi
@@ -1504,7 +1504,7 @@  my $dotip = length($ipaddresses[$a]) - rindex($ipaddresses[$a],'.');
 			$ic = "${_}";
 
 			foreach $interface (@devs_net) {
-			next if ( $netsettings{"$ic"."_DEV"} eq 'red0' && ($netsettings{"RED_TYPE"} eq 'DHCP' || $netsettings{"RED_TYPE"} eq 'PPPOE'));
+			next if ( $netsettings{"$ic"."_DEV"} eq 'red0' && $netsettings{"RED_TYPE"} eq 'PPPOE');
 				if ( $netsettings{"$ic"."_DEV"} eq $interface ) {
 					if ( &General::IpInSubnet($ipaddresses[$a], $netsettings{"$ic"."_NETADDRESS"}, $netsettings{"$ic"."_NETMASK"}) ) {
 						print"<td align='center' height='20'><img src='$imgstatic/$devs_img[$in]' alt='$Lang::tr{$devs_alt[$in]}' title='$Lang::tr{$devs_alt[$in]}' /></td>";
@@ -1558,7 +1558,7 @@  my $dotip = length($ipaddresses[$a]) - rindex($ipaddresses[$a],'.');
 			}
 		}
 
-		if ($netsettings{"RED_TYPE"} eq 'DHCP' || $netsettings{"RED_TYPE"} eq 'PPPOE') {
+		if ( $netsettings{"RED_TYPE"} eq 'PPPOE' ) {
 			my $redipadr = qx'ip addr | grep red0 | grep inet | awk "{print \$2}"';
 			my @rednet = split ("/", $redipadr);
 			chomp ($rednet[1]);
@@ -1569,10 +1569,10 @@  my $dotip = length($ipaddresses[$a]) - rindex($ipaddresses[$a],'.');
 				print"<td align='center' height='20'><img src='$imgstatic/red.png' alt='$Lang::tr{'wio_red_lan'}' title='$Lang::tr{'wio_red_lan'}' /></td>";
 				last SWITCH;
 			}
-			else {
+		}
+		else {
 				print"<td align='center'><img align='middle' src='$imgstatic/white.png' alt='$Lang::tr{'wio_unknown_lan'}' title='$Lang::tr{'wio_unknown_lan'}' /></td>";
 				last SWITCH;
-			}
 		}
 	}
 
@@ -1872,7 +1872,7 @@  SWITCH: {
 		}
 	}
 
-			if ($netsettings{"RED_TYPE"} eq 'DHCP' || $netsettings{"RED_TYPE"} eq 'PPPOE') {
+			if ($netsettings{"RED_TYPE"} eq 'DHCP' || $netsettings{"RED_TYPE"} eq 'PPPOE' || $netsettings{"RED_TYPE"} eq 'STATIC') {
 			my $redipadr = qx'ip addr | grep red0 | grep inet | awk "{print \$2}"';
 			my @rednet = split ("/", $redipadr);
 			chomp ($rednet[1]);