From 5cf805bc8ee8b1cc8ba9776e850e23e6cbffa83e Mon Sep 17 00:00:00 2001 From: Joachim Tingvold Date: Sun, 22 Mar 2015 22:19:31 +0100 Subject: Create file, maybe? :-D --- bootstrap/make-missing-conf.pl | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'bootstrap') diff --git a/bootstrap/make-missing-conf.pl b/bootstrap/make-missing-conf.pl index 5b63f32..b128695 100755 --- a/bootstrap/make-missing-conf.pl +++ b/bootstrap/make-missing-conf.pl @@ -87,15 +87,17 @@ EOF } # DHCP6 - my $dhcp_dynconf_dir = $dhcpd_base . "conf-v6/"; - my $dhconfig = $dhcp_dynconf_dir . $name . ".conf"; + $dhcp_dynconf_dir = $dhcpd_base . "conf-v6/"; + $dhconfig = $dhcp_dynconf_dir . $name . ".conf"; if ( not -f $dhconfig ){ print STDERR "Creating file " . $dhconfig . "\n"; my $network = Net::IP->new($v6_net)->short(); my ($first, $last) = ("1000", "9999"); - + + open DFILE, ">" . $dhconfig or die ( $! . " " . $dhconfig); + print DFILE <<"EOF"; zone $name.$nms::config::tgname.gathering.org { primary $nms::config::ddns_to; -- cgit v1.2.3