Index: /branches/dns/cgi-bin/IPDB.pm
===================================================================
--- /branches/dns/cgi-bin/IPDB.pm	(revision 274)
+++ /branches/dns/cgi-bin/IPDB.pm	(revision 275)
@@ -415,5 +415,5 @@
 # We also do the rDNS for the pool here to save some sanity.
 sub initPool {
-  my ($dbh,undef,$type,$city,$class,$rdns,$domain) = @_;
+  my ($dbh,undef,$type,$city,$class,$rdns) = @_;
   my $pool = new NetAddr::IP $_[1];
 
@@ -439,11 +439,10 @@
 	$sth->execute($pool->addr);
 	# Insert rDNS entry
-	$sth2->execute($pool->addr,subst_rDNS($rdns,$pool->addr).".".$domain);
+	$sth2->execute($pool->addr,subst_rDNS($rdns,$pool->addr));
       }
       for (my $i=0; $i<=$#poolip_list; $i++) {
 	$sth->execute($poolip_list[$i]->addr);
 	# Insert rDNS entry
-	$sth2->execute($poolip_list[$i]->addr,
-		subst_rDNS($rdns,$poolip_list[$i]->addr).".".$domain);
+	$sth2->execute($poolip_list[$i]->addr,subst_rDNS($rdns,$poolip_list[$i]->addr));
       }
       $pool--;
@@ -451,5 +450,5 @@
 	$sth->execute($pool->addr);
 	# Insert rDNS entry
-	$sth2->execute($pool->addr,subst_rDNS($rdns,$pool->addr).".".$domain);
+	$sth2->execute($pool->addr,subst_rDNS($rdns,$pool->addr));
       }
     } else { # (real netblock)
@@ -458,5 +457,5 @@
 	# Insert rDNS entry
 	$sth2->execute($poolip_list[$i]->addr,
-		subst_rDNS($rdns,$poolip_list[$i]->addr).".".$domain);
+		subst_rDNS($rdns,$poolip_list[$i]->addr));
       }
     }