t/lib/Aux.pm
changeset 154 0f2ea27e9e18
parent 153 af27be0a326b
equal deleted inserted replaced
151:c33217cb5989 154:0f2ea27e9e18
     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