t/lib/Aux.pm
branchfoerste
changeset 148 b0fd381a4b53
parent 144 be90bcd14ae1
child 152 1ed33114d87f
equal deleted inserted replaced
147:9038188cbc41 148:b0fd381a4b53
     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