@@ -205,11 +223,11 @@ END
} else {
print "$Lang::tr{'profile has errors'}\n \n";
}
-
+}
my $HOSTNAME = (gethostbyaddr(pack("C4", split(/\./, $ipaddr)), 2))[0];
if ( "$HOSTNAME" ne "" ) {
print <Hostname: | $HOSTNAME |
+ | Hostname: | $HOSTNAME |
END
}
@@ -217,7 +235,7 @@ END
my $GATEWAY = `cat /var/ipfire/red/remote-ipaddress`;
chomp($GATEWAY);
print <Gateway: | $GATEWAY |
+ | Gateway: | $GATEWAY |
END
}
@@ -227,11 +245,11 @@ END
chomp($DNS1);
if ( $DNS1 ) { print <DNS-Server: | $DNS1
+ | DNS-Server: | $DNS1
END
}
if ( $DNS2 ) { print <$DNS2
+ $DNS2
END
} else { print <
@@ -239,9 +257,9 @@ END
}
if ( $netsettings{'GREEN_DEV'} ) { print <$Lang::tr{'lan'}:
- | $netsettings{'GREEN_ADDRESS'}
- |
+ | $Lang::tr{'lan'}
+ | $netsettings{'GREEN_ADDRESS'}
+ |
END
if ( `cat /var/ipfire/proxy/advanced/settings | grep ^ENABLE=on` ) {
print "Proxy an";
@@ -249,9 +267,9 @@ END
} else { print "Proxy aus"; }
}
if ( $netsettings{'BLUE_DEV'} ) { print <$Lang::tr{'wireless'}:
- | $netsettings{'BLUE_ADDRESS'}
- |
+ | $Lang::tr{'wireless'}
+ | $netsettings{'BLUE_ADDRESS'}
+ |
END
if ( `cat /var/ipfire/proxy/advanced/settings | grep ^ENABLE_BLUE=on` ) {
print "Proxy an";
@@ -259,9 +277,9 @@ END
} else { print "Proxy aus"; }
}
if ( $netsettings{'ORANGE_DEV'} ) { print <$Lang::tr{'dmz'}:
- | $netsettings{'ORANGE_ADDRESS'}
- | Online
+ | $Lang::tr{'dmz'}
+ | $netsettings{'ORANGE_ADDRESS'}
+ | Online
END
}
if ( `cat /var/ipfire/vpn/settings | grep ^ENABLED=on` ||
@@ -271,9 +289,9 @@ END
my %confighash = ();
&General::readhasharray("${General::swroot}/vpn/config", \%confighash);
print <$Lang::tr{'vpn'}:
- | $ipsecip
- | Online
+ | $Lang::tr{'vpn'}
+ | $ipsecip
+ | Online
END
my $id = 0;
my $gif;
@@ -281,11 +299,11 @@ END
if ($confighash{$key}[0] eq 'on') { $gif = 'on.gif'; } else { $gif = 'off.gif'; }
if ($id % 2) {
- print " | \n";
+ print " | $confighash{$key}[1] / " . $Lang::tr{"$confighash{$key}[3]"} . " (" . $Lang::tr{"$confighash{$key}[4]"} . ") | ";
} else {
- print " \n";
+ print " | $confighash{$key}[1] / " . $Lang::tr{"$confighash{$key}[3]"} . " (" . $Lang::tr{"$confighash{$key}[4]"} . ") | ";
}
- print " | $confighash{$key}[1] / " . $Lang::tr{"$confighash{$key}[3]"} . " (" . $Lang::tr{"$confighash{$key}[4]"} . ") | ";
+
my $active = "";
if ($confighash{$key}[0] eq 'off') {
$active = "";
@@ -304,9 +322,9 @@ END
`cat /var/ipfire/ovpn/settings | grep ^ENABLED_ORANGE=on`) {
my $ovpnip = `cat /var/ipfire/ovpn/settings | grep ^DOVPN_SUBNET= | cut -c 14- | sed -e 's\/\\/255.255.255.0\/\/'`;
print <OpenVPN:
- | $ovpnip
- | Online
+ | OpenVPN
+ | $ovpnip
+ | Online
END
}
@@ -365,7 +383,7 @@ END
-
+
|
| | | | | | | | |