blob: ded55510a51e3371c2bfecc0ba2e10f0418454fc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
#!/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;
|
