|
END
} else {
print "$Lang::tr{'profile has errors'}\n \n";
}
if ( $netsettings{'GREEN_DEV'} ) { print <$Lang::tr{'lan'}:
| $netsettings{'GREEN_ADDRESS'}
|
END
if ( `cat /var/ipfire/proxy/advanced/settings | grep ^ENABLE=on` ) {
print "Proxy an";
if ( `cat /var/ipfire/proxy/advanced/settings | grep ^TRANSPARENT=on` ) { print " (transparent)"; }
} else { print "Proxy aus"; }
}
if ( $netsettings{'BLUE_DEV'} ) { print <$Lang::tr{'wireless'}:
| $netsettings{'BLUE_ADDRESS'}
|
END
if ( `cat /var/ipfire/proxy/advanced/settings | grep ^ENABLE_BLUE=on` ) {
print "Proxy an";
if ( `cat /var/ipfire/proxy/advanced/settings | grep ^TRANSPARENT_BLUE=on` ) { print " (transparent)"; }
} else { print "Proxy aus"; }
}
if ( $netsettings{'ORANGE_DEV'} ) { print <$Lang::tr{'dmz'}:
| $netsettings{'ORANGE_ADDRESS'}
| Online
END
}
if ( `cat /var/ipfire/vpn/settings | grep ^ENABLED=on` ||
`cat /var/ipfire/vpn/settings | grep ^ENABLED_BLUE=on` ) {
my $ipsecip = `cat /var/ipfire/vpn/settings | grep ^VPN_IP= | cut -c 8-`;
print <$Lang::tr{'vpn'}:
| $ipsecip
| Online
END
}
if ( `cat /var/ipfire/ovpn/settings | grep ^ENABLED=on` ||
`cat /var/ipfire/ovpn/settings | grep ^ENABLED_BLUE=on` ||
`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
END
}
if ( $netsettings{'DNS1'} ) { print <DNS-Server: | $netsettings{'DNS1'}
END
}
if ( $netsettings{'DNS2'} ) { print <$netsettings{'DNS2'}
END
}
print <
END
&Header::closebox();
&Header::openbox('100%', 'left', $Lang::tr{'shutdown2'});
if ($death == 0 && $rebirth == 0) {
print <
END
;
} else {
my $message='';
my $title='';
if ($death) {
$title = $Lang::tr{'shutting down'};
$message = $Lang::tr{'ipfire has now shutdown'};
} else {
$title = $Lang::tr{'rebooting'};
$message = $Lang::tr{'ipfire has now rebooted'};
}
print <$message
END
;
}
&Header::closebox();
&Header::closebigbox();
&Header::closepage();
| | | | | | |