Index: /branches/dns/cgi-bin/main.cgi
===================================================================
--- /branches/dns/cgi-bin/main.cgi	(revision 276)
+++ /branches/dns/cgi-bin/main.cgi	(revision 277)
@@ -642,4 +642,11 @@
   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,5 +817,5 @@
   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') {