webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-09 18:45:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

WIO: wio.cgi edit how to get the ips for the networks

Browse Source 
Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>
This commit is contained in:
Stephan Feddersen
2017-08-15 15:17:35 +02:00
committed by Michael Tremer
parent 4f4f5bbbfd
commit 1bee37ba2c
4 changed files with 8 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lfs/wio
View File

@@ -15,7 +15,7 @@ THISAPP = wio-$(VER)
DIR_APP = $(DIR_SRC)/$(THISAPP)
TARGET = $(DIR_INFO)/$(THISAPP)
PROG = wio
PAK_VER = 1
PAK_VER = 2
###############################################################################
# Top-level Rules

1
src/wio/lang/wio.de.pl
View File

@@ -97,6 +97,7 @@
'wio_iface' => 'Schnittstelle',
'wio_client_enable' => 'Client aktivieren?',
'wio_ping_send' => 'überprüfen per',
'wio_link_open' => 'Link öffnen per',
'enable disable client' => 'Client aktivieren oder deaktivieren',
'wio_client_on' => 'Überwachung aktiviert (klicken, um zu deaktivieren)',
'wio_client_off' => 'Überwachung deaktiviert (klicken, um zu aktivieren)',

1
src/wio/lang/wio.en.pl
View File

@@ -97,6 +97,7 @@
'wio_iface' => 'Interface',
'wio_client_enable' => 'enable Host ?',
'wio_ping_send' => 'send ping to',
'wio_link_open' => 'open link via',
'enable disable client' => 'enable or disable client',
'wio_client_on' => 'Client enabled (click to disable)',
'wio_client_off' => 'Client disabled (click to enable)',

19
src/wio/wio.cgi
View File

@@ -47,6 +47,7 @@ use Fatal qw/ open /;
use Net::Telnet;
require '/var/ipfire/general-functions.pl';
require '/var/ipfire/network-functions.pl';
require '/var/ipfire/lang.pl';
require '/var/ipfire/header.pl';
require '/usr/lib/wio/wio-lib.pl';
@@ -166,18 +167,8 @@ if ( -e $wiofile ) { goto WIOSCAN; }
## get network ips
foreach (@devs_color) {
if ( $netsettings{"${_}_DEV"} ne '' ) {
$wiosettings{"${_}_IPLOW"} = inet_ntoa pack q/N/, (unpack (q/N/, inet_aton ($netsettings{"${_}_NETADDRESS"}))+1);
my @addrarr = split(/\./,$netsettings{"${_}_ADDRESS"});
my $ipaddress = unpack( "N", pack( "C4",@addrarr ) );
my @maskarr = split(/\./,$netsettings{"${_}_NETMASK"});
my $netmask = unpack( "N", pack( "C4",@maskarr ) );
my $bcast = ( $ipaddress & $netmask ) + ( ~ $netmask );
my @bcastarr = inet_ntoa pack q/N/, (unpack (q/N/, inet_aton ($bcast))-1);
$wiosettings{"${_}_IPHIGH"} = join(".",@bcastarr);
$wiosettings{"${_}_IPLOW"} = &Network::find_next_ip_address($netsettings{"${_}_NETADDRESS"}, 1);
$wiosettings{"${_}_IPHIGH"} = &Network::find_next_ip_address($netsettings{"${_}_BROADCAST"}, -1);
}
}
@@ -712,7 +703,7 @@ else {
print"
</tr>
<tr>
<td height='30'>$Lang::tr{'wio_ping_send'}:</td>
<td height='30'>$Lang::tr{'wio_link_open'}:</td>
<td align='left' colspan='5'>
<select size='1' name='WEBINTERFACE$count' width='80' style='width: 80px'>
<option value='----' $selected{'WEBINTERFACE$count'}{'----'}>----</option>
@@ -1713,7 +1704,7 @@ else {
print"
</tr>
<tr>
<td height='30'>$Lang::tr{'wio_ping_send'}:</td>
<td height='30'>$Lang::tr{'wio_link_open'}:</td>
<td align='left' colspan='5'>
<select size='1' name='WEBINTERFACE' width='80' style='width: 80px'>
<option value='----' $selected{'WEBINTERFACE'}{'----'}>----</option>