Großes Update:

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

diff --git a/html/cgi-bin/index.cgi b/html/cgi-bin/index.cgi
index b1e88b0ce1eacfa67cc35e34aa86aefc77420f16..9aa77d6ef0b6486f4abdf425310ae8baa0e4c70e 100644 (file)
--- a/html/cgi-bin/index.cgi
+++ b/html/cgi-bin/index.cgi
@@ -88,7 +88,7 @@ if ( ( $pppsettings{'VALID'} eq 'yes'&& $modemsettings{'VALID'} eq 'yes' ) ||
                    close IPADDR;
                    chomp ($fetch_ip);
                    my $host_name = (gethostbyaddr(pack("C4", split(/\./, $fetch_ip)), 2))[0];
-                   print "<br />$Lang::tr{'ip address'} (internet): $fetch_ip <br /> $Lang::tr{'ipcops hostname'} (internet): $host_name <br />";
+                   print "<br />$Lang::tr{'ip address'} (internet): $fetch_ip <br /> $Lang::tr{'ipfires hostname'} (internet): $host_name <br />";
                }
            }
            if (open(IPADDR,"${General::swroot}/red/local-ipaddress")) {
@@ -97,7 +97,7 @@ if ( ( $pppsettings{'VALID'} eq 'yes'&& $modemsettings{'VALID'} eq 'yes' ) ||
                chomp ($ipaddr);
                if ($ipaddr ne $fetch_ip){      #do not show info twice
                    my $host_name = (gethostbyaddr(pack("C4", split(/\./, $ipaddr)), 2))[0];
-                   print "<br />$Lang::tr{'ip address'}: $ipaddr <br /> $Lang::tr{'ipcops hostname'}: $host_name <br />";
+                   print "<br />$Lang::tr{'ip address'}: $ipaddr <br /> $Lang::tr{'ipfires hostname'}: $host_name <br />";
                }
            }
         }
@@ -180,24 +180,57 @@ print "</p>\n";
 
 &Header::closebox();
 
-# Test browser, and direct User where to turn off Javascript if necessary
-# only display message if Javascript is currently enabled
-if (${Header::javascript}) {
-print <<END
-<script type='text/javascript'>\n
-if(navigator.platform.indexOf("MacPPC")>(-1)){
-  document.write(
-    "<center><p>"
-    + "$Lang::tr{'javascript menu error1'}"
-    + " <a href='/cgi-bin/gui.cgi'>$Lang::tr{'gui settings'}</a> "
-    + "$Lang::tr{'javascript menu error2'}"
-    + "</p></center>"
-  )
+&Header::openbox('100%', 'left', $Lang::tr{'quick control'});
+# read in the profile names into @profilenames.
+my $c;
+my $maxprofiles = 5;
+my @profilenames = ();
+
+for ($c = 1; $c <= $maxprofiles; $c++)
+{
+       my %temppppsettings = ();
+       $temppppsettings{'PROFILENAME'} = '';
+       &General::readhash("${General::swroot}/ppp/settings-$c", \%temppppsettings);
+       $profilenames[$c] = $temppppsettings{'PROFILENAME'};
+}
+my %selected;
+for ($c = 1; $c <= $maxprofiles; $c++) {
+       $selected{'PROFILE'}{$c} = ''; 
 }
-</script>
+$selected{'PROFILE'}{$pppsettings{'PROFILE'}} = "selected='selected'";
+
+print <<END;
+       <table width='100%'>
+       <tr>
+               <td align='left'>
+                       <form method='post' action='/cgi-bin/dial.cgi'>
+                               $Lang::tr{'profile'}:
+                               <select name='PROFILE'>
 END
-;
+my $dialButtonDisabled = "disabled='disabled'";
+for ($c = 1; $c <= $maxprofiles; $c++)
+{
+       if ($profilenames[$c] ne '') {
+               $dialButtonDisabled = "";
+               print "\t<option value='$c' $selected{'PROFILE'}{$c}>$c. $profilenames[$c]</option>\n";
+       }
 }
+$dialButtonDisabled = "disabled='disabled'" if (-e '/var/run/ppp-ipcop.pid' || -e "${General::swroot}/red/active");
+
+print <<END;
+                               </select>
+                               <input type='submit' name='ACTION' value='$Lang::tr{'dial profile'}' $dialButtonDisabled />
+                       </form>
+               </td>
+               <td align='right'>
+                       <form method='post' action='/cgi-bin/shutdown.cgi'>
+                               <input type='submit' name='ACTION' value='$Lang::tr{'shutdown'}' />
+                       </form>
+               </td>
+       </tr>
+       </table>
+END
+&Header::closebox();
 
 &Header::closebigbox();