use strict;
# enable only the following on debugging purpose
-use warnings;
-use CGI::Carp 'fatalsToBrowser';
+#use warnings;
+#use CGI::Carp 'fatalsToBrowser';
require '/var/ipfire/general-functions.pl';
require "${General::swroot}/lang.pl";
my %netsettings=();
my %ddnssettings=();
my $warnmessage = '';
-my $refresh = '';
+my $refresh = "";
my $ipaddr='';
&Header::showhttpheaders();
&Header::openbigbox('', 'center');
&Header::openbox('100%', 'center', &Header::cleanhtml(`/bin/uname -n`,"y"));
+
+
if ( ( $pppsettings{'VALID'} eq 'yes' && $modemsettings{'VALID'} eq 'yes' ) || ( $netsettings{'CONFIG_TYPE'} =~ /^(1|2|3|4)$/ && $netsettings{'RED_TYPE'} =~ /^(DHCP|STATIC)$/ )) {
if (open(IPADDR,"${General::swroot}/ddns/ipcache")) {
$ipaddr = <IPADDR>;
print "$Lang::tr{'profile has errors'}\n </b></font>\n";
}
-if ( $netsettings{'RED_TYPE'} =~ /^(DHCP|STATIC)$/ ) {
- $ipaddr = $netsettings{'RED_ADDRESS'};
-}
+#if ( $netsettings{'RED_TYPE'} =~ /^(DHCP|STATIC)$/ ) {
+# $ipaddr = $netsettings{'RED_ADDRESS'};
+#}
my $death = 0;
my $rebirth = 0;
</table>
END
;
-} else {
- my $message='';
- my $title='';
- my $refresh = "<meta http-equiv='refresh' content='5; URL=/cgi-bin/index.cgi' />";
- 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'};
- }
- &Header::openpage($title, 0, $refresh);
-
- &Header::openbigbox('100%', 'center');
- print <<END
-<div align='center'>
-<table width='100%' bgcolor='#ffffff'>
-<tr><td align='center'>
-<br /><br /><img src='/ipfire_big.gif' /><br /><br /><br />
-</td></tr>
-</table>
-<br />
-<font size='6'>$message</font>
-</div>
-END
-;
-}
-
print <<END;
<!-- Table of networks -->
<th bgcolor='$color{'color20'}'>IP
<th bgcolor='$color{'color20'}'>$Lang::tr{'status'}
<tr> <td bgcolor='$Header::colourred' width='25%'><a href="/cgi-bin/pppsetup.cgi"><font size='2' color='white'><b>$Lang::tr{'internet'}:</b></font></a><br>
- <td width='30%'>$ipaddr
- <td width='45%'>$connstate
+ <td width='30%' align='center'>$ipaddr
+ <td width='45%' align='center'>$connstate
END
+if ( $netsettings{'RED_TYPE'} ne "STATIC" && $netsettings{'RED_TYPE'} ne "DHCP" ){
print `/usr/local/bin/dialctrl.pl show`;
print <<END;
<tr><td colspan='2'>
} else {
print "$Lang::tr{'profile has errors'}\n </b></font>\n";
}
-
+}
my $HOSTNAME = (gethostbyaddr(pack("C4", split(/\./, $ipaddr)), 2))[0];
if ( "$HOSTNAME" ne "" ) {
print <<END;
- <tr><td><b>Hostname:</b><td>$HOSTNAME<td>
+ <tr><td><b>Hostname:</b><td align='center'>$HOSTNAME<td>
END
}
my $GATEWAY = `cat /var/ipfire/red/remote-ipaddress`;
chomp($GATEWAY);
print <<END;
- <tr><td><b>Gateway:</b><td>$GATEWAY<td>
+ <tr><td><b>Gateway:</b><td align='center'>$GATEWAY<td>
END
}
chomp($DNS1);
if ( $DNS1 ) { print <<END;
- <tr><td><b>DNS-Server:</b><td>$DNS1
+ <tr><td><b>DNS-Server:</b><td align='center'>$DNS1
END
}
if ( $DNS2 ) { print <<END;
- <td>$DNS2
+ <td align='center'>$DNS2
END
} else { print <<END;
<td>
if ( $netsettings{'GREEN_DEV'} ) { print <<END;
<tr><td bgcolor='$Header::colourgreen' width='25%'><a href="/cgi-bin/dhcp.cgi"><font size='2' color='white'><b>$Lang::tr{'lan'}:</b></font></a>
- <td width='30%'>$netsettings{'GREEN_ADDRESS'}
- <td width='45%'>
+ <td width='30%' align='center'>$netsettings{'GREEN_ADDRESS'}
+ <td width='45%' align='center'>
END
if ( `cat /var/ipfire/proxy/advanced/settings | grep ^ENABLE=on` ) {
print "Proxy an";
}
if ( $netsettings{'BLUE_DEV'} ) { print <<END;
<tr><td bgcolor='$Header::colourblue' width='25%'><a href="/cgi-bin/wireless.cgi"><font size='2' color='white'><b>$Lang::tr{'wireless'}:</b></font></a><br>
- <td width='30%'>$netsettings{'BLUE_ADDRESS'}
- <td width='45%'>
+ <td width='30%' align='center'>$netsettings{'BLUE_ADDRESS'}
+ <td width='45%' align='center'>
END
if ( `cat /var/ipfire/proxy/advanced/settings | grep ^ENABLE_BLUE=on` ) {
print "Proxy an";
}
if ( $netsettings{'ORANGE_DEV'} ) { print <<END;
<tr><td bgcolor='$Header::colourorange' width='25%'><a href="/cgi-bin/dmzholes.cgi"><font size='2' color='white'><b>$Lang::tr{'dmz'}:</b></font></a><br>
- <td width='30%'>$netsettings{'ORANGE_ADDRESS'}
- <td width='45%'><font color=$Header::colourgreen>Online</font>
+ <td width='30%' align='center'>$netsettings{'ORANGE_ADDRESS'}
+ <td width='45%' align='center'><font color=$Header::colourgreen>Online</font>
END
}
if ( `cat /var/ipfire/vpn/settings | grep ^ENABLED=on` ||
&General::readhasharray("${General::swroot}/vpn/config", \%confighash);
print <<END;
<tr><td bgcolor='$Header::colourvpn' width='25%'><a href="/cgi-bin/vpnmain.cgi"><font size='2' color='white'><b>$Lang::tr{'vpn'}:</b></font></a><br>
- <td width='30%'>$ipsecip
- <td width='45%'><font color=$Header::colourgreen>Online</font>
+ <td width='30%' align='center'>$ipsecip
+ <td width='45%' align='center'><font color=$Header::colourgreen>Online</font>
END
my $id = 0;
my $gif;
if ($confighash{$key}[0] eq 'on') { $gif = 'on.gif'; } else { $gif = 'off.gif'; }
if ($id % 2) {
- print "<tr bgcolor='${Header::table1colour}'>\n";
+ print "<tr><td align='center'> </td><td align='center' nowrap='nowrap' bgcolor='$color{'color20'}'>$confighash{$key}[1] / " . $Lang::tr{"$confighash{$key}[3]"} . " (" . $Lang::tr{"$confighash{$key}[4]"} . ")</td>";
} else {
- print "<tr bgcolor='${Header::table2colour}'>\n";
+ print "<tr><td align='center'> </td><td align='center' nowrap='nowrap' bgcolor='$color{'color22'}'>$confighash{$key}[1] / " . $Lang::tr{"$confighash{$key}[3]"} . " (" . $Lang::tr{"$confighash{$key}[4]"} . ")</td>";
}
- print "<td bgcolor='#ffffff'> </td><td align='center' nowrap='nowrap'>$confighash{$key}[1] / " . $Lang::tr{"$confighash{$key}[3]"} . " (" . $Lang::tr{"$confighash{$key}[4]"} . ")</td>";
+
my $active = "<table cellpadding='2' cellspacing='0' bgcolor='${Header::colourred}' width='100%'><tr><td align='center'><b><font color='#FFFFFF'>$Lang::tr{'capsclosed'}</font></b></td></tr></table>";
if ($confighash{$key}[0] eq 'off') {
$active = "<table cellpadding='2' cellspacing='0' bgcolor='${Header::colourblue}' width='100%'><tr><td align='center'><b><font color='#FFFFFF'>$Lang::tr{'capsclosed'}</font></b></td></tr></table>";
my $ovpnip = `cat /var/ipfire/ovpn/settings | grep ^DOVPN_SUBNET= | cut -c 14- | sed -e 's\/\\/255.255.255.0\/\/'`;
print <<END;
<tr><td bgcolor='$Header::colourovpn' width='25%'><a href="/cgi-bin/ovpnmain.cgi"><font size='2' color='white'><b>OpenVPN:</b></font></a><br>
- <td width='30%'>$ovpnip
- <td width='45%'><font color=$Header::colourgreen>Online</font>
+ <td width='30%' align='center'>$ovpnip
+ <td width='45%' align='center'><font color=$Header::colourgreen>Online</font>
END
}
</table>
END
-
+} else {
+ my $message='';
+ if ($death) {
+ $message = $Lang::tr{'ipfire has now shutdown'};
+ } else {
+ $message = $Lang::tr{'ipfire has now rebooted'};
+ }
+ print <<END
+<div align='center'>
+<table width='100%' bgcolor='#ffffff'>
+<tr><td align='center'>
+<br /><br /><img src='/images/IPFire.png' /><br /><br /><br />
+</td></tr>
+</table>
+<br />
+<font size='6'>$message</font>
+</div>
+END
+;
+}
&Header::closebox();
&Header::closebigbox();
&Header::closepage();