Changeset 642 for trunk/cgi-bin/admin.cgi

Timestamp:

10/17/14 16:55:34 (10 years ago)

Author:

Kris Deugau

Message:

/trunk

Commit really old work in admin.cgi adding rDNS

• allocate block

File:

• trunk/cgi-bin/admin.cgi (modified) (2 diffs)

trunk/cgi-bin/admin.cgi

@@ -140 +140 @@
 
   my $maskbits = $cidr->masklen;
-  my $fbtmp = findAllocateFrom($ip_dbh, $maskbits, $webvar{alloctype}, '','',
+  my ($fbid, $fb, $fbparent);
+  ($fbid, $fb, $fbparent) = findAllocateFrom($ip_dbh, $maskbits, $webvar{alloctype}, '','',
         (gimme => "$cidr", allowpriv => 1));
-
-  if ($webvar{alloctype} eq 'rm') {
-    if (!$fbtmp) {
+  $page->param(fbid => $fbid);
+  $page->param(parid => $fbparent);
+  my $rdns = getBlockRDNS($ip_dbh, id => $fbparent, type => ($webvar{alloctype} =~ /^.i$/ ? 'i' : 'b'),
+        user => $authuser);
+  $page->param(rdns => $rdns);
+  if ($webvar{alloctype} =~ /^(.)i$/) {
+    my $iptype = $1;
+    my $ptmp = getBlockData($ip_dbh, $fbparent);
+    if ($ptmp->{type} =~ /^(.)[dp]$/) {
+      my $newiptype = "$1i";
+      if ($ptmp->{type} !~ /^$iptype./) {
+        $page->param(warnmsg => "Warning:  Allocating IP as '".$disp_alloctypes{$newiptype}."' instead of '".
+                $disp_alloctypes{$webvar{alloctype}}."' to match pool ".$ptmp->{block}."\n");
+        $webvar{alloctype} = $newiptype;
+      }
+    }
+    if (!$fbid) {
+      $page->param(errmsg => "Can't allocate static IP from outside a pool!!");
+      goto ERRJUMP;
+    }
+  } else {
+    if (!$fbid) {
       $page->param(errmsg => "Can't allocate from outside a free block!!");
       goto ERRJUMP;
     }
-  } elsif ($webvar{alloctype} =~ /^(.)i$/) {
-    my $iptype = $1;
-    my $ptmp = ipParent($ip_dbh, "$cidr");
-    if ($ptmp->{type} =~ /^(.)[dp]$/) {
-      my $newiptype = "$1i";
-      $fbtmp = $ptmp->{cidr};
-      if ($ptmp->{type} !~ /^$iptype./) {
-        $page->param(warnmsg => "Warning:  Allocating IP as '".$disp_alloctypes{$newiptype}."' instead of '".
-                $disp_alloctypes{$webvar{alloctype}}."' to match pool $fbtmp\n");
-        $webvar{alloctype} = $newiptype;
-      }
-    }
-    if (!$fbtmp) {
-      $page->param(errmsg => "Can't allocate static IP from outside a pool!!");
-      goto ERRJUMP;
-    }
-  } else {
-    if (!$fbtmp) {
-      $page->param(errmsg => "Can't allocate from outside a routed block!!");
-      goto ERRJUMP;
-    }
-  }
-
-  my $alloc_from = new NetAddr::IP $fbtmp;
+  }
+
+  my $alloc_from = new NetAddr::IP $fb;
 
   my @cities;
@@ -201 +200 @@
   }
 
-  my ($retcode,$msg) = allocateBlock($ip_dbh, $webvar{cidr}, $webvar{alloc_from},
-        $webvar{custid}, $webvar{alloctype}, $webvar{city}, $webvar{desc}, $webvar{notes},
-        $webvar{circid});
+  my ($retcode,$msg) = allocateBlock($ip_dbh, cidr => $webvar{cidr}, fbid => $webvar{fbid},
+        parent => $webvar{parent}, custid => $webvar{custid}, type => $webvar{alloctype}, city => $webvar{city},
+        desc => $webvar{desc}, notes => $webvar{notes}, circid => $webvar{circid},
+        privdata => $webvar{privdata}, nodeid => $webvar{node}, rdns => $webvar{rdns}, user => $authuser);
+
   if ($retcode eq 'OK') {
     syslog "notice", "$authuser allocated '$webvar{cidr}' to '$webvar{custid}' as ".