index.cgi: Show a note to people who are running IPFire on i?86

[people/pmueller/ipfire-2.x.git] / html / cgi-bin / index.cgi

diff --git a/html/cgi-bin/index.cgi b/html/cgi-bin/index.cgi
index 03dc3574d00f3a2b5f17d9e75026d2017b17cca6..8e7207d0c97d25b655a1576b75f94dff8d6e84df 100644 (file)
--- a/html/cgi-bin/index.cgi
+++ b/html/cgi-bin/index.cgi
@@ -200,25 +200,6 @@ END
 END
        }
 
-       my $dns_servers;
-       if ( -e "${General::swroot}/red/dns" ) {
-               open (TMP, "<${General::swroot}/red/dns");
-               $dns_servers = <TMP>;
-               chomp($dns_servers);
-               close TMP;
-       }
-       print <<END;
-               <tr>
-                       <td>
-                               <b><a href="netexternal.cgi">$Lang::tr{'dns servers'}</a>:</b>
-                       </td>
-                       <td style='text-align:center;'>
-                               $dns_servers
-                       </td>
-                       <td></td>
-               </tr>
-END
-
        if (&General::RedIsWireless()) {
                my $iface = $netsettings{"RED_DEV"} || "red0";
 
@@ -367,13 +348,12 @@ END
        }
 #check if IPSEC is running
 if ( $vpnsettings{'ENABLED'} eq 'on' || $vpnsettings{'ENABLED_BLUE'} eq 'on' ) {
-       my $ipsecip = $vpnsettings{'VPN_IP'};
 print<<END;
                <tr>
                        <td style='width:25%; text-align:center; background-color:$Header::colourvpn;'>
                                <a href='/cgi-bin/vpnmain.cgi' style='color:white'><b>$Lang::tr{'ipsec'}</b></a>
                        </td>
-                       <td style='width:30%; text-align:center;'>$ipsecip</td>
+                       <td style='width:30%; text-align:center;'></td>
                        <td style='width:45%; text-align:center; color:$Header::colourgreen;'>Online</td>
                </tr>
 END
@@ -565,6 +545,12 @@ if ( ! -e "/var/ipfire/main/send_profile") {
        $warnmessage .= "<li><a style='color: white;' href='fireinfo.cgi'>$Lang::tr{'fireinfo please enable'}</a></li>";
 }
 
+# Legacy architecture
+my ($sysname, $nodename, $release, $version, $machine) = &POSIX::uname();
+if ($machine =~ m/^i?86$/) {
+       $warnmessage .= "<li>$Lang::tr{'legacy architecture warning'}</li>";
+}
+
 # Memory usage warning
 my @free = `/usr/bin/free`;
 $free[1] =~ m/(\d+)/;
@@ -613,13 +599,6 @@ foreach my $file (@files) {
        }
 }
 
-# Reiser4 warning
-my @files = `mount | grep " reiser4 (" 2>/dev/null`;
-foreach my $disk (@files) {
-       chomp ($disk);
-       $warnmessage .= "<li>$disk - $Lang::tr{'deprecated fs warn'}</li>";
-}
-
 if ($warnmessage) {
        &Header::openbox('100%','center', );
        print "<table class='tbl' style='width:80%;'>";