Changeset 252 for branches

Timestamp:

05/30/05 11:30:46 (20 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Fixed bug where attempting to allocate a static IP from the
admin tools failed with the wrong error message before it
even let you enter customer info - a section was missing
for static IPs.
Fixed display bug on checking for invalid/unknown actions.

File:

• branches/stable/cgi-bin/admin.cgi (modified) (1 diff)

branches/stable/cgi-bin/admin.cgi

@@ -141 +141 @@
     printAndExit("Can't allocate from outside a free block!!\n")
         if !$data[0];
+  } elsif ($webvar{alloctype} =~ /^(.)i$/) {
+    $sth = $ip_dbh->prepare("select cidr from allocations where cidr >>='$cidr' and (type like '_d' or type like '_p')");
+    $sth->execute;
+    @data = $sth->fetchrow_array;
+# User deserves errors if user can't be bothered to find the pool and a free IP first.
+    printAndExit("Can't allocate static IP from outside a pool!!\n")
+        if !$data[0];
   } else {
     $sth = $ip_dbh->prepare("select cidr from freeblocks where cidr >>='$cidr' and not (routed='n')");