equal
deleted
inserted
replaced
7 use base "Exporter"; |
7 use base "Exporter"; |
8 |
8 |
9 our $VERSION = 0.0; |
9 our $VERSION = 0.0; |
10 our @EXPORT_OK = qw(make_config); |
10 our @EXPORT_OK = qw(make_config); |
11 |
11 |
12 sub make_config($) { |
12 sub make_config { |
13 |
13 |
14 my ($c) = @_; |
14 my ($c) = @_; |
15 |
15 |
16 my $f = File::Temp->new or die "Config file creation failed\n"; |
16 my $f = File::Temp->new or die "Config file creation failed\n"; |
17 |
17 |
20 } elsif (defined $c) { |
20 } elsif (defined $c) { |
21 # assuming just a string |
21 # assuming just a string |
22 print $f $c; |
22 print $f $c; |
23 } else { |
23 } else { |
24 # make a default configuration |
24 # make a default configuration |
25 my ($bd, $md, $cd); |
25 $_ = File::Temp::tempdir CLEANUP => 1 or die "Can't make temporary directory" for my ($bd, $md, $cd); |
26 for ($bd, $md, $cd) { |
|
27 my $d = File::Temp::tempdir CLEANUP => 1 or die "Can't make temporary directory"; |
|
28 $_ = $d->filename; |
|
29 } |
|
30 |
26 |
31 print $f <<__EOF; |
27 print $f <<__EOF; |
32 bind_dir = $bd |
28 bind_dir = $bd |
33 master_dir = $md |
29 master_dir = $md |
34 zone_conf_dir = $cd |
30 zone_conf_dir = $cd |