Index: trunk/dns.cgi
===================================================================
--- trunk/dns.cgi	(revision 31)
+++ trunk/dns.cgi	(revision 33)
@@ -601,6 +601,34 @@
   $page->param(rwsoa => $webvar{rwsoa}) if $webvar{rwsoa};
   $page->param(rwns => $webvar{rwns}) if $webvar{rwns};
+  $page->param(dominactive => 1) unless $webvar{domactive};
   $page->param(importdoms => $webvar{importdoms}) if $webvar{importdoms};
 ##work
+
+##fixme: check group too?
+  if ($webvar{doit} eq 'y' && !$webvar{ifrom}) {
+    $page->param(errmsg => "Need to set host to import from");
+  } elsif ($webvar{doit} eq 'y' && !$webvar{importdoms}) {
+    $page->param(errmsg => "Need domains to import");
+  } else {
+    my @domlist = split /\s+/, $webvar{importdoms};
+    my @results;
+my $rnum = 0;
+    foreach my $domain (@domlist) {
+      # do stuff!  DNSDB::importAXFR($webvar{ifrom}, $webvar{rwsoa}, $webvar{rwns}, $domain, <flags>)
+      my %row;
+      $row{domain} = $domain;
+#      $row{row} = $rnum++;
+      if ($domain eq 'deepnet.cx' || $domain eq 'wh-int') {
+	$row{domok} = 0;  $row{domerr} = "foo!  hahahaha!";
+      } elsif ($domain eq 'waslokido.com') {
+	$row{domwarn} = 0;  $row{domwarn} = "foo!  hahahaha!";
+      } else {
+	$row{domok} = 1;
+      }
+      push @results, \%row;
+    }
+    $page->param(axfrresults => \@results);
+  }
+
   push @debugbits, "<pre>$webvar{importdoms}</pre>";
 }