#!/usr/bin/perl -w
use DBI;
use strict;
my $db_user = "stg";
my $db_pass = "";
my $db_host = "localhost";
my $db_name = "stargazer";
my $dhcp_conf = "/usr/local/etc/dhcpd.conf"; # where dhcp.conf ?
my $dhcp_rc = "/usr/local/etc/rc.d/isc-dhcpd"; # where dhcp init script?
my $dsn = "DBI:mysql:$db_name:$db_host";
my $conf = "default-lease-time 600;
max-lease-time 7200;
authoritative;
ddns-update-style interim;
log-facility local7;
subnet 10.10.2.0 netmask 255.255.255.0 {
range 10.10.2.10 10.10.2.100;
option routers 10.10.2.1;
option domain-name-servers 10.10.1.1;
}
subnet 10.10.3.0 netmask
