diff options
| author | Joachim Tingvold <joachim@tingvold.com> | 2015-03-22 22:19:31 +0100 |
|---|---|---|
| committer | Joachim Tingvold <joachim@tingvold.com> | 2015-03-22 22:19:31 +0100 |
| commit | 5cf805bc8ee8b1cc8ba9776e850e23e6cbffa83e (patch) | |
| tree | ec9b9338252c4c371b0e1d1ecb62bebcdedabe11 | |
| parent | 335bb6da69203294da9914df3a9f54ec103f1d74 (diff) | |
Create file, maybe? :-D
| -rwxr-xr-x | bootstrap/make-missing-conf.pl | 8 |
1 files changed, 5 insertions, 3 deletions
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; |