Index: branches/stable/DNSDB.pm
===================================================================
--- branches/stable/DNSDB.pm	(revision 434)
+++ branches/stable/DNSDB.pm	(revision 437)
@@ -1744,7 +1744,9 @@
   my $domain = shift;
   my $group = shift;
-  my $status = shift || 1;
+  my $status = shift;
+  $status = (defined($status) ? $status : 0);	# force sane semantics, and allow passing "null" (inactive) status
   my $rwsoa = shift || 0;
   my $rwns = shift || 0;
+  my $newttl = shift;
 
 ##fixme:  add mode to delete&replace, merge+overwrite, merge new?
@@ -1801,4 +1803,5 @@
     while (my $rr = $res->axfr_next()) {
       my $type = $rr->type;
+      my $ttl = ($newttl ? $newttl : $rr->ttl);	# allow force-override TTLs
 
       my $sql = "INSERT INTO records (domain_id,host,type,ttl,val";
Index: branches/stable/dns.cgi
===================================================================
--- branches/stable/dns.cgi	(revision 434)
+++ branches/stable/dns.cgi	(revision 437)
@@ -1462,4 +1462,6 @@
   $page->param(rwsoa => $webvar{rwsoa}) if $webvar{rwsoa};
   $page->param(rwns => $webvar{rwns}) if $webvar{rwns};
+  $page->param(forcettl => $webvar{forcettl}) if $webvar{forcettl};
+  $page->param(newttl => $webvar{newttl}) if $webvar{newttl};
   $page->param(dominactive => 1) if (!$webvar{domactive} && $webvar{doit});	# eww.
   $page->param(importdoms => $webvar{importdoms}) if $webvar{importdoms};
@@ -1485,5 +1487,5 @@
       my %row;
       my ($code,$msg) = importAXFR($dbh, $webvar{ifrom}, $domain, $webvar{group},
-	$webvar{domstatus}, $webvar{rwsoa}, $webvar{rwns});
+	$webvar{domstatus}, $webvar{rwsoa}, $webvar{rwns}, ($webvar{forcettl});
       $row{domok} = $msg if $code eq 'OK';
       if ($code eq 'WARN') {
Index: branches/stable/templates/axfr.tmpl
===================================================================
--- branches/stable/templates/axfr.tmpl	(revision 434)
+++ branches/stable/templates/axfr.tmpl	(revision 437)
@@ -33,4 +33,8 @@
 	<td>Rewrite NS to group default?</td>
 	<td><input type="checkbox" name="rwns"<TMPL_IF rwns> checked="checked"</TMPL_IF> /></td>
+</tr>
+<tr class="datalinelight">
+	<td>Force all TTLs to new value?</td>
+	<td><input type="checkbox" name="forcettl"<TMPL_IF forcettl> checked="checked"</TMPL_IF> /><input name="newttl" size="7"<TMPL_IF newttl> value="<TMPL_VAR NAME=newttl>"</TMPL_IF> /></td>
 </tr>
 <tr class="datalinelight">