Index: trunk/cgi-bin/IPDB.pm
===================================================================
--- trunk/cgi-bin/IPDB.pm	(revision 403)
+++ trunk/cgi-bin/IPDB.pm	(revision 404)
@@ -704,4 +704,24 @@
       } # end alloctype general case
 
+##TEMP
+## Temporary wrapper to "properly" deallocate sIP PPPoE/DSL "netblocks" in 209.91.185.0/24
+## Note that we should really general-case this.
+my $staticpool = new NetAddr::IP "209.91.185.0/24";
+##TEMP
+if ($cidr->within($staticpool)) {
+##TEMP
+  # We've already deleted the block, now we have to stuff its IPs into the pool.
+  my $sth2 = $dbh->prepare("insert into poolips values ('209.91.185.0/24',?,'6750400','Sudbury','di','y','','','')");
+  $sth2->execute($cidr->addr);
+  foreach my $ip ($cidr->hostenum) {
+    $sth2->execute("$ip");
+  }
+  $cidr--;
+  $sth2->execute($cidr->addr);
+
+##TEMP
+} else {
+##TEMP
+
       # Now we look for larger-or-equal-sized free blocks in the same master (routed)
       # (super)block. If there aren't any, we can't combine blocks anyway.  If there
@@ -751,4 +771,8 @@
       }
       $sth->execute;
+
+##TEMP
+}
+##TEMP
 
       # If we got here, we've succeeded.  Whew!