index.cgi: Add /red/local-ipaddress query.

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

diff --git a/html/cgi-bin/index.cgi b/html/cgi-bin/index.cgi
index a497607f174d0fad9352afc8bd7b731a5127d77e..0b38237b6a3c6de732f4e0d4f0edc47274a68223 100644 (file)
--- a/html/cgi-bin/index.cgi
+++ b/html/cgi-bin/index.cgi
@@ -158,6 +158,11 @@ if ( ( $pppsettings{'VALID'} eq 'yes' && $modemsettings{'VALID'} eq 'yes' ) || (
            close IPADDR;
            chomp ($ipaddr);
        }
+       if (open(IPADDR,"${General::swroot}/red/local-ipaddress")) {
+           $ipaddr = <IPADDR>;
+           close IPADDR;
+           chomp ($ipaddr);
+       }
 } elsif ($modemsettings{'VALID'} eq 'no') {
        print "$Lang::tr{'modem settings have errors'}\n </b></font>\n";
 } else {
@@ -177,7 +182,7 @@ END
        my $HOSTNAME = (gethostbyaddr(pack("C4", split(/\./, $ipaddr)), 2))[0];
        if ( "$HOSTNAME" ne "" ) {
                print <<END;
-       <tr><td><b>Hostname:</b><td align='center'>$HOSTNAME</td><td></td>
+       <tr><td><b>$Lang::tr{'hostname'}:</b><td align='center'>$HOSTNAME</td><td></td>
 END
        }
 
@@ -187,31 +192,32 @@ END
                chomp($GATEWAY);
                close TMP;
                print <<END;
-       <tr><td><b>Gateway:</b><td align='center'>$GATEWAY</td><td></td></tr>
+       <tr><td><b>$Lang::tr{'gateway'}:</b><td align='center'>$GATEWAY</td><td></td></tr>
 END
        }
-       #Read DNS server 1
-       open (DNS1, "<${General::swroot}/red/dns1");
-       my $DNS1 = <DNS1>;
-       chomp($DNS1);
-       close DNS1;
-       #Read DNS server 2
-       open (DNS2, "<${General::swroot}/red/dns2");
-       my $DNS2 = <DNS2>;
-       chomp($DNS2);
-       close DNS2;
+
+       my @dns_servers = ();
+       foreach my $f ("${General::swroot}/red/dns1", "${General::swroot}/red/dns2") {
+               open(DNS, "<$f");
+               my $dns_server = <DNS>;
+               close(DNS);
+
+               chomp($dns_server);
+               if ($dns_server) {
+                       push(@dns_servers, $dns_server);
+               }
+       }
+       my $dns_servers_str = join(", ", @dns_servers);
 
        print <<END;
                <tr>
                        <td>
-                               <b>$Lang::tr{'dns server'}</b>
-                       </td>
-                       <td align="center">
-                               $DNS1
+                               <b>$Lang::tr{'dns servers'}:</b>
                        </td>
                        <td align="center">
-                               $DNS2
+                               $dns_servers_str
                        </td>
+                       <td align="center"></td>
                </tr>
        </table>
 END