Changeset 549 for branches/stable/cgi-bin/IPDB.pm

Timestamp:

11/09/12 11:57:22 (12 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Minimal server-meltdown-prevention patch for IPv6; create the
block but don't populate IP pools. See #22, sort of.

File:

• branches/stable/cgi-bin/IPDB.pm (modified) (5 diffs)

branches/stable/cgi-bin/IPDB.pm

@@ -375 +375 @@
   } else { # end IP-from-pool allocation
 
+    my $errcode = 'OK';
     if ($cidr == $alloc_from) {
       # Easiest case- insert in one table, delete in the other, and go home.  More or less.
@@ -415 +416 @@
             my ($code,$rmsg) = initPool($dbh,$cidr,$type,$city,"all");
             die $rmsg if $code eq 'FAIL';
+            $msg = $rmsg;
+            $errcode = $code;
           } elsif ($type =~ /^.d$/) {
             $msg = "Could not initialize IPs in new $disp_alloctypes{$type} $cidr";
             my ($code,$rmsg) = initPool($dbh,$cidr,$type,$city,"normal");
             die $rmsg if $code eq 'FAIL';
+            $msg = $rmsg;
+            $errcode = $code;
           }
 
@@ -436 +441 @@
         return ('FAIL',$msg);
       } else {
-        return ('OK',"OK");
+        return ($errcode,($type =~ /^.[pd]$/ ? $msg : "OK"));
       }
 
@@ -546 +551 @@
         return ('FAIL',$msg);
       } else {
-        return ('OK',"OK");
+        return ($errcode,($type =~ /^.[pd]$/ ? $msg : "OK"));
       }
 
@@ -566 +571 @@
   my ($dbh,undef,$type,$city,$class) = @_;
   my $pool = new NetAddr::IP $_[1];
+
+  return ('WARN','Refusing to melt server with IPv6 IP pool') if $pool->bits == 128;
 
 ##fixme Need to just replace 2nd char of type with i rather than capturing 1st char of type