Started on DHCP / DNS module

diff --git a/dhcp-dns/config.info b/dhcp-dns/config.info
new file mode 100644 (file)
index 0000000..d0c585e
--- /dev/null
+++ b/dhcp-dns/config.info
@@ -0,0 +1,2 @@
+domain=DNS domain for hosts,0
+subnets=DHCP subnets for hosts,0

diff --git a/dhcp-dns/dhcp-dns-lib.pl b/dhcp-dns/dhcp-dns-lib.pl
new file mode 100644 (file)
index 0000000..fef6582
--- /dev/null
+++ b/dhcp-dns/dhcp-dns-lib.pl
@@ -0,0 +1,72 @@
+# Functions for configuring DNS and DHCP servers together
+
+do '../web-lib.pl';
+&init_config();
+do '../ui-lib.pl';
+&foreign_require("bind8", "bind8-lib.pl");
+&foreign_require("dhcpd", "dhcpd-lib.pl");
+
+# list_dhcp_hosts()
+# Returns a list of DHCP host structures for managed hosts
+sub list_dhcp_hosts
+{
+}
+
+# host_form([&host])
+# Returns a form for editing or creating a host
+sub host_form
+{
+local ($h) = @_;
+local $new = !$h;
+local $rv;
+$rv .= &ui_form_start("save.cgi", "post");
+if ($new) {
+       $rv .= &ui_hidden("new", 1);
+       }
+else {
+       $rv .= &ui_hidden("old", $h->{'values'}->[0]);
+       }
+$rv .= &ui_table_start($text{'form_header'}, "width=100%", 2);
+
+# Hostname
+local $short = &short_hostname($h->{'values'}->[0]);
+local $indom = $new || $short eq $h->{'values'}->[0];
+$rv .= &ui_table_row($text{'form_host'},
+       &ui_textbox("host", $short, 40).
+       ($indom ? "<tt>.$config{'domain'}</tt>" : ""));
+$rv .= &ui_hidden("indom", 1);
+
+# Fixed IP address
+local $fixed = &dhcpd::find("fixed-address", $h->{'members'});
+$rv .= &ui_table_row($text{'form_ip'},
+       &ui_textbox("ip", $fixed ? $fixed->{'values'}->[0] : undef, 20));
+
+# MAC address
+local $hard = &dhcpd::find("hardware", $h->{'members'});
+$rv .= &ui_table_row($text{'form_mac'},
+       &ui_textbox("mac", $hard ? $hard->{'values'}->[0] : undef, 20));
+
+$rv .= &ui_table_end();
+if ($new) {
+       $rv .= &ui_form_end([ [ undef, $text{'create'} ] ]);
+       }
+else {
+       $rv .= &ui_form_end([ [ undef, $text{'save'} ],
+                             [ 'delete', $text{'delete'} ] ]);
+       }
+return $rv;
+}
+
+sub short_hostname
+{
+local ($hn) = @_;
+if ($hn =~ /^(\S+)\.\Q$config{'domain'}\E$/) {
+       return $1;
+       }
+else {
+       return $hn;
+       }
+}
+
+1;
+

diff --git a/dhcp-dns/index.cgi b/dhcp-dns/index.cgi
new file mode 100644 (file)
index 0000000..d406ee5
--- /dev/null
+++ b/dhcp-dns/index.cgi
@@ -0,0 +1,62 @@
+#!/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"));
+       }
+
+# 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();
+@links = ( "<a href='edit.cgi?new=1'>$text{'index_add'}</a>" );
+if (@hosts) {
+       @tds = ( "width=5" );
+       print &ui_form_start("delete.cgi");
+       @links = ( &select_all_link("d", 1),
+                  &select_invert_link("d", 1),
+                  @links );
+       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([
+                       &html_escape(&short_hostname($h->{'values'}->[0])),
+                       $fixed ? $fixed->{'values'}->[0] : undef,
+                       $hard ? $hard->{'values'}->[0] : 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'});
+

diff --git a/dhcp-dns/module.info b/dhcp-dns/module.info
new file mode 100644 (file)
index 0000000..c9cb0d5
--- /dev/null
+++ b/dhcp-dns/module.info
@@ -0,0 +1,3 @@
+desc=DHCP and DNS Client
+category=servers
+depends=bind8 dhcpd