Changeset 276


Ignore:
Timestamp:
Aug 10, 2005, 5:48:18 PM (17 years ago)
Author:
Kris Deugau
Message:

/branches/dns

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/dns/cgi-bin/IPDB.pm

    r275 r276  
    287287            my ($code,$rmsg) = initPool($dbh,$cidr,$type,$city,"normal");
    288288            die $rmsg if $code eq 'FAIL';
     289          } else {
     290            # This is an else case, rather than continuing, because we've already stuffed
     291            # DNS entries in for pools inside initPool() called above.  This section deals
     292            # with non-pool blocks.
     293            # Note that we should really NetAddr::IP::split() this block if it's /15 or
     294            # larger so as to not break things by running out of memory.  Or something.
     295
     296# Check initPool() for a better(?) way to do this - also somewhat more complete
     297            $msg = "Failed to seed rDNS entries allocating $cidr to $custid";
     298            my $sth2 = $dbh->prepare("insert into dns (ip,hostname) values (?, ?)");
     299            my @iplist = $cidr->hostenum;
     300            foreach my $ip (@iplist) {
     301              $sth2->execute("$ip",$rdns);
     302            }
    289303          }
    290304
Note: See TracChangeset for help on using the changeset viewer.