t/lib/Aux.pm
changeset 144 be90bcd14ae1
parent 143 c26b5fa3f646
child 148 b0fd381a4b53
child 150 3db363880766
--- a/t/lib/Aux.pm	Wed Jun 29 11:42:51 2011 +0200
+++ b/t/lib/Aux.pm	Thu Jun 30 09:45:38 2011 +0200
@@ -16,10 +16,35 @@
     my $f = File::Temp->new or die "Config file creation failed\n";
 
     if (ref $c eq 'HASH') {
-        map { print $f "$_ = $c->$_\n" } keys %{$c};
-    } else {
+        map { print $f "$_ = $c->{$_}\n" } keys %{$c};
+    } elsif (defined $c) {
         # assuming just a string
         print $f $c;
+    } else {
+        # make a default configuration
+        my ($bd, $md, $cd);
+        for ($bd, $md, $cd) {
+            my $d = File::Temp::tempdir CLEANUP => 1 or die "Can't make temporary directory";
+            $_ = $d->filename;
+        }
+
+        print $f <<__EOF;
+bind_dir = $bd
+master_dir = $md
+zone_conf_dir = $cd
+
+key_counter_end = 15
+sign_alert_time = 168
+abl_zeit = 24
+
+secondary = hh.schlittermann.de
+primary   = pu.schlittermann.de
+hostmaster = hostmaster\@schlittermann.de
+
+indexzone = idx.tld
+template_dir = ./templates
+__EOF
+
     }
 
     return $f;