mirror of
https://github.com/webmin/webmin.git
synced 2026-02-10 09:12:05 +00:00
31 lines
998 B
Perl
Executable File
31 lines
998 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# index.cgi
|
|
# Display a menu of various network screens
|
|
|
|
require './net-lib.pl';
|
|
&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0,
|
|
&help_search_link("ifconfig hosts resolve.conf nsswitch.conf", "man"));
|
|
|
|
foreach $i ('ifcs', 'routes', 'dns', 'hosts',
|
|
($config{'ipnodes_file'} ? ('ipnodes') : ( ))) {
|
|
next if (!$access{$i});
|
|
next if ($i eq "ifcs" && &running_in_zone());
|
|
|
|
push(@links, "list_${i}.cgi");
|
|
push(@titles, $text{"${i}_title"});
|
|
push(@icons, "images/${i}.gif");
|
|
}
|
|
&icons_table(\@links, \@titles, \@icons, @icons > 4 ? scalar(@icons) : 4);
|
|
|
|
if (defined(&apply_network) && $access{'apply'} && !&running_in_zone()) {
|
|
# Allow the user to apply the network config
|
|
print "<hr>\n";
|
|
print "<form action=apply.cgi>\n";
|
|
print "<table width=100%><tr>\n";
|
|
print "<td><input type=submit value='$text{'index_apply'}'></td>\n";
|
|
print "<td>$text{'index_applydesc'}</td>\n";
|
|
print "</tr></table></form>\n";
|
|
}
|
|
&ui_print_footer("/", $text{'index'});
|
|
|