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 |
24 print $f $c; |
24 print $f $c; |
25 } |
25 } |
26 else { |
26 else { |
27 |
27 |
28 # make a default configuration |
28 # make a default configuration |
29 my ( $bd, $md, $cd ); |
29 $_ = File::Temp::tempdir CLEANUP => 1 or die "Can't make temporary directory" for my ($bd, $md, $cd); |
30 for ( $bd, $md, $cd ) { |
|
31 my $d = File::Temp::tempdir CLEANUP => 1 |
|
32 or die "Can't make temporary directory"; |
|
33 $_ = $d->filename; |
|
34 } |
|
35 |
30 |
36 print $f <<__EOF; |
31 print $f <<__EOF; |
37 bind_dir = $bd |
32 bind_dir = $bd |
38 master_dir = $md |
33 master_dir = $md |
39 zone_conf_dir = $cd |
34 zone_conf_dir = $cd |