Changeset 275 for branches/dns/cgi-bin

Timestamp:

08/10/05 13:45:18 (19 years ago)

Author:

Kris Deugau

Message:

/branches/dns

Remove unused/unusable (?) parameter $domain from initPool()

File:

• branches/dns/cgi-bin/IPDB.pm (modified) (4 diffs)

branches/dns/cgi-bin/IPDB.pm

@@ -415 +415 @@
 # 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 +439 @@
         $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 +450 @@
         $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 +457 @@
         # Insert rDNS entry
         $sth2->execute($poolip_list[$i]->addr,
-                subst_rDNS($rdns,$poolip_list[$i]->addr).".".$domain);
+                subst_rDNS($rdns,$poolip_list[$i]->addr));
       }
     }