Changeset 277 for branches/dns/cgi-bin

Timestamp:

08/10/05 17:49:24 (19 years ago)

Author:

Kris Deugau

Message:

/branches/dns

Quick hack to properly pass in rDNS data in one use-case
Make sure to pass rDNS (whatever it may turn out as) to allocateBlock()

File:

• branches/dns/cgi-bin/main.cgi (modified) (2 diffs)

branches/dns/cgi-bin/main.cgi

@@ -642 +642 @@
   my $alloc_from;
   my $rdns;
+
+  if ($webvar{defrdns} eq 'y') {
+    # Using default templated rDNS from alloctypes table
+  } else {
+    # Use supplied rDNS
+    $rdns = $webvar{rdns};
+  }
 
   # Going to manually validate some items.
@@ -810 +817 @@
   my ($code,$msg) = allocateBlock($ip_dbh, $webvar{fullcidr}, $webvar{alloc_from},
         $webvar{custid}, $webvar{alloctype}, $webvar{city}, $webvar{desc}, $webvar{notes},
-        $webvar{circid});
+        $webvar{circid}, $webvar{rdns});
 
   if ($code eq 'OK') {