mirror of
https://github.com/webmin/webmin.git
synced 2025-08-16 14:51:18 +00:00
69 lines
1.9 KiB
Perl
69 lines
1.9 KiB
Perl
#!/usr/local/bin/perl
|
|
# Show a list of clients, and a form to add
|
|
|
|
require './dhcp-dns-lib.pl';
|
|
&ui_print_header(undef, $module_info{'desc'}, "", undef, 1, 1);
|
|
|
|
# Check for servers
|
|
if (!&foreign_installed("bind8", 1)) {
|
|
&ui_print_endpage(&text('index_ebind8', "../bind8/"));
|
|
}
|
|
if (!&foreign_installed("dhcpd", 1)) {
|
|
&ui_print_endpage(&text('index_edhcpd', "../dhcpd/"));
|
|
}
|
|
|
|
# Check config
|
|
if (!$config{'domain'}) {
|
|
&ui_print_endpage(&text('index_edomain', "../config.cgi?$module_name"));
|
|
}
|
|
if (!$config{'subnets'}) {
|
|
&ui_print_endpage(&text('index_esubnets',"../config.cgi?$module_name"));
|
|
}
|
|
($fn, $recs) = &get_dns_zone();
|
|
if (!$fn) {
|
|
&ui_print_endpage(&text('index_edomain2', "../config.cgi?$module_name",
|
|
'../bind8/'));
|
|
}
|
|
|
|
# Show form to add
|
|
print &ui_hidden_start($text{'index_cheader'}, "create", 0, "index.cgi");
|
|
print &host_form();
|
|
print &ui_hidden_end();
|
|
|
|
# Show hosts, if any
|
|
@hosts = &list_dhcp_hosts();
|
|
if (@hosts) {
|
|
@tds = ( "width=5" );
|
|
print &ui_form_start("delete.cgi");
|
|
@links = ( &select_all_link("d", 1),
|
|
&select_invert_link("d", 1) );
|
|
print &ui_links_row(\@links);
|
|
print &ui_columns_start([ "",
|
|
$text{'index_host'},
|
|
$text{'index_ip'},
|
|
$text{'index_mac'},
|
|
], 100, 0, \@tds);
|
|
foreach $h (@hosts) {
|
|
$fixed = &dhcpd::find("fixed-address", $h->{'members'});
|
|
$hard = &dhcpd::find("hardware", $h->{'members'});
|
|
print &ui_checked_columns_row([
|
|
"<a href='edit.cgi?host=".&urlize($h->{'values'}->[0]).
|
|
"'>".
|
|
&html_escape(&short_hostname($h->{'values'}->[0])).
|
|
"</a>",
|
|
$fixed ? $fixed->{'values'}->[0] : undef,
|
|
$hard ? $hard->{'values'}->[1] : undef,
|
|
], \@tds, "d", $h->{'values'}->[0])
|
|
}
|
|
print &ui_columns_end();
|
|
print &ui_links_row(\@links);
|
|
print &ui_form_end([ [ undef, $text{'index_delete'} ] ]);
|
|
}
|
|
else {
|
|
print "<b>$text{'index_none'}</b><p>\n";
|
|
print &ui_links_row(\@links);
|
|
}
|
|
|
|
&ui_print_footer("/", $text{'index'});
|
|
|