From 48aae162c65f508dee4ec2b7ad3c00f5dc5ca2cd Mon Sep 17 00:00:00 2001 From: Stephan Feddersen Date: Tue, 4 Aug 2020 21:31:13 +0200 Subject: [PATCH] WIO: code cleanup Signed-off-by: Michael Tremer --- src/wio/wio.cgi | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/src/wio/wio.cgi b/src/wio/wio.cgi index a92a44473b..a5d3d149e5 100644 --- a/src/wio/wio.cgi +++ b/src/wio/wio.cgi @@ -21,7 +21,7 @@ # # ############################################################################### # -# Version: 2020/06/01 13:29:23 +# Version: 2020/08/04 21:12:23 # # This wio.cgi is based on the code from the IPCop WIO Addon # and is extremly adapted to work with IPFire. @@ -1152,7 +1152,7 @@ close (FILE); foreach (@ddns) { chomp; - + @temp = split (/\,/, $_); if ( $temp[7] eq "on" ) { @@ -1161,7 +1161,7 @@ close (FILE); else { $bgcolor = "blue"; } - + print"$temp[1].$temp[2]"; if ( $iddyndns++ ne (@ddns-1) ) { print"
\n"; } } @@ -1334,7 +1334,7 @@ foreach $key (keys %ovpnconfighash) { if (-e "/var/run/$ovpnconfighash{$key}[1]n2n.pid") { my ( @output, @tustate ) = ''; my $tport = $ovpnconfighash{$key}[22]; - my $tnet = new Net::Telnet ( Timeout=>5, Errmode=>'return', Port=>$tport); + my $tnet = new Net::Telnet ( Timeout=>5, Errmode=>'return', Port=>$tport); if ($tport ne '') { $tnet->open('127.0.0.1'); @output = $tnet->cmd(String => 'state', Prompt => '/(END.*\n|ERROR:.*\n)/'); @@ -1535,7 +1535,6 @@ my $dotip = length($ipaddresses[$a]) - rindex($ipaddresses[$a],'.'); } else { print"$Lang::tr{$devs_alt[$in]}"; - } last SWITCH; } -- 2.39.2