RE: [PATCH] WIO: Fix a problem with the Network-Table-Button

public inbox for development@lists.ipfire.org
 help / color / mirror / Atom feed

* RE: [PATCH] WIO: Fix a problem with the Network-Table-Button
       [not found] <1519821539.11896.28.camel@ipfire.org>
@ 2018-03-01 10:04 ` Stephan Feddersen
  2018-03-01 20:20   ` Michael Tremer
  0 siblings, 1 reply; 3+ messages in thread
From: Stephan Feddersen @ 2018-03-01 10:04 UTC (permalink / raw)
  To: development

[-- Attachment #1: Type: text/plain, Size: 12628 bytes --]

hi Michael,

yes, ithink that ist he problem.

How can i correct this?

Upload a new /lfs/wio file with a new PAK_VER?

Best 

Stephan


> -----Original Message-----
> From: Michael Tremer [mailto:michael.tremer(a)ipfire.org]
> Sent: Wednesday, February 28, 2018 1:39 PM
> To: Stephan Feddersen <sfeddersen(a)ipfire.org>;
> development(a)lists.ipfire.org
> Subject: Re: [PATCH] WIO: Fix a problem with the Network-Table-Button
> 
> Hi,
> 
> I think you might have just forgotten to add the lfs/wio file to the commit in
> case you changed the version number already.
> 
> Is that possible?
> 
> Best,
> -Michael
> 
> On Wed, 2018-02-28 at 13:37 +0100, Stephan Feddersen wrote:
> > Hello,
> >
> > oh no, these patches should be included in the release version wio-1.3.2!
> >
> > Where did I make my mistake in setting to GIT?
> >
> > Best
> >
> > Stephan
> >
> > > -----Original Message-----
> > > From: Michael Tremer [mailto:michael.tremer(a)ipfire.org]
> > > Sent: Wednesday, February 28, 2018 1:01 PM
> > > To: Stephan Feddersen <sfeddersen(a)ipfire.org>;
> > > development(a)lists.ipfire.org
> > > Subject: Re: [PATCH] WIO: Fix a problem with the
> > > Network-Table-Button
> > >
> > > Hello,
> > >
> > > none of the both patches bumps the release version.
> > >
> > > Should this be a new release already or are you just collecting patches?
> > >
> > > Best,
> > > -Michael
> > >
> > > On Tue, 2018-02-27 at 17:20 +0100, Stephan Feddersen via Development
> > > wrote:
> > > > ---
> > > >  src/wio/wio.cgi | 69
> > > > ++++++++++++++++++++++++++++--------------------------
> > > > ---
> > > >  1 file changed, 34 insertions(+), 35 deletions(-)
> > > >
> > > > diff --git a/src/wio/wio.cgi b/src/wio/wio.cgi index
> > > > 8c43b04..c51910f
> > > > 100644
> > > > --- a/src/wio/wio.cgi
> > > > +++ b/src/wio/wio.cgi
> > > > @@ -21,7 +21,7 @@
> > > >  #
> > > >  #
> > > >
> > > >
> > >
> > >
> ##########################################################
> > > ############
> > > > #######
> > > > ##
> > > >  #
> > > > -# Version: 2018/01/05 14:34:23
> > > > +# Version: 2018/02/27 16:54:23
> > > >  #
> > > >  # This wio.cgi is based on the Code from the IPCop WIO Addon  #
> > > > and is extremly adapted to work with IPFire.
> > > > @@ -106,10 +106,10 @@ my $count = 0;  my $showcount = 0;
> > > >
> > > >  my $arpbuttontext = "$Lang::tr{'wio_show_table_on'}"; -my
> > > > $clientimportbuttontext  = "$Lang::tr{'wio_show_table_on'}"; -my
> > > > $networksearchbuttontext  = "$Lang::tr{'wio_show_table_on'}";
> > > > +my $clientimportbuttontext = "$Lang::tr{'wio_show_table_on'}"; my
> > > > +$networksearchbuttontext = "$Lang::tr{'wio_show_table_on'}";
> > > >
> > > > -my ( $infomessage, $errormessage, $importmessage, $message ) =
> > > > '';
> > > > +my ( $message, $infomessage, $errormessage, $importmessage ) =
> > > > +'';
> > > >
> > > >  my ( $buttontext, $host, $timestamp, $ipadr, $on, $remark,
> > > > $dyndns, $dyndnsip, $sendemailon, $net, $dev, $iprange, $output,
> > > > $write,
> > >
> > > $webinterface,
> > > >  	 $sendemailoff, $pingmethode, $online, $color, $bgcolor,
> > > > $exitcode, $id, $line, $interface, $counter, $vpnn2nip,
> > > > $vpnn2nmask, $ddns, $edc, @@ -280,7 +280,7 @@ if (
> > > > $wiosettings{'ACTION'} eq $Lang::tr{'wio_client_add'}
> > > > ) {
> > > >
> > > >  ## show / hide arptable
> > > >
> > > > -if ($wiosettings{'WIOGUISHOWARPTABLE'} eq 'arptable') {
> > > > +if ( $wiosettings{'WIOGUISHOWARPTABLE'} eq 'arptable' ) {
> > > >  	if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_show_table_off'} )
> > > > {
> > > >  		$wiosettings{'WIOGUISHOWARPTABLE'} = 'off';
> > > >  		$arpbuttontext = "$Lang::tr{'wio_show_table_on'}"; @@ -
> > >
> > > 309,11
> > > > +309,11 @@ if ( $wiosettings{'WIOGUISHOWCLIENTIMPORTTABLE'} eq
> > > > 'clientimport' ) {  if (
> > > > $wiosettings{'WIOGUISHOWNETWORKSEARCHTABLE'}
> > > > eq 'networksearch' ) {
> > > >  	if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_show_table_off'} )
> > > > {
> > > >  		$wiosettings{'WIOGUISHOWNETWORKSEARCHTABLE'} = 'off';
> > > > -		$clientimportbuttontext =
> > > > "$Lang::tr{'wio_show_table_on'}";
> > > > +		$networksearchbuttontext =
> > >
> > > "$Lang::tr{'wio_show_table_on'}";
> > > >  	}
> > > >  	else {
> > > >  		$wiosettings{'WIOGUISHOWNETWORKSEARCHTABLE'} = 'on';
> > > > -		$clientimportbuttontext =
> > > > "$Lang::tr{'wio_show_table_off'}";
> > > > +		$networksearchbuttontext =
> > >
> > > "$Lang::tr{'wio_show_table_off'}";
> > > >  	}
> > > >  }
> > > >
> > > > @@ -348,7 +348,7 @@ if ( $wiosettings{'ACTION'} eq
> > > > $Lang::tr{'wio_add'} )
> > >
> > > {
> > > >  	}
> > > >  }
> > > >
> > > > -## enable / disabel client || enable / disable dyndns || enable /
> > > > disable sendemailon || enable / disable sendemailoff || change ip
> > > > / fqdn
> > > > +## enable / disable client || enable / disable dyndns || enable /
> > > > +disable
> > > > sendemailon || enable / disable sendemailoff || change ip / fqdn
> > > >
> > > >  if ( $wiosettings{'ACTION'} eq $Lang::tr{'enable disable client'}
> > > > ) { $edc = 'on'; }  if ( $wiosettings{'ACTION'} eq
> > > > $Lang::tr{'enable disable dyndns'} ) { $edd = 'on'; } @@ -983,7
> > > > +983,7 @@ for ($i=1; $i<=15; $i++) {
> > > >  	print "<option $selected{'TIMEOUT'}{$_}>$_</option>\n";
> > > >  }
> > > >
> > > > -print"
> > > > +print"
> > > >  	</select>&nbsp;$Lang::tr{'wio sec'}</td>  </tr>  <tr><td
> > > > colspan='3'>&nbsp;</td></tr> @@ -1123,7 +1123,7 @@ print"
> > > >  	<td width='15%'
> > >
> > > align='center'><b>$Lang::tr{'wio_wanname'}</b></td>
> > > >  	<td width='24%'
> > > > align='center'><b>$Lang::tr{'wio_dyndns_hosts'}</b></td>
> > > >  	<td width='11%' align='center'><b>$Lang::tr{'wio image'}</b></td>
> > > > -	<td width='14%'
> > >
> > > align='center'><b>$Lang::tr{'wio_wancheck'}</b></td>
> > > > +	<td width='14%'
> > > > +align='center'><b>$Lang::tr{'wio_connected'}</b></td>
> > > >  </tr>
> > > >  <tr bgcolor='$color{'color22'}' height='20'>
> > > >  	<td align='center'>01</td>
> > > > @@ -1196,7 +1196,7 @@ print"
> > > >  	<td width='8%' align='center'><b>$Lang::tr{'type'}</b></td>
> > > >  	<td width='25%'
> > > > align='center'><b>$Lang::tr{'wio_common_name'}</b></td>
> > > >  	<td width='11%' align='center'><b>$Lang::tr{'wio image'}</b></td>
> > > > -	<td width='14%'
> > > > align='center'><b>$Lang::tr{'wio_ovpn_connected'}</b></td>
> > > > +	<td width='14%'
> > > > +align='center'><b>$Lang::tr{'wio_connected'}</b></td>
> > > >  </tr>
> > > >  ";
> > > >
> > > > @@ -1244,7 +1244,7 @@ $statustxt = "$Lang::tr{'capsclosed'}";
> > > >  		  <td align='center' height='20'>&nbsp;</td>
> > > >  		  </tr>
> > > >  ";
> > > > -
> > > > +
> > > >  if ($vpnconfighash{$key}[25] && $wiosettings{'CLIENTREMARK'} eq
> 'on') {
> > > >  	print"<tr".($idvpn % 2?" bgcolor='$color{'color20'}'":"
> > > > bgcolor='$color{'color22'}'")." height='20'><td>&nbsp;</td><td
> > >
> > > colspan='16'
> > > > align='left'>$vpnconfighash{$key}[25]</td></tr>";
> > > >  }
> > > > @@ -1278,7 +1278,7 @@ print"
> > > >  	<td width='8%' align='center'><b>$Lang::tr{'type'}</b></td>
> > > >  	<td width='25%' align='center'><b>$Lang::tr{'common
> > >
> > > name'}</b></td>
> > > >  	<td width='11%' align='center'><b>$Lang::tr{'wio image'}</b></td>
> > > > -	<td width='14%'
> > > > align='center'><b>$Lang::tr{'wio_ovpn_connected'}</b></td>
> > > > +	<td width='14%'
> > > > +align='center'><b>$Lang::tr{'wio_connected'}</b></td>
> > > >  </tr>
> > > >  ";
> > > >
> > > > @@ -1310,7 +1310,6 @@ print"
> > > >  			$statustxt = "$Lang::tr{'capsclosed'}";
> > > >  		}
> > > >  		else {
> > > > -
> > > >  			if ($ovpnconfighash{$key}[3] eq 'net') {
> > > >  				if (-e
> > > > "/var/run/$ovpnconfighash{$key}[1]n2n.pid") {
> > > >  					my @output = "";
> > > > @@ -1378,7 +1377,7 @@ print"
> > > >  		if ($ovpnconfighash{$key}[25] &&
> > >
> > > $wiosettings{'CLIENTREMARK'} eq
> > > > 'on') {
> > > >  			print"<tr".($idovpn % 2?"
> > > > bgcolor='$color{'color20'}'":" bgcolor='$color{'color22'}'")."
> > > > height='20'><td>&nbsp;</td><td colspan='16'
> > > > align='left'>$ovpnconfighash{$key}[25]</td></tr>";
> > > >  		}
> > > > -
> > > > +
> > > >  		print"<tr height='1'><td colspan='17'
> > > > bgcolor='#696565'></td></tr>";
> > > >  		$idovpn++
> > > >  	}
> > > > @@ -1519,7 +1518,7 @@ my $dotip = length($ipaddresses[$a]) -
> > > > rindex($ipaddresses[$a],'.');
> > > >  		if ( -e "$vpnpid" ) {
> > > >  			foreach $key (keys(%vpnconfighash)) {
> > > >  				next unless ($vpnconfighash{$key}[3] eq
> > >
> > > 'net');
> > > > -
> > > > +
> > > >  				my $convertip =
> > > > &General::ipcidr2msk($vpnconfighash{$key}[11]);
> > > >
> > > >  				my @net = split ("/", $convertip); @@ -
> > >
> > > 1538,16 +1537,15 @@ my
> > > > $dotip = length($ipaddresses[$a]) - rindex($ipaddresses[$a],'.');
> > > >  			@match = split ("/",
> > >
> > > $ovpnsettings{'DOVPN_SUBNET'});
> > > >
> > > >  			if ( &General::IpInSubnet($ipaddresses[$a],
> > > > $match[0], $match[1]) ) {
> > > > -				print"<td align='center'><img
> > > > src='$imgstatic/ovpn.png' alt='OpenVPN' title='OpenVPN' /></td>";
> > > > -				last SWITCH;
> > > > +				print"<td align='center'><img
> > > > src='$imgstatic/ovpn.png' alt='OpenVPN' title='OpenVPN' /></td>";
> > > > +				last SWITCH;
> > > >  			}
> > > >  		}
> > > >
> > > >  		if ( %ovpnccdconfhash ne '' ) {
> > > >  			foreach $key (keys(%ovpnccdconfhash)) {
> > > > -
> > > > +
> > > >  				my $convertip =
> > > > &General::ipcidr2msk($ovpnccdconfhash{$key}[1]);
> > > > -
> > > >  				my @net = split ("/", $convertip);
> > > >
> > > >  				$vpnn2nip = $net[0];
> > > > @@ -1557,7 +1555,6 @@ my $dotip = length($ipaddresses[$a]) -
> > > > rindex($ipaddresses[$a],'.');
> > > >  					print"<td align='center'><img
> align='middle'
> > > > src='$imgstatic/ovpn.png' alt='OpenVPN' title='OpenVPN'
> > > > /></td>";
> > > >  					last SWITCH;
> > > >  				}
> > > > -
> > > >  			}
> > > >  		}
> > > >
> > > > @@ -1567,7 +1564,7 @@ my $dotip = length($ipaddresses[$a]) -
> > > > rindex($ipaddresses[$a],'.');
> > > >  			chomp ($rednet[1]);
> > > >  			my $red_netmask =
> > >
> > > General::iporsubtodec($rednet[1]);
> > > >  			my $red_netaddress =
> > > > Network::get_netaddress("$rednet[0]/$red_netmask");
> > > > -
> > > > +
> > > >  			if ( &General::IpInSubnet($ipaddresses[$a],
> > > > $red_netaddress, $red_netmask) ) {
> > > >  				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;
> > > > @@ -2165,23 +2162,24 @@ close(FILE);
> > > >
> > > >
> > > >
> > >
> > >
> ##########################################################
> > > ############
> > > > ####### ###############################################
> > > >
> > > > -sub SortByTunnelName
> > > > -{
> > > > -    if ($vpnconfighash{$a}[1] lt $vpnconfighash{$b}[1]) {
> > > > -        return -1;
> > > > -    }
> > > > -    elsif ($vpnconfighash{$a}[1] gt $vpnconfighash{$b}[1]) {
> > > > -        return 1;
> > > > -    }
> > > > -    else {
> > > > -        return 0;
> > > > -    }
> > > > +sub SortByTunnelName {
> > > > +
> > > > +	if ($vpnconfighash{$a}[1] lt $vpnconfighash{$b}[1]) {
> > > > +		return -1;
> > > > +	}
> > > > +	elsif ($vpnconfighash{$a}[1] gt $vpnconfighash{$b}[1]) {
> > > > +		return 1;
> > > > +	}
> > > > +	else {
> > > > +		return 0;
> > > > +	}
> > > > +
> > > >  }
> > > >
> > > >
> > > >
> > >
> > >
> ##########################################################
> > > ############
> > > > ####### ###############################################
> > > >
> > > > -sub validSave
> > > > -{
> > > > +sub validSave {
> > > > +
> > > >  	if ( $wiosettings{'IPADR'} eq '' && $wiosettings{'PINGMETHODE'}
> > > > eq 'ip' && $wiosettings{'DYNDNS'} eq '' ) {
> > > >  		$errormessage = $Lang::tr{'wio_ip_empty'};
> > > >  	}
> > > > @@ -2207,4 +2205,5 @@ sub validSave
> > > >  	if ( $wiosettings{'ID'} eq '' && ! defined($errormessage) ) {
> > > > $errormessage = &WIO::checkinto($wiosettings{'IPADR'},
> > > > $wiosettings{'HOST'}, @current); }
> > > >
> > > >  	if ( $wiosettings{'REMARK'} ne '' ) { $wiosettings{'REMARK'} =~
> > > > s/,/&#44;/g; }
> > > > +
> > > >  }
> >
> >


^ permalink raw reply	[flat|nested] 3+ messages in thread

* Re: [PATCH] WIO: Fix a problem with the Network-Table-Button
  2018-03-01 10:04 ` [PATCH] WIO: Fix a problem with the Network-Table-Button Stephan Feddersen
@ 2018-03-01 20:20   ` Michael Tremer
  0 siblings, 0 replies; 3+ messages in thread
From: Michael Tremer @ 2018-03-01 20:20 UTC (permalink / raw)
  To: development

[-- Attachment #1: Type: text/plain, Size: 13781 bytes --]

Yes, please just send another patch with an update version number and increment
PAK_VER.

Best,
-Michael

On Thu, 2018-03-01 at 11:04 +0100, Stephan Feddersen wrote:
> hi Michael,
> 
> yes, ithink that ist he problem.
> 
> How can i correct this?
> 
> Upload a new /lfs/wio file with a new PAK_VER?
> 
> Best 
> 
> Stephan
> 
> 
> > -----Original Message-----
> > From: Michael Tremer [mailto:michael.tremer(a)ipfire.org]
> > Sent: Wednesday, February 28, 2018 1:39 PM
> > To: Stephan Feddersen <sfeddersen(a)ipfire.org>;
> > development(a)lists.ipfire.org
> > Subject: Re: [PATCH] WIO: Fix a problem with the Network-Table-Button
> > 
> > Hi,
> > 
> > I think you might have just forgotten to add the lfs/wio file to the commit
> > in
> > case you changed the version number already.
> > 
> > Is that possible?
> > 
> > Best,
> > -Michael
> > 
> > On Wed, 2018-02-28 at 13:37 +0100, Stephan Feddersen wrote:
> > > Hello,
> > > 
> > > oh no, these patches should be included in the release version wio-1.3.2!
> > > 
> > > Where did I make my mistake in setting to GIT?
> > > 
> > > Best
> > > 
> > > Stephan
> > > 
> > > > -----Original Message-----
> > > > From: Michael Tremer [mailto:michael.tremer(a)ipfire.org]
> > > > Sent: Wednesday, February 28, 2018 1:01 PM
> > > > To: Stephan Feddersen <sfeddersen(a)ipfire.org>;
> > > > development(a)lists.ipfire.org
> > > > Subject: Re: [PATCH] WIO: Fix a problem with the
> > > > Network-Table-Button
> > > > 
> > > > Hello,
> > > > 
> > > > none of the both patches bumps the release version.
> > > > 
> > > > Should this be a new release already or are you just collecting patches?
> > > > 
> > > > Best,
> > > > -Michael
> > > > 
> > > > On Tue, 2018-02-27 at 17:20 +0100, Stephan Feddersen via Development
> > > > wrote:
> > > > > ---
> > > > >  src/wio/wio.cgi | 69
> > > > > ++++++++++++++++++++++++++++--------------------------
> > > > > ---
> > > > >  1 file changed, 34 insertions(+), 35 deletions(-)
> > > > > 
> > > > > diff --git a/src/wio/wio.cgi b/src/wio/wio.cgi index
> > > > > 8c43b04..c51910f
> > > > > 100644
> > > > > --- a/src/wio/wio.cgi
> > > > > +++ b/src/wio/wio.cgi
> > > > > @@ -21,7 +21,7 @@
> > > > >  #
> > > > >  #
> > > > > 
> > > > > 
> > > > 
> > > > 
> > 
> > ##########################################################
> > > > ############
> > > > > #######
> > > > > ##
> > > > >  #
> > > > > -# Version: 2018/01/05 14:34:23
> > > > > +# Version: 2018/02/27 16:54:23
> > > > >  #
> > > > >  # This wio.cgi is based on the Code from the IPCop WIO Addon  #
> > > > > and is extremly adapted to work with IPFire.
> > > > > @@ -106,10 +106,10 @@ my $count = 0;  my $showcount = 0;
> > > > > 
> > > > >  my $arpbuttontext = "$Lang::tr{'wio_show_table_on'}"; -my
> > > > > $clientimportbuttontext  = "$Lang::tr{'wio_show_table_on'}"; -my
> > > > > $networksearchbuttontext  = "$Lang::tr{'wio_show_table_on'}";
> > > > > +my $clientimportbuttontext = "$Lang::tr{'wio_show_table_on'}"; my
> > > > > +$networksearchbuttontext = "$Lang::tr{'wio_show_table_on'}";
> > > > > 
> > > > > -my ( $infomessage, $errormessage, $importmessage, $message ) =
> > > > > '';
> > > > > +my ( $message, $infomessage, $errormessage, $importmessage ) =
> > > > > +'';
> > > > > 
> > > > >  my ( $buttontext, $host, $timestamp, $ipadr, $on, $remark,
> > > > > $dyndns, $dyndnsip, $sendemailon, $net, $dev, $iprange, $output,
> > > > > $write,
> > > > 
> > > > $webinterface,
> > > > >  	 $sendemailoff, $pingmethode, $online, $color, $bgcolor,
> > > > > $exitcode, $id, $line, $interface, $counter, $vpnn2nip,
> > > > > $vpnn2nmask, $ddns, $edc, @@ -280,7 +280,7 @@ if (
> > > > > $wiosettings{'ACTION'} eq $Lang::tr{'wio_client_add'}
> > > > > ) {
> > > > > 
> > > > >  ## show / hide arptable
> > > > > 
> > > > > -if ($wiosettings{'WIOGUISHOWARPTABLE'} eq 'arptable') {
> > > > > +if ( $wiosettings{'WIOGUISHOWARPTABLE'} eq 'arptable' ) {
> > > > >  	if ( $wiosettings{'ACTION'} eq
> > > > > $Lang::tr{'wio_show_table_off'} )
> > > > > {
> > > > >  		$wiosettings{'WIOGUISHOWARPTABLE'} = 'off';
> > > > >  		$arpbuttontext = "$Lang::tr{'wio_show_table_on'}"; @@
> > > > > -
> > > > 
> > > > 309,11
> > > > > +309,11 @@ if ( $wiosettings{'WIOGUISHOWCLIENTIMPORTTABLE'} eq
> > > > > 'clientimport' ) {  if (
> > > > > $wiosettings{'WIOGUISHOWNETWORKSEARCHTABLE'}
> > > > > eq 'networksearch' ) {
> > > > >  	if ( $wiosettings{'ACTION'} eq
> > > > > $Lang::tr{'wio_show_table_off'} )
> > > > > {
> > > > >  		$wiosettings{'WIOGUISHOWNETWORKSEARCHTABLE'} = 'off';
> > > > > -		$clientimportbuttontext =
> > > > > "$Lang::tr{'wio_show_table_on'}";
> > > > > +		$networksearchbuttontext =
> > > > 
> > > > "$Lang::tr{'wio_show_table_on'}";
> > > > >  	}
> > > > >  	else {
> > > > >  		$wiosettings{'WIOGUISHOWNETWORKSEARCHTABLE'} = 'on';
> > > > > -		$clientimportbuttontext =
> > > > > "$Lang::tr{'wio_show_table_off'}";
> > > > > +		$networksearchbuttontext =
> > > > 
> > > > "$Lang::tr{'wio_show_table_off'}";
> > > > >  	}
> > > > >  }
> > > > > 
> > > > > @@ -348,7 +348,7 @@ if ( $wiosettings{'ACTION'} eq
> > > > > $Lang::tr{'wio_add'} )
> > > > 
> > > > {
> > > > >  	}
> > > > >  }
> > > > > 
> > > > > -## enable / disabel client || enable / disable dyndns || enable /
> > > > > disable sendemailon || enable / disable sendemailoff || change ip
> > > > > / fqdn
> > > > > +## enable / disable client || enable / disable dyndns || enable /
> > > > > +disable
> > > > > sendemailon || enable / disable sendemailoff || change ip / fqdn
> > > > > 
> > > > >  if ( $wiosettings{'ACTION'} eq $Lang::tr{'enable disable client'}
> > > > > ) { $edc = 'on'; }  if ( $wiosettings{'ACTION'} eq
> > > > > $Lang::tr{'enable disable dyndns'} ) { $edd = 'on'; } @@ -983,7
> > > > > +983,7 @@ for ($i=1; $i<=15; $i++) {
> > > > >  	print "<option $selected{'TIMEOUT'}{$_}>$_</option>\n";
> > > > >  }
> > > > > 
> > > > > -print"
> > > > > +print"
> > > > >  	</select>&nbsp;$Lang::tr{'wio sec'}</td>  </tr>  <tr><td
> > > > > colspan='3'>&nbsp;</td></tr> @@ -1123,7 +1123,7 @@ print"
> > > > >  	<td width='15%'
> > > > 
> > > > align='center'><b>$Lang::tr{'wio_wanname'}</b></td>
> > > > >  	<td width='24%'
> > > > > align='center'><b>$Lang::tr{'wio_dyndns_hosts'}</b></td>
> > > > >  	<td width='11%' align='center'><b>$Lang::tr{'wio
> > > > > image'}</b></td>
> > > > > -	<td width='14%'
> > > > 
> > > > align='center'><b>$Lang::tr{'wio_wancheck'}</b></td>
> > > > > +	<td width='14%'
> > > > > +align='center'><b>$Lang::tr{'wio_connected'}</b></td>
> > > > >  </tr>
> > > > >  <tr bgcolor='$color{'color22'}' height='20'>
> > > > >  	<td align='center'>01</td>
> > > > > @@ -1196,7 +1196,7 @@ print"
> > > > >  	<td width='8%' align='center'><b>$Lang::tr{'type'}</b></td>
> > > > >  	<td width='25%'
> > > > > align='center'><b>$Lang::tr{'wio_common_name'}</b></td>
> > > > >  	<td width='11%' align='center'><b>$Lang::tr{'wio
> > > > > image'}</b></td>
> > > > > -	<td width='14%'
> > > > > align='center'><b>$Lang::tr{'wio_ovpn_connected'}</b></td>
> > > > > +	<td width='14%'
> > > > > +align='center'><b>$Lang::tr{'wio_connected'}</b></td>
> > > > >  </tr>
> > > > >  ";
> > > > > 
> > > > > @@ -1244,7 +1244,7 @@ $statustxt = "$Lang::tr{'capsclosed'}";
> > > > >  		  <td align='center' height='20'>&nbsp;</td>
> > > > >  		  </tr>
> > > > >  ";
> > > > > -
> > > > > +
> > > > >  if ($vpnconfighash{$key}[25] && $wiosettings{'CLIENTREMARK'} eq
> > 
> > 'on') {
> > > > >  	print"<tr".($idvpn % 2?" bgcolor='$color{'color20'}'":"
> > > > > bgcolor='$color{'color22'}'")." height='20'><td>&nbsp;</td><td
> > > > 
> > > > colspan='16'
> > > > > align='left'>$vpnconfighash{$key}[25]</td></tr>";
> > > > >  }
> > > > > @@ -1278,7 +1278,7 @@ print"
> > > > >  	<td width='8%' align='center'><b>$Lang::tr{'type'}</b></td>
> > > > >  	<td width='25%' align='center'><b>$Lang::tr{'common
> > > > 
> > > > name'}</b></td>
> > > > >  	<td width='11%' align='center'><b>$Lang::tr{'wio
> > > > > image'}</b></td>
> > > > > -	<td width='14%'
> > > > > align='center'><b>$Lang::tr{'wio_ovpn_connected'}</b></td>
> > > > > +	<td width='14%'
> > > > > +align='center'><b>$Lang::tr{'wio_connected'}</b></td>
> > > > >  </tr>
> > > > >  ";
> > > > > 
> > > > > @@ -1310,7 +1310,6 @@ print"
> > > > >  			$statustxt = "$Lang::tr{'capsclosed'}";
> > > > >  		}
> > > > >  		else {
> > > > > -
> > > > >  			if ($ovpnconfighash{$key}[3] eq 'net') {
> > > > >  				if (-e
> > > > > "/var/run/$ovpnconfighash{$key}[1]n2n.pid") {
> > > > >  					my @output = "";
> > > > > @@ -1378,7 +1377,7 @@ print"
> > > > >  		if ($ovpnconfighash{$key}[25] &&
> > > > 
> > > > $wiosettings{'CLIENTREMARK'} eq
> > > > > 'on') {
> > > > >  			print"<tr".($idovpn % 2?"
> > > > > bgcolor='$color{'color20'}'":" bgcolor='$color{'color22'}'")."
> > > > > height='20'><td>&nbsp;</td><td colspan='16'
> > > > > align='left'>$ovpnconfighash{$key}[25]</td></tr>";
> > > > >  		}
> > > > > -
> > > > > +
> > > > >  		print"<tr height='1'><td colspan='17'
> > > > > bgcolor='#696565'></td></tr>";
> > > > >  		$idovpn++
> > > > >  	}
> > > > > @@ -1519,7 +1518,7 @@ my $dotip = length($ipaddresses[$a]) -
> > > > > rindex($ipaddresses[$a],'.');
> > > > >  		if ( -e "$vpnpid" ) {
> > > > >  			foreach $key (keys(%vpnconfighash)) {
> > > > >  				next unless ($vpnconfighash{$key}[3]
> > > > > eq
> > > > 
> > > > 'net');
> > > > > -
> > > > > +
> > > > >  				my $convertip =
> > > > > &General::ipcidr2msk($vpnconfighash{$key}[11]);
> > > > > 
> > > > >  				my @net = split ("/", $convertip); @@
> > > > > -
> > > > 
> > > > 1538,16 +1537,15 @@ my
> > > > > $dotip = length($ipaddresses[$a]) - rindex($ipaddresses[$a],'.');
> > > > >  			@match = split ("/",
> > > > 
> > > > $ovpnsettings{'DOVPN_SUBNET'});
> > > > > 
> > > > >  			if ( &General::IpInSubnet($ipaddresses[$a],
> > > > > $match[0], $match[1]) ) {
> > > > > -				print"<td align='center'><img
> > > > > src='$imgstatic/ovpn.png' alt='OpenVPN' title='OpenVPN' /></td>";
> > > > > -				last SWITCH;
> > > > > +				print"<td align='center'><img
> > > > > src='$imgstatic/ovpn.png' alt='OpenVPN' title='OpenVPN' /></td>";
> > > > > +				last SWITCH;
> > > > >  			}
> > > > >  		}
> > > > > 
> > > > >  		if ( %ovpnccdconfhash ne '' ) {
> > > > >  			foreach $key (keys(%ovpnccdconfhash)) {
> > > > > -
> > > > > +
> > > > >  				my $convertip =
> > > > > &General::ipcidr2msk($ovpnccdconfhash{$key}[1]);
> > > > > -
> > > > >  				my @net = split ("/", $convertip);
> > > > > 
> > > > >  				$vpnn2nip = $net[0];
> > > > > @@ -1557,7 +1555,6 @@ my $dotip = length($ipaddresses[$a]) -
> > > > > rindex($ipaddresses[$a],'.');
> > > > >  					print"<td align='center'><img
> > 
> > align='middle'
> > > > > src='$imgstatic/ovpn.png' alt='OpenVPN' title='OpenVPN'
> > > > > /></td>";
> > > > >  					last SWITCH;
> > > > >  				}
> > > > > -
> > > > >  			}
> > > > >  		}
> > > > > 
> > > > > @@ -1567,7 +1564,7 @@ my $dotip = length($ipaddresses[$a]) -
> > > > > rindex($ipaddresses[$a],'.');
> > > > >  			chomp ($rednet[1]);
> > > > >  			my $red_netmask =
> > > > 
> > > > General::iporsubtodec($rednet[1]);
> > > > >  			my $red_netaddress =
> > > > > Network::get_netaddress("$rednet[0]/$red_netmask");
> > > > > -
> > > > > +
> > > > >  			if ( &General::IpInSubnet($ipaddresses[$a],
> > > > > $red_netaddress, $red_netmask) ) {
> > > > >  				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;
> > > > > @@ -2165,23 +2162,24 @@ close(FILE);
> > > > > 
> > > > > 
> > > > > 
> > > > 
> > > > 
> > 
> > ##########################################################
> > > > ############
> > > > > ####### ###############################################
> > > > > 
> > > > > -sub SortByTunnelName
> > > > > -{
> > > > > -    if ($vpnconfighash{$a}[1] lt $vpnconfighash{$b}[1]) {
> > > > > -        return -1;
> > > > > -    }
> > > > > -    elsif ($vpnconfighash{$a}[1] gt $vpnconfighash{$b}[1]) {
> > > > > -        return 1;
> > > > > -    }
> > > > > -    else {
> > > > > -        return 0;
> > > > > -    }
> > > > > +sub SortByTunnelName {
> > > > > +
> > > > > +	if ($vpnconfighash{$a}[1] lt $vpnconfighash{$b}[1]) {
> > > > > +		return -1;
> > > > > +	}
> > > > > +	elsif ($vpnconfighash{$a}[1] gt $vpnconfighash{$b}[1]) {
> > > > > +		return 1;
> > > > > +	}
> > > > > +	else {
> > > > > +		return 0;
> > > > > +	}
> > > > > +
> > > > >  }
> > > > > 
> > > > > 
> > > > > 
> > > > 
> > > > 
> > 
> > ##########################################################
> > > > ############
> > > > > ####### ###############################################
> > > > > 
> > > > > -sub validSave
> > > > > -{
> > > > > +sub validSave {
> > > > > +
> > > > >  	if ( $wiosettings{'IPADR'} eq '' &&
> > > > > $wiosettings{'PINGMETHODE'}
> > > > > eq 'ip' && $wiosettings{'DYNDNS'} eq '' ) {
> > > > >  		$errormessage = $Lang::tr{'wio_ip_empty'};
> > > > >  	}
> > > > > @@ -2207,4 +2205,5 @@ sub validSave
> > > > >  	if ( $wiosettings{'ID'} eq '' && ! defined($errormessage) ) {
> > > > > $errormessage = &WIO::checkinto($wiosettings{'IPADR'},
> > > > > $wiosettings{'HOST'}, @current); }
> > > > > 
> > > > >  	if ( $wiosettings{'REMARK'} ne '' ) { $wiosettings{'REMARK'}
> > > > > =~
> > > > > s/,/&#44;/g; }
> > > > > +
> > > > >  }
> > > 
> > > 
> 
> 

^ permalink raw reply	[flat|nested] 3+ messages in thread

* [PATCH] WIO: Fix a problem with the Network-Table-Button
@ 2018-02-27 16:20 Stephan Feddersen
  0 siblings, 0 replies; 3+ messages in thread
From: Stephan Feddersen @ 2018-02-27 16:20 UTC (permalink / raw)
  To: development

[-- Attachment #1: Type: text/plain, Size: 8706 bytes --]

---
 src/wio/wio.cgi | 69 ++++++++++++++++++++++++++++-----------------------------
 1 file changed, 34 insertions(+), 35 deletions(-)

diff --git a/src/wio/wio.cgi b/src/wio/wio.cgi
index 8c43b04..c51910f 100644
--- a/src/wio/wio.cgi
+++ b/src/wio/wio.cgi
@@ -21,7 +21,7 @@
 #                                                                             #
 ###############################################################################
 #
-# Version: 2018/01/05 14:34:23
+# Version: 2018/02/27 16:54:23
 #
 # This wio.cgi is based on the Code from the IPCop WIO Addon
 # and is extremly adapted to work with IPFire.
@@ -106,10 +106,10 @@ my $count = 0;
 my $showcount = 0;
 
 my $arpbuttontext = "$Lang::tr{'wio_show_table_on'}";
-my $clientimportbuttontext  = "$Lang::tr{'wio_show_table_on'}";
-my $networksearchbuttontext  = "$Lang::tr{'wio_show_table_on'}";
+my $clientimportbuttontext = "$Lang::tr{'wio_show_table_on'}";
+my $networksearchbuttontext = "$Lang::tr{'wio_show_table_on'}";
 
-my ( $infomessage, $errormessage, $importmessage, $message ) = '';
+my ( $message, $infomessage, $errormessage, $importmessage ) = '';
 
 my ( $buttontext, $host, $timestamp, $ipadr, $on, $remark, $dyndns, $dyndnsip, $sendemailon, $net, $dev, $iprange, $output, $write, $webinterface,
 	 $sendemailoff, $pingmethode, $online, $color, $bgcolor, $exitcode, $id, $line, $interface, $counter, $vpnn2nip, $vpnn2nmask, $ddns, $edc,
@@ -280,7 +280,7 @@ if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_client_add'} ) {
 
 ## show / hide arptable
 
-if ($wiosettings{'WIOGUISHOWARPTABLE'} eq 'arptable') {
+if ( $wiosettings{'WIOGUISHOWARPTABLE'} eq 'arptable' ) {
 	if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_show_table_off'} ) {
 		$wiosettings{'WIOGUISHOWARPTABLE'} = 'off';
 		$arpbuttontext = "$Lang::tr{'wio_show_table_on'}";
@@ -309,11 +309,11 @@ if ( $wiosettings{'WIOGUISHOWCLIENTIMPORTTABLE'} eq 'clientimport' ) {
 if ( $wiosettings{'WIOGUISHOWNETWORKSEARCHTABLE'} eq 'networksearch' ) {
 	if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_show_table_off'} ) {
 		$wiosettings{'WIOGUISHOWNETWORKSEARCHTABLE'} = 'off';
-		$clientimportbuttontext = "$Lang::tr{'wio_show_table_on'}";
+		$networksearchbuttontext = "$Lang::tr{'wio_show_table_on'}";
 	}
 	else {
 		$wiosettings{'WIOGUISHOWNETWORKSEARCHTABLE'} = 'on';
-		$clientimportbuttontext = "$Lang::tr{'wio_show_table_off'}";
+		$networksearchbuttontext = "$Lang::tr{'wio_show_table_off'}";
 	}
 }
 
@@ -348,7 +348,7 @@ if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_add'} ) {
 	}
 }
 
-## enable / disabel client || enable / disable dyndns || enable / disable sendemailon || enable / disable sendemailoff || change ip / fqdn
+## enable / disable client || enable / disable dyndns || enable / disable sendemailon || enable / disable sendemailoff || change ip / fqdn
 
 if ( $wiosettings{'ACTION'} eq $Lang::tr{'enable disable client'} ) { $edc = 'on'; }
 if ( $wiosettings{'ACTION'} eq $Lang::tr{'enable disable dyndns'} ) { $edd = 'on'; }
@@ -983,7 +983,7 @@ for ($i=1; $i<=15; $i++) {
 	print "<option $selected{'TIMEOUT'}{$_}>$_</option>\n";
 }
 
-print"	
+print"
 	</select>&nbsp;$Lang::tr{'wio sec'}</td>
 </tr>
 <tr><td colspan='3'>&nbsp;</td></tr>
@@ -1123,7 +1123,7 @@ print"
 	<td width='15%' align='center'><b>$Lang::tr{'wio_wanname'}</b></td>
 	<td width='24%' align='center'><b>$Lang::tr{'wio_dyndns_hosts'}</b></td>
 	<td width='11%' align='center'><b>$Lang::tr{'wio image'}</b></td>
-	<td width='14%' align='center'><b>$Lang::tr{'wio_wancheck'}</b></td>
+	<td width='14%' align='center'><b>$Lang::tr{'wio_connected'}</b></td>
 </tr>
 <tr bgcolor='$color{'color22'}' height='20'>
 	<td align='center'>01</td>
@@ -1196,7 +1196,7 @@ print"
 	<td width='8%' align='center'><b>$Lang::tr{'type'}</b></td>
 	<td width='25%' align='center'><b>$Lang::tr{'wio_common_name'}</b></td>
 	<td width='11%' align='center'><b>$Lang::tr{'wio image'}</b></td>
-	<td width='14%' align='center'><b>$Lang::tr{'wio_ovpn_connected'}</b></td>
+	<td width='14%' align='center'><b>$Lang::tr{'wio_connected'}</b></td>
 </tr>
 ";
 
@@ -1244,7 +1244,7 @@ $statustxt = "$Lang::tr{'capsclosed'}";
 		  <td align='center' height='20'>&nbsp;</td>
 		  </tr>
 ";
- 
+
 if ($vpnconfighash{$key}[25] && $wiosettings{'CLIENTREMARK'} eq 'on') {
 	print"<tr".($idvpn % 2?" bgcolor='$color{'color20'}'":" bgcolor='$color{'color22'}'")." height='20'><td>&nbsp;</td><td colspan='16' align='left'>$vpnconfighash{$key}[25]</td></tr>";
 }
@@ -1278,7 +1278,7 @@ print"
 	<td width='8%' align='center'><b>$Lang::tr{'type'}</b></td>
 	<td width='25%' align='center'><b>$Lang::tr{'common name'}</b></td>
 	<td width='11%' align='center'><b>$Lang::tr{'wio image'}</b></td>
-	<td width='14%' align='center'><b>$Lang::tr{'wio_ovpn_connected'}</b></td>
+	<td width='14%' align='center'><b>$Lang::tr{'wio_connected'}</b></td>
 </tr>
 ";
 
@@ -1310,7 +1310,6 @@ print"
 			$statustxt = "$Lang::tr{'capsclosed'}";
 		}
 		else {
-			
 			if ($ovpnconfighash{$key}[3] eq 'net') {
 				if (-e "/var/run/$ovpnconfighash{$key}[1]n2n.pid") {
 					my @output = "";
@@ -1378,7 +1377,7 @@ print"
 		if ($ovpnconfighash{$key}[25] && $wiosettings{'CLIENTREMARK'} eq 'on') {
 			print"<tr".($idovpn % 2?" bgcolor='$color{'color20'}'":" bgcolor='$color{'color22'}'")." height='20'><td>&nbsp;</td><td colspan='16' align='left'>$ovpnconfighash{$key}[25]</td></tr>";
 		}
-		
+
 		print"<tr height='1'><td colspan='17' bgcolor='#696565'></td></tr>";
 		$idovpn++
 	}
@@ -1519,7 +1518,7 @@ my $dotip = length($ipaddresses[$a]) - rindex($ipaddresses[$a],'.');
 		if ( -e "$vpnpid" ) {
 			foreach $key (keys(%vpnconfighash)) {
 				next unless ($vpnconfighash{$key}[3] eq 'net');
-				
+
 				my $convertip = &General::ipcidr2msk($vpnconfighash{$key}[11]);
 
 				my @net = split ("/", $convertip);
@@ -1538,16 +1537,15 @@ my $dotip = length($ipaddresses[$a]) - rindex($ipaddresses[$a],'.');
 			@match = split ("/", $ovpnsettings{'DOVPN_SUBNET'});
 
 			if ( &General::IpInSubnet($ipaddresses[$a], $match[0], $match[1]) ) {
-				print"<td align='center'><img src='$imgstatic/ovpn.png' alt='OpenVPN' title='OpenVPN' /></td>"; 
-				last SWITCH; 
+				print"<td align='center'><img src='$imgstatic/ovpn.png' alt='OpenVPN' title='OpenVPN' /></td>";
+				last SWITCH;
 			}
 		}
 
 		if ( %ovpnccdconfhash ne '' ) {
 			foreach $key (keys(%ovpnccdconfhash)) {
-								
+
 				my $convertip = &General::ipcidr2msk($ovpnccdconfhash{$key}[1]);
-							
 				my @net = split ("/", $convertip);
 
 				$vpnn2nip = $net[0];
@@ -1557,7 +1555,6 @@ my $dotip = length($ipaddresses[$a]) - rindex($ipaddresses[$a],'.');
 					print"<td align='center'><img align='middle' src='$imgstatic/ovpn.png' alt='OpenVPN' title='OpenVPN' /></td>";
 					last SWITCH;
 				}
-					
 			}
 		}
 
@@ -1567,7 +1564,7 @@ my $dotip = length($ipaddresses[$a]) - rindex($ipaddresses[$a],'.');
 			chomp ($rednet[1]);
 			my $red_netmask = General::iporsubtodec($rednet[1]);
 			my $red_netaddress = Network::get_netaddress("$rednet[0]/$red_netmask");
-						
+
 			if ( &General::IpInSubnet($ipaddresses[$a], $red_netaddress, $red_netmask) ) {
 				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;
@@ -2165,23 +2162,24 @@ close(FILE);
 
 ############################################################################################################################
 
-sub SortByTunnelName
-{
-    if ($vpnconfighash{$a}[1] lt $vpnconfighash{$b}[1]) {
-        return -1;
-    }
-    elsif ($vpnconfighash{$a}[1] gt $vpnconfighash{$b}[1]) {
-        return 1;
-    }
-    else {
-        return 0;
-    }
+sub SortByTunnelName {
+
+	if ($vpnconfighash{$a}[1] lt $vpnconfighash{$b}[1]) {
+		return -1;
+	}
+	elsif ($vpnconfighash{$a}[1] gt $vpnconfighash{$b}[1]) {
+		return 1;
+	}
+	else {
+		return 0;
+	}
+
 }
 
 ############################################################################################################################
 
-sub validSave
-{
+sub validSave {
+
 	if ( $wiosettings{'IPADR'} eq '' && $wiosettings{'PINGMETHODE'} eq 'ip' && $wiosettings{'DYNDNS'} eq '' ) {
 		$errormessage = $Lang::tr{'wio_ip_empty'};
 	}
@@ -2207,4 +2205,5 @@ sub validSave
 	if ( $wiosettings{'ID'} eq '' && ! defined($errormessage) ) { $errormessage = &WIO::checkinto($wiosettings{'IPADR'}, $wiosettings{'HOST'}, @current); }
 
 	if ( $wiosettings{'REMARK'} ne '' ) { $wiosettings{'REMARK'} =~ s/,/&#44;/g; }
+
 }
-- 
2.7.4


^ permalink raw reply	[flat|nested] 3+ messages in thread

end of thread, other threads:[~2018-03-01 20:20 UTC | newest]

Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
     [not found] <1519821539.11896.28.camel@ipfire.org>
2018-03-01 10:04 ` [PATCH] WIO: Fix a problem with the Network-Table-Button Stephan Feddersen
2018-03-01 20:20   ` Michael Tremer
2018-02-27 16:20 Stephan Feddersen

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox