+
$Lang::tr{'network'} |
$Lang::tr{'ip address'} |
$Lang::tr{'status'} |
$Lang::tr{'internet'}
|
$ipaddr |
- $connstate
+ | $connstate |
END
my $HOSTNAME = (gethostbyaddr(pack("C4", split(/\./, $ipaddr)), 2))[0];
if ( "$HOSTNAME" ne "" ) {
print <Hostname: | $HOSTNAME |
+ | $Lang::tr{'hostname'}: | $HOSTNAME | |
END
}
- if ( -e "/var/ipfire/red/remote-ipaddress" ) {
- my $GATEWAY = `cat /var/ipfire/red/remote-ipaddress`;
+ if ( -e "${General::swroot}/red/remote-ipaddress" ) {
+ open (TMP, "<${General::swroot}/red/remote-ipaddress");
+ my $GATEWAY = ;
chomp($GATEWAY);
+ close TMP;
print <Gateway: | $GATEWAY |
+ | $Lang::tr{'gateway'}: | $GATEWAY | |
END
}
- my $DNS1 = `cat /var/ipfire/red/dns1`;
- my $DNS2 = `cat /var/ipfire/red/dns2`;
- chomp($DNS1);
- chomp($DNS1);
+ my @dns_servers = ();
+ foreach my $f ("${General::swroot}/red/dns1", "${General::swroot}/red/dns2") {
+ open(DNS, "<$f");
+ my $dns_server = ;
+ close(DNS);
- if ( $DNS1 ) { print <DNS-Server: | $DNS1
-END
+ chomp($dns_server);
+ if ($dns_server) {
+ push(@dns_servers, $dns_server);
+ }
}
- if ( $DNS2 ) { print <$DNS2
-END
- } else { print < |
-
+ my $dns_servers_str = join(", ", @dns_servers);
+
+ print <
+
+ $Lang::tr{'dns servers'}:
+ |
+
+ $dns_servers_str
+ |
+ |
+
END
- }
#Dial profiles
if ( $netsettings{'RED_TYPE'} ne "STATIC" && $netsettings{'RED_TYPE'} ne "DHCP" ){
@@ -255,9 +275,9 @@ END
$netsettings{'GREEN_ADDRESS'}/$sub
|
END
- if ( `cat /var/ipfire/proxy/advanced/settings | grep ^ENABLE=on` ) {
- print $Lang::tr{'advproxy on'};
- if ( `cat /var/ipfire/proxy/advanced/settings | grep ^TRANSPARENT=on` ) { print " (transparent)"; }
+ if ( $proxysettings{'ENABLE'} eq 'on' ) {
+ print $Lang::tr{'advproxy on'};
+ if ( $proxysettings{'TRANSPARENT'} eq 'on' ) { print " (transparent)"; }
} else { print $Lang::tr{'advproxy off'}; }
}
if ( $netsettings{'BLUE_DEV'} ) {
@@ -267,9 +287,9 @@ END
| $netsettings{'BLUE_ADDRESS'}/$sub
|
END
- if ( `cat /var/ipfire/proxy/advanced/settings | grep ^ENABLE_BLUE=on` ) {
- print $Lang::tr{'advproxy on'};
- if ( `cat /var/ipfire/proxy/advanced/settings | grep ^TRANSPARENT_BLUE=on` ) { print " (transparent)"; }
+ if ( $proxysettings{'ENABLE_BLUE'} eq 'on' ) {
+ print $Lang::tr{'advproxy on'};
+ if ( $proxysettings{'TRANSPARENT_BLUE'} eq 'on' ) { print " (transparent)"; }
} else { print $Lang::tr{'advproxy off'}; }
}
if ( $netsettings{'ORANGE_DEV'} ) {
@@ -281,10 +301,8 @@ END
END
}
#check if IPSEC is running
-if ( `cat /var/ipfire/vpn/settings | grep ^ENABLED=on` ||
- `cat /var/ipfire/vpn/settings | grep ^ENABLED_BLUE=on` ) {
- $haveipsec=1;
- my $ipsecip = `cat /var/ipfire/vpn/settings | grep ^VPN_IP= | cut -c 8-`;
+if ( $vpnsettings{'ENABLED'} eq 'on' || $vpnsettings{'ENABLED_BLUE'} eq 'on' ) {
+ my $ipsecip = $vpnsettings{'VPN_IP'};
print<$Lang::tr{'ipsec'}
| $ipsecip
@@ -302,7 +320,6 @@ if (($confighash{'ENABLED'} eq "on") ||
my ($ovpnip,$sub) = split("/",$confighash{'DOVPN_SUBNET'});
$sub=&General::iporsubtocidr($sub);
$ovpnip="$ovpnip/$sub";
- $haveovpn=1;
print <
@@ -315,53 +332,73 @@ END
print" | | |
";
&Header::closebox();
-# Start of Box wich contains all vpn connections
- &Header::openbox('100%', 'center', $Lang::tr{'vpn'}) if ($haveipsec || $haveovpn);
+#Check if there are any vpns configured (ipsec and openvpn)
+&General::readhasharray("${General::swroot}/vpn/config", \%vpnconfig);
+foreach my $key (sort { ncmp($vpnconfig{$a}[1],$vpnconfig{$b}[1]) } keys %vpnconfig) {
+ if ($vpnconfig{$key}[0] eq 'on'){
+ $showipsec=1;
+ $showbox=1;
+ last;
+ }
+}
+&General::readhasharray("${General::swroot}/ovpn/ovpnconfig", \%ovpnconfig);
+foreach my $dkey (sort { ncmp($ovpnconfig{$a}[1],$ovpnconfig{$b}[1])} keys %ovpnconfig) {
+ if (($ovpnconfig{$dkey}[3] eq 'net') && (-e "/var/run/$ovpnconfig{$dkey}[1]n2n.pid")){
+ $showbox=1;
+ $showovpn=1;
+ last;
+ }
+}
+if ($showbox){
+# Start of Box wich contains all vpn connections
+ &Header::openbox('100%', 'center', $Lang::tr{'vpn'});
#show ipsec connectiontable
- if ( $haveipsec ) {
- my $ipsecip = `cat /var/ipfire/vpn/settings | grep ^VPN_IP= | cut -c 8-`;
+ if ( $showipsec ) {
+ my $ipsecip = $vpnsettings{'VPN_IP'};
my @status = `/usr/local/bin/ipsecctrl I`;
my %confighash = ();
- &General::readhasharray("${General::swroot}/vpn/config", \%confighash);
+ my $id = 0;
+ my $gif;
+ my $col="";
+ my $count=0;
print <