blob: 86673cb93fa9899567e49430a7e82b166a5bfe8e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
#!/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 . "v4-generated-include.conf";
my $glob = $dhcpd_base . "conf-v4/*.conf";
my @configs = glob($glob);
open CONF, ">" . $includeconfig or die ( $! . " " . $includeconfig);
foreach my $config ( @configs )
{
print CONF "include \"" . $config . "\";\n";
}
close CONF;
$includeconfig = $dhcpd_base . "v6-generated-include.conf";
my $glob = $dhcpd_base . "conf-v6/*.conf";
my @configs = glob($glob);
open CONF, ">" . $includeconfig or die ( $! . " " . $includeconfig);
foreach my $config ( @configs )
{
print CONF "include \"" . $config . "\";\n";
}
close CONF;
|
