Changeset 429 for trunk/cgi-bin
- Timestamp:
- 07/11/10 11:07:28 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/cgi-bin/IPDB.pm
r428 r429 721 721 } # end alloctype general case 722 722 723 ## Deallocate legacy blocks stashed in the middle of a DSLstatic IP pool723 ## Deallocate legacy blocks stashed in the middle of a static IP pool 724 724 ## This may be expandable to an even more general case of contained netblock, or other pool types. 725 725 … … 734 734 $sth2 = $dbh->prepare("INSERT INTO poolips (pool,ip,city,type,custid) values ". 735 735 "('$pool',?,'$poolcity','$pooltype','$defcustid')"); 736 ##fixme: need to not insert net, gateway, and bcast on "real netblock" pools (DHCPish) 736 737 # don't insert .0 737 ##fixme: need to not insert .1 on "real netblock" pools (DHCPish)738 738 $sth2->execute($cidr->addr) unless $cidr->addr =~ m|\.0$|; 739 739 foreach my $ip ($cidr->hostenum) { … … 795 795 } # done returning IPs to the appropriate place 796 796 797 die "blah, missed the case\n";798 797 # If we got here, we've succeeded. Whew! 799 798 $dbh->commit;
Note:
See TracChangeset
for help on using the changeset viewer.