Changeset 33 for trunk/dns.cgi

Timestamp:

11/10/09 17:51:55 (16 years ago)

Author:

Kris Deugau

Message:

/trunk

checkpoint, fleshing out axfr import

File:

• trunk/dns.cgi (modified) (1 diff)

trunk/dns.cgi

@@ -601 +601 @@
   $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>";
 }