Changeset 276 for branches

Timestamp:

08/10/05 17:48:18 (19 years ago)

Author:

Kris Deugau

Message:

/branches/dns

rDNS seeding added to one case of "real" netblock allocation

File:

• branches/dns/cgi-bin/IPDB.pm (modified) (1 diff)

branches/dns/cgi-bin/IPDB.pm

@@ -287 +287 @@
             my ($code,$rmsg) = initPool($dbh,$cidr,$type,$city,"normal");
             die $rmsg if $code eq 'FAIL';
+          } else {
+            # This is an else case, rather than continuing, because we've already stuffed
+            # DNS entries in for pools inside initPool() called above.  This section deals
+            # with non-pool blocks.
+            # Note that we should really NetAddr::IP::split() this block if it's /15 or
+            # larger so as to not break things by running out of memory.  Or something.
+
+# Check initPool() for a better(?) way to do this - also somewhat more complete
+            $msg = "Failed to seed rDNS entries allocating $cidr to $custid";
+            my $sth2 = $dbh->prepare("insert into dns (ip,hostname) values (?, ?)");
+            my @iplist = $cidr->hostenum;
+            foreach my $ip (@iplist) {
+              $sth2->execute("$ip",$rdns);
+            }
           }