selftest: split out Samba::mk_resolv_conf() helper

[gd/samba-autobuild/.git] / selftest / target / Samba.pm

diff --git a/selftest/target/Samba.pm b/selftest/target/Samba.pm
index 7895c5d271b5df86b56ef3ab8b7f0bd16b4ed2a1..0fcaf8bdbfad5fe1aaca38cd53c6812adcd4e33e 100644 (file)
--- a/selftest/target/Samba.pm
+++ b/selftest/target/Samba.pm
@@ -436,6 +436,20 @@ sub mk_mitkdc_conf($$)
        close(KDCCONF);
 }
 
+sub mk_resolv_conf($$)
+{
+       my ($ctx) = @_;
+
+       unless (open(RESOLV_CONF, ">$ctx->{resolv_conf}")) {
+               warn("can't open $ctx->{resolv_conf}$?");
+               return undef;
+       }
+
+       print RESOLV_CONF "nameserver $ctx->{dns_ipv4}\n";
+       print RESOLV_CONF "nameserver $ctx->{dns_ipv6}\n";
+       close(RESOLV_CONF);
+}
+
 sub realm_to_ip_mappings
 {
        # this maps the DNS realms for the various testenvs to the corresponding