#!/usr/bin/perl -I /root/tgmanage
use strict;
my $base = "/etc";
$base = $ARGV[0] if $#ARGV > -1;
$base .= "/" if not $base =~ m/\/$/ and not $base eq "";

my $dhcpd_base = $base . "dhcp/";
my $includeconfig = $dhcpd_base . "generated-include.conf";

my $glob = $dhcpd_base . "conf.d/*.conf";
my @configs = glob($glob);

open CONF, ">" . $includeconfig or die ( $! . " " . $includeconfig);
foreach my $config ( @configs )
{
	print CONF "include \"" . $config . "\";\n";
}
close CONF;