A bit more flexible code

package/yast2-dns-server.changes

@@ -14,6 +14,9 @@ Tue Dec  9 16:35:24 CET 2014 - locilka@suse.com
   - Flushing /etc/named.conf cache 'after' writing zones (instead
     of 'before')
   - Using "" as the default NETCONFIG_DNS_POLICY (instead of 0)
+  - Do not write system zones to LDAP (bnc#746401)
+  - If systems zones are marked as modified, they are written to
+    named configuration (if LDAP is not in use)
 - 3.1.7.2
 
 -------------------------------------------------------------------

src/modules/DnsServer.pm

@@ -123,7 +123,7 @@ sub is_system_zone {
         $zone_name eq "0.0.127.in-addr.arpa" ||
         $zone_name =~ /^(0\.)+ip6.arpa$/ ||
         $zone_name eq "."
-    )
+    );
 }
 
 ##------------------------------------
@@ -1302,14 +1302,22 @@ sub check_and_install_package {
     my $self = shift;
     return 1 if (PackageSystem->Installed("bind"));
 
-    # Package cannot be installed in some modes, changing the mode temporarily
-    my $previous_mode = Mode->mode();
-    Mode->SetMode("normal");
-    my $installed = PackageSystem->CheckAndInstallPackagesInteractive(["bind"]);
+    my $installed = 0;
+
+    # Try to install the required package
+    if (Mode->autoinst()) {
+        # Non-interactively, as we can't ask user in this case
+        $installed = PackageSystem->CheckAndInstallPackages(["bind"]);
+    } else {
+        # Package cannot be installed in some modes, changing the mode temporarily
+        my $previous_mode = Mode->mode();
+        Mode->SetMode("normal");
+        $installed = PackageSystem->CheckAndInstallPackagesInteractive(["bind"]);
 
-    # Reread the configuration stat if it has changed
-    $configuration_timestamp = $self->GetConfigurationStat() if $installed;
-    Mode->SetMode($previous_mode);
+        # Reread the configuration stat if it has changed
+        $configuration_timestamp = $self->GetConfigurationStat() if $installed;
+        Mode->SetMode($previous_mode);
+    }
 
     return 1 if $installed;